5. 4 5 6
6 5 4 3 2 1 6. T – 1 I + 1
7. k = 6 - i – j
max = m 8. j = a
j = j - 3 9. i + 1
i = i + 1 10. 2
3 7
三 编程题
1．
Option Explicit Option Base 1
Private Sub Command1_Click() Dim a(10) As Integer
Dim i As Integer, max As Integer For i = 1 To 10
a(i) = Int(90 * Rnd) + 10 Print a(i); Next i Print i = 1 max = 0
Do While i <= 10
If a(i) Mod 3 = 0 Then If a(i) > max Then max = a(i) End If End If i = i + 1 Loop
If max = 0 Then
Print \无要找的数\ Else
Print max & \是最大的能被3整除的数\ End If End Sub
2．
Option Explicit Option Base 1
Private Sub Command1_Click() Dim A() As Integer
Dim I As Integer, m As Integer Dim K As Integer ReDim A(10) For I = 1 To 10 A(I) = I Print A(I); Next I Print
m = InputBox(\?è?m\ K = 9 + m
ReDim Preserve A(K) For I = 11 To K
A(I) = A(I - 10) Next I
For I = 1 To 10
A(I) = A(I + m - 1) Next I
For I = 1 To 10 Print A(I); Next I Print End Sub 3．
Option Explicit
Private Sub Command1_Click()
Dim I As Integer, J As Integer, K As Integer Dim a() As Integer, n As Integer, p As Integer Dim s As String, Flag As Boolean p = 1
For K = 10 To 100
I = 1
Do While I <= 10 And Not Flag J = 1
Do While J <= 10 And Not Flag n = I ^ 2 + J ^ 2 If n = K Then Flag = True
ReDim Preserve a(p) a(p) = K p = p + 1
s = I & Str(J) & Str(K) List1.AddItem s End If J = J + 1 Loop I = I + 1 Loop
Flag = False Next K End Sub 4．
Option Explicit
Private Sub Command1_Click() Dim A(10) As Integer
Dim B(10) As Integer, S As String
Dim I As Integer, J As Integer, X As Integer A(1) = Int(90 * Rnd) + 10 S = A(1)
For I = 2 To 10 Do
X = Int(90 * Rnd) + 10 For J = 1 To I - 1
If X = A(J) Then Exit For Next J
If J = I Then A(I) = X
S = S & \ Exit Do End If Loop Next I
Text1.Text = S
B(1) = Int(90 * Rnd) + 10 S = B(1)
For I = 2 To 10 Do
X = Int(90 * Rnd) + 10 For J = 1 To I - 1
If X = B(J) Then Exit For Next J
If J = I Then
B(I) = X
S = S & \ Exit Do End If Loop Next I
Text2.Text = S S = \
For I = 1 To 10
For J = 1 To 10
If A(I) = B(J) Then S = S & \ End If Next J Next I
Text3.Text = S End Sub
Private Sub Command2_Click() Text1.Text = \ Text2.Text = \ Text3.Text = \ Text1.SetFocus End Sub 5．
Option Explicit
Private Sub Command1_Click() Dim I As Integer, J As Integer
Dim a() As Integer, K As Integer, Sum As Integer K = Val(Text1.Text) I = 1 Do
J = K Mod 10
ReDim Preserve a(I) a(I) = J
Sum = Sum + J K = K \\ 10 I = I + 1 Loop Until K = 0 Text2.Text = Sum End Sub 6．
Option Explicit
Private Sub Command1_Click()
Dim a(100, 2) As Integer, K As Integer Dim I As Integer, J As Integer Dim M As Integer, N As Integer K = 1
For I = 1 To 99
For J = 1 To 99 If I > J Then M = I - J N = I + J
If Sqr(M) = Int(Sqr(M)) And Sqr(N) = Int(Sqr(N)) Then List1.AddItem I & \ \ a(K, 1) = I a(K, 2) = J K = K + 1 End If End If Next J Next I End Sub
第六章 参考答案
实验
实验6-1
1、 Exit Do 2、 Y(X) 3、 X >= -1
实验6-2
【题目二】42 、26、8
实验6-3
1、 s1, key 2、 s As String
3、 ch >= \
4、 Mid(s, i, 1) = Chr(Asc(ch) + k - 26) 思考：解密函数
Private Sub dec(s As String, k As Integer) '解密过程 Dim i As Integer, ch As String * 1