网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Cliek()
Dim arr()As Integer
Re Dim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
IfVal(x)＞4 Then
Rc Dim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。
参考答案
更多 “ 在窗体上画一个命令按钮Command1，然后编写如下程序：Private Sub Command1_Cliek()Dim arr()As IntegerRe Dim arr(3)For i=0 To 3arr(i)=iNext ix=InputBox("请输入一个数字：")IfVal(x)＞4 ThenRc Dim arr(4)arr(4)=xEnd IfMe.Print(arr(4)-arr(3))End Sub程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。 ” 相关考题
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Commandl_Click( )Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X, YEnd Sub程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为【 】。
考题
在窗体上画一个名称为command1的命令按钮，然后编写如下程序； Option Base 1 Private Sub Command1_Click() Dim arr(4)As String For i=1 To 4 arr(i) = Chr(Asc("A")+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。A．ABCDB．abcdC．出错信息D．1 2 3 4
考题
在窗体上画一个命令按钮Command1，然后编写如下代码： Privae Sub Command1_Click() Dim Arr1(10) As Integer,Arr2(10) As Integer n=3 For i=1 To 5 Arr1(i)=i Art2(n)=2*n+i Next i Print Arr2(n);Arr1(n) End Sub 运行程序后，单击命令按钮，输出结果是( )。A．11 3B．3 11C．13 3D．3 13
考题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_ Click() Dim arr (10) For i = 1 To 10 arr (i) = i ^ 2 Next i Print arr(i - 2) End Sub程序运行后，单击命令按钮，在窗体上输出的是______。A．49B．64C．81D．100
考题
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：PriVate Sub Commandl_CUck()Dimalt(1 To 100)As IntegerFori=1 To 100arr(i)=Int(Rnd*1000)NextiMax=arr(1)Min=arr(1)Fori=1 To 100If [12] ThenMax=arr(i)
热门标签
最新试卷
