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

1、第二部分 综合练习理论练习一一 单选1-5 CDCCB 6-10 ABDCD 11-15 CCBBD 16-20 DBCBA二 多选1 ABCE 2 CE 3 BCE 4 ADE 5 ABCD6 ABCDE 7 ACD 8 ABCDE 9 ABC 10 ABCDE三 判断1-5 6-10 四 填空1 x=int(Rnd*101 End If avg=s/82 i=1 to 10 Right(str(i,1 或 Right(str(i mod 103 m*n/GCD(m,n GCD(b, a mod b4 Exit For i & “是素数” Next i五 阅读程序1-4 DDCB六 程序设计

2、1Option Base 1Private Sub Form_click(Dim a(10Clscreatedata a(sort a(For i = 1 To 10Print a(i;Next iEnd SubSub createdata(a(For i = 1 To 10a(i = Int(Rnd * 101Next iEnd SubSub sort(a(For i = 1 To 9For j = 1 To 10 - iIf a(j a(j + 1 Thent = a(j: a(j = a(j + 1: a(j + 1 = tEnd IfNext jNext iEnd Sub2Privat

3、e Type ksno As String * 8Bscj As IntegerSjcj As IntegerEnd TypeDim student As ksPrivate Sub Form_Load(Open c:ksxx.dat For Random As #1 Len = Len(studentEnd SubPrivate Sub cmdadd_Click(student.no = Text1.Textstudent.Bscj = Val(Text2.Textstudent.Sjcj = Val(Text3.Textlastrecord = LOF(1 / Len(student +

4、1Put #1, lastrecord, studentText1.Text = Text2.Text = Text3.Text = End SubPrivate Sub cmdquit_Click(Close #1EndEnd Sub理论练习二一 单选1-5 CABCD 6-10 ABCCD 11-15 BBBAB 16-20 DBAAC二 多选1 CD 2 AD 3 CE 4 BC 5 AD6 BCDE 7 CDE 8 ABCDE 9 ABD 10 ACDE三 判断1-5 6-10 四 填空1 n-1 或者Sqr(n 0 True2 x y3 1 to 10 2*i-14 Button=2

5、 start=True -(x,y五 阅读程序1-5 DBDAB六 程序设计1Private Sub Form_click(japan = 47528china = 22257n = 0Do While china = japanchina = china * 1.098japan = japan * 1.028n = n + 1LoopPrint n & 年之后，中国GDP将超过日本End Sub2 VB6中的Split函数，其功能是将一字符串用分界符分割为一字符串数组。 例如: Dim a( As String s = 1;2;3;4 a = Split(s, ; 得到的结果如下: a(1

6、 = 1 a(2 = 2 a(3 = 3 a(4 = 4Private Sub Command1_Click(Dim a( As Stringa = Split(Text1.Text, For i = LBound(a To UBound(aa(i = UCase(Left(a(i, 1 & Mid(a(i, 2 Mid(a(i, 2代表从第2位开始取，一直取到最后一位Label1.Caption = Label1.Caption + a(i + Next iEnd SubPrivate Sub Form_Load(Label1.Caption = End Sub理论练习三一 单选1-5 DBDBD 6-10 CCBBD 11-15 ADDDC 16-20 BBBBA二 多选1 CDE 2 ABCD 3 ADE 4 BCE 5 BCE6 ACD 7 ADE 8 BCE 9 AC 三 判断1-5 6-10 四 填空1 Frm2 Single3 5 2*k-1 “#” next j4 x=2 to n-1 n mod x=0 false f=true五 阅读程序1-4 BDCB六 程序设计略理论练习四一 单选1-5 CDBBA 6-10 CABAD 11-15 ADCAA 16-20 DACBA二 多选1 ACDE 2 ABDE 3 A