VB机试模拟试卷11(题后含答案及解析)

VB机试模拟试卷11(题后含答案及解析)
题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题
基本操作题（30分）
1．注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

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

(1) 在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“退出”，其名称分别为Dis和Exit，编写适当的事件过程。

程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“退出”命令，则结束程序运行。

程序的运行情况如图11-1所示。

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

(2) 在窗体上画一个列表框，名称为L1，通过“属性”窗口向列表框中添加4个项目，分别为“WHBB”、“HIJK”、“QWEI”和“POIU”，单击列表框中的某一项，则该项就从列表框中消失。

程序的运行情况如图11-2和图1l-3所示。

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

正确答案：在窗体上建立好控件后，先设置控件属性，再编写事件过程。

在Visual Basic中，菜单在“菜单编辑器”窗口中建立。

通过End语句结束程序的运行。

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

菜单及控件属性设置见表11-1。

第二步：编写程序代码。

参考代码：Private Sub Dis_Click( )Text1.Text=“计算机考试”End Sub Private Sub Exit_Click( )End End Sub第三步：调试并运行程序。

第四步：按题目要求存盘(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。

用RemoveItem方法删除列表框中指定的项目，其格式为：列表框.RemoveItem索引值RemoveItem方法从列表框中删除以“索引值”为地址的项目，改方法每次只能删除一个项目。

ListIndex属性是已被选中的表项的位置。

如果没有选中任何项，ListIndex的值将设置为-1。

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

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

第二步：编写程序代码。

参考代码：Private Sub L1_Click( ) L1.RemoveItem L1.ListIndex End Sub 第三步：调试并运行程序。

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

简单应用题（40分）
2．注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。

存盘时不得改变文件名和文件夹。

本题描述如下：在窗口中有一个RichText文本框控件和一个文本框控件，名称分别为rtx1和Text1，两个命令按钮，名称分别为Command1和Command2，标题分别为“加入SJT01.TXT”、“统
计字符个数”。

要求程序运行后，单击command1将考生文件夹下的sjt01.txt的内容显示到rtx1中；单击“统计字符个数”按钮统计rtx1中有多少个字符，将结果显示在Text1中。

程序运行结果如图13-4所示。

(2) 在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。

存盘时不得改变文件名和文件夹。

本题描述如下：在窗体上有一个名为Image1的图像框，要求程序运行后，鼠标左键点击图像框，则图像框变大；鼠标右键点击图像框，图像框变小。

设计界面如图13-5所示。

正确答案：在窗体上建立好控件后，先设置控件属性，再编写事件过程RichTextBox控件可以用LoadFile和SaveFile方法可以方便的为RichTextBox控件打开或保存文件，LoadFile方法能将RTF文件或文本文件装入控件，其形式如：对象.LoadFile 文件标志符[，文件类型]；统计字符的个数可用Len(要统计的内容)函数。

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

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

程序提供的代码：Option Explicit Private Sub Command1_Click( ) ‘rtx1.? App.Path+”\sjt01.txt”End Sub Private Sub Command2_Click( ) If rtx1.Text ＜＞““ Then ‘ Text1.Text=?End If End Sub 参考代码：Option Explicit Private Sub Commandl_Click( )rtx1.LoadFile App. Path+”\sjt01.txt”End Sub Private Sub Command2_Click( )If rtx1.Text ＜＞““Then Text1.Text=Len(rtx1.Text)End If End Sub 第三步：调试并运行程序。

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

(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程图像框的图片由Picture属性设置。

判断鼠标左键还是右键可以通过图像框的MouseUp事件的Button参数来判断。

MouseUp事件再释放鼠标按钮时发生。

其语法格式为：PrivateSubobject_MouseUp([indexAsInteger,]buttonAsInteger,shiftAsInteger,xAsSin gle,yAsSingle) Object一个对象表达式。

Index一个整数，用来惟一地标识一个在控件数组中的控件。

Button返回一个整数，用来标识该事件的产生是按下(MouseDown)或者释放(MouseUp)按钮引起的。

button参数是具有相应于左按钮(位0)，右按钮(位1)，以及中间按钮(位2)的一个位字段。

这些位的值分别等于1，2，和4。

其中仅有一位被设置，指示出引起该事件的那个按钮Shift返回一个整数，在button参数指定的按钮被按下或者被释放的情况下，该整数相应于SHIFT，CTRL和ALT键的状态。

某键被按下使得一个二进制位被设置。

shift参数是具有相应于SHIFT键(位0)，CTRL键(位”，以及ALT键(位2)最少二进制位的一个位字段。

这些位的值分别等于1，2，和4。

shift参数指示这些键的状态。

这些位中可能有一些、全部或者一个也没有被设置，指示这些键中的一些、全部或者一个也没有被按下。

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

第二步：编写程序代码。

程序提供的代码：Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=1 Then If Image1.Height＜4000 Or Image1.Width＜4000 Then Imagel.Height=Imagel.Height+500 ‘Imagel.Width=Imagel.Width ? 500 End If End If ‘If Button=? Then If Image1.Height＞1000 Or Image1.Width＞1000 Then Image1.Height=Image1.Height-500 Image1.Width=Image1.Width-500 End IfEnd If End Sub 参考代码：Private Sub
Image1_MouseUp(Button As Integer, Shift As Integer, XAs Single, Y As Single)If Button=1 Then If Image1.Height＜4000 Or Image1.Width＜4000 Then Image1.Height=Image1.Height+500 Image1.Width=Image1.Width+500 End IfEnd IfIf Button=2 Then If Image1.Height＞1000 Or Image1.Width＞1000 Then Image1.Height=Image1.Height-500 Image1.Width=Image1.Width-500 End IfEnd If End Sub 第三步：调试并运行程序。

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

综合应用题（30分）
3．注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确的程序代码，然后删除?及所有注释符号(即’号)，但不能修改其他部分。

修改后的程序文件都保存，存盘时不得修改文件夹和文件名。

本题描述如下：在窗体上有一个名称为Text1的文本框，三个命令按钮，名称分别是C1、C2和C3，标题分别是“读入”、“加密”和“存盘”。

要求程序运行后，点击“读入”按钮，将文本文件in7.txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中；点击“加密”按钮将Text1中的英文字母加密转换，并将转换后的结果显示到Text1中。

转换方式为转换成该字母对应字母表中后两个位置的字母。

例如，转换前的字母是“a”，则转换后的是“c”；点击“存盘”按钮，则将转换后的文本框中的文本保存到out7.txt文件中(该文件保存到考生文件夹下)。

程序设计界面如图12-8所示。

正确答案：文本框中显示的内容由Text属性设置。

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

题目要求加密原理是：在原来字符的ASCII码加上一个整数(题目要求为2)转换为其他的字符，然后再将加密后的字符显示在文本框中。

这样就用到了Chr函数和Asc函数。

Chr函数返回String，其中包含有与指定的字符代码相关的字符。

其语法格式为：Chr(charcode) charcode必要参数，是一个用来识别某字符的Long。

Asc函数返回一个Integer，代表字符串中首字母的字符代码。

其语法格式为：Asc(string) string必要的参数，可以是任何有效的字符串表达式。

解题步骤：第一步：编写程序代码。

程序提供的代码：Private Sub C1_Click( )Dim strinfo As String’? “in7.txt” For Input As 1Input #1, strinfoClose #1Text1.Text=strinfo End Sub Private Sub Command2_Click( )Dim strchange As StringDim i As IntegerFor i=1 To Len(Text1.Text)’strchange=strchange+?(Asc(Mid(Text1.Text, i, 1) ) +2)NextText1.Text=strchange End Sub Private Sub Command3_Click( )Open “out7.txt”For Output As 1’Print #1, ?Close #1 End Sub 参考代码：Private Sub C1_Click( )Dim strinfo As StringOpen “in7.txt” For Input As 1Input #1, strinfoClose #1Text1.Text=strinfo End Sub Private Sub C2_Click( )Dim strchange As String Dim i As IntegerFor i=1 To Len(Text1.Text) strchange=strchange+Chr(Asc(Mid(Text1.Text, i, 1) ) +2)NextText1.Text=strchange End Sub Private Sub C3_Click( )Open “out7.txt”For Output As 1Print #1, Text1.TextClose #1 End Sub 第二步：调试并运行程序第三步：按题目要求存盘。