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

第二部分 综合练习理论练习一一 单选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 1Private 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 Next 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) lastrecord = 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)0True2xy31 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 = Split(s, "")' 得到的结果如下: ' a(1) = "1" ' a(2) = "2" ' a(3) = "3" ' a(4) = "4"Private 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_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 或Timeh<1821sum+p3i=0n=n+145-i 或 6-i或 i5i+1a(i) mod 2=1 and a(j) mod 2=0五 阅读程序1-5 ADACC六 程序设计略理论练习五一 单选1-5 BCDAA6-10 C无BAB11-15 DCCDA16-20 BADAB二 多选1 BDE2 AD3 ACD4 CE5 BD6 BCDE7 AB8 ABDE9 ABC10 ABCE三 判断1-5 ×××6-10 ×××四 填空1 Text1.TextFortitleb+mid(str1,i,1)21sum+p3len(s1)count+145-i 或 6-i或 i(注意：在两Next之间少了print)5a(i) mod 2=1 and a(j) mod 2=0五 阅读程序1-5 BDCAA六 程序设计略理论练习六一 单选1-5 BAACB6-10 BDABA11-15 DDDAD16-20 ACBAD21-25CBDCB二 多选1 ABCD2 BCDE3 BCD4 ADE5 BCE三 判断1-5 ××6-10 ×四 填空1 N mod 3=0 and n mod 7=0End if2N=text1.text13val(mid(list1.text ,n)sum+price4dim a(1 to 10) as integera(j+1)=a(j)5i>jprint五 阅读程序1-5 ABCBC六 程序设计略