VisualBasic语言上机考试题.doc

Visual Basic 语言上机考试题（第一套）（共100分）注意事项：请各位考生在指定工作盘的根目录中建立考试文件夹。考试文件夹的命名规则为“准考证号+考生姓名”，如“41100101杨君”。考生的所有解答内容都须存放在考试文件夹中。一、（40分）设计程序界面如图1所示。程序运行时，在文本框中输入一个数值，选择计算函数，然后单击“计算”按钮，在Label控件中输出计算结果。（存盘时工程文件名为Ex11nnnn.Vbp，窗体文件名为Ex11nnnn.Frm，其中nnnn是考生准考证号的右4位）二、（30分）编程计算S=1*（1+2）*（1+2+3）*.*（1+2+3+.+N），N的值通过InputBox从键盘输入，计算结果在窗体上输出。将调试通过的程序存盘，工程文件名为Ex12nnnn.Vbp，窗体文件为Ex12nnnn.Frm，其中nnnn是考生准考证号的右4位。三、（30分）单击“生成数组”按钮，生成由10个二位随机正整数组成的数组，并显示在Label1控件中。单击“显示结果”按钮，从数组中找出所有大于50的元素，显示在图片框Picture1中。要求改正程序代码中的错误（不得增加或删除语句行），并将修改正确的程序存盘，工程文件名为Ex13nnnn.Vbp，窗体文件为Ex13nnnn.Frm，其中nnnn是考生准考证号的右4位。Dim a As IntegerPrivate Sub Command1_Click() s = 生成10个二位的随机正整数： + vbCrLf For k = 1 To 10 a(k) = Int(Rnd * 90 + 10) s = a(k) Next k Label1 = sEnd SubPrivate Sub Command2_Click() For k = 1 To 10 If a 50 Then Print a(k); End If Next kEnd Sub第一题答案：Private Sub Command1_Click() x = Val(Text1.Text) If Option1 = True Then Label3.Caption = 计算结果是： & x * x Else If x = 0 Then Label3.Caption = 计算结果是： & Sqr(x) Else Label3.Caption = 负数不能计算平方根 End If End IfEnd Sub评分标准：界面设计 15分事件过程 5分输入数据 5分功能实现 10分文件名正确保存5分第二题答案：Private Sub Form_Click() Dim n As Integer n = Val(InputBox(请输入一个正整数) s = 1 k = 0 For i = 1 To n k = k + i s = s * k Next i Print 计算结果为：; sEnd Sub评分标准：初始化4分循环控制10分计算结果8分输出3分文件名3分第三题答案：Dim a(10) As IntegerPrivate Sub Command1_Click() s = 生成10个二位的随机正整数： + vbCrLf For k = 1 To 10 a(k) = Int(Rnd * 90 + 10) s = s & & a(k) Next k Label1 = sEnd SubPrivate Sub Command2_Click() For k = 1 To 10 If a(k) 50 Then Picture1.Print a(k); End If Next kEnd Sub评分标准改正每处错误6分正确保存文件6分Visual Basic 语言上机考试题（第二套）（共100分）一、（40分）设计程序界面如图1所示。程序运行时，在文本框中输入一个数值，选择计算函数，然后单击“计算”按钮，在Label控件中输出计算结果。（存盘时工程文件名为Ex21nnnn.Vbp，窗体文件名为Ex21nnnn.Frm，其中nnnn是考生准考证号的右4位）二、（30分）编程计算，n的值通过InputBox从键盘输入，计算结果在窗体上输出。将调试通过的程序存盘，工程文件名为Ex22nnnn.Vbp，窗体文件为Ex22nnnn.Frm，其中nnnn是考生准考证号的右4位。三、（30分）单击“生成数组”按钮，生成由10个二位随机正整数组成的数组，并显示在Label1控件中。单击“显示结果”按钮，从数组中找出所有值为素数的元素，显示在图片框Picture1中。要求改正程序代码中的错误（不得添加或删除语句行），并将修改正确的程序存盘，工程文件名为Ex23nnnn.Vbp，窗体文件为Ex23nnnn.Frm，其中nnnn是考生准考证号的右4位。Dim a(10) As IntegerPrivate Sub Command1_Click() Label1.Caption = 生成10个二位的随机正整数： + vbCrLf For k = 1 To 10 a(k) = Int(Rnd * 90 + 10) Label1.Caption = a(k) Next kEnd SubPrivate Sub Command2_Click() For i = 1 To 10 If Prime(a) = True Then Print a(i); End If Next iEnd SubPrivate Function Prime(ByVal number) As Boolean Prime = True For i = 2 To number If number Mod i = 0 Then Prime = False End If Next iEnd Function第一题答案：Private Sub Command1_Click() n = Val(Text1.Text) * 3.14159 / 180 If n 0 Then If Option1 = True Then Label3.Caption = 计算结果是： & Sin(n) Else Label3.Caption = 计算结果是： & Cos(n) End If End IfEnd Sub评分标准：界面设计 15分事件过程 5分输入数据 5分功能实现 10分文件名正确保存5分 第二题答案：Private Sub Form_Click ( ) n = Val ( InputBox ( “输入一个正整数” ) ) Sum = 0 Prod = 1 For k=1 To n Prod = Prod * K Sum = Sum +1/ Prod Next k Label1.Caption = Sum End Sub评分标准：初始化4分循环控制10分计算结果8分输出3分文件名3分第三题答案：Dim a(10) As IntegerPrivate Sub Command1_Click() Label1.Caption = 生成10个二位的随机正整数： + vbCrLf For k = 1 To 10 a(k) = Int(Rnd * 90 + 10) Label1.Caption = Label1.Caption & & a(k) Next kEnd SubPrivate Sub Command2_Click() For i = 1 To 10 If Prime(a(i) = True Then Picture1.Print a(i); End If Next iEnd SubPrivate