VB上机模拟试题2

1 基本操作题(2小题，每题15分，共计30分)

注意：下面出现的“考生文件夹”均为c：\\wexam\\25160001。

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

(1) 在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clea，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框显示“计算机考试”；如果单击“清除”命令，则清除文本框中显示的内容。程序的运行情况如图13-1和图13-2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

(2) 在窗体上画一个文本框，名称为Text1，Text属性为空白。再画一个列表框，名称为L1，通过“属性”窗口向列表框中添加4个项目，分别为“早上好”、“上午好”、“中午好”和“下午好”，编写适当的事件过程。程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。程序的运行情况如图13-3所示。

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

2 简单应用题(2小题，每题20分，共计40分)

注意：下面出现的“考生文件夹”均为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所示。

3 综合应用题(1小题，共计30分)

注意：下面出现的“考生文件夹”均为c：\\wexam\\25160001。

在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。 本题描述如下：

在名称为Form1的窗体上有五个Labe1控件和两个命令按钮，数据文件stud1.dat存放考生的考号、姓名、成绩。自定义一个数据类型stu，字符型数据定长为10；按“开始”按钮后，能从考生文件夹下的stud1.dat中读出所有数据并写入考生文件夹下的stud.dat文件中；执行完毕，“开始”按钮变成“完成”，且无效 (变灰)。程序运行界面如图13-6所示。

答案

1 基本操作题

(1) 解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。

通过“菜单编辑器”来创建菜单，文本框的内容通过Text属性设置，Tex=\"\"语句可将文本框中的内容清空。

解题步骤：

第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-1。

控 件 菜单 标题 名字 菜单 标题 名字 菜单 标题 文本框 Name 清除 Text1 显示 Cle 操作 Dis 属 性 名字 设 置 值 Op 第二步：编写程序代码。

参考代码：

Private Sub Clea_Click() Text1.Text=\"\" End Sub

Private Sub Dis_Click()

Text1.Text=\"计算机考试\" End Sub

第三步：调试并运行程序。 第四步：按题目要求存盘。

(2) 解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。

列表框的内容由List属性设置，文本框的内容由Text属性设置，双击触发DblClick事件，向列表框中添加内容用AddItem方法。解题步骤：

第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-2。 控 件 文本框 列表框 Name Name 属 性 Text1 L1 设 置 值 第二步：编写程序代码： 参考代码：

Private Sub L1_DblCliCk() L1.AddItem Text1.Text End Sub

第三步：调试并运行程序。 第四步：按题目要求存盘。 2 简单应用题

(1) 解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程

RichTextBox控件可以用LoadFile和SaveFile方法可以方便的为RichTextBox控件打开或保存文件，LoadFile方法能将 RTF文件或文本文件装入控件，其形式如：对象.LoadFile 文件标志符[，文件类型]；统计字符的个数可用Len(要统计的内容)函数。解题步骤：

第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-3。 控 件 Command1 Command2 属 性 Caption Caption 设 置 值 加入sjt01.txt 统计字符个数 第二步：编写程序代码。 程序提供的代码： 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,xAsSingle,yAsSingle) Object一个对象表达式。

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

Button返回一个整数，用来标识该事件的产生是按下(MouseDown)或者释放(MouseUp)按钮引起的。button参数是具有相应于左按钮(位0)，右按钮(位1)，以及中间按钮(位2)的一个位字段。这些位的值分别等于1，2，和4。其中仅有一位被设置，指示出引起该事件的那个按钮Shift返回一个整数，在button参数指定的按钮被按下或者被释放的情况下，该整数相应于SHIFT，CTRL和ALT键的状态。某键被按下使得一个二进制位被设置。

shift参数是具有相应于SHIFT键(位0)，CTRL键(位1)，以及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 If End If End Sub 参考代码：

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 Image1.Height=Image1.Height+500 Image1.Width=Image1.Width+500 End If End If

If Button=2 Then

If Image1.Height＞1000 Or Image1.Width＞1000 Then Image1.Height=Image1.Height-500 Image1.Width=Image1.Width-500 End If End If End Sub

第三步：调试并运行程序。 第四步：按题目要求存盘。 3 综合应用题

解析：单击按钮触发其Click事件，标题由Caption属性设置；标签的标题也是由Caption属性设置；文件的操作一般按照如下步骤进行：打开或建立文件、进行读或写操作、关闭文件。 自定义数据类型通过Type语句来实现，形式如下： Type 自定义类型名

元素名[(下标)]As类型名 ……

[元素名[(下标)]As类型名] End Type

对于字符串变量类型，根据其存放的字符串长度是否固定，其定义方法有两种： Dim 字符串变量名 As String

Dim 字符串变量名 As String*字符数 程序中用到了App对象的Path属性。Path属性返回或设置当前路径，在设计时是不可用的，对于App对象，在运行时是只读的。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Type stu num As Long

' nam As String ? score As Single 'End

Private Sub COMEXIT_Click() End End Sub

Private Sub COMSTART_Click() 'Dim rec As ? Dim i As Integer

'myfile1=App. Path & \"\\\" & ? 'myfile2=App. Path & \"\\\" & ? Open myfilel For Input As #1 Open myfile2 For Output As #2 For i=1 To 8

' Input ?, rec.num, rec.nam, rec.score ' Write ?, rec.num, rec.nam, rec.scbre Next i Close

'COMSTART.Caption= ? 'COMSTART.Enabled= ? End Sub 参考代码：

Private Type stu num As Long

nam As String * 10 score As Single End Type

Private Sub COMEXIT_Click() End End Sub

Private Sub COMSTART_Click() Dim rec As stu Dim i As Integer

myfile1=App.Path & \"\\\" & \"stud1.dat\" myfile2=App.Path & \"\\\" & \"stud.dat\" Open myfile1 For Input As #1 Open myfile2 For Output As #2 For i=1 To 8

Input #1, rec.num, rec.nam, rec.score Write #2, rec.num, rec.nam, rec.score Next i Close

COMSTART.Caption=\"完成\" COMSTART.Enabled=False End Sub

第二步：调试并运行程序。 第三步：按题目要求存盘。