VB机试-试卷98_真题(含答案与解析)-交互

VB机试-试卷98
(总分12, 做题时间90分钟)
1. 基本操作题
基本操作题（）
1.
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。

(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel，且没有标题的框架。

框架内含有两个单选按钮，名称分别为Optl和opt2、标题分别为“字体”、“大小”，如图1-216所示。

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

(2)考生文件夹下的工程文件sjt2．vbp中有一个由直线Linel、Line2和Line3组成的三角形，直
线Linel、Line2和Line3的坐标值见表1-10：要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。

再画两个命令按钮，名称分别是Cmdl、Cmd2，标题分别为“显示高”、“隐藏高”，如图1-217所示。

请编写适当的事件过程，使得在运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。

注意：要求程序中不得使用变量，每个事件过程只能写一条语句。

不得修改已经存在的控件，最后将修改后
的文件按原文件名存盘。

SSS_TEXT_QUSTI
分值: 2
答案:
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如
表2-126在窗体上绘制控件并设置属性。

步骤2：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤l：打开本题工程文件
sjt2．vbp，在窗体中画一个直线控件和两个命令按钮，并设置其相关属性如表
2-127所示。

步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程。

参考代码： Private Sub Cmdl_Click() Line4．ViSible=True End Sub Private Sub Cmd2_Click() Line4．Visible=False End Sub 步骤3：按要求将文件保存至考生文件夹中。

解析：第1小题本题只需按题目要求画出框架和单选按钮，并分别设置其属性。

第2小题 Visible(可见)属性用于设置控件或菜单项在程序运行时是否可见，值为True表示可见，值为False表示不可见。

本题的考核要求有两项。

2. 简单应用题
简单应用题（）
1.
(1)在考生文件夹下有一个工程文件sjt3．vbp，运行情况如图1-23所示。

程序的功能是计算表达式的值：z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!其中的N和x值通过键盘分别输入到两个文本框Textl、Text2中。

单击名称为Commandl、
标题为“计算”的命令按钮，则计算表达式的值，并将计算结果显示在名称为Labell的标签中。

在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容。

要求：程序调试通过后，必须按照如图1-23所示输入N=5，x=12，然后计算z的值，并将计算结果显示在标签Labell中，否则没有成绩。

注意；不能修改程序的其他部分和控件属
性。

最后把修改后的文件按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4．vbp。

窗体上有名称为Labell的标签和名称为Timerl的计时器控件。

该程序的功能是在名称为Labell的标签中循环显示不同的字符串。

程序开始运行，在标签中显示“第一项”(如图1-24所示)，且每隔1秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。

在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不能修改程序的其他部分和控件属性。

最后把修改后
的文件按原文件名存盘。

SSS_TEXT_QUSTI
分值: 2
答案:
正确答案：第l小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。

参考代码： tmp=1 tmp=temp+i xn=tmp z=z+xn(t) 步骤2：按键
键运行程序，在第一个文本框中输入5，第两个文本框中输入12，然后单击“计算”按钮。

步骤3：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。

参考代码：
arr=Array("第一项"，"第二项"，"第三项"，"第四项") Static i As Integer Labell．Caption=arr(i) i=0 步骤2：按要求将文件保存至考生文件夹中。

解析：第l小题本题原程序中，自定义函数xn的功能是进行m！阶乘运算，它通过For循环连续m次将循环变量i的值乘以累积变量tmp(第一个?处map
初值应为1)来实现。

故自定义函数xn中第两个?处应改为：tmp*i，作为函数
返回值第三个?处应改为：)xn。

在“计算”按钮的单击事件过程中。

根据程序所要计算表达式的特点，原程序利用一个For循环依次计算表达式中各项的值((x-i)1)，并将其累加入变量z。

计算表达式中各项的值通过调用自定义函数xn(t)来实现的，其中t=x-i。

故Commandl_Click事件过程中第一个?处应改为：xn(t)。

计算结果显示在标签中。

第2小题要实现本题中的功能，在窗体的Load事件过程中，首先使用Array函数建立一个新数组，然后设置计时器的相关属性并启用计时器；在计时器的Timer事件中，由于需要计算Timer事件的执行次数才能判断出应该显示何种文字，因此计数变量i应该声明为Static 类型的变量，然后把数组的第i项显示在标签中，接下来令i+l，一旦i超过
了3就将其重新置O以便实现循环显示。

3. 综合应用题
综合应用题（）
1.
在考生文件夹中有一个工程文件sjt5．vbp。

窗体外观如图1-58所示。

运行程序，单击“读数据”按钮，文件中的数据被读入字符串变量中并显示在Label2
标签中。

单击“排序”按钮时，对读入的数据从小到大排序，并将排序结果显示在窗体的Label4控件中。

要求：工程文件中已给出部分程序，“读数据”命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。

请编写“排序”命令按钮的事件过程中的部分程序代码。

注意：不能修改程序的其他部分和控件属性。

最后把修改后的文件按原文件名存盘。

程序调试
通过后，两个命令按钮的事件过程必须至少各执行一次。

SSS_TEXT_QUSTI
分值: 2
答案:
正确答案：【操作步骤】步骤1：打开考生文件夹中的本题工程文件
sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“'”，将问号“?”改为正确的内容。

参考代码： Do While Not EOF(1) s=s&Str(a(i)) 步骤2：在代码编辑窗口指定位置编写以下代码：参考代码： num=UBound(a) For i=1 To num-1 For j=i To num If a(i)>a(j)Then t=a(i) a(i) =a(j) a(j) =t End If Next Next 步骤3：按键运行程序，先单击“读数据”按钮，再单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。

步骤4：按要求将文件保存至考生文件夹中。

解析：冒泡法的核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较，如果该数大于其后面的数。

则把这两个位置的数进行交换。

通过这样的循环，最终按照从小到大的顺序排列出该数列。

设计思路：在“读数据”按钮的单击事件中，首先使用Do While当型循环结构从文件中读取全部数据，并以Not EOF(文件号)(非文件结尾)作为循环条件，通过Input#语句将打开文件中的数据逐一读出后赋值给a(i)，然后将数组连接起来显示在标签中。

在“排序”按钮的单击事件过程中，原程序利用“冒泡法”对记录数组中的元素从小到大进行排序。

1。