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按要求保存文件即完成本题。)解析: