二级VISUALBASIC机试58_真题(含答案与解析)-交互

二级VISUAL BASIC机试58
(总分100, 做题时间90分钟)
1 基本操作题
1.
注意：下面出现的“考生文件夹”均为C:\wexam\25160002。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立1个名称为Op1的单选按钮数组，含3个单选按钮，它们的标题依次为“选择1”、“选择2”和“选择3”，其下标分别为0、1和2，初始状态下，“选择2”为选中状态。

运行后的窗体如图26-1所示。

注意；存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

(2)在窗体上建立1个二级菜单，第一级含两个菜单项，标题分别为“编辑”和“帮助”，名称分别为edit和help。

其中“编辑”菜单含有3个子菜单，其标题依次为“剪切”、“复制”和“粘贴”，名称分别为cut、copy和paste，如图26-2所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体
文件名为sjt2.frm。

SSS_TEXT_QUSTI
该问题分值: 30
[解析] 在窗体上建立好控件后，设置控件的属性。

建立控件数组由多种方法，考生可以采取任何一种来建立单选按钮数组。

要使“选择2”为选中状态，则应该将该控件的Value属性值设置True。

Value 属性用来表示单选按钮的状态，它的值可以是True或False，当设置为True 时，该单选按钮为选中，否则没有选中。

解题步骤：
第一步：建立界面并设置控件的属性。

程序中用到的控件及其属性见表26-1。

表 26-1
控件属性设置值
单选按钮
Name
Caption
Index
Op1
"选择1"
单选按钮
Name
Caption
Index
Value
Op1
"选择2"
1
True
单选按钮Name
Caption
Index
Op1
"选择3"
2
第二步：调试并运行程序。

第三步：按题目要求存盘。

(2) [解析] 在Visual Basic中，菜单通过“菜单编辑器”窗口来建立。

解题步骤：
第一步：建立界面并设置对象属性。

程序中用到的控件及其属性见表26-2。

表26-2
控件属性设置值
菜单名称
标题
Edit
"编辑"
菜单名称
标题
内缩符号
Cut
"剪切"
1
菜单名称
标题
内缩符号
Copy
"复制"
1
菜单名称
标题
内缩符号
Paste
"粘贴"
1
菜单名称
标题
Help
"帮助"
第二步：调试并运行程序。

第三步：按题目要求存盘。

2 简单应用题
1.
注意：下面出现的“考生文件夹”均为C:\wexam\25160002。

(1) 在考生文件夹下有一个工程文件sjt3.vbp，两个窗体文件，文件名分别为sjt31.frm和sjt31.frm。

此工程实现的功能是，在运行时只显示名为Form2的窗体，单击Form2上的C2按钮，则显示名为Form1的窗体；单击Form1上的C1按钮，则Form1的窗体消失。

这个程序并不完整，要求：把Form2设为启动窗体；把Form1上按钮的标题改为“隐藏”，把Form2上按钮的标题改为“显示”。

去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。

最后把修改后的文件存盘。

程序正确运行后的界面如图26-3所示。

注意：工程文件和窗体文件仍以原来的文件名存盘。

(2) 在考生文件夹下有一个工程文件sjt4.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左
移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。

程序运行界面如图26-4所示。

要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。

最后把修改后的程序以原来的文件名存盘。

SSS_TEXT_QUSTI
该问题分值: 40
[解析] 在窗体建立好控件后，先设置控件属性，再事件过程。

命令按钮的标题通过Caption属性修改。

单击命令按钮触发Click事件。

在多窗体中，可以指定启动窗体，方法是：点击“工程”菜单下的“工程属性”命令，打开“工程属性”对话框，然后单击“启动对象”栏右端的箭头，下拉显示当前工程中的所有窗体的列表，单击要作为启动窗体的对象名，然后单击“确定”按钮，即可把所选窗体设置为启动窗体。

要使窗体显示或隐藏可以设置窗体的Visible属性，设置为False时，窗体隐藏设置为True时，窗体显示。

解题步骤：
第一步：建立界面并设置控件属性。

程序提供了需要的控件，只需修改这些控件属性即可。

Form1用到的控件及其属性见表26-3。

表 26-3
控件属性设置值
按钮Name
Caption
C1
"隐藏"
Form2用到的控件及其属性见表26-4。

表 26-4
控件属性设置值
按钮Name
Caption
C2
"显示"
建立好控件后，将窗体Form2设置为启动窗体。

第二步：编写程序代码。

题目提供的代码：
窗体1的代码：
Private Sub C1_Click()
'Form1.Visible = ?
End Sub
窗体2的代码：
Private Sub C2_Click()
'Form1.visible = ?
End Sub
第三步：调试并运行程序。

第四步；按题目要求存盘。

(2)[解析] 滚动条能表示的最大值有Max属性设置，最小值由Min属性设置。

滚动条的当前值由Value属性设置。

当 Value值大于Max属性或小于Min 属性值时，用Msgbox语句生成消息框。

解题步骤：
第一步：编写程序代码：
题目提供代码：
Private Sub C1_Click()
'If HS1.Value + Text1.Text ＞ HS1.? Then
MsgBox "文本框中的数值太大"
'ElseIf HS1.Value + Text1.Text ＜ ? Then
MsgBox "文本框中的数值太小"
Else
'? = HS1.Value + Text1.Text
End If
End Sub
参考代码：
Private Sub C1_Click()
If HS1.Value + Text1.Text ＞ HS1.Max Then
MsgBox "文本框中数值太大"
ElseIf HS1.Value + Text1.Text ＜ HS1.Min Then
MsgBox "文本框中的数值太小"
Else
HS1.Value = HS1.Value + Textl.Text
End If
End Sub
第二步；调试并运行程序。

第三步：按题目要求存盘。

3 综合应用题
1.
注意：下面出现的“考生文件夹”均为C:\wexam\25160002。

在考生文件夹下有一个工程文件sjt5.vbp在名称为Form1的窗体上画一个文本框，名称为Text1，允许多行显示：再画3个命令按钮，名称分别为
C1、C2和C3，标题分别为“输入”、“转换”和“存盘”，如图26-5所示。

请编写适当的事件过程，使得在运行时，单击“输入”按钮，则从考生文件夹中读入in5.txt文件(文件中只有字母和空格)，放入Text1中；单击“转换”按钮，则把Text1中的所有小写字母转换为大写字母；单击“存盘”按钮，则把Text1中的内容存入out5.txt文件中。

注意：去掉程序中的注释符，把程序中的?改为正确的内容，考生必须把转换后的内容用“存盘”按钮存入out5.txt文件，否则无成绩。

考生的工程文件以文件名sjt5.vbp存盘，窗体文件以文件名sjt5.frm存盘。

SSS_TEXT_QUSTI
该问题分值: 30
[解析] 窗体上建立好控件后，先设置控件属性，再编写事件过程。

要使文本框允许多行显示，应将其MultLine属性设置为True。

文本框的Text属性设置为空。

命令按钮的标题通过Caption属性设置，单击命令按钮触发Click事件。

进行读文件的操作在“输入”按钮的Click事件过程中完成。

将文件
in5.txt以顺序文件输入方式打开，将读取的字符串赋值给文本框的Text属性。

文件的操作一般按照如下步骤进行：
打开或建立文件；进行读/写操作；关闭文件。

要将字符串的小写字母转换成大写字母，可以有UCase函数实现。

UCase函数将小写字母转换成大写字母0。

其语法格式为：
UCase(string)
string 不要参数为任何有效的字符串表达式。

只有小写的字母会转成大写：原本大写或非字母之字符保持不变。

解题步骤：
第一步：建立控件并设置对象属性。

程序中用到的控件及其属性见表26-5。

表 26-5
控件属性设置值
文本框Name
Text
MultiLine
Text
空白
True
按钮Name
标题
C1
"输入"
按钮Name
标题
C2
"转换"
按钮Name
标属
C3
"存盘"
第二步：编写程序代码。

程序所提供的代码：
Private Sub C1_Click()
Open App.Path & "\in5.txt" For Input AS #1
Do While Not EOF(1)
'Input #1, ?
Text1.Text = mystring
Loop
Close #1
End Sub
Private Sub C2_Click()
'Text1.Text = ?
End Sub
Private Sub C3_Click()
Open App.Path & "\out5.txt" For Output As #2
'Print #2, Text1.?
Close #2
End Sub
参考代码：
Private Sub C1_Click()
Open App.Path & "\in5.txt" For Input As #1
Do While Not EOF(1)
Input #1, mystring
Text1.Text = mystring
Loop
Close #1
End Sub
Private Sub C2_Click()
Text1.Text = UCase(Text1.Text)
End Sub
Private Sub C3_Click()
Open App.Path & "\out5.txt" For Output As #2
Print #2, Text1.Text
Close #2
End Sub
第三步：调试并运行程序
第四步：按题目要求存盘
1。