第二部分综合练习
理论练习一
一单选
1-5 CDCCB 640ABDCD 11-15 CCBBD 16-20 DBCBA
二多选
1 ABCE 2CE 3 BCE 4 ADE 5 ABCD
6ABCDE 7ACD8ABCDE 9 ABC 10ABCDE
三判断
1-5 X V X V V6-10 V X V V V
四填空
1 x=int(Rnd*101)End If avg=s/8
2 i=l to 10Right(str(i),l)或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)
Cis
createdata a()
sort a()
Fori= ITo 10
Print a(i);
Next i
End Sub
Sub createdata(a())
Fori = ITo 10
a(i) = Int(Rnd * 101)
Next i
End Sub
Sub sort(a())
For i = 1 To 9
Forj = 1 To 10-i
If a(j) > a(j + l)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#l Len = Len(student)
End Sub
Private Sub cmdadd_Click()
student.no = Text 1.Text
student.Bscj = Val(Text2.Text)
student.Sjcj = Vai (Tex t3.Text)
lastrecord = LOF( 1) / Len(student) + 1
Put # 1, lastrecord, student
Textl.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
1 CD
2 AD3CE4BC
6BCDE7CDE8ABCDE
9 ABD
三判断
二多选
1-5 X X X X V 6-10 V V V X X 16-20 DBAAC
5 AD
10ACDE
1n-l 或者Sqr (n)0
2X y
3 1 to 102*i-1
4Button=2start=True 五阅读程序
1-
5
DBDAB
六程序设计
1
Private Sub Form_click()
四填空
japan = 47528
china = 22257
n = 0 True — (x, y)
Do While china <= japan
china = china * 1.098
japan = japan * 1.028 n
= n + 1
Loop
Print n & ”年之后，中国GDP将超过日本”End Sub
•VB6中的Split函数，其功能足将一字符巾用分界符分割为一字符串数组。

,例如：
'Dim a() As String
's = ”l;2;3;4”
*a=Split(s,
,得到的结果如下：
，a(l) = H r,
'a(2) = ”2”
*a(3) = ”3“
*a(4) = M4"
Private Sub Command l_Click()
Dim a() As String
a = Split(Textl.Text,M”)
For i = LBound(a) To UBound(a)
a(i) = UCase(Left(a(i), 1)) & Mid(a(i), 2)
'Mid(a(i), 2)代表从第2位开始取，一,直取到最后一位
Labell.Caption = Label 1.Caption + a(i) + " H
Next i
End Sub
Private Sub Form_Load()
Label 1.Caption = ,,M
End Sub
理论练习三_单选
1-5 DBDBD 6-10 CCBBD 11-15 ADDDC
二多选
1 CDE2ABCD 3 ADE 4
BCE
6ACD7 ADE8 BCE9 AC 三判断
1-5 XXV V X6-10 V V X X V
四填空16-20 BBBBA 5 BCE
1Frm 2Single
352*k-1
4x=2 to n~l n mod x=0false 五阅读程序
1-
4
BDCB
六程序设计
略next j f=true
1-5 CDBBA
6-10 CABAD 11-15 ADCAA
16-20 DACBA
理论练习四
二多选
1 ACDE 2ABDE 3 ACD 4 ABD 5ABCDE 6ABCDE
7 ABDE
8 ABDE
9 ABC
10ABCD
三判断
1-5 XXX V V 6-10 V X V V V
四填空
1 Now 或 Time h<18
2 1 sum+p
3 i=0
n=n+l
4 5-i 或6-i 或… .
1
5
i+1
a(i) mod 2=1 and a(j) mod 2=0
五 阅读程序
1-5 ADACC
六程序设计
理论练习五
_单选
1-5 BCDAA
二多选
6-10C 无BAB 11-15 DCCDA 16-20 BADAB
1BDE 2 AD 6 BCDE 7 AB 三判断
1-5 X X X V V
四填空
1Textl.Text 2 1
31en (si)
5-i 或6-i 或
3 ACD
8 ABDE
6-10 V X V X X
For
suin+p
4CE 5BD
9 ABC 10ABCE
count+1
i (注意:
titleb+mid(strl, i, 1)
在两Next之间少了print)
5a(i) mod 2=1 and a(j) mod 2=0 五阅读程序
1-5 BDCAA 六程序设计
理论练习六
_单选 1-5 BAACB 21-25CBDCB 二多选 1ABCD 2 三判断 1-5 V X V X V 四填空 1 N mod 3=0 and 2 N=textl. text
3 4
6-10 BDABA 11-15 DDDAD 3 BCD
4 ADE
16-20 ACBAD
5 BCE n mod 7=0
val (mid(listl. text , n)) dim a(1 to 10) as integer
5 i>j 五阅读
程序 1-5
ABCBC 六程
序设计
End if 1
sum+pri ce a(j+l)=a(j) print。