题目内容

如下程序段的功能是计算 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

窗体上有一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() a = 0 For m = 1 To 3 a = a + 1 b = 0 For j = 1 To 3 a = a + 1 b = b + 2 Next j Next m Print a, b End Sub 运行时,单击按钮,输出结果是(

A. 6 6
B. 6 18
C. 12 6
D. 12 18

有如下事件过程：Private Sub Command1_Click()b=10Do While b<>-1a = InputBox("请输入a的值")a= Val(A)b =InputBox("请输入b的值")b= Val(b)a= a * bLoopPrint aEnd Sub程序运行后，依次输入数值30，20，10，-1输出结果为（）

A. -20
B. 200
C. 600
D. -10