【单选题】设有如下通用过程: Public Sub Fun(a() As Integer, x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Click() Dim arr(5) As Integer...
【单选题】有如下程序: Private Sub Form_Click( ) Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum E...
【单选题】设有如下程序: Private Sub Form_Click() Dim a Dim i As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后,单击窗体,则在窗体上显示的是( )。
【单选题】设有如下程序: Private Sub Command1_Click() Dim c As Integer, d As Integer c = 4 d = InputBox('请输入一个整数') Do While d > 0 If d > c Then c = c + 1 End If d = InputBox('请输入一个整数') Loop Print c ...