If Opt4.Value = True Then Text1.FontSize = Opt4.Caption If Opt5.Value = True Then Text1.FontSize = Opt5.Caption End Sub
程序运行界面如图所示。
程序运行界面 自测题8
一、选择题
1.假定有以下循环结构 Do Until 条件 循环体 Loop 则正确的描述是
A）如果“条件”是一个为0的常数，则一次循环体也不执行 B）如果“条件”是一个为0的常数，则至少执行一次循环体 C）如果“条件”是一个不为0的常数，则至少执行一次循环体 不论“条件”是否为“真”，至少要执行一次循环体 2.假定有以下程序段 For i=1 To 3
For j=5 To 1 Step -1 Print i*j Next j,i
- 36 -
则语句Print i*j的执行次数是
A）15 B）16 C）17 D）18 3.以下程序段的输出结果是 x=1 y=4
Do Until y>4 x=x*y y=y+1 Loop Print x
A）1 B）4 C）8 D）20 4.设a=6,则执行
x=IIf(a>5,-1,0) 后，x的值为
A）5 B）6 C）0 D）-1 5.执行下面的程序段后，x的值为 x=5
For i=1 To 20 Step 2 x=x+i\\5 Next i
A）21 B）22 C）23 D）24 6.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4
For j=1 To 3 x=3
For k=1 To 2 x=x+6 Next k Next j Next i Print x
- 37 -
End Sub
程序运行后，单击命令按钮，输出结果是
A）7 B）15 C）157 D）538 7.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0
Do Until x=-1
a=InputBox(\请输入a的值\ a=val(a)
b=InputBox(\请输入b的值\ b=val(b)
x=InputBox(\请输入x的值\ x=val(x) a=a+b+x Loop Print a End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果是 A）2 B）3 C）14 D）15 8.阅读下面的程序段： For i=1 To 3
For j=1 To i
For k=j To 3 a=a+1 Next k Next j Next i
执行上面的3重循环后，a的值为
A）3 B）9 C）14 D）21
9.在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程： Private Sub Form_Load() Text1.Text=\ Text1.SetFocus
- 38 -
For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是
A）在文本框Text1中输出55 B）在文本框Text1中输出0
C）出错 D）在文本框Text1中输出不定值 10.在窗体上虎两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： Private Sub Command1_Click() x=0
Do While x<50 x=(x+2)*(x+3) n=n+1 Loop
Text1.Text=Str(n) Text2.Text=Str(x) End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为 A）1和0 B）2和72 C）3和50 D）4和168 二、填空题
1.执行下面的程序段后，s的值为 。 s=5
For i=2.6 To 4.9 Step 0.6 s=s+1 Next i
2.以下程序段的输出结果是 。 num=0
While num<=2 num=num+1 Print num Wend
- 39 -
3.以下程序段所对应的函数表达式是 。 x=InputBox(\ x=CInt(x) Select Case x Case Is<=0 y=0 Case Is<=10 y=5+2*x Case Is<=15 y=x-5 Case Is>15 y=0 End Select 4.设有以下的循环： x=1 Do
x=x+2 Print x Loop Until
程序运行后，要求执行3次循环体，请填空。
5.以下程序的功能是：从键盘上输入若干个学生的考试分数，统计并输出最高分数和最低分数，当输入负数时结束输入，输出结果。请填空。 Private Sub Form_Click()
Dim x,amax,amin As Single x=InputBox(\ amax=x amin=x Do While
If x>amax Then amax=x End If
If Then amin=x
- 40 -