2008年VB试题答案.docVIP

五、程序设计题（每题8分，共16分） 1．Private Sub Command1_Click() Call triangle(*, 3) 使用Call关键字的调用格式 triangle $, 5 不用Call关键字的调用格式 End Sub Private Sub triangle(ByVal Str As String, ByVal n As Integer) Dim I As Integer, J As Integer For I = 1 To n For J = 1 To I Print Str; Next J Print Next I End Sub 事件过程Command1_Click() 占2分,即两个调用子过程语句各占1分。 子过程triangle占6分,其中输出三角形图案占4分,其它占2分。 2．Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i As Integer, j As Integer, t As Integer, max As Integer Randomize For i = 1 To 10 用随机数初始化数组 a(i) = Int(90 * Rnd) + 10 Next i For i = 1 To 10 输出原始序列 Print a(i); Next i Print For i = 1 To 9 对数组排序 t = i For j = i + 1 To 10 寻找最大元素 If a(j) a(t) Then t = j Next j If t i Then 交换数组元素 max = a(i) a(i) = a(t) a(t) = max End If Next i For i = 1 To 10 输出排序后序列 Print a(i); Next i End Sub 用随机数初始化数组占2分。 对数组排序占5分,其中寻找最大元素占3分, 交换数组元素占2分。其它占1分。 程序设计题（第1题6分，第2题8分，共14分） 1．Private Sub Form_Click() Dim x%, y$ x = InputBox(输入考生的准考证号) If x = 1750 And x = 2050 Then Select Case x Case 1750 To 1802 y = 101 Case 1803 To 1859 y = 103 Case 1860 To 1900 y = 209 Case 1901 To 1981 y = 305 Case 1982 To 2050 y = 306 End Select Print 准考证号为; x; 的考生在; y; 课室考试! Else Print 准考证号输入错误! End If End Sub 正确输入某一个学生的准考证号1分,正确判别准考证号输入是否错误并输出提示信息1分,其它4分 2. Private Sub Command1_Click() Dim m%, n%, i%, j%, s%, av! Dim a() As Integer m = InputBox(m=) n = InputBox(m=) ReDim a(1 To m, 1 To n) s = 0 For i = 1 To m For j = 1 To n a(i, j) = InputBox(a( + Str(i)