参考答案
第1个？处填入：s 第2个？处填入：s, s1 第3个？处填入：<> 第4个？处填入：n
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Private Sub C1_Click() Dim i As Integer
For i = 17999 To 1 Step -1 If isprime(i) Then Text1 = i Exit For End If Next End Sub
Private Sub C2_Click()
Open App.Path & \ Print #1, Text1.Text Close #1 End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
38◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
1.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.133和表3.134。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.135 表3.135 控件 命令按钮 垂直滚动条 属性 Name Caption Name 设置值 Command1 Command1 VScroll1 步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() VScroll1.Max = Form1.Height VScroll1.Min = 0
VScroll1.LargeChange = 50 VScroll1.SmallChange = 10 End Sub
Private Sub VScroll1_Change() Print VScroll1.Value End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
1.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：1000 第2个？处填入：0
第3个？处填入：arrN(i)<500 第4个？处填入：Sum+arrN(i)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Function Fun()
Dim s As Long, i As Integer s = 0
For i = 0 To 100
If i Mod 2 = 0 Then s = s + i ^ 2 End If Next i Fun = s End Function
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Mat(N, M) As Integer 第2个？处填入：For Input
第3个？处填入：Input #1, Mat(i, j) 第4个？处填入：i + j=6
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
39◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
1.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.136。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.137。
步骤2：编写程序代码。 参考答案
Private Sub Cmd1_Click()
Image1.Picture = LoadPicture(App.Path & \图片.jpg\End Sub
Private Sub Cmd2_Click()
Image1.Picture = LoadPicture(\End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
1.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：x 第2个？处填入：flag 第3个？处填入：a(k) 第4个？处填入：max 第5个？处填入：num
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：打开本题工程文件，添加一个名称为Label1，标题为\请输入编号\的标签；再添加一个名称为Text1，初始文本内容为空的文本框。
步骤2：分析并编写程序代码。 参考答案
第1个？处填入：List1.AddItem
第2个？处填入：List1.ListCount - 1 第3个？处填入：i
第4个？处填入：List1.AddItem 第5个？处填入：End
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件，添加两个名称为Command1、command2，标题为\产生数组\、\查找\的命令按钮。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：99 第2个？处填入：i-1 第3个？处填入：i - 1 第4个？处填入：num 第5个？处填入：i
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
40◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
1.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.138。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.139 表3.139 控件 水平滚动条 命令按钮 属性 Name Name Caption 设置值 HScroll1 Command1 Command1 步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() HScroll1.Max = Form1.Width HScroll1.Min = 0
HScroll1.LargeChange = 50 HScroll1.SmallChange = 10 End Sub
Private Sub HScroll1_Change() Print HScroll1.Value End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
1.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。
参考答案
第1个？处填入：1000 第2个？处填入： 0
第3个？处填入：Sum + arrN(i) 第4个？处填入：Sum / 20
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Function Fun()
Dim s As Integer, i As Integer For i = 0 To 200
If i Mod 3 = 0 Then s = s + i End If Next i Fun = s End Function
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Private Sub Command2_Click() '考生编写 Dim q As Long For m = 1 To 12 q = 0
For n = 1 To 10 q = q + a(m, n) Next n
s(m) = Int(q / 10) Next m End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
41◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
1.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.140。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.141
步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() Shape1.Shape = 3 End Sub
Private Sub Command2_Click() Shape1.BorderColor = &HFF& End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
1.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Index 第2个？处填入：True
第3个？处填入：Form1.Width 第4个？处填入：0
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：打开本题工程文件，设置控件的属性。程序中用到的控件及属性见表3.142和表3.143
步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Option1(0)．Value 第2个？处填入：Option2.Value 第3个？处填入：s
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Private Sub Command1_Click() Dim max As Integer max = 0
For i = 1 To 4 For j = 1 To 4
If a(i, j) > max Then
max = a(i, j) End If Next j Next i
Label3 = max save Label3 End Sub
Private Sub Command2_Click() Dim sum As Integer sum = 0
For i = 1 To 4 For j = 1 To 4 If i = j Then
sum = sum + a(i, j) End If Next j Next i
Label4 = sum save Label4 End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
42◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
1.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.144
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.145。
步骤2：编写程序代码。 参考答案
Private Sub Form_Load() Timer1.Enabled = True End Sub
Private Sub Timer1_Timer()
Shape1.Top = Shape1.Top + 100 End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
1.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Check1.Value 第2个？处填入：\第3个？处填入：\第4个？处填入：Text2
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：5 第2个？处填入：x 第3个？处填入：x 第4个？处填入：>
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Dim i As Integer, n As Integer For i = 1 To 7
If a(i, 1) Mod 7 = 0 Then n = n + 1
ElseIf a(1, i) Mod 7 = 0 Then n = n + 1
ElseIf a(7, i) Mod 7 = 0 Then n = n + 1
ElseIf a(i, 7) Mod 7 = 0 Then n = n + 1 End If Next i
lblFirst = n For i = 1 To 7
sum = sum + a(1, i) + a(i, 1) + a(7, i) + a(i, 7) Next
sum = sum - a(1, 7) - a(1, 7) - a(7, 1) - a(7, 7) lblSecond = sum
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
43◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
1.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.146～3.148
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：建立界面，并添加一个名称为Sha1的形状控件，建立菜单的属性见表3.149。 表3.149
标题控件 形状 正方形 圆形 名称 shape0 shape1 shape2 内缩符号 0 1 1 步骤2：编写程序代码。 参考答案
Private Sub shape1_Click() Sha1.Shape = 1