执行下列程序段后输出的结果是( )。 s = 1 For i = 1 To 3 For j = 0 To i-1 s = s + s * j Next j ? s; Next i
A. 1 2
B. 2 1
C. 2 2 12
D. 1 2 12
查看答案
有如下事件过程:Private Sub Command1_Click()a=0For i = 1 To 3For j = 1 To iFor k = j To 3a = a + 1Next kNext jNext iPrint aEnd Sub程序运行后,输出的结果为()
A. 12
B. 14
C. 15
D. 16
如下程序段的功能是计算 1/2+1/4+1/6 +...+1/50,并显示结果。 Private Sub Command1_Click() Dim i As Integer Dim sum As Double i = 2 sum = 0 Do While (i <= 【1】) sum = sum + 1 / 【2】 i = i + 2 Loop Print sum End Sub 程序的空缺处【1】和【2】应分别填写(
A. 50, sum
B. 50, i
C. 100, sum
D. 100, i
以下循环的执行次数是 ( ) num = 0 Do Until num >= 5 num = num + 1 Loop
A. 0
B. 4
C. 5
D. 6
运行下列程序段,其中“n=n+1”语句被执行的次数是( )。 Dim m%, n% For m = 1 To 3 For n = 1 To 6 Step 2 n = n + 1 Print n Next n Next m
A. 3
B. 6
C. 9
D. 18