在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下 PrivNe Sub Command1_Click() Dim i,j,x For i=1 To 20 sep 2 x=0 For j=i To 20 step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框中显示的结果是
A. 1
B. 7
C. 17
D. 400
运行下列程序段,结果是 For m=10 to 1 step 0 k=k+3 Next m
A. 形成死循环
B. 循环体不执行即结束循环
C. 出现语法错误
D. 循环体执行一次后结束循环
在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下: Private Sub Command1_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Text1.value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框Text1输出的结果是
A. 6
B. 12
C. 18
D. 21
在窗体中有一个名称为run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0到100分之间,则要求重新输入;如果输入的成绩正确,则进入后续程序处理。run35命令按钮的Click的事件代码如下: Private Sub run35_Click() Dim flag As Boolcan result=0 flag=True Do Whileflag result=Val(InputBox("请输入学生成绩:","输入")) If result>=0 And result<=100 Then ______ Else MsgBox "成绩输入错误,请重新输入" End If Loop Rem 成绩输入正确后的程序代码略 End Sub 程序中有一空白处,需要填入一条语句使程序完成其功能。下列选项中错误的语句是
A. flag=False
B. flag=Not flag
C. flag=True
D. Exit Do