解析：本题用了多分支IF语句，根据题目给出的程序可知第一空、第二空是填条件语句的，根据Then后面的内容可以确定：第一空应填入x > 0 And y > 0；第二空应填入x < 0 And y > 0；函数除了满足上述条件的都是“其他”，所以第三空应为Else。
8 Form1.BackColor = vbRed或者BackColor = vbRed或者Me.BackColor = vbRed。 Mark = 1；Mark = 0
解析：首先过程中定义了一个模块级整型变量Mark，每次都保留上次运行后的值。由程序可以看出：本题约定Mark等于0表示背景色为红色；Mark等于1表示背景色为绿色；Mark等于2表示背景色为蓝色，每次单击运行后要将Mark变为下次运行时的值，以便符合题目要求。所以第一空应为Form1.BackColor = vbRed，第二空为Mark = 1；当背景色变为蓝色后再单击背景色要变为红色，所以应将Mark变为0，所以第三空为Mark = 0。 9 Select Case x；Case Else
解析：阅读程序后，发现程序中有Case和End Select子句，没有多分支选择结构的起始语句，很明显，第一个空应该填写多分支结构的起始语句Select Case x。在Select Case 结构中，只有两个Case子句，分别表示x取值的两种情况，但题目中将x的值分为3种情况，所以第二个空应该填写Case Else语句。 10 1；2；3
解析：考核多分支控制结构语句，函数调用了Val(Text1.Text) 函数将从文本框中得到的字符串转化为数据，将转换来的数据作为情况语句的测试条件。因为当输入1时，则打印“您的成绩为优秀！”；所以当测试表达式的值与之相同时，就执行该Case分支的语句，同样当输入2，3等其他数字时执行其他的Case分支。 11 Form1. Hide或者Unload Form1；Show
解析：可以用Hide方法，也可以用Unload语句使Form1窗体消失；用Show方法显示窗体。 12 n；1
解析：此题中Text1中的数字代表投币的总次数，用n来表示，因此For循环中i的值应从1到n，第一个空为n；因为1代表正面，0代表反面，而r是随机取的1或者0，第二个空是判断r的取值，因为n1代表正面的值，所以If语句中r应等于1，第二个空为1。
三 程序设计题
1 【源程序代码如下】
Private Sub Cmd1_Click()
Dim X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, S As Single X1 = Text1.Text Y1 = Text2.Text X2 = Text3.Text Y2 = Text4.Text
S = ((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2) ^ (1 / 2) Label5.Caption = \这两点之间的距离为:\End Sub
运行界面如图所示。
- 31 -
图 程序运行界面
2 【源程序代码如下】
Private Sub Cmd1_Click()
Dim xm As String, nl As Integer, dz As String, yb As String, dh As String xm = InputBox(\请输入姓名:\ nl = InputBox(\请输入年龄:\
dz = InputBox(\请输入通讯地址:\ yb = InputBox(\请输入邮政编码:\ dh = InputBox(\请输入联系电话:\ Print \姓名:\ Print \年龄:\ Print \通讯地址:\ Print \邮政编码:\ Print \联系电话:\End Sub
运行界面如图所示。
图 运行界面
3 【源程序代码如下】 Private Sub Cmd1_Click()
Dim n As Integer
n = MsgBox(\确定要退出吗?\系统提示\ If n = 1 Then End Else
MsgBox \欢迎继续使用!\ End If End Sub
运行界面如图所示。
- 32 -
图程序运行界面
4 【源程序代码如下】
Private Sub Cmd1_Click()
Dim y As Integer, m As Integer '判断闰年 y = Text1.Text m = Text2.Text
If (y Mod 4 = 0 And y Mod 100 <> 0) Or (y Mod 400 = 0) Then Label3.Caption = y & \年是闰年。\ Else
Label3.Caption = y & \年不是闰年。\ End If '判断季节 Select Case m Case 1 To 3
Label4.Caption = m & \月是春季(Spring)。\ Case 4 To 6
Label4.Caption = m & \月是夏季(Summer)。\ Case 7 To 9
Label4.Caption = m & \月是秋季(Autumn)。\ Case 10 To 12
Label4.Caption = m & \月是冬季(Winter)。\ End Select End Sub
运行界面如图所示。
图程序运行界面
5 【分析】三个数构成三角形三条边的充分必要条件是：
（1）三个数均大于0；
（2）任意两条边的和大于第三边。 【源程序代码如下】
Private Sub Cmd1_Click()
Dim a As Single, b As Single, c As Single Dim p As Single, s As Single a = Val(Text1.Text)
- 33 -
b = Val(Text2.Text) c = Val(Text3.Text)
If a > 0 And b > 0 And c > 0 Then
If a + b > c And b + c > a And c + a > b Then p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Label4.Caption = \三角形的三条边长为:\、\、\。\
Label5.Caption = \三角形的面积为:\ Else
MsgBox \不能构成三角形!\信息提示\ End If Else
MsgBox \数据无效!\信息提示\ End If End Sub
程序运行界面如图所示。
程序运行界面
6 【源程序代码如下】
Private Sub Form_Load()
Label1.ForeColor = vbBlue End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True Label1.ForeColor = vbBlue End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False Label1.ForeColor = vbRed End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 100
If Label1.Left + Label1.Width <= 0 Then Label1.Left = Me.Width End If End Sub
程序运行界面如图所示。
- 34 -
程序运行界面
7 【源程序代码如下】 Private Sub C1_Click() Dim Yf As Integer Yf = Val(Text1.Text) Select Case Yf Case 1, 2, 3
Label2.Caption = Yf & \月是春季\ Case 4, 5, 6
Label2.Caption = Yf & \月是夏季\ Case 7, 8, 9
Label2.Caption = Yf & \月是秋季\ Case 10, 11, 12
Label2.Caption = Yf & \月是冬季\ Case Else
Label2.Caption = \您的输入有误,请重新输入!\ End Select End Sub
程序运行界面如图所示。
程序运行界面
8 【源程序代码如下】
Private Sub Cmd1_Click()
If Opt1.Value = True Then
Text1.Font = Opt1.Caption Else
Text1.Font = Opt2.Caption End If
If Chk1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False If Chk2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False
If Chk3.Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False
If Chk4.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False
If Opt3.Value = True Then Text1.FontSize = Opt3.Caption
- 35 -