2009年春季计算机等级考试visual basic语言上机试题.docVIP

重庆市高等院校非计算机专业计算机等级考试 Visual Basic 2009年第1次考试 上机试卷 第1套 2009年4月25日 图1一、设计程序界面如图1所示。程序运行时，单击“生成矩阵”按钮Command1，在图片框Picture1中生成由3位正整数组成的5×5矩阵；随后单击“查找最大值”按钮Command2，在图片框Picture2中显示矩阵中的最大值。（40分，存盘工程文件名为Ex11nnnn.Vbp，窗体文件名为Ex11nnnn.Frm，其中nnnn为考生准考证号的右4位） 图1 二、编写程序，从窗体工作区左上角开始，沿主对角线画出8个相切的红色矩形块，运行结果如图2所示。（30分，存盘工程文件名为Ex12nnnn.Vbp，窗体文件名为Ex12nnnn.Frm，其中nnnn为考生准考证号的右4位） 图2 图2 三、程序界面如图3所示，启动运行后，在文本框Text1中依次输入同学的姓名、身高和体重，数据项之间以空格分开，然后单击“查找”按钮，在标签Label2中显示最胖者的姓名（体重/身高的值最大者）。（30分，已知程序代码有错，请根据程序功能调试程序。将修改正确的程序存盘，工程文件名为Ex13nnnn.Vbp，窗体文件名为Ex13nnnn.Frm，其中nnnn为考生准考证号的右4位） 图3Private Sub Command1_Click() 图3 Dim a As Integer ‘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 Sub 评分标准： 正确设置画图初始位置 5分 正确设置填充颜色 5分 正确设置循环 5分 正确画出矩形 5分 正确定位矩形 5分 正确存盘 5分 三、参考答案 Private 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分