步骤3：编写程序代码。 参考答案
Private Sub Command1_Click() HScroll1.Max = 1500 HScroll1.Min = 100
HScroll1.LargeChange = 100 HScroll1.SmallChange = 10 End Sub
Private Sub HScroll1_Change()
Picture1.Width = HScroll1.Value End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】
步骤1：打开本题工程文件，按表3.22所列在窗体建立控件并设置其属性。 表3.22
控件 列表框 文本框 属性 Name Name 设置值 List1 Text1
步骤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个？处填入：arr2
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜 单项，并在窗体Form1中添加一个文本框。 其相关属性及其值见表3.23和3.24。
表3.23
标题控件 读入数据 计算并输出 存盘 名称 Read Calc Save 内缩符号 0 0 0
表3.24
控件 文本框 属性 Name MultiLine ScrollBars Text 设置值 Text1 TRUE 2 步骤2：分析并编写程序代码。 参考答案
Dim sum As Long
Private Sub Calc_Click() Text1.Text = \
For i = 2 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：调试并运行程序，关闭程序后按题目要求存盘。
6◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
（1）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性。程序中用到的属性见表3.25。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。 程序中用到的控件及属性见表3.26。 表3.26
控件 标签 属性 Name BorderStyle 设置值 Label1 1 步骤2：编写程序代码。 参考答案
Private Sub Form_Click() Label1.Top = 0
Label1.Left = Form1.Width - Label1.Width End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：1000 第2个？处填入：Min
第3个？处填入：arrN(i) < Min或Min > arrN(i)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Function Fun()
Dim s As Integer, i As Integer For i = 0 To 1000
If i Mod 7 <> 0 Then s = s + 1 End If Next i Fun = s End Function
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮1的相应属性。 步骤3：按照步骤1设置另一个命令按钮控件相关属性，程序中用到的控件及属性见表3.27所示。 表3.27 控件 命令按钮1 命令按钮2 属性 Name Caption NamCaptie on 设置值 C1 读入数据 C2 计算 步骤4：分析并编写程序代码。 参考答案
Private Sub C1_Click() Call ReadData1 Call ReadData2 End Sub
Private Sub C2_Click()
Dim Arr3(1 To 20) As Integer Dim sum As Integer sum = 0
For i = 1 To 20
Arr3(i) = Arr1(i) - Arr2(i) sum = sum + Arr3(i) Next i
Print \
WriteData \End Sub
步骤5：调试并运行程序，关闭程序后按题目要求存盘。
7◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
(1)【操作步骤】
步骤1：建立界面，按照题目要求建立一个名称为Ch1的复选框数组并设置其相应属性。 步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及属性见表3.28和表3.29。 表3.28 控件 标签 复选框1 属性 Name Caption Caption Index Value 设置值 L1 业余爱好 体育 0 1
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体中添加个文本框，在属性设置窗口中将其Name属性值设置为Text1。打开菜单设计器，按表3.30中的设置建立菜单项。
表3.30
标题 操作 显示 隐藏 名称 M1 Show Hide 内缩符号 0 1 1
步骤2：编写程序代码。 参考答案
Private Sub Hide_Click() Text1.Visible = False End Sub
Private Sub Show_Click() Text1.Visible = True End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
(1)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。
步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及其属性见表3.31和表3.32。
步骤3：分析并编写程序代码。 程序提供代码 程序结束 参考答案
Private Sub C1_Click()
Text1.PasswordChar = \End Sub
Private Sub C2_Click()
Text1.PasswordChar = \End Sub
Private Sub C3_Click()
Text2.Text = Text1.Text End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】
步骤1：新建一个窗体，按照题目要求建立图片框及通用对话框控件并设置图片框及通用对话框相应属性。程序中用到的控件及其属性见表3.33和表3.34。 表3.33 控件 图片框 通用对话框 属性 Name Picture Name DialogTitle 设置值 P1 Open.ico CD1 打开文件
步骤2：分析并编写程序代码。 参考答案
Private Sub P1_Click() CD1.ShowOpen End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件，按照题目要求建立标签控件并设置标签的Caption属性为\回文个数为\。 步骤2：分析并编写程序代码。 参考答案
Function foundhuiwen(p As String)
If StrReverse(p) = p Then foundhuiwen = True End Function
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
8◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
（1）【操作步骤】
步骤1：新建窗体，按照题目要求建立控件数组并设置窗体和第一个复选框的属性。 程序中用到的控件及属性见表3.35。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立滚动条控件及命令按钮控件并设置其属性。 程序中用到的控件及属性见表3.36
步骤2：编写程序代码。 参考答案
Private Sub C1_Click()
HS1.Value = HS1.Value + 10 End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立文本框控件及一个弹出式菜单并设置菜单属性。 步骤2：按照步骤1设置其他子菜单项的相关属性，程序中用到菜单属性见表3.37。 表3.37 标题控件 (任意) 加粗 斜体 下划线 名称 Format M1 M2 M3 内缩符号 0 1 1 1 步骤3：分析并编写程序代码。 参考答案
Private Sub M1_Click() Text1.FontBold = True End Sub
Private Sub M2_Click()
Text1.FontItalic = True End Sub
Private Sub M3_Click()
Text1.FontUnderline = True End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then
Me.PopupMenu Format End If End Sub
步骤4：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：打开本题工程文件，按照题目要求设置属性。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Show 第2个？处填入：Caption 第3个？处填入：k
第4个？处填入：PasswordChar
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件，将文本框Text1的PasswordChar属性设置为\。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Text1.Text 第2个？处填入：PasswordChar 第3个？处填入：0 第4个？处填入：False
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
9◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立图像框控件并设置其属性。 程序中用到的控件及属性见表3.38。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：n 第2个？处填入：0
第3个？处填入：fun = s
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Step －1
第2个？处填入：List1.List(k) 第3个？处填入：k
第4个？处填入：Text1或Text1.Text
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。
程序提供代码 参考答案
第1个？处填入：0 第2个？处填入：stepy
第3个？处填入：Timer1.Enabled 第4个？处填入：Timer1.Enabled 第5个？处填入：stepy
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
10◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
（1）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置其属性。 程序中用到的控件及属性见表3.41。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 （2）【操作步骤】
步骤1：新建一个窗体，按照题目要求建立标签控件并设置其属性。 程序中用到的控件及属性见表3.42。
步骤2：编写程序代码。 参考答案
Private Sub Form_Click() Label1.Visible = True End Sub
Private Sub Form_Load() Form1.Caption = \标签\End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【简单应用】
（1）【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：Command1 第2个？处填入：Label1 第3个？处填入：Control
第4个？处填入：Label2.Caption
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2）【操作步骤】
步骤1：打开本题工程文件，将Timer1的Interval属性设置为500。 步骤2：分析并编写程序代码。 参考答案
第1个？处填入：False 第2个？处填入：True 第3个？处填入：8 第4个？处填入：0
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【综合应用】
【操作步骤】
步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 参考答案
Max = a(i, 1) For j = 1 To 5
If Max < a(i, j) Then Max = a(i, j) End If b(i) = Max
If Max = a(i, j) Then c(i) = j Next j
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
11◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 【基本操作】
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库计算机二级VB机考题库(2)在线全文阅读。
相关推荐：