【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Mat(N, M) 第2个？处填入：For Input
第3个？处填入：Input #1, Mat(i, j) 第4个？处填入：Mat(i, 4) ＝ t
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
17◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
（1）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立框架控件并设置其属性。
步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.58。
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.59。
步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() Label1 = Date End Sub
Private Sub Command2_Click() Label1 = Time End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Private Sub Command2_Click() Dim sum As Long For k = 1 To 100
For m = 1 To Sqr(a(k)) If a(k) = m ^ 2 Then sum = sum + a(k) n = n + 1 End If Next m Next k
Text1 = Fix(sum / n) End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：打开本题工程文件，画一个标签，按表3.60设置标签的属性。
步骤2：分析并编写程序代码。 参考答案
第1个？处填入：\演示\
第2个？处填入：Timer1.Enabled 第3个？处填入：Timer1.Enabled
第4个？处填入：Label1.Left + Label1.Width 第5个？处填入：Label1.Left
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件，设置控件的属性。程序中用到的控件及属性见表3.61。
步骤2：分析并编写程序代码。 参考答案
第1个？处填入：9 第2个？处填入：i - 1 第3个？处填入：fmax 第4个？处填入：fmax 第5个？处填入：End
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
18◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
(1)【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.62。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立Line控件并设置其属性。
步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.63和表3.64。
表3.64 控件 命令按钮1 命令按钮2 属性 Name Caption Name Caption 设置值 Cmd1 显示高 Cmd2 隐藏高 步骤2：编写程序代码。 参考答案
Private Sub Cmd1_Click() Line4.Visible = True End Sub
Private Sub Cmd2_Click() Line4.Visible = False End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
(1)【操作步骤】
步骤1：打开本题工程文件，设置计时器Interval属性为1000，Enabled属性设置为False。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Index 第2个？处填入：0 第3个？处填入：＋ 1
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：s
第2个？处填入：f = 10
第3个？处填入：(s - 4) * 1.2 第4个？处填入：Is > 15 第5个？处填入：11 * 1.2
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件，添加两个标签控件，名称分别为Label1和Label2，标题分别为\出现次数最多的字母是\和\它出现的次数为\；再添加两个名称分别为Text1和Text2，初始值为空的文本框。
步骤2：分析并编写程序代码。 参考答案
Private Sub Command2_Click() ' 考生编写
Dim a(1 To 26) As Integer Dim max As Integer n = Len(s) For i = 1 To n
k = Asc(Mid$(s, i, 1))
If (k >= 65 And k <= 90) Then a(k - 64) = a(k - 64) + 1 End If
If (k >= 97 And k <= 122) Then a(k - 96) = a(k - 96) + 1 End If Next max = 0
For m = 1 To 26
If max < a(m) Then
max = a(m) End If Next
Text2 = max For m = 1 To 26
If a(m) = max Then l = m End If Next
Text1 = Chr(l + 64)
End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
19◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
(1)【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.65和表3.66。
表3.66
控件 窗体 属性 FontName Caption 设置值 仿宋 GB2312 圆角矩形 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：建立界面，设置计时器Interval属性为1000，Enabled属性设置为False。 步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() Timer1.Enabled = True End Sub
Private Sub Command2_Click() Timer1.Enabled = False End Sub
Private Sub Command3_Click() Call sub1 End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1 End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
(1)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：5
第2个？处填入：2 * i - 1 第3个？处填入：i + 1
第4个？处填入：(9 - 2 * i)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Timer1.Enabled 第2个？处填入：Shape2.Top 第3个？处填入：Top
第4个？处填入：Shape2.Left
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：1 第2个？处填入：ch
Private Sub List1_Click()
Text1 = a(List1.ListIndex + 1) End Sub
Private Sub Command2_Click() b = Val(Text1)
If b >= 0 And b < 500 Then m = 0.3 * b
ElseIf b >= 500 And b < 1000 Then
m = 0.3 * b * 0.98
ElseIf b >= 1000 And b < 1500 Then m = 0.3 * b * 0.95
ElseIf b >= 1500 And b < 2000 Then m = 0.3 * b * 0.92 ElseIf b >= 2000 Then m = 0.3 * b * 0.9 End If
Text2 = Int(m) End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
20◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
(1)【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.67。 表3.67 控件 命令按钮 窗体 属性 Name Caption Caption 设置值 C1 改变颜色 改变窗体背景色 步骤2：编写程序代码。 参考答案
Private Sub C1 Click() Form1.BackColor = &HFF& End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.68。 表3.68 控件 形状控件 列表框 属性 Name Shape Name List 设置值 Shape1 3 List1 1 2 3 4 5 步骤2：编写程序代码。 参考答案
Private Sub List1_Click()
Shape1.FillStyle = List1.Text End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
(1)【操作步骤】
步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Option1(i) 第2个？处填入：Caption 第3个？处填入：5 第4个？处填入：x
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：500 第2个？处填入：Value 第3个？处填入：0
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Private Sub Command1_Click() For i = 1 To n
If arr(i) < 60 Then
Text2 = Val(Text2) + 1
ElseIf arr(i) >= 60 And arr(i) < 70 Then Text3 = Val(Text3) + 1
ElseIf arr(i) >= 70 And arr(i) < 80 Then Text4 = Val(Text4) + 1
ElseIf arr(i) >= 80 And arr(i) < 90 Then Text5 = Val(Text5) + 1
ElseIf arr(i) >= 90 And arr(i) <= 100 Then Text6 = Val(Text6) + 1 End If
Text1 = Val(Text1) + 1 Next End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
21◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
(1)【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表3.69，菜单编辑属性见表3.70，菜单项的Checked属性设置为True。
表3.69
菜单标题 文件 显示列表框 名称 File Show 内缩符号 0 1 表3.70
控件 列表框 属性 Name List 设置值 List1 北京 上海 天津 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：建立界面，并设置窗体的Caption属性为\使用输入对话框\。 步骤2：编写程序代码。 参考答案
Private Sub Form_Click()
InputBox \请输入\等级考试\End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
(1)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Len 第2个？处填入：Asc 第3个？处填入：b 第4个？处填入：2 第5个？处填入：x(i)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：打开本题工程文件，在List1中添加\文本框\、\标签\、\列表框\、\单选钮\等表项。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：La.ListCount 第2个？处填入：La 第3个？处填入：La
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：EOF(1)
第2个？处填入：a(i) For i = 1 To 10 f = True
For j = 1 To 9
If a(j) > a(j + 1) Then t = a(j)
a(j) = a(j + 1) a(j + 1) = t f = False End If Next j If f Then Exit For End If Next i
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
22◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
(1)【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表3.71。 表3.71
控件 图片 框 属性 Name Picture 设置值 Pic Tu1－1.jpg 步骤2：编写程序代码。 参考答案
Private Sub Form_Click() Pic.Print \等级考试\End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：建立界面，添加一个名称为Command1的命令按钮，标题为\命令按钮\。 菜单编辑的相关属性见表3.72。表3.72 标题 控显示命令按钮 隐藏命令按钮 件 名称 mensubMenu1 subMenu2 u 内缩符号 0 1 1 步骤2：编写程序代码。 参考答案
Private Sub submenu1_Click() Command1.Visible = True End Sub
Private Sub submenu2_Click() Command1.Visible = False End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】