单项选择题

运行如下程序Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 4 a(i, j) = i * 2 + j If a(i, j) / 7 = a(i, j) \ 7 Then n = n + 1 End If Next j Next Print n End Sub则n的值是( )

A．2
B．3
C．4
D．5

<上一题目录下一题>

热门试题

单项选择题有如下程序段：s = 0For i = 1 To 10 s = s + iNext iPrint s与上述程序段输出结果相同的程序段为( )。

A．s = 0: i = 0 While i <= 10 i = i + 1 s = s + i Wend Print s
B．s = 0: i = 1 While i < 10 i = i + 1 s = s + i Wend Print s
C．s = 0: i = 1 Do s = s + i i = i + 1 Loop While i < 10 Print s
D．s = 0: i = 1 Do s = s + i i = i + 1 Loop Until i > 10 Print s

单项选择题在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click() Dim S As Integer S = 0 For i = 1 To 15 x = 2 * i - 1 If x Mod 3 = 0 Then S = S + 1 End If Next i Label1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是( )。

A．5
B．1
C．27
D．45