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

《VB实验指导书_理论综合练习题_答案(完结版.doc》由会员分享，可在线阅读，更多相关《VB实验指导书_理论综合练习题_答案(完结版.doc（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 第二部分 综合练习理论练习一一 单选1-5 CDCCB6-10 ABDCD11-15 CCBBD16-20 DBCBA二 多选1 ABCE2 CE3 BCE4 ADE5 ABCD6 ABCDE7 ACD8 ABCDE9 ABC10 ABCDE三 判断1-5 6-10 四 填空1x=int(Rnd*101)End Ifavg=s/82i=1 to 10Right(str(i),1) 或 Right(str(i mod 10)3m*n/GCD(m,n)GCD(b, a mod b)4Exit Fori & “是素数”Next i五 阅读程序1-4 DDCB六 程序设计1Option Base 1

2、Private Sub Form_click() Dim a(10) Cls createdata a() sort a() For i = 1 To 10 Print a(i); Next iEnd SubSub createdata(a() For i = 1 To 10 a(i) = Int(Rnd * 101) Next iEnd SubSub 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 Ne

3、xt iEnd Sub2Private Type ks no As String * 8 Bscj As Integer Sjcj 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.Text student.Bscj = Val(Text2.Text) student.Sjcj = Val(Text3.Text) last

4、record = LOF(1) / Len(student) + 1 Put #1, lastrecord, student Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub cmdquit_Click() Close #1 EndEnd Sub理论练习二一 单选1-5 CABCD6-10 ABCCD11-15 BBBAB16-20 DBAAC二 多选1 CD2 AD3 CE4 BC5 AD6 BCDE7 CDE8 ABCDE9 ABD10 ACDE三 判断1-5 6-10 四 填空1 n-1 或者Sqr(n)0True2xy3

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

6、= Split(s, ;) 得到的结果如下: 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(a) a(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

7、_Load()Label1.Caption = End Sub理论练习三一 单选1-5 DBDBD6-10 CCBBD11-15 ADDDC16-20 BBBBA二 多选1 CDE2 ABCD3 ADE4 BCE5 BCE6 ACD7 ADE8 BCE9 AC三 判断1-5 6-10 四 填空1 Frm2Single352*k-1“#”next j4x=2 to n-1n mod x=0falsef=true五 阅读程序1-4 BDCB六 程序设计略理论练习四一 单选1-5 CDBBA6-10 CABAD11-15 ADCAA16-20 DACBA二 多选1 ACDE2 ABDE3 ACD4 ABD5ABCDE6 ABCDE7 ABDE8 ABDE9 ABC10 ABCD三 判断1-5 6-10 四 填空1 Now 或Timehjprint五 阅读程序1-5 ABCBC六 程序设计略