（1）【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.35。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立驱动器列表框、目录列表框、文件列表框控件并设置其属性。步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.44和表3.45。
步骤3：编写程序代码。 参考答案
Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub
Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
Private Sub File1_Click() Label2 = File1.FileName End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：List(i).AddItem Text1.Text 第2个？处填入：48 第3个？处填入：0
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：m 第2个？处填入：f(i) 第3个？处填入：t 第4个？处填入：t * i 第5个？处填入：t
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Private Sub Command1 Click() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 60 For j = 1 To 60 For k = 1 To 60
If i ^ 2 = j ^ 2 + k ^ 2 Then m = m + 1 End If Next k Next j Next i
Label1 = m / 2
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
12◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
（1）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立列表框控件并设置窗体及列表框属性。 程序中用到的控件及属性见表3.46。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：建立界面，添加一个命令按钮设置Name属性为Command1，Caption属性为弹出菜单。程序中用到的控件及属性见表3.47。
表3.47 标题 文件 打开 关闭 保存 名称 menu1 m1 m2 m3 内缩符号 0 1 1 1 步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() PopupMenu menu1 End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Text1, 1 第2个？处填入：ch 第3个？处填入：n
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：打开本题工程文件 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：True
第2个？处填入：red color 第3个？处填入：Shape1.Left 第4个？处填入：Shape1.Top 第5个？处填入：blue color
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：2
第2个？处填入：App.Path & \第3个？处填入：s 第4个？处填入：2
Private Sub Command2 Click() Dim ch As String
Dim s As String Dim n As Long s = Text1.Text Text1.Text = \ For n = 1 To Len(s) ch = Mid(s, n, 1)
If ch = \ ch = LCase(ch)
ElseIf ch = \ ch = UCase(ch) End If
Text1.Text = Text1 & ch Next End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘，如图3.58所示。
13◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
（1）【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中的控件及属性见表3.48和3.49。 表3.48 控件 框架1 框架2 属性 Name Caption Name Caption 设置值 Frame1 字号 Frame2 修饰
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
（2）【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.50。
步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() Text2 = Text1.SelLength End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】
步骤1：打开本题工程文件 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：st 第2个？处填入：c 第3个？处填入：word
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：打开本题工程文件， 设置计时器Interval属性为100，Enabled属性设置为False。 步骤2：分析并编写程序代码。 、
参考答案
？处填入：Left =
Private Sub C1_Click() Timer1.Enabled = True End Sub
Private Sub C2_Click() Timer1.Enabled = False End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
For i = 1 To Val(Text1.Text)
If IsPrime(i) And IsPrime(Val(Text1.Text) - i) Then
Label1 = i
Label2 = Val(Text1.Text) - i Exit For End If Next i
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
14◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
（1）【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.51。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立命令按钮控件及通用对话框并设置其属性。程序中用到的控件及属性见表3.52。
步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() CommonDialog1.ShowSave End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Y 第2个？处填入：X1
第3个？处填入：radius& 第4个？处填入：Label1
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：12 第2个？处填入：1 第3个？处填入：s s = 0
For k = 1 To n s = s + f(k) Next
Text1 = s
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】 【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Form2中第1个？处：1 Form2中第2个？处：0
Form2中第3个？处：Form1.Label1 Form3中第1个？处：0 Form3中第2个？处：k, 2
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
15◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
（1）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立标签控件并设置其属性。程序中用到的控件及属性见表3.53。
步骤2：调试并运行程序
关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表3.54和表3.55。
步骤2：编写程序代码。 参考答案
Private Sub Command1_Click()
Image1.Picture = LoadPicture(App.Path & \End Sub
Private Sub Command2_Click()
Image1.Picture = LoadPicture(App.Path & \End Sub
Private Sub Command3_Click() Set Image1.Picture = Nothing End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：5 第2个？处填入：a 第3个？处填入：4 第4个？处填入：s 第5个？处填入：Text3
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：打开本题工程文件 步骤2：分析并编写程序代码。 参考答案
Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim m As Long Dim sum As Long m = 1
If n = 10 Or n = 12 Then For i = 2 To n m = i * m Next
Text1.Text = m End If sum = 0
If n = 2000 Or n = 1000 Then For j = 1 To n sum = sum + j Next
Text1.Text = sum End If End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：b 第2个？处填入：b 第3个？处填入：n 第4个？处填入：b
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
16◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
（1）【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.56。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立滚动条控件并设置其属性，如图3.64所示。 步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.57。
步骤3：编写程序代码。 参考答案
Private Sub Form_Activate() HScroll1.SetFocus End Sub
Private Sub HScroll1_Change() Text1.Text = HScroll1.Value End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】 步骤1：打开本题工程文件，设置形状控件的Top属性为360，FillStyle属性为0，FillColor属性为&H000000FF&，Shape属性为3。
步骤2：分析并编写程序代码。 参考答案
第1个？处填入：True 第2个？处填入：Line1.Y1
第3个？处填入：Shape1.Height
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Private Sub Command2_Click() '考生编写 Dim k As Long Dim m As Long Dim q As Long Dim p As Long Dim r As Long Dim n As Long For k = 1 To 100
If a(k) Mod 2 = 0 Then m = m + a(k) q = q + 1 Else
n = n + a(k) p = p + 1 End If Next k
r = Int((m + n) / (p + q) + 0.5) m = Int(m / q + 0.5) n = Int(n / p + 0.5) Select Case Combo1.Text Case \所有偶数\ Text1 = m
Case \所有奇数\ Text1 = n Case \所有数\ Text1 = r End Select
End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】