重庆市计算机等级考试上机二级VB上机考试题第2套答案.docVIP

二级Visual Basic上机考试题（第二套） 参考答案及评分标准 1．参考答案 Private Sub Form_Click() Dim a(5) As Integer For i = 0 To 4 a(i) = Int(Rnd * 5000) Label1(i).Width = a(i) Label1(i).BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) Label1(i).Caption = Next End Sub 评分标准： 界面设计：15分（含窗体标题、标签数组属性设置） 程序设计：20分 其中： 循环结构 5分 随机函数应用 5分 控件宽度随机生成 5分 控件颜色随机生成 5分 文件保存：5分 2．参考答案 Private Sub Form_Click() Dim a() As Integer n = InputBox(请输入一个正整数：, 输入) ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 256) Print a(i); Next i Print Max = 0 Min = 256 Sum = 0