VB机试题1

End Sub
步骤5：调试并运行程序，关闭程序后按题目要求存盘。
【举一反三】可以通过第32套第一大题的第一小题来进行同类知识点练习。
(1) 【解题思路】通过文本框的Name属性设置文本框名称；在窗体上添加单选按钮，通过Name属性设置名称，右击单选按钮进行复制，弹出对话框，选择创建单选按钮数组，并通过Caption属性设置每一个单选按钮的标题；通过命令按钮Name和Caption属性分别设置命令按钮的名称和标签；设置两个字符型变量a、b ，a ＝ "我坐"，b ＝ "我开"，用于Select Case选择语句的字符串连接；通过对单选按钮数组Index属性查询，实现单击单选按钮完成字符串连接和文本框显示操作的功能。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：编写程序代码。
参考答案
Private Sub Command1_Click()
Dim a() As Long
Dim i As Integer
Dim n As Integer
For i = 0 To Op1.Count - 1
程序提供代码Private Sub Form Unload(Cancel As Integer)
Open "out4.txt" For Output As #1
Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text
Close #1
End If
If Op3.Value Then
Text1.Text = Text1.Text & Op3.Caption
Else
Text1.Text = Text1.Text & Op4.Caption
End If
End Sub
End Sub
程 Sub C1_Click()
Text1.Text = "我是"
If Op1.Value Then
Text1.Text = Text1.Text & Op1.Caption
Else
Text1.Text = Text1.Text & Op2.Caption
(1)【解题思路】水平滚动条的最大刻度值和最小刻度值分别由Max和Min属性设置；单击滚动条上滚动框以外的区域移动刻度值大小由LargeChange属性设置，而单击滚动条两边按钮移动刻度大小由SmallChange属性设置，本题要求"单击滚动条上滚动框以外的区域移动刻度大小"则由LargeChange属性设置；标签标题显示由Caption属性设置。
For i = 3 To n
a(i) = a(i - 1) + a(i - 2)
Next
Text1.Text = a(n)
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【举一反三】可以通过27套第二大题第二小题来进行同类知识点的练习。
在VB程序中，Open语句用于打开数据文件，打开顺序文件的基本格式为：Open FileName For Mode As #FileNumber。其中，FileName表示要打开的文件的路径；Mode为打开模式，OutPut用于输出，Append用于追加写入，Input用于读取；FileNumber为打开文件时指定的句柄。
If Op1(i).Value = True Then
n = Val(Op1(i).Caption)
Exit For
End If
Next
ReDim a(n)
a(1) = 1
a(2) = 1
步骤6：按题目要求保存工程和窗体文件。
【举一反三】可以通过第40套第一大题的第二小题来进行同类知识点的练习。
(2)【解题思路】在编辑窗体中单击右键选择"菜单编辑器"来创建菜单，在菜单的Click事件中，通过对Text2.Text属性的设置来完成对于内容的清除和复制。
【操作步骤】
【操作步骤】
步骤1：打开本题工程文件，按照题目要求建立控件数组。
步骤2：按照题目要求设置控件的属性，见表3.4。
步骤3：分析并编写程序代码。
Private Sub Op1 Click(Index As Integer)
Dim a As String, b As String, c As String
End Select
End Sub
程序结束
参考答案
第一个？处填入：Index
第二个？处填入：a
【举一反三】可以通过第41套第二大题第二小题来进行同类知识点的练习。
(2) 【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。本题需注意容器中控件的画法。命令按钮标题由Caption属性设置，单击命令触发Click事件；单选按钮的标题由Caption属性设置，程序中需要检测的单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则Value值为1，否则Value值为0。在文本框中显示内容通过Text属性实现，其形式为：文本框名．Text = 显示的内容。
【操作步骤】
步骤1：打开Visual Basic，按照题目的要求新建窗体并添加一个水平滚动条控件。
步骤2：在属性窗口中，按题照目的要求设置水平滚动条的相关属性
步骤3：按照题目的要求，在窗体上添加两个标签控件。
步骤4：按照题目的要求设置两个标签的相关属性。
a = "我坐"
b = "我开"
'Select Case ?
Case 0
Text1.Text = a ＋ Me.Op1(0)．Caption ＋ "去"
Case 1
' Text1.Text = ? ＋ Me.Op1(1)．Caption ＋ "去"
Case 2
Text1.Text = b ＋ Me.Op1(2)．Caption ＋ "去"
属 性 Name Name
设置值 Text1 Text2
步骤4：编写程序代码。
参考答案
Private Sub Clear_Click()
Text2.Text = ""
End Sub
Private Sub Copy_Click()
Text2.Text = Text1.Text
步骤4：调试并运行程序，关闭程序后按题目要求存盘。
【举一反三】可以通过第43套第二大题第一小题来进行同类知识点练习。
【解题思路】单选按钮数组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False为未选中，True为选中，Caption属性用于设置单选按钮的标题。本题在For循环语句(循环变量k的初值为0，终值应为3)逐一检查每个单选按钮是否被选中，用变量n记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择，使单选按钮数组中的下一个按钮被选中。如果当前已经选中最后一个单选按钮，则将n赋值为0，重新从单选按钮数组的第1个元素开始。
步骤1：新建窗体，按表3.2建立菜单项并设置其属性。
表3.2
标题 操作 复制 清除
名称 M1 Copy Clear
内缩符号 0 1 1
步骤2：菜单项设置完成后，单击"确定"按钮。
步骤3：添加文本框控件，按照表3.3设置文本框的属性。
表3.3
控 件 文本框1 文本框2
程序中用到的控件及属性见表3.1。
表3.1
控件 滚动条 标签1 标签2
属性 Name Min Max Large－ Change Name Caption Name Caption
设置值 H1 1 100 10 L1 1 L2 100
步骤5：按下键盘上的F5键运行程序。
读文件操作在窗体的Load事件过程中完成，写文件操作在命令按钮的Click事件过程中完成。
【操作步骤】
步骤1：打开本题工程文件，按照题目要求建立框架控件并设置其属性。
步骤2：按照步骤1建立其他控件并设置相关属性，程序中用到的控件及属性见表3.5和表3.6。
步骤3：分析并编写程序代码。