大学vb实验教程答案VB机试模拟试卷124 (题后含答案及解析)
题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题
基本操作题（30分）
1． 请根据以下各小题的要求设计visualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Shapel的圆角矩形，高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求：①圆角矩形中填满绿(颜值为&HOOOOFF00&或&HFF00&)：②窗体的标题为“圆角矩形”。运行后的窗体如图1-17l所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在考生文件夹下有一个工程文件sjt2．vbp。窗体中已含有除计时器外的其他控件，还有一个过程subl，其功能是按照Textl中的通话时间计算通话费，并将其显示在Text2中。程序运行时，单击“通话开始”按钮，则在Textl中累加通话时间(每秒加1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程subl。要求：①在窗体上画一个计时器(如图1-172所示)，并通过属性窗口设置适当属性。②编写三个按钮的Click事件过程。③编写计时器的事件过程。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句，“计算通话费”按钮的事件过程中只允许调用过
程subl。不得修改已经存在的内容和控件属性，最后把文件按原文件名存盘。
正确答案：第1小题  【操作步骤】  步骤1:新建一个“标准EXE”工程，如表2-98在窗体中画出控件并设置其相关属性。      步骤2：按要求将文件保存至考生文件夹中。 第2小题  【操作步骤】  步骤l：打开本题工程文件sjt2．vbp，在窗体中画一个名为Timerl，Interval属性为1000，Enabled属性为False的计时器。    步骤2：打开代码编辑窗口，编写三个命令按钮的Click事件过程以及计时器的Timer事件过程。  参考代码：  Private Sub Commandl_Click(  )    Timerl．Enabled=True    End Sub    Private Sub Command2_Click(  )    Timerl．Enabled=False    End Sub    Private Sub Command3_C1ick(  )    subl    End Sub    Private Sub Timerl_Timer(  )    Textl=Textl+1    End Sub    步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题    当形状控件的Shape属性值是4时显示为圆角矩形；形状控件的填充通过FillColor属性设置，填充样式通过FillStyle属性设置。  第2小题 Enabled(可用)属性用于设置控件或菜单项在程序运行时是否可用，值为True表示可用，值为False表示不可用。 本题需要在命令按钮的单击事件过程中控制计时器是否可用，在计时器的Timer事件中令文本框的值每秒增l。 
简单应用题（40分）
2． (1)在考生文件夹下有一个工程文件sjl3．vbp，窗体上有一个单选按钮数组，含三个单选按钮；还有一个标题为“显示”的命令按钮(如图1-158所示)。程序的功能是，在运行时，如果选中一个单选按钮并单击“显示”按钮，则在窗体上显示相应的信息，例如若选中“小学生”，则在窗体上显示“我是小学生”。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，相应的窗体文件为sjt4．frm。窗体上有一个名称为Commandl的命令按钮和一个名称为Timerl的计时器。如图1-159所示，请在窗体上画一个标签(名称为Labell，标题为“请输入一个正整数”)，再画一个文本框(名称为Textl，初始内容为空白)。已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可使文本框中的数字每隔0．3秒减1(倒计数)：当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
正确答案：第1小题  【操作步骤】  步骤1：打开考生文件夹下的本题工程文件sjt3．vbp。  步骤2：打开代码编辑窗口，在代码编辑窗口，去掉程序中的注释符们“‘”，将问号“?”改为正确的内容。    参考代码：    For i=0 To 2    If Opl(i)．Value=True Then    Print”我是”+Opl(i)．Caption    End If    Next    步骤3：按要求将文件保存至考生文件夹中。    第2小题    【操作步骤】    步骤1：打开考生文件中的本题工程文件sjt4．vbp，如表2-90在窗体中画出控件并设置其相关属性。    步骤2：在代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。    参考代码：    If Val(Textl．Text)=0 Then    Timerl．Enabled=False    Textl．SetFocus步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题  某容器(如窗体和框架)中的单选按钮(OptionButton)组常用于提供多个选项之间的唯一选择，其Value属性用于设置或返回每个单选按钮的选中状态：值为False时表示未被选中，值为True时表示被选中，其Caption属性来设置或返回单选按钮的标题内容。  根据题目要求，在本题的程序设计上，需要用循环依次遍历单选按钮数组的每一个元素，如果该元素处于选中状态，则在窗体上输出结果。  第2小题    可借助计时器来完成有规律性时间间隔执行的任务。本题计时器工作时，为使文本框中的数每隔0-3秒减1，需将计时器的Interval属性值设置为300毫秒，在命令按钮的单击事件过程中通过语句Timerl．Enabled=True启动
计时器，在计时器的Timer事件过程中通过语句Textl．Text=Textl．Text-1实现倒计数。 
综合应用题（30分）
3． 在考生文件夹下有一个工程文件sjt5．vbp，请先装入该工程文件，然后完成以下操作：在名称为Forml的窗体上画三个命令按钮，其名称分别为Cl、C2和C3，标题分别为“读入数据”、“计算”和“存盘”(如图1-205所示)。程序运行后，如果单击“读入数据”按钮，则利用题目中提供的ReadDatal、ReadData2过程读入datainl．txt和datain2．txt文件中的各20个整数，分别放入两个数组Arrl和Art2中；如果单击“计算”按钮，则把两个数组中对应下标的元素相加，其结果放入第三个数组中(即第一个数组的第n个元素与第二个数组的第n个元素相加，其结果作为第三个数组的第，1个元素。这里的，l为l，2，…，20)，最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目中给出的WriteDate过程将计算结果存入考生文件夹下的dataout．txt文件中。注意：请仔细阅读已有程序。考生不得修改窗体文件中已经存在的程序，必须把求得的结果单击“存盘”按钮存入考生文件夹下的dataout．txt文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。
正确答案：第1小题  【操作步骤】  步骤1：打开考生文件中的本题工程文件sjt5．vbp，在窗体中如表2-119画出控件，并设置其属性。[*]步骤2：在代码编辑窗口编写以下事件过程。参考代码：Dim Sum As Integer Private Sub C1_C1ick(  )      ReadDatal    ReadData2 End Sub Private Sub C2 Click(  )    Dim Art3(20)As Integer    Sum=0    For i=1 TO 20    Arr3(i)=Arrl(i)+Arr2(i)    Sum=Sum+Arr3(i)    Next i    Print”Sum=“：Sum End Sub Private Sub C3_Click(  )第2小题  【操作步骤】  步骤1：新建一个“标准EXE”工程，在窗体Forml中画一个名称为Commandl，Caption属性为“命令按钮”的命令按钮。    步骤2：选择，【工具】→【菜单编辑器】命令，打开菜单设计器，如表2-13中的设置建立菜单项。图片248[*]    步骤3：打开代码编辑窗口，编写菜单命令的单击事件过程。      参考代码：    PriVate  Sub  subMenul_Click(  )    Commandl．Visible=True    End Sub    PriVate Sub subMenu2_Click(  )    Commandl．Visible=False    End Sub    步骤4：按要求将文件保存至考生文件夹中。    WrlteData”Dataout．txt”，  Sum    End Sub    步骤3：按要求将文件保存至考生文件夹中。    步骤4：按<F5>键运行程序，先单击“读入数据”按钮，然后单击“计算”按钮，最后单击“存盘”按钮。
解析：第1小题本题原程序已提供用于读数的ReadDatal、ReadDam2和用于写盘的WriteDat
a几个自定义过程，只需编写“读入数据”、“计算”和“存盘”命令按钮的单击事件过程，并在事件过程中调用ReadDaml、ReadData2和WriteDam自定义过程。    程序设计思路：在“读入数据”按钮的Click事件过程中，通过调用ReadDaml和ReadData2过程将数据从文件datainl．txt和damin2．txt中读入到数组Atrl和Arr2(窗体变量)中；在“计算”按钮的Click事件过程中，利用For循环语句(循环变量i的初值为1，终值为20)依次将数组Arrl和Arr2同下标的元素相加(表达式为：Arr3(i)=Arrl(i)+Arr2(i))，并累加到变量Sum，循环结束后将Sum的值显示在窗体上。在“保存”按钮的Click事件过程中，通过调用WnteDam过程将Sum的值写入数据文件damout．txt。    注意：调用WfiteDam过程时需传递参数damout．txt和Sum，变量Sum应声明为窗体变量。第2小题  要实现本题中的功能。应在“显示命令按钮”菜单项的Click事件过程中，令命令按钮的Visible属性为True，在“隐藏命令按钮”菜单项的Click事件过程中，令命令按钮的Visible属性为False。 

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。