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 Sub2Pr

3、ivate 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(student End SubPrivate Sub cmdadd_Click(student.no = Text1.Textstudent.Bscj = Val(Text2.Textstudent.Sjcj = Val(Text3.Textlastrecord = LOF(1 / Len(stude

4、nt + 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

5、Button=2 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,

6、 ; 得到的结果如下 : a(1 = 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 S

7、ub理论练习三一 单选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-56-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六 程序设计略VB 程序设计实验指导与练习题 理论练习(16_答案 第 6 页 共 8 页 理论练习四 一 单选 1-5 CDBBA 6-10 CABAD 11-15 ADCAA 16-20 DACBA 二 多选 1 ACDE 6 ABCDE 2 ABDE 7 ABDE 3 ACD 8 ABDE 4 ABD 9 ABC 5ABCDE 10 ABCD 三 判断 1-5 6