1、VB 机试-试卷 93 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在窗体上建立一个二级菜单，该菜单含有“文件”和“编辑”(名称分别为 vbFile 和 vbEdit)两个主菜单项，其中“文件”菜单包括“打开”、“保存”和“关闭”三个子菜单项(名称分别为vbOpen、vbSave 和 vbclose)，如图 8 一 1 所示。只建立菜单，不必定义其事件过程。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj1frm，工程文件名为 sjlvbp。 (2)在名为 Form1 的窗体上画一个框架
2、，名称为 Frame1，标题为“框架”，高度为 2 500，宽度为 3 500，框架内建立一文本框，距左边框 500，距框架的上边框 1 000，文本框中的初始内容设置为“文本框”。运行界面如图 82 所示。（分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有一个工程文件 sj3vbp，窗体中有两个图片框，名称分别为 Pic1 和 Pic2，其中的图片分别是一个黑色正方形和一个红色长方形，还有一个计时器控件。名称为 Timerl，一个命令按钮，名称为 Conmmandl，标题为“出发”。窗体文件中给出了两个事件过程，但
3、并不完整，要求设置计时器控件的属性，使其在初始状态下不计时；设置计时器的属性，使其每隔 1 秒调用 17imer 事件过程一次。去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使得程序在运行时单击“出发”按钮，则黑色正方形每隔 1 秒向右移动一次，当到达 Pic2 的左边时停止移动。程序运行时的窗体界面如图 253 所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4vbp，窗体上已经有一个文本框，名称为 Textl；一个命令按钮，名称为 Coimmandl、标题为“输出”。请画两个单选按钮，名称分别为 Optionl
4、和 Option2，标题分别为“Iteml”和“1tem2”；再画两个复选框，名称分别为 Checkl 和 Check2，标题分别为“Item3”和“Item4”。请编写适当的事件过程，使得在运行时，单击“输出”按钮后实现下面的要求： 根据选中的单选按钮和选中的复选框，在，Textl 中显示“Item1 包含 Itera3”或“Item2 包含 1tem3 和 1tem4”等，如图 254 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹中有工程文件 sj5vbp 及其窗体文件 sj5frm，该程序是不完整的。在名称
5、为 Forml 的窗体上有两个命令按钮，名称分别为 Commandl 和 Command2、标题分别为“读取数据”和“保存”，一个文本框，名称为 Textl、MultiLine 属性为 True、ScrollBars 属性为 2；要求如果单击“读取数据”按钮，则读入 intxt 文件中的 50 个整数，放入一个数组中，同时在文本框中显示出来；如果单击“保存”按钮，则计算数组中小于 300 或大于或等于 800 的所有数之和，把求和结果在文本框 Textl 中显示出来，如图 325 所示。同时把结果存人考生文件夹中的文件 outtxt 中。(在 modebas 中的 writedata 过程可以
6、把结果存入 outtxt 文件。)。 （分数：2.00）_VB 机试-试卷 93 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在窗体上建立一个二级菜单，该菜单含有“文件”和“编辑”(名称分别为 vbFile 和 vbEdit)两个主菜单项，其中“文件”菜单包括“打开”、“保存”和“关闭”三个子菜单项(名称分别为vbOpen、vbSave 和 vbclose)，如图 8 一 1 所示。只建立菜单，不必定义其事件过程。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj1frm，工程文件名为
7、 sjlvbp。 (2)在名为 Form1 的窗体上画一个框架，名称为 Frame1，标题为“框架”，高度为 2 500，宽度为 3 500，框架内建立一文本框，距左边框 500，距框架的上边框 1 000，文本框中的初始内容设置为“文本框”。运行界面如图 82 所示。（分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，在窗体空白处单击右键，选择菜单编辑器添加以下菜单项： 单击“确定”按钮，单击 按钮运行程序，并按要求保存即可。 (2)根据题意，新建“标准 EXE”工程，在窗体中画一个框架控件和一个文本框控件，将框架的名称设置为Framel、Caption 属性
8、设置为框架、Height、Width 属性分别设置为 2 500、3 500，将文本框的 Text 属性设置为文本框，Left、Top 属性分别设置为 500、1 000。 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹下有一个工程文件 sj3vbp，窗体中有两个图片框，名称分别为 Pic1 和 Pic2，其中的图片分别是一个黑色正方形和一个红色长方形，还有一个计时器控件。名称为 Timerl，一个命令按钮，名称为 Conmmandl，标题为“出发”。窗体文件中给出了两个事件过程，但并不完整，要求设置计时器控件的属性
9、，使其在初始状态下不计时；设置计时器的属性，使其每隔 1 秒调用 17imer 事件过程一次。去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使得程序在运行时单击“出发”按钮，则黑色正方形每隔 1 秒向右移动一次，当到达 Pic2 的左边时停止移动。程序运行时的窗体界面如图 253 所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4vbp，窗体上已经有一个文本框，名称为 Textl；一个命令按钮，名称为 Coimmandl、标题为“输出”。请画两个单选按钮，名称分别为 Optionl 和 Option2，标题分别为“I
10、teml”和“1tem2”；再画两个复选框，名称分别为 Checkl 和 Check2，标题分别为“Item3”和“Item4”。请编写适当的事件过程，使得在运行时，单击“输出”按钮后实现下面的要求： 根据选中的单选按钮和选中的复选框，在，Textl 中显示“Item1 包含 Itera3”或“Item2 包含 1tem3 和 1tem4”等，如图 254 所示。 （分数：2.00）_正确答案：(正确答案： (1)计时器控件的 Interval 属性是用来控制计时器事件发生的时间间隔，通过题意可知该属性应设置为 1 000(Interval 是以毫秒为单位)。当单击“出发”按钮时开始计时，把计
11、时器控件的 Enabled 属性设置为 True。 根据题意，将两个图片控件、一个计时器控件和一个命令按钮添加到窗体中，Picture 的名称为 Picl 和 Pic2，Pic1 的背景色为黑色，Pic2 的背景色为红色，计时器的Interval 属性为 1 000，名称为 Timerl，Enable 属性为 False，命令按钮的名称为 Commandl，Caption属性为“出发”，双击 Commandl 进入代码窗口，补充后的具体代码如下： Private Sub Command1_Click() Timerl Enabled =True End Sub Private Sub Time
12、rl_Timer() Dim sp As Integer sp=200 运动速度 If Picl Left +Picl Width =Pic2 Left Then sp=0 End If Picl Left =Picl Left +spPicl 的位置变化 End Sub 单击 按钮运行程序，并按要求保存。 (2)在文本框中显示的内容通过文本框的 Text 属性设置。复选按钮和单选按钮的状态用 Value 属性来表示。对于单选按钮来说，Value 属性可设置为 True 或 False，当设置为 True 时表示被选中的，否则表示没有选中。对于复选按钮来说，Value 属性可以设置为 0、1
13、或 2。其中：0 表示没有选中该复选按钮；1 表示选中该复选按钮；2 表示该复选按钮被禁止(灰色)。 根据题意，将两个单选按钮控件、两个复选按钮、一个文本框控件和一个命令按钮添加到窗体中，单选按钮的名称分别为 Optionl 和 Option2、Caption 属性为“Iteml”和“Item2”，复选按钮的名称分别为 Checkl 和 Check2，Caption 属性分别为“Item3”和“Item4”，文本框的名称为 Textl、Caption 属性为空，命令按钮的名称为 Commandl、Caption 属性为“输出”。双击 Commandl 进入代码编写窗 IZl，利用字符串相加和
14、Ifelse 语句设计程序，具体代码如下： Private Sub Commandl_Click() Dim str As String Dim trnp As String str=“ If Optionl Value =True Then选中 Optionl str=str+“Iteml 包括“ Else选中 Option2 str=str+“Item2 包括“ End If If ChecklValue =0 Then没选中 Checkl If Check2 Value =1 Then 选中 Cheek2 tmp=Check2 Caption str=str+tmp End If Els
15、e选中 Checkl If Check2Value =0 Then 没选中 Check2 tmp=Checkl Caption str=str+trap Else选 Check2 tmp=ChecklCaption str=str+tmp str=str+“和“ tmp=Check2 Caption str=str+tmp End If End If Textl Text =str End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹中有工程文件 sj5vbp 及其窗体文件 sj5frm，该程序是不完整的。在名称
16、为 Forml 的窗体上有两个命令按钮，名称分别为 Commandl 和 Command2、标题分别为“读取数据”和“保存”，一个文本框，名称为 Textl、MultiLine 属性为 True、ScrollBars 属性为 2；要求如果单击“读取数据”按钮，则读入 intxt 文件中的 50 个整数，放入一个数组中，同时在文本框中显示出来；如果单击“保存”按钮，则计算数组中小于 300 或大于或等于 800 的所有数之和，把求和结果在文本框 Textl 中显示出来，如图 325 所示。同时把结果存人考生文件夹中的文件 outtxt 中。(在 modebas 中的 writedata 过程可以
17、把结果存入 outtxt 文件。)。 （分数：2.00）_正确答案：(正确答案：本题中涉及文件的操作，对文件的操作包括几个基本步骤，首先要打开文件，然后再读取文件，对文件操作完后，一定要记得关闭文件。用 Input#语句读取顺序文件中的数据。 根据题意，将一个文本框控件和两个命令按钮放入 Forml 窗体中，然后根据需要设置各个控件的属性，先选中Textl 控件，然后设置其滚动属性为 2，MuhiLine 属性为 True；选中 Commandl(读人数据)设置其 Caption属性为“读取数据”，Command2 的 Caption 属性为“保存”。将考生文件夹下的标准模块 modebas
18、文件添加到工程中。双击 Commandl，进人代码窗口，补充后的具体代码如下： Dim a(49)As Long全局变量 Dim str(49)As String全局变量 Private Sub Commandl_Click() TextlText=“ Open“AppPath&intxt“For Input As#1打开“intxt”文件 Dim i As Integer Dim temp As Integer For i=0 To 49 Input #1，temp a(i)=temp按顺序读人到数组中 Next i For i=0 To 49 str(i)=a(i) TextlText=TextlText+str(i)+vbCrLf 将数组中的数放入 Text 中显示 Next i Close#1 End Sub Private Sub Command2_Click() Dim total As Long Dim i As Integer total=0 For i=0 To 49 If a(i)800 Or a(i)total=total+a(i) 对符合条件的数进行求和 End If Next i writeData(total) 将结果保存到 outtxt 中 End Sub 单击 )解析：
