[主观题]

在窗体上画一个命令按钮Command1,然后编写如下程序:

Private Sub Command1_Cliek()

D.im arr()As Integer

Re Dim arr(3)

F.or i=0 To 3

arr(i)=i

Next i

x=InputBox("请输入一个数字:")

IfVal(x)>4 Then

Rc Dim arr(4)

arr(4)=x

E.nd If

Me.Print(arr(4)-arr(3))

E.nd Sub

程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为[ ]。

参考答案与解析:

相关试题

在窗体上画一个命令按钮,然后编写如下程序Private Sub Command1

[单选题]在窗体上画一个命令按钮,然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer,b As hiteger a=1 b=2 Print N(a,B)End Sub Function N(x As Integer,y As Integer)As Integer N=IIf(x>y,x,y) End Function 程序运行后,单击命令按钮,输出结果为A.1B.2C.5D.8

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_Click()F.or I=1 To 2F.or J=1 To IPrint String(I,"Hello");Next JPrintNext IE.nd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A.H HH HHB.H HHHHC.HHHHHD.H HH HHHH

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b>= 10 then exit for if b Mod 3 = 1 then b=b+3 End ifNext aPrint aEnd Sub在命令按钮上单击后,窗体上显示的结果是______。A.101B.6C.5D.4

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:Private Sub Command1_ Click()Dim a As Integer, b As Integerdo while b <100 b=b+5 a=a+ b if b >20 then exit doLoopPrint a, bEnd Sub程序运行后,如果甲击命令按钮,则在窗体上显示的内容是______。A.50 20B.75 25C.50 25D.75 20

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_ Click() for i = 1 To 4 for j= 0 To i Print Chr$(65 +i) Next j Print Next iEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是______。A.BB CCC DDDD EEEEEB.B CC DDD EEEEC.AA AA CCCC DDDDDD.A BB CCC DDDD

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer If a=0 Then x=x-1 Else If b<>0 Then End If End If If c<>0 Then x=3 Else x=4 End If Print x End Sub 程序运行后,单击命令按钮,其输出结果为 ______。A.34B.4C.35D.3

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下程序: Private Sub Command1_Click() For i=1 To 2 For j=1 To i Print String(i,"Hello") Next j Print Next i End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.H HH HHB.H HHHHC.HHHHH HH HHHHD.H

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private

    [单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1 Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next i End Sub 程序运行后,单击命令按钮,窗体上显示的是______。A.1 2 3 2 4 6 3 6 9B.2

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private

    [单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_ Click() Static x As Integer Static y As Integer Cls y=1 y=y+5 x=y +x Print x, yEnd Sub程序运行时,三次单击命令按钮Command1后,窗体上显示的结果为______。A.15 16B.15 6C.15 15D.5 6

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private

    [单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click()Dim I As Integer,j As IntegerDim a(10,10)As IntegerFor I=1 To 3For j=1 To 3a(I,j)=(I-1)*3+jPrint a(I,j);Next jPrintNext iEnd Sub程序运行后,单击命令按钮,窗体上显示的是()。(其中CR表示回车和换行)A . 1 2 3 CR 3 4 5 CR 5 6

  • 查看答案
  • 在窗体上画一个命令按钮Command1,然后编写如下程序: Private Su