vb笔试复习题.doc

笔试复时占10%、上机占40%。
笔试时间为1小时。四道大题为：程序运行结果、程序功能、程序填空、编程题 主要复习范围
随机整数[A, B]
公式：Int (Rnd*(B-A+l)+A)
循环
*
***
打印三角形
方法一；用单重循环
Private Sub Form_Click()
Dim 1%
For I = 1 To 8
Print Tab (15 - I) ; String (2 *1-1, "*〃)
Next I
End Sub
方法二：用多重循环
Private Sub Form_Click()
Dim 1%
For I = 1 To 8
Print Tab(15 - I);
For j=l To 2*1-1
Print "*" •、
Next j
Print
Next I
End Sub
求部分级数和
P88 例 4. 18 P268 实验 3
求100到200之间的所有素数。
Private Sub Form_Click()
Dim T As Boolean, X%, K%, 1%
For X = 101 To 200 Step 2
T = True
For I = 2 To X - 1
If X Mod I = 0 Then T = False
Next I
If T Then
K = K + 1
Print X;
If K Mod 10 = 0 Then Print
End If
Next X
End Sub
最大公约数、最小公倍数
P87 例 4. 17
水仙花数P269实验6
Private Sub Form_Click()
Dim 1%, X%, Y%, Z%
For I = 100 To 999
X = Int(I / 100)
Y = Int((I - X * 100) / 10)
Z = I - X * 100 - Y * 10
IfI=X*X*X+Y*Y*Y+Z*Z*Z Then
Print I,
End If
Next I
End Sub
最大值、最小值。
数组
⑴排序
P106例5. 5从小到大排序
Private Sub Form_Click()
Dim A%(), N%, 1%, J%, K%, T%
N = Vai(InputBox("n"))
ReDim A(1 To N) As Integer
Randomize
For I = 1 To N
A(I) = Int(Rnd * 101 + 100)
Print A(I);
If I Mod 10 = 0 Then Print
Next I
Print
For I = 1 To N - 1
K = I
For J = I + 1 To N
If A(K) > A (J) Then K = J
Next J
T = A(I) : A(I) = A(K) : A(K) = T
Next I
For I = 1 To N
Print A(I);
If I Mod 10 = 0 Then Print
Next I
Print
End Sub
杨辉三角形P27