《vb实验教材实验 习题答案(郑国平)》由会员分享，可在线阅读，更多相关《vb实验教材实验 习题答案(郑国平)（62页珍藏版）》请在金锄头文库上搜索。
1、第一章第一章 VB 开发环境与开发环境与 VB 概述概述 习题答案习题答案习题习题一、选择题1.2.3.4.5.6.7.8.9.10.BAABDBAACB11.12.13.14.CDAD第二章第二章 常用控件与界面设计常用控件与界面设计 习题答案习题答案习题习题一、选择题1.2.3.4.5.6.7.8.9.10.CBCAABBBCC11.12.13.14.15.16.17.18.19.20.BBDABBBCCD21.22.23.24.25.26.27.28.29.30.BBBCCCABBC31.32.33.34.35.36.37.38.39.40.BCBBDBDDBA41.42.43.44.4
2、5.46.47.48.49.50.BABBDAABDC51.52.53.54.55.56.57.58.59.60.DDCDDCACCB61.B第三章实验与习题第三章实验与习题实验实验实验 3_1 算术运算 Private Sub Command1_Click() Const a As Single = 3, b As Single = 2, c As Single = -1, d As Single = 6 Dim x As Single, yAs Single, zAs Single, mAs Single x = 2: y = 1: z = 1: m = 1 List1.Clear Lis
3、t1.AddItem a / (b + c / b) List1.AddItem (x + Sqr(x 2 + 1) (1 / 3) List1.AddItem (2 * y) / (a * x + b * y) * (a * x - b * y) List1.AddItem 1 + 1 / (1 + 1 / m) List1.AddItem 1 / 2 * (d / 3) (2 * x) List1.AddItem Log(y + Cos(x) 2) List1.AddItem Abs(Exp(x) + Sin(x) 3) / (x + y) List1.AddItem Log(Exp(x
4、* y) +Abs(1 / Tan(z) + Cos(x) 3) / (x + y - z) List1.AddItem Sin(45 * 3.1415 / 180) + (Exp(10) + Log(10) / Sqr(x + y + 1) List1.AddItem Log(a) / Log(b) End Sub 关系运算 Private Sub Command2_Click() List1.Clear List1.AddItem Mid(“Visual Basic“, 1, 12) = Right(“Language Visual Basic“, 12) List1.AddItem “A
5、BCRG“ = “abcde“ List1.AddItem Int(134.69) = CInt(134.9) List1.AddItem 78.9 / 32.77 -4.98 List1.AddItem Str(32.345) = CStr(32.345) End Sub 逻辑运算 Private Sub Command3_Click() Dim x As Integer, y As Integer Dim C1 As Integer, C2 As Integer, C3 As Integer C1 = 70: C2 = 80: C3 = 90 x = 9: y = -2 List1.Cle
6、ar List1.AddItem x + y 0 List1.AddItem (x% = 0 And y% = 0) Or (x% = 255 Or C1 90 And C2 90 And C3 80End Sub 实验 3_2 略 实验 3_3 略 实验 3_4 零售结算 Private Sub Command1_Click() Dim djAs Single, slAs Single, je As Single, n As Integer Label1.Caption = “金额：“ dj = InputBox(“请输入商品的单价：“, “单价框“) sl = InputBox(“请输入商
7、品的数量：“, “数量框“, 1) je = dj * sl n = MsgBox(“共计金额=“ (-1)(n+1)*m实验 4-6 x2=x3 ; 10 2.9 3.3 ; 415 4.this is a book ;This Is ABook 5.3 ; 3 ; 3 5 6.32 0 7.4 8. 151 9.1;401;104 10. 1 2 3 ;1 3; 1 11. (3) 12. 2 0 24 13. 1014 14. BAABCCBAABC 15. X Mod P=0 ; X=X+1;Find=False 16. abs(t)Mid(n,i+1,1) 19. “输入 n“;N/
8、I=0;Print I第五章数组第五章数组实验实验5_1 Int(90 * Rnd) + 10 a(i) = a(21 - i) a(21 - i) = t 5_2 k = x Mod 10 i = i + 1 5_3 s 5_4 max = “0“ And ch = i If x Mod i = 0 Then k = k + 1 ReDim Preserve a(k) a(k) = i x = x i Else i = i + 1 End If Loop For j = 1 To UBound(a) Print a(j); Next j End Sub习题习题一一 选择题选择题1.2.3.4
9、.5.6.7.8.9.10.ACDCBDDBDB11.12.BD二二 填空题填空题1.Variant 2.ReDim A(N) A(1) If M A(j) 4.InStr(s, “,“) Right(s, Len(s) - n) s5.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 In
10、teger 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 max Then max = a(i) End If End If i = i + 1 Loop If max = 0 Then Print “无要找的数“ Else Print max Next I Print m = InputBox(“m“) K = 9 + m ReDim Preserve A(K) For I = 11 To
11、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 PrintA(I); Next I Print End Sub 3 Option ExplicitPrivate Sub Command1_Click() Dim IAs Integer, J As Integer, KAs Integer Dim a()As Integer, n As Integer, p As Integer Dim sAs String, Flag As Boolean p = 1 For K = 10
12、 To 100I = 1 Do While 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 “是回文数“ Else Print S; “不是回文数“ End IfEnd Sub Private Sub judge(Ch As String, F As Boolean) Dim LAs Integer, IAs Integer L = Len(Ch) F = True F = False For I = 1 To L If Mid$(Ch, I, 1)
13、 “; Do sum = 0 For i = 1 To Len(t) - 1 sum = sum + Mid(CStr(t), i, 1) Print Mid(CStr(t), i, 1); “+“; Next i sum = sum + Mid(CStr(t), i, 1) If sum “; Else Print Mid(CStr(t), i, 1); “=“; sum; End If t = sum Loop Until sum = 1 Print End IfNext n End Sub Private Sub Command2_Click() End End Sub6、找出 500
14、以内的超完全数，程序中必须包含一个判定某数是否是超完全数的过程。设符 号（N）表示 N 的所有因子的和（包括 N 在内） ，若（N） ）=2N，则 N 就是一个超 完全数。例如，16 的因子和为 1+2+4+8+16=31，而 31 的因子为 1+31=32，32=2*16，故 16 是一个超完全数。Private Function Judge(n As Integer) As Boolean Dim sumAs Integer sum = yz(n) If yz(sum) = 2 * n Then Judge = True End FunctionPrivate Function yz(n
15、As Integer) As Integer Dim i As Integer For i = 1 To n If n Mod i = 0 Then yz = yz + i Next i End FunctionPrivate Sub Command1_Click() Dim n As Integer For n = 1 To 500 If Judge(n) Then Print n Next n End Sub7、编写程序，通过调用通用过程找出 100 以内的所有不可表示成两个平方数之和的数。 Private Function pfh(n As Integer) As Boolean Dim
16、 i As Integer, tAs Single For i = 1 To Int(Sqr(n) t = n - i 2 If Sqr(t) = Int(Sqr(t) Then pfh = True Next i End FunctionPrivate Sub Command1_Click() Dim n As Integer, t As Integer For n = 1 To 100 If pfh(n) = False Thent = t + 1 Print n; If t Mod 10 = 0 Then Print End If Next n End Sub8、编写程序，通过调用通用过程找出 30 以内所有的无平方因子数。若一个数不能被大于 1 的数的平方整除，则该数就是一个无平方因子数。 Private Sub Command1_Click() Dim n As Integer, j As Integer, flg As Boolean For
