(1)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：1
第2个？处填入：tmp * i 第3个？处填入：xn 第4个？处填入：xn(t)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：arr 第2个？处填入：Static 第3个？处填入：arr(i) 第4个？处填入：0
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：9 第2个？处填入：temp 第3个？处填入：j 第4个？处填入：1
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
23◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
(1)【操作步骤】
步骤1：建立界面，设置窗体的标题为\菜单\，菜单编辑中涉及的属性见表3.73。
表3.73
标题 文件 退出 新建 保存 名称 flie exit new save 内缩符号 0 0 1 1 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立图片框控件并设置其属性
步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.74。
步骤3：编写程序代码。 参考答案
Private Sub Command1_Click()
Image1.Left = Image1.Left + 10 End Sub
Private Sub Command2_Click() Image1.Left = 360 End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
(1)【操作步骤】
步骤1：打开本题工程文件，设置计时器Timer1的Interval属性为3000，Enabled属性设置为False。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：2 第2个？处填入：True 第3个？处填入：flag
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：0
第2个？处填入：SelLength 第3个？处填入：LCase(t) 第4个？处填入：Text2
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
For k = 1 To 100 flag = True i = 2
Do While i <= Int(a(k) / 2) And flag If Int(a(k) / i) = a(k) / i Then flag = False Else
i = i + 1 End If Loop
If flag = True Then num = num + 1 b(num) = a(k) End If Next k
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
24◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
(1)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立形状控件并设置其属性。 程序中用到的控件及属性见表3.75。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.76和表3.77。
步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() Label1.Font = \宋体\End Sub
Private Sub Command2_Click() Label1.Font = \黑体\End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
(1)【操作步骤】
步骤1：打开本题工程文件，设置Cmd2的Enabled属性为False。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Text1(0) 第2个？处填入：s
第3个？处填入：Cmd1.Enabled 第4个？处填入：Cmd2.Enabled
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Input
第2个？处填入：s(i) + a(i, j) 第3个？处填入：s(i) 第4个？处填入：Line2.Y2 第5个？处填入：Visible
步骤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
For m = UBound(R) To 1 Step -1 If Len(B) = Len(R(m)) Then Exit For End If Next
Text1.Text = Len(B) Text2.Text = R(m) End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
25◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
(1)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性。
程序中用到的控件及属性见表3.78。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.79和表3.80。
步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() Text3 = Text1.SelLength Text2 = Text1.SelStart End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
(1)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Width
第2个？处填入：Shape2.Top 第3个？处填入：Shape1.Left 第4个？处填入：VScroll1.Value
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Enabled
第2个？处填入：Timer1.Enabled 第3个？处填入：d 第4个？处填入：t + 1
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
c(1) = a(1) For i = 2 To 30 c(i) = a(i) Next
c(31) = b(1) For j = 32 To 60 c(j) = b(j - 30) Next
For i = 1 To 60 f = True
For j = 1 To 59
If c(j) > c(j + 1) Then t = c(j)
c(j) = c(j + 1) c(j + 1) = t f = False End If Next
If f Then Exit For End If Next
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
26◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
(1)【操作步骤】
步骤1：建立界面并设置控件属性。程序中用到的控件及其属性见表3.81和表3.82。 表3.81
控件 标签1 标签2 属性 Name Caption Name Caption
设置值 Label1 身高 Label2 体重 表3.82 控件 文本框1 文本框2 命令按钮 属性 Name Name Name Caption 设置值 Text1 Text2 Command1 输入 步骤2：分析并编写程序代码。 参考答案
Option Explicit
Private Sub Command1 Click()
Text1.Text = InputBox(\请输入身高\输入对话框\Text2.Text = InputBox(\请输入体重\输入对话框\步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.83
步骤2：编写程序代码。 参考答案
Private Sub Command1_Click() VScroll1.Max = 2400 VScroll1.Min = 100
VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End Sub
Private Sub VScroll1_Change()
Picture1.Height = VScroll1.Value End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
(1)【操作步骤】
步骤1：建立界面并设置控件属性。程序中用到的控件及其属性见表3.84。
步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Text1.Text
第2个？处填入：List1.ListCount - 1 第3个？处填入：Text1.Text 第4个？处填入：i
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。
参考答案
第1个？处填入：LBound 第2个？处填入：UBound 第3个？处填入：a 第4个？处填入：> 第5个？处填入：a(i) 第6个？处填入：arr1(i) 第7个？处填入：arr2
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件，利用菜单编辑器，按表3.69中的设置建立菜单项，在窗体Form1中绘制一个文本框，其相关属性设置见表3.85和表3.86。
表3.85 标题控件 读入数据 计算并输出 存盘 名称 Read Calc Save 内缩符号 0 0 0 表3.86 控件 文本框 属性 Name MultiLine ScrollBars Text 设置值 Text1 TRUE 2 步骤2：分析并编写程序代码。 参考答案
Dim sum As Integer
Private Sub Calc_Click() Text1.Text = \
For i = 1 To 100 Step 2
Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sum End Sub
Private Sub Read_Click() ReadData End Sub
Private Sub Save_Click()
WriteData \End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
27◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
1.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.87～3.89。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 2.【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中涉及控件及属性见表3.90。
步骤2：编写程序代码。 参考答案
Private Sub HS1_Change() Text1.Width = HS1.Value End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
1.【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。