单项选择题

有如下程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 alt=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为（）。

A．25
B．26
C．27
D．28

<上一题目录下一题>

热门试题

单项选择题

设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text= Text1.SetFocus End Sub Private Sub Form_Mouse Up (Button As Integer，Shift As Integer，X As Single，Y As Single) Print 程序设计 End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print Visual Basic ； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。

A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计

单项选择题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dima1(4，4)a2(4，4) Dim i As Integer, j As Integer For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print a1(3,3);a2(3,3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是（）。

A．6 6
B．10 5
C．7 21
D．6 12

相关试题