2009年春季算机等级考试Visual Basic语言上机试题(1、2套).docVIP

上机试卷 第1套 2009年4月25日 一、程序Command1，（40分，存盘工程文件名为Ex11nnnn.Vbp，窗体文件名为Ex11nnnn.Frm，其中nnnn为考生准考证号的右4位） 二、编写程序窗体上画8个相切的红色块，运行结果如图所示。（30分，存盘工程文件名为Ex12nnnn.Vbp，窗体文件名为Ex12nnnn.Frm，其中nnnn为考生准考证号的右4位） 三、程序界面如图所示，启动运行后，在文本框Text1中依次输入同学的姓名、身高和体重，数据之间以空格分开，然后单击“查找”按钮，在标签Label2中显示最胖者的姓名（体重/身高的值最大者）。（30分，已知程序代码有错，请根据程序功能调试程序。将修改正确的程序存盘，工程文件名为Ex13nnnn.Vbp，窗体文件名为Ex13nnnn.Frm，其中nnnn为考生准考证号的右4位） Private Sub Command1_Click() Dim a As ‘error a = Split(Text1) Max = 0 Order = 0 For i = LBound(a) To UBound(a) Step 2 ‘error x = a(i + 2) / a(i + 1) If x ＜ Max Then‘error x=Max ‘error Order = i End If Next i Label2 = 最胖的人是： Order‘error End Sub 上机第一套参考答案 一、参考答案 Dim a(25) As Integer Private Sub Command1_Click() Randomize For i = 1 To 25 a(i) = Int(Rnd * 900 + 100) Picture1.Print a(i); If i Mod 5 = 0 Then Picture1.Print Next i End Sub Private Sub Command2_Click() Max = a(1) For i = 2 To 25 If a(i) Max Then Max = a(i) Next i Picture2.Print 最大值=; Max End Sub 评分标准： 界面设计 15分 正确显示矩阵 10分 正确查找最大值 10分 正确存盘 5分 二、参考答案 Private Sub Form_Click() x = 0 y = 0 Me.ForeColor = vbRed For i = 1 To 8 Line (x, y)-(x + 400, y + 300), , BF x = x + 400 y = y + 300 Next i End SubPrivate Sub Command1_Click() Dim a As Variant a = Split(Text1) Max = 0 Order = 0 For i = LBound(a) To UBound(a) Step 3 x = a(i + 2) / a(i + 1) If x Max Then Max = x Order = i End If Next i Label2 = 最胖的人是： a(Order) End Sub 评分标准： 每改正一个错误，得5分 正确存盘，得5分  2009年4月25日 一、程序Command1，（40分，存盘工程文件名为Ex21nnnn.Vbp，窗体文件名为Ex21nnnn.Frm，其中nnnn为考生准考证号的右4位） 编写程序窗体上画8个相切的红色块，运行结果如图所示。 （30分，存盘时工程文件名为Ex22nnnn.Vbp，窗体文件名为Ex22nnnn.Frm，其中nnnn为考生准考证号的右4位） 三、程序用于统计文本框Text1中出现次数最多的英文字母（不区分大小写），并将结果显示在标签Label1中。（30分，已知程序代码有错，请根据程序功能调试程序。将修改正确的程序存盘，工程文件名为Ex23nnnn.Vbp，窗体文件名为Ex23nnnn.Frm，其中n