1.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Private Sub Command1_Click() If Op1.Value = True Then Text1.FontName = \宋体\ Else
Text1.FontName = \隶书\ End If
If Ch1.Value = 1 Then
Text1.FontUnderline = True Else
Text1.FontUnderline = False End If
If Ch2.Value = 1 Then
Text1.FontItalic = True Else
Text1.FontItalic = False End If End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Filter 第2个？处填入：ShowOpen
第3个？处填入：App.Path & \第4个？处填入：Close #1
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：#1
第2个？处填入：Text1.Text 第3个？处填入：n 第4个？处填入：a(k) 第5个？处填入：c
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
33◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
1.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.115。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.116。 表3.116 控件 列表框 属性 Name List 设置值 List1 数学 物理 化学 语文 步骤2：编写程序代码。 参考答案
Private Sub Form_Click() List1.List(3) = \End Sub
Private Sub Form_Load() List1.List(3) = \英语\End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
1.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.117～3.119。
参考答案
Private Sub Option1_Click() Text1.Alignment = 0 End Sub
Private Sub Option2_Click() Text1.Alignment = 2 End Sub
Private Sub Option3_Click() Text1.Alignment = 1 End Sub
Private Sub Option4_Click() Text1.FontName = \宋体\End Sub
Private Sub Option5_Click() Text1.FontName = \黑体\End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Timer1.Enabled = False 第2个？处填入：30 第3个？处填入：x0 第4个？处填入：Y2 第5个？处填入：b
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：a(n, 1) 第2个？处填入：7
第3个？处填入：a(n, 8)
Private Sub Command2_Click() Dim n As Integer For n = 1 To 5
If m < getmark(n) Then m = getmark(n) Next
Text3.Text = m For n = 1 To 5
If m = getmark(n) Then Text2.Text = athlete(n) Next n End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
34◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
1.【操作步骤】
步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.120。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.121和表3.122。 表3.121 控件 形状控件 属性 Name Height Width Shape 设置值 Shape1 1000 1000 3
步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() Shape1.FillStyle = 3 End Sub
Private Sub Command2_Click() Shape1.FillStyle = 2 End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
1.【操作步骤】
步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.123。
表3.123 控件 文本框 命令按钮 属性 Name Text Name Caption 设置值 Text1 C1 转换 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：\第2个？处填入：+n% 第3个？处填入：a
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Exit For 第2个？处填入：Step -1 第3个？处填入：a(j) 第4个？处填入：a(i) 第5个？处填入：61
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件，添加两个名称分别是Label1和Label2，标题分别为\单词的平均长度为\和\最长单词的长度为\的标签，以及标题分别为Text1和Text2，初始内容都为空的文本框。
步骤2：分析并编写程序代码。 参考答案
Private Sub Command2_Click() For i = 1 To Len(s)
J = Asc(Mid(s, i, 1)) Select Case J
Case 48 To 57, 65 To 90, 97 To 122 Case Else
Mid(s, i, 1) = \ End Select Next i
J = Len(s) - 1 For i = 1 To J
If Mid(s, i, 1) = \ s = Left(s, i) + Right(s, J - i) J = J - 1 i = i - 1 End If Next i
s = Left(s, Len(s) - 1) R = Split(s, \ B = R(0)
For i = 1 To UBound(R)
If Len(B) < Len(R(i)) Then B = R(i) Next i
Text2.Text = Len(B)
Text1.Text = Int((Len(s) - UBound(R)) / (UBound(R) + 1) + 0.5) End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
35◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
【基本操作】
1.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中涉及控件及属性见表3.124。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表3.125和表3.126。
步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() Text1.Alignment = 0 End Sub
Private Sub Command2_Click() Text1.Alignment = 2 End Sub
Private Sub Command3_Click() Text1.Alignment = 1 End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
1.【操作步骤】
步骤1：打开本题工程文件，添加一个名称为Text1的文本框，初使文本内容为空，Enabled属性设置为False，并将其PasswordChar属性设置为\
步骤2：分析并编写程序代码。 参考答案
第1个？处填入：True 第2个？处填入：abc 第3个？处填入：n 第4个？处填入：Form1 第5个？处填入：Form2
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：0
第2个？处填入：SelLength 第3个？处填入：Lcase$(t) 第4个？处填入：Text2
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
n = 0
For k = 1 To 100
If a(k) Mod 3 = 0 Then num = num + 1 b(num) = a(k) End If Next k
For i = 1 To num f = True
For j = 1 To num - 1
If b(j) > b(j + 1) Then t = b(j)
b(j) = b(j + 1) b(j + 1) = t f = False End If Next j If f Then Exit For End If Next i
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
36◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
1.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表3.127。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.128。
步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() List1.AddItem List1.Text
List1.RemoveItem List1.ListIndex End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
1.【操作步骤】
步骤1：打开本题工程文件，并设置控件的属性。程序中涉及的控件及属性见表3.129。
步骤2：分析并编写程序代码。 参考答案
第1个？处填入：True 第2个？处填入：+ 第3个？处填入：-
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：打开本题工程文件，添加两个标签和一个图片框，属性见下表3.130。
步骤2：分析并编写程序代码。 参考答案
第1个？处填入：1 第2个？处填入：> 第3个？处填入：< 第4个？处填入：Sum
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件，添加一个标题为\各行最小数的平均值为\的标签Label2，再添加一个初始内容为空的文本框Text2。
步骤2：分析并编写程序代码。 参考答案
Private Sub Command2_Click() '考生编写
Dim sum As Long Dim min As Long
Dim b(20) As Integer For i = 1 To 20 min = a(i, 1) For j = 1 To 5
If a(i, j) < min Then min = a(i, j) End If Next j b(i) = min Next i sum = 0
For i = 1 To 20
sum = sum + b(i) Next
Text2 = sum / 20 End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
37◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
1.【操作步骤】
步骤1：按题目要求添加控件，并设置其属性。程序中用到的控件及属性见表3.131。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：程序中用到的控件及属性见表3.132。
步骤2：编写程序代码。 参考答案
Private Sub List1_Click() HS.Width = List1.Text End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
1.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Index 第2个？处填入：n 第3个？处填入：n + 2 第4个？处填入：n 第5个？处填入：f1
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。