【单选题】设有如下通用过程: 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 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 ...