【单选题】有如下程序: 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 ...