Case 2
Print \您的成绩为良好！\ Case 3 Print \您的成绩为一般\ Case Else
Print \您的成绩一般以下！\ End Select End Sub
11 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下：
Private Sub Command1_Click() Form1. hide Form2. show End Sub 试补充完整。
12 本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。
图4.2 程序运行界面
Private Sub Command1_Click() Radomize
n=CInt(Text1.Text) n1=0 n2=0
For i=1 To n r=Int(Rnd*2) If r= 1 Then
n1=n1+1 Else n2=n2+1 End If Next i Text2.Text=n1 Text3.Text=n2 End Sub 三 程序设计题
1 已知平面坐标系内两点的坐标，求两点间的距离。
2 编写程序，要求用户利用InputBox()函数输入如下信息：姓名、年龄、通讯地址、邮政编码、联系电话，然后将输入的数据用Print方法以适当的格式在窗体上显示出来。
3 编写程序，设计一个退出按钮，根据用户做出的响应来确定是否结束程序（利用MsgBox来设计）。 4 任给定一年，判断该年是否为闰年，并根据给定月份来判断属于哪个季节？（闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除。）
5 从文本框内输入三角形的3条边a、b、c，判断它们是否能构成三角形，如果能，则计算出面积，如果不能，则提示信息。
6 设计一个滚动字幕，其标题为“VB程序设计”，使其能自右向左反复移动，当把鼠标移到该字幕上时，停止移动，同时字体颜色变为红色，移开以后，字幕继续移动，字体变为原来的颜色。
7 在文本框内输入一年中的12个月份，如果输入1、2、3月份，则在标签上显示春季，如果输入4、5、6月份，则显示夏季，如果输入7、8、9月份，则在标签上显示秋季，如果输入10、11、12月份，则显示冬季，其它情况则显示您的输入有误,请重新输入,使用命令按钮的单击事件。 8 利用单选按钮与复选按钮控制文本框内字体的字体与字形。
练习题三
一、选择题
1．以下正确的For?Next结构是 B A) For x=1 To Step 10 B) For x=3 To -3 Step -3 ? ? Next X Next x
C) For x=1 To 10 D) For x=3 T0 10 Step 3 re：? ? Next x Next Y If i=10 Then GoTo re 2．假定有以下循环结构 Do Until 条件
循环体 Loop
则正确的描述是 B
A）如果“条件”是一个为0的常数，则一次循环体也不执行 B）如果“条件”是一个为0的常数，则至少执行一次循环体 C）如果“条件”是一个不为0的常数，则至少执行一次循环体 D）不论“条件”是否为“真”，至少要执行一次循环体 3．下列循环语句能正常结束循环的是 C A) I=5 B) I=5 Do Do
I = I + 1 I = I + 2
Loop Until I < 0 Loop Until I =10 C) i=10 D) i=10 Do Do I=I – 1 I=I-2
Loop Until I < 0 Loop Until I =1 4．假定有以下程序段 For I =l To 3
For J=5 To 1 Step -1 Print I*J Next J，I
则语句“Print I*J”的执行次数是 A A)15 B)16 C)17 D)18 5．以下程序段的输出结果为 B 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
6．执行下面的程序段后，X的值为 A X=5
For I=1 To 20 Step 2
X=X+I\\5 Next I
A)21 B)22 C)23 D)24
7．下面程序段的运行结果为 B Private Sub Command1_Click() For i = 3 To 1 Step -1 Print Spc(5 - i); For j = 1 To 2 * i - 1 Print \ Next j Print Next i
End Sub
A) * B) ***** C) ***** D) ***** *** *** *** *** ***** * * * 8．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() For I = 1 To 4 X=4 For j =1 To 3 X=3 For k=1 To2 X=X+6 Next k
Next j Next Ｉ Print x End Sub
程序运行后，单击命令按钮，输出结果是 B A)7 B)15 C)157 D)538
9．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_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)