1、二级 VISUAL+BASIC 机试-104 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上绘制一个标签，名为 Lab1，标题为“请输入一个摄氏温度”；绘制两个文本框，名称分别为 Text1 和 Text2，内容设为空；再绘制一个名为 Cmd1 的命令按钮，其标题为“华氏温度等于”。编写适当的程序，使得单击“华氏温度等于”按钮时，将 Text1 中输入的摄氏温度(c)转换成为华氏温度(f)，转换公式为：f=c*9/5+32，并显示在 Text2 中。程序运行结果如下图所示。注意：程序中不得使用任何变量；文
2、件必须存放在考生文件夹中，窗体文件名为 sj1.frm，工程文件名为sj1.vbp。（分数：15.00）_2.在窗体上绘制两个标签，名称分别为 Lab1 和 Lab2，标题分别为“请输入一个正整数 N”和“1+2+3+N=”；绘制两个文本框，名称分别为 Text1 和 Text2，内容都设为空白；绘制一个命令按钮，名为 Cmd1，标题为“计算”。编写适当的程序，使程序运行时，在 Text1 中输入一个正整数 N，单击“计算”按钮，计算出 1+2+3 十+N 的和显示在 Text2 中。程序运行结果如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为 sj2.frm
3、，工程文件名为sj2.vbp。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有一个工程文件 sj3.vbp，相应的窗体文件为 sj3.frm。在名为 Form1 的窗体上有一个命令按钮(名称为 Cmd1，标题为“求和”)，其功能是产生 30 个 01000 的随机整数，放入一个数组中，然后输出它们的和。程序运行后，单击命令按钮，即可求出其和，并在窗体上显示出来，如下图所示。本程序不完整，请补充完整，并能正确运行。注意：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后按原文件名并在原文件夹中保
4、存修改后的文件。（分数：20.00）_4.在考生文件夹下有一个工程文件 sj4.vbp(相应的窗体文件名为 sj4.frm)。窗体上有 4 个文本框，它们的初始内容为空；一个标题为“升序排列”的命令按钮，其功能是通过调用过程 Sort 将数组按升序排序。程序运行后，在 4 个文本框中各输入一个整数，然后单击命令按钮，即可使数组按升序排序，并在文本框中显示出来(如下图所示)，同时将其平均值在窗体标题上显示。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：20
5、.00）_三、3 综合应用题(总题数：1，分数：30.00)5.编写一个程序，输入货物的数量及单价，求总价，并输出。程序界面如下图所示。窗体标题设置为“售货机”，窗体上的两个标签(分别命名为 Lab1 和 Lab2，标题为“货物的数据量(个)：”和“贸物的单价(元)：”两个文本框分别命名为 Text1 和 Text2，命令按钮名称为 Cmd1(标题为“总价=”，结果显示在名为 Pic1 的图片框中)。当用户输入货物的数量与单价后，单击“总价=”按钮，输出正确的结果。注意：在存盘时，工程文件名为 fj5.vbp，窗体文件名为 fj5.frm。（分数：30.00）_二级 VISUAL+BASIC
6、机试-104 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上绘制一个标签，名为 Lab1，标题为“请输入一个摄氏温度”；绘制两个文本框，名称分别为 Text1 和 Text2，内容设为空；再绘制一个名为 Cmd1 的命令按钮，其标题为“华氏温度等于”。编写适当的程序，使得单击“华氏温度等于”按钮时，将 Text1 中输入的摄氏温度(c)转换成为华氏温度(f)，转换公式为：f=c*9/5+32，并显示在 Text2 中。程序运行结果如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件
7、名为 sj1.frm，工程文件名为sj1.vbp。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体；单击工具箱中的 Labe1 控件图标，在窗体上拖拉出一个标签，在其属性窗口设置名称为 Lab1，Caption属性为“请输入一个摄氏温度：”；单击工具箱中的 Command Button 控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmd1，Caption 属性为“华氏温度等于”；单击工具箱中的 TextBox 控件图标，在窗体上拖拉出两个文本框，在属性窗口将文本框的名称设置为Text1 和 Text2，Text 属性设置为空；打开代码窗口输入如下代码
8、：Private Sub Cmd1_Click()Dim c As Single，f As Singlec=Val(Text1.Text)f=c*9/5+32Text2.Text=CStr(f)End Sub按要求保存文件即完成本题。)解析：2.在窗体上绘制两个标签，名称分别为 Lab1 和 Lab2，标题分别为“请输入一个正整数 N”和“1+2+3+N=”；绘制两个文本框，名称分别为 Text1 和 Text2，内容都设为空白；绘制一个命令按钮，名为 Cmd1，标题为“计算”。编写适当的程序，使程序运行时，在 Text1 中输入一个正整数 N，单击“计算”按钮，计算出 1+2+3 十+N 的
9、和显示在 Text2 中。程序运行结果如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为 sj2.frm，工程文件名为sj2.vbp。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体；单击工具箱中的 Label 控件图标，在窗体上拖拉出两个标签，在其属性窗口设置名称分别为 Lab1 和Lab2，Caption 属性分别为“请输入一个正整数 N：”和“1+2+3+N=”；单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmd1，Caption 属性为“计算”；单击工具箱中的 Tex
10、tBox 控件图标，在窗体上拖拉出两个文本框，在属性窗口将文本框的名称设置为Text1 和 Text2，Text 属性设置为空；打开代码窗口输入如下代码：Private Sub Cmd1_Click()Dim N As Single，I As Single，S As SingleN=Val(Text1.Text)For i=1 To NS=S+iNext iText2.Text=SEnd Sub按要求保存文件即完成本题。)解析：二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有一个工程文件 sj3.vbp，相应的窗体文件为 sj3.frm。在名为 Form1 的窗体上有一个
11、命令按钮(名称为 Cmd1，标题为“求和”)，其功能是产生 30 个 01000 的随机整数，放入一个数组中，然后输出它们的和。程序运行后，单击命令按钮，即可求出其和，并在窗体上显示出来，如下图所示。本程序不完整，请补充完整，并能正确运行。注意：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_正确答案：(打开题目所给工程文件；将注释语句改为：arrN(i)=Int(Rnd*1000)Min=arrN(1)Sum=arrN(i)十 Sum按要求保存文件即完成本题。)解析：4
12、.在考生文件夹下有一个工程文件 sj4.vbp(相应的窗体文件名为 sj4.frm)。窗体上有 4 个文本框，它们的初始内容为空；一个标题为“升序排列”的命令按钮，其功能是通过调用过程 Sort 将数组按升序排序。程序运行后，在 4 个文本框中各输入一个整数，然后单击命令按钮，即可使数组按升序排序，并在文本框中显示出来(如下图所示)，同时将其平均值在窗体标题上显示。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：20.00）_正确答案：(打开题目所给工程文
13、件；将注释语句改为：arr2(i)=CInt(arrl(i)Form1.Caption=temp按要求保存文件即完成本题。)解析：三、3 综合应用题(总题数：1，分数：30.00)5.编写一个程序，输入货物的数量及单价，求总价，并输出。程序界面如下图所示。窗体标题设置为“售货机”，窗体上的两个标签(分别命名为 Lab1 和 Lab2，标题为“货物的数据量(个)：”和“贸物的单价(元)：”两个文本框分别命名为 Text1 和 Text2，命令按钮名称为 Cmd1(标题为“总价=”，结果显示在名为 Pic1 的图片框中)。当用户输入货物的数量与单价后，单击“总价=”按钮，输出正确的结果。注意：在存
14、盘时，工程文件名为 fj5.vbp，窗体文件名为 fj5.frm。（分数：30.00）_正确答案：(1新建一个名为 Form1 的窗体，设置 Caption 属性为“售货机”。2单击工具箱中的 Label 控件图标，在窗体上拖拉出两个标签，在其属性窗口设置名称分别为 Lab1 和Lab2，Caption 属性分别为“货物的数量(个)：”和“货物的单价(元)：”；3单击工具箱中的 TextBox 控件图标，在窗体上拖拉出两个文本框，按照题目要求在属性窗口设置其名称属性分别为 Text1 和 Text2，Text 属性为空白；4单击工具箱中的 CommandButton 控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmd1，Caption 为“总价=”；5单击工具箱中的 PictureBox 控件图标，在窗体上拖拉出一个图片框，在属性窗口设置该图片框名称为Pic1；6打开代码窗口输入如下代码：Private Sub Cmd1_Click()Dim a As IntegerDim b As Currencya=Val(Text1.Text)b=Val(Text2.Text)Pic1.ClsPic1.Print a*bEnd Sub7按要求保存文件即完成本题。)解析：
