VB题答案.docVIP

包头师范学院 学年第一学期期末考试答案（A卷） 院系 专业 级 考试科目 VB 任课教师签名： 院系负责人签名： 题号 一 二 三 四 五 六 七 八 九 十 总分 分数 选择题（每小题2分，共30分） 1 2 3 4 5 6 7 8 9 10 B C D B D B A D D D 11 12 13 14 15 A C C C C 填空(每空1分，共20分) [1] ABS(X) = 8 [2] a*b mod c [3] 日期 [4] Load [5] Interval [6] 1 [7] S * I [8] S（） [9] 2 [10] Max = A(k) [11] 20 [12] 61+30 [13] X mod 2=0 [14] C=C+A [15] IC=IC+1 [16] D=D+A [17] ID=ID+1 [18] 1000 [19]= true [20] Time 程序阅读题(每题8分，共32分) (1)?3 (2) 1 4 9 16 25 6 25 (3) S=11 (4)??BASIC 5 IC 编程题(第1题8分，第2题10分) 1.写事件过程Command1_Click，执行该过程时调用InputBox函数输入x，Private Sub Command1_Click() Dim x As Single, y As Single x = InputBox(请输入X的值) If x = 0 Then y = Sqr(x) Else y = x ^ 2 End If Print y End Sub 2. 随机产生10个20~100（包括20,100）之间的正整数，存放在数组a中,按从小到大顺序排序后打印输出排序结果。（在窗体上显示结果）（可以不采用过程，也可以采用过程来实现，如果采用过程，需要编写一个对数组进行排序的过程，然后再调用这个过程）。 Private Sub Form_Click() Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 81 + 20) print a(i); Next i Print For i = 1 To 9 For j = 1 To 10 - i If x(j) x(j + 1) Then t = x(j): x(j) = x(j + 1): x(j + 1) = t End If Next j Next i For i = 1 To 10 Print x(i); ; Next i Print End Sub 使用过程： Private Sub Form_Click() Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 81 + 20) Next i Call paixu(a()) End Sub Public Sub paixu(x() As Integer) a = LBound(x): b = UBound(x) For i = a To b - 1 For j = a To b - i If x(j) x(j + 1) Then t = x(j): x(j) = x(j + 1): x(j + 1) = t End If Next j Next i For i = a To b Print x(i); ; Next i Print End Sub 1 第 1 页 共 3 页 装 订 处