End Select A)Excellent C)Pass
B)Good
D)Fail
24 执行下面的程序段后，变量c的值为( C )。
a=14 b=30
Select Case b ＼ 10 Case 0
c=a * 10 + b Case 1 To 9 c=a * 100 + b Case 10 To 99 c=a * 1000 + b End Select Print c A) 363 C) 1430
B) 2548 D) 9875
25 以下Case语句中错误的是( C )。
A) Case 0 To 10
B) Case Is>10
C) Case Is>10 And Is<50 二、填空题
D) Case 3, 5, Is>10
1 语正确答案是选项句Print\的输出结果是 25+32=57 。
2 在一个窗体上有两个命令按钮，CmdMax和CmdMin。单击CmdMax时，窗体上显示\字体由小变大\，字号每次增加2；单击CmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。
Private Sub Form_Load() Form1.Caption=\字体变化示范\ CmdMax.Caption=\字体变大\ CmdMin.Caption=\字体变小\End Sub
Private Sub CmdMax_Click()
Form1.Fontsize=Form1.fontsize+2 Form1.Print \字体由小变大\End Sub
Private Sub CmdMin_Click()
Form1.Fontsize=Form1.fontsize-2 Form1.Print \字体由大变小\End Sub
3 完成下面的程序，使显示结果如下图所示。
Private Sub Form_Click()
FontSize = 18
Sample = \Welcome to Beijing! \ x = (ScaleWidth - TextWidth(Sample)) / 2 y = (ScaleHeight - TextHeight(Sample)) / 2 CurrentX = x CurrentY = y Print Sample End Sub
图4.1 程序运行界面
4 有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click() x=Val(Text1.Text)
If x mod 4=1 and x mod 5=2 Then Print x Else
Text1.Text=\ Text1.setfocus End If End Sub
5 下面程序的作用是用InputBox()函数输入一个整数，然后判断能否同时被2，5和7整除，如果能则输出该数及平方值。请填空。
Private Sub Command1_Click() Dim numX As Integer
numX=Val(InputBox(\请输入一个整数\ If numX mod 70 = 0 Then Form1.Print numX, numX*numX End If End Sub
6 在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click() num=Val(Text1.Text)
If num mod 6 =2 and num mod 5 =3 Then Print num Else
Text1.Text=\ Text1.setfocus End If End Sub
7 下面的程序是计算给定函数的值，自变量x，y的值用InputBox()函数输入，函数如下：
?x2?y2 x?0,y?0?f(x,y) ??x2-2y2 x?0,y?0
?y2-2x2 其它?程序不完整，请填空，将程序的补充完整。 Option Explicit Dim x As Single Dim y As Single Dim z As Single
Private Sub Command1_Click() x=Val(InputBox(\ y=Val(InputBox(\End Sub
Private Sub Command2_Click() If x>0 and y>0 Then z=x ^ 2 + y ^ 2
ElseIf x<0 and y>0 Then z=x ^ 2 - 2 * y ^ 2 else z=y ^ 2 - 3 * x ^ 2 End If
Form1.Print \当x，y的值为：\ Form1.Print \的值为：\End Sub
8 在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色??如此循环。单击“结束”
按钮，程序运行结束。请填空。
Private Sub CmdChange_Click() If Mark=0 Then
Form1.BackColor=vbRed Mark=1
ElseIf mark =1 Then Form1.BackColor=vbGreen Mark=2
ElseIf Mark=2 Then Form1.BackColor=vbBlue Mark=0 End If End Sub
Private Sub CmdExit_Click() End End Sub
9 下列程序的功能是：当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，没有意义，请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox(\请输入x的值！\select case x
Case Is < 50 y=0.8 * x Case 50 To 100 y=0.7 * x
case else
Print \输入的数据出界！\ End Select Print x, y End Sub
10 下面的程序用于根据文本框Text中输入的内容进行以下处理：
若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好！”若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下！”，请填空。
Private Sub Command1_Click() Select Case Val(Text1.Text) Case 1
Print \您的成绩为优秀！\