二级VISUAL BASIC机试-109
(总分：100.00，做题时间：90分钟)
一、1 基本操作题(总题数：2，分数：30.00)
1.在名称为Form1的窗体上建立一个名称为P1的图片框和两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“输出”和“清除”，如图11-19所示。要求程序运行后，每单击一次“输出”按钮，不使用任何变量而直接在图片框中显示小写字母“load me”；如果单击“清除”按钮，则清除图片框中的内容。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。
（分数：15.00）
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。
（分数：15.00）
__________________________________________________________________________________________
正确答案：(命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。打印信息用Print方法，清除用Cls方法。题目要求在图片框中打印信息，所以在编写代码是应指定Print方法和Cls方法的使用对象。解题步骤如下。
(1)建立界面并设置控件属性。程序用到的控件及其属性如表11-6所示。
(1)建立界面并设置控件属性。程序用到的控件及其属性如表11-6所示。
表 11-6 | ||
控 件 | 属 性 | 支付宝支付密码设置值 |
命令按钮 | Name Caption | Cmd1 输出 |
命令按姗 | Name Caption | Cmd2 清除 |
图片框 | Name | P1 |
(2)编写代码。
参考代码：
Private Sub Cmd1_Click()
P1.Print"load me"
End Sub
Private Sub Cmd2_Click()
P1.Cls
End Sub
(3)调试并并运行程序。
(4)按题目要求存盘。)
参考代码：
Private Sub Cmd1_Click()
P1.Print"load me"
End Sub
Private Sub Cmd2_Click()
P1.Cls
End Sub
(3)调试并并运行程序。
(4)按题目要求存盘。)
解析：[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
2.在名称为Form1的窗体上建立一个名称为List1的列表框。要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem”AAA，每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次，如图11-20所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sit2.vbp。
（分数：15.00）
（分数：15.00）
__________________________________________________________________________________________
正确答案：(列表框用于在很多项目中做出选择的操作。向列表框中添加项目既可以在属性窗口进行，也可以在程序代码中进行。单击列表框中的项目触发Click事件，题目要求使用AddItem方法给列表框添加项目，所以应该将List1.Addltem List1.Text语句写入列表框的Click事件中。解题步骤如下。
(1)建立界面并设置控件属性。
程序中只用到1个列表框控件。在窗体上画出列表框，其“Name”属性默认为“List1”。在窗体的Load事件中添加List1.Addltem"AAA"语句使程序开始运行时在列表框中添加“AAA”。
(2)编写程序代码。
参考代码：
Private Sub Form_Load()
正确答案：(列表框用于在很多项目中做出选择的操作。向列表框中添加项目既可以在属性窗口进行，也可以在程序代码中进行。单击列表框中的项目触发Click事件，题目要求使用AddItem方法给列表框添加项目，所以应该将List1.Addltem List1.Text语句写入列表框的Click事件中。解题步骤如下。
(1)建立界面并设置控件属性。
程序中只用到1个列表框控件。在窗体上画出列表框，其“Name”属性默认为“List1”。在窗体的Load事件中添加List1.Addltem"AAA"语句使程序开始运行时在列表框中添加“AAA”。
(2)编写程序代码。
参考代码：
Private Sub Form_Load()
List1.Addltem"AAA"
End Sub
Private Sub List1_Click()
List1.Addltem List1.Text
End Sub
(3)调试并并运行程序。
陈维蕊(4)按题目要求存盘。)
End Sub
Private Sub List1_Click()
List1.Addltem List1.Text
End Sub
(3)调试并并运行程序。
陈维蕊(4)按题目要求存盘。)
解析：[解析] 在窗体上建立好列表框后，先设置属性，再编写事件过程。
二、2 简单应用题(总题数：2，分数：40.00)
3.在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为vbFile和vbHelp，在“文件”菜单下有3个子菜单项，标题分别为“新建”、“打开”和“存盘”，名称分别为vbNew、vbOpen和vbSave。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox．对话框显示该菜单项的标题，如图11-21所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。
（分数：20.00）
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。
（分数：20.00）
__________________________________________________________________________________________
正确答案：(MsgBox函数的语法具有以下几个命名参数。
Prompt，必需的。字符串表达式，作为显示在对话框中的消息。
Buttons，可选的。数值表达式是值的总和，指定显示按钮的数目及形式。
Title，可选的。在对话框标题栏中显示的字符串表达式。如果省略title，则将应用程序名放在标题栏中。
正确答案：(MsgBox函数的语法具有以下几个命名参数。
Prompt，必需的。字符串表达式，作为显示在对话框中的消息。
Buttons，可选的。数值表达式是值的总和，指定显示按钮的数目及形式。
Title，可选的。在对话框标题栏中显示的字符串表达式。如果省略title，则将应用程序名放在标题栏中。
Helpfile，可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。
Context，可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。
解题步骤如下。
(1)建立菜单。程序中用到的菜单项及其属性如表11-7所示
Context，可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。
解题步骤如下。
(1)建立菜单。程序中用到的菜单项及其属性如表11-7所示
表11-7 | |||||||||||||||||||||
| |||||||||||||||||||||
(2)编写程序代码。
参考代码：
Private Sub vbNew_Click()
MsgBox"新建"，vbOKOnly
End Sub
Private Sub vbOpen_Click()
MsgBox"打开"，vbOKOnly
End Sub
Private Sub vbSave_Click()
MsgBox"存盘"，vbOKOnly
End Sub
(3)调试并运行程序。
(4)按题目要求存盘。)
Private Sub vbNew_Click()
MsgBox"新建"，vbOKOnly
End Sub
Private Sub vbOpen_Click()
MsgBox"打开"，vbOKOnly
End Sub
Private Sub vbSave_Click()
MsgBox"存盘"，vbOKOnly
End Sub
(3)调试并运行程序。
(4)按题目要求存盘。)
解析：[解析] 在Visual Basic中，菜单项通过菜单编辑器来建立；选择菜单则是触发其Click事件。MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回1个Integer告诉用户单击哪一个按钮。语法：MsgBox(prompt，buttons，title，helpfile，context)
4.在窗体上建立一个名称为Text1的文本框，再建立一个名称为Cmd1，标题为“计算’’的命令按钮，如图11-22所示。要求程序运行后，单击命令按钮，将计算100～200之间所有素数之和，在文本框中显示结果，同时把结果存入文件中。(在考生文件夹中有标准模块mode.bas，其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块文件添加到自己的工程中。)
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp，结果存入out.tXt文件。
（分数：20.00）
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp，结果存入out.tXt文件。
（分数：20.00）
__________________________________________________________________________________________
正确答案：(解题步骤如下。
(1)建立菜单项。程序中用到的控件及其属性如表11-8所示
正确答案：(解题步骤如下。
(1)建立菜单项。程序中用到的控件及其属性如表11-8所示
表11-8 | ||||||||||||
| ||||||||||||
(2)编写程序代码。
参考代码：
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
二级VBtemp=0
For i=100 TO 200
If isprime(i)Then
temp=temp+i
End If
Next
Text1.Text=temp
"，temp
End Sub
标准模块代码：
参考代码：
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
二级VBtemp=0
For i=100 TO 200
If isprime(i)Then
temp=temp+i
End If
Next
Text1.Text=temp
"，temp
End Sub
标准模块代码：
Option Explicit
Sub putdata(t_FileName As String，T_Str As Variant)
Dim sFile As String
sFile="/" & t_FileName
Open App.Path&sFile For Output As #1
Print #1，T_Str
Close #1
End Sub
Function isprime(t_I As Integer)As Boolean
Dim J As Integer
isprime=False
For J=2 To t_I/2
If t_I Mod J=0 Then Exit For
Next J
If J>t_i/2 Then isprime=True
Sub putdata(t_FileName As String，T_Str As Variant)
Dim sFile As String
sFile="/" & t_FileName
Open App.Path&sFile For Output As #1
Print #1，T_Str
Close #1
End Sub
Function isprime(t_I As Integer)As Boolean
Dim J As Integer
isprime=False
For J=2 To t_I/2
If t_I Mod J=0 Then Exit For
Next J
If J>t_i/2 Then isprime=True
End Function
(3)凋试并运行程序。
(4)按题目要求存盘。)
(3)凋试并运行程序。
(4)按题目要求存盘。)
解析：[解析] 在窗体上建立好控件后，先设置控件的属性值，再编写事件过程。文本框中显示的内容由Text属性设置，命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。
三、3 综合应用题(总题数：1，分数：30.00)
5.在考生文件夹中有1工程文件sit5.vbp及其窗体文件sjr5.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“'”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下。
在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2，两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“保存数据”)，如图11-23所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的100个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来；如果单击“保存数据”按钮，则把数组中的前50个数据在文本框Text1中显示出来，并存入考生文件央中的文件“”一书。(考生文件夹中有标准模块prog.bas，其中的putdata过程可以把指定个数的数组元素存入文件。)
（分数：30.00）
本题描述如下。
在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2，两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“保存数据”)，如图11-23所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的100个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来；如果单击“保存数据”按钮，则把数组中的前50个数据在文本框Text1中显示出来，并存入考生文件央中的文件“”一书。(考生文件夹中有标准模块prog.bas，其中的putdata过程可以把指定个数的数组元素存入文件。)
（分数：30.00）
__________________________________________________________________________________________
正确答案：(建立界面并设置控件属性。程序中用到的控件及属性设置如表11-9所示
正确答案：(建立界面并设置控件属性。程序中用到的控件及属性设置如表11-9所示
表11-9 | ||
控 件 | 属 性 | 设置值 |
文本框 | Name Scrollbars Multiline | Textl 2 True |
命令按钮 | Name Caption | Cmd1 汪峰 葛荟婕读入数据 |
命令按钮 | Name Caption | Cmd2 保存数据 |
(2)编写程序代码。
程序提供的代码：
prog.bas 的代码
Sub putdata(a()As Integer，n As Integer)
Dim sFile As String
sFile="/"
Open App.Path & sFile For Output As #1
For i=l TO n
Print #1，a(i)；
Next
Close #1
End Sub
窗体代码
Dim i(1 To 100)As Integer
Private Sub Cmd1_Click()
程序提供的代码：
prog.bas 的代码
Sub putdata(a()As Integer，n As Integer)
Dim sFile As String
sFile="/"
Open App.Path & sFile For Output As #1
For i=l TO n
Print #1，a(i)；
Next
Close #1
End Sub
窗体代码
Dim i(1 To 100)As Integer
Private Sub Cmd1_Click()
Dim j As Integer
j=0
Open App.Path & "/in.txt"For Input As #1
For j=1 To 100
'Input #1，i(?)
Next
'? #1
For j=1 To 100
Text1.Text=Text1.Text & i(j) & Space(5)
Next
End Sub
Private Sub Cmd2_Click()
Dim temp As Long
Dim j As Integer
'Text1.Text=?
j=0
Open App.Path & "/in.txt"For Input As #1
For j=1 To 100
'Input #1，i(?)
Next
'? #1
For j=1 To 100
Text1.Text=Text1.Text & i(j) & Space(5)
Next
End Sub
Private Sub Cmd2_Click()
Dim temp As Long
Dim j As Integer
'Text1.Text=?
For j=1 To 50
Text1.Text=Text1.Text & i(j) & Space(5)
Next
putdata i，50
End Sub
参考代码：
Dim i(1 To 100)As Integer
Private Sub Cmd1_Click()
Dim j As Integer
j=0
Open App.Path &"/in.txt"For Input As #1
For j=1 To 100
Input #1，i(j)
Next
Close #1
Text1.Text=Text1.Text & i(j) & Space(5)
Next
putdata i，50
End Sub
参考代码：
Dim i(1 To 100)As Integer
Private Sub Cmd1_Click()
Dim j As Integer
j=0
Open App.Path &"/in.txt"For Input As #1
For j=1 To 100
Input #1，i(j)
Next
Close #1
For j=1 To 100
Text1.Text=Text1.Text & i(j) & Space(5)
Next
End Sub
Private Sub Cmd2_Click()
Dim temp As Long
Dimj As Integer
Text1.Text=" "
For j=1 To 50
Text1.Text=Text1.Text & i(j) & Space(5)
Next
putdata i，50
End Sub
(3)调试并运行程序。
(4)按题目要求存盘。)
Text1.Text=Text1.Text & i(j) & Space(5)
Next
End Sub
Private Sub Cmd2_Click()
Dim temp As Long
Dimj As Integer
Text1.Text=" "
For j=1 To 50
Text1.Text=Text1.Text & i(j) & Space(5)
Next
putdata i，50
End Sub
(3)调试并运行程序。
(4)按题目要求存盘。)
发布评论