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 \您的成绩为优秀！\