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 For i = 1 To Len(s)
ch = Mid(s, i, 1)
If \ If Asc(ch) - k < Asc(\
Mid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于A的ASCII值则加上26 Else
Mid(s, i, 1) = Chr(Asc(ch) - k) End If
ElseIf ch >= \ '多分支格式，ch介于小写a与z之间 If Asc(ch) - k < Asc(\
Mid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于a的ASCII值则加上26 Else
Mid(s, i, 1) = Chr(Asc(ch) - k) End If End If Next i End Sub 实验6-4
1、 b() As Integer, st As String 2、 L <= R
3、 ReDim Preserve b(R) 4、 L = L + 1
辗转相除法求最大公约数函数
Private Function Gcd(ByVal p As Integer, ByVal q As Integer) As Integer
Dim r As Integer r = p Mod q Do While r <> 0 p = q q = r
r = p Mod q Loop Gcd = q End Function 实验 6-5 【题目一】
age = age(n - 1) - 3 【题目二】
1、(Left + Right) / 2 2、Left = Mid + 1 实验6-6 1、3 -1 2、7 4 3、3 -1
4、7 0 实验6-7 【题目一】
1、 Sqr(2 + t)
2、 Abs(a - 1) < eps 【题目二】
1、 Dim X As Integer 2、 \3、 (j * i + 1)
习题参考答案
一 选择题
1. B 11. D 21. C
2. D 12. A 22. C 3. C 13. A 23. B 4. C 14. A 24. A 5. D 15. B 25. D 6. B 16. B 26. D 7. B 17. D 27. A 8. B 18. C 28. B 9. A 19. D 10. D 20. B 二、填空
1（1） 形式 、（2） 实在 2（1） 按地址传递 、（2） ByVal 3（1） 窗体模块 、（2） 标准模块 、（3） 类模块 4（1） 6 5（1）4 20 101
6（1） 6 26 、（2） -2 98 7（1） 10 6 、（2） 5 -5 8（1） 6 5 、（2） 8 7 9（1） 11 、（2） 7 10（1） Fun(i) 、（2） Fun=p 11（1） 4 、（2） 20.7 12（1） 29 、（2） 28.7 13（1） k = j 、（2） b() As Integer 14（1） gec 、（2） ge 、（3） 3 15（1） p1 = True And p2 = True 或 p1 And p2 、（2） p1 = p2 – 2 、
（3） Isp = True 、（4） m Mod i = 0 16（1） Convert(st) 、（2） Len(s) 、
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库第一章 VB开发环境与VB概述 习题答案(3)在线全文阅读。
相关推荐：