VB实验指导书理论综合练习题_答案(完结版).doc

第二部分 综合练习 理论练习一 一 单选 1-5 CDCCB 6-10 ABDCD 11-15 CCBBD 16-20 DBCBA 二 多选 1 ABCE 2 CE 3 BCE 4 ADE 5 ABCD 6 ABCDE 7 ACD 8 ABCDE 9 ABC 10 ABCDE 三 判断 1-5 ×√×√√ 6-10 √×√√√ 四 填空 1 x=int(Rnd*101) End If avg=s/8 2 i=1 to 10 Right(str(i),1) 或 Right(str(i mod 10)) 3 m*n/GCD(m,n) GCD(b, a mod b) 4 Exit For i “是素数” Next i 五 阅读程序 1-4 DDCB 六 程序设计 1 Option Base 1 Private Sub Form_click() Dim a(10) Cls createdata a() sort a() For i = 1 To 10 Print a(i); Next i End Sub Sub createdata(a()) For i = 1 To 10 a(i) = Int(Rnd * 101) Next i End Sub Sub sort(a()) For i = 1 To 9 For j = 1 To 10 - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i End Sub 2 Private Type ks no As String * 8 Bscj As Integer Sjcj As Integer End Type Dim student As ks Private Sub Form_Load() Open c:\ksxx.dat For Random As #1 Len = Len(student) End Sub Private Sub cmdadd_Click() student.no = Text1.Text student.Bscj = Val(Text2.Text) student.Sjcj = Val(Text3.Text) lastrecord = LOF(1) / Len(student) + 1 Put #1, lastrecord, student Text1.Text = Text2.Text = Text3.Text = End Sub Private Sub cmdquit_Click() Close #1 End End Sub 理论练习二 一 单选 1-5 CABCD 6-10 ABCCD 11-15 BBBAB 16-20 DBAAC 二 多选 1 CD 2 AD 3 CE 4 BC 5 AD 6 BCDE 7 CDE 8 ABCDE 9 ABD 10 ACDE 三 判断 1-5 ××××√ 6-10 √√√×× 四 填空 1 n-1 或者Sqr(n) 0 True 2 x y 3 1 to 10 2*i-1 4 Button=2 start=True -(x,y) 五 阅读程序 1-5 DBDAB 六 程序设计 1 Private Sub Form_click() japan = 47528 china = 22257 n = 0 Do While china = japan china = china * 1.098 japan = japan * 1.028 n = n + 1 Loop Print n 年之后，中国GDP将超过日本 End Sub 2 VB6中的Split函数，其功能是将一字符串用分界符分割为一字符串数组。 例如: Dim a() As String s = 1;2;3;4 a = Split(s, ;) 得到的结果如下: a(1) = 1 a(2) = 2 a(3) = 3 a(4) = 4 Private Sub Command1_Click() Dim a() As String a = Split(Text1.Text, ) For i = LBound(a) To UBound(a) a(i) = UCas