《VB程序设计学习与实验指导答案》由会员分享，可在线阅读，更多相关《VB程序设计学习与实验指导答案（15页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic 程序设计学习与实验指导答案上篇 学习指导第 1 章 Visual Basic 概述一 .选择题1 2 3 4 5 6 7 8 9 A B D D B B C A C 10 11 12 13 14 15 16 17 18 A A C C D C A B D 二填空题1. 事件2. 查看对象3. 工程4. 视图 属性窗口5. 窗体编辑器第 2 章 面向对象程序设计初步一 .选择题1 2 3 4 5 6 7 A C A D C D A 二填空题1. 控件2. 事件3. 类 属性4. 属性5. 略6. Name 第 3 章 Visual Basic 语言基础一 .选择题1 2
2、 3 4 5 6 7 8 9 A A C C A C C A D 10 11 12 13 14 15 16 17 18 D C C A D D A C B 19 20 21 22 23 24 25 26 27 B D B D A B C C B 28 29 D B 二填空题1. (a*sin(30/180*3.14)+c*(log(b)/log(10)/(Abs(d)+1)*(e+f)+1 2. mod 3. X=Int(X) And Y=Int(Y) And X*Y0 4. 4.Y Mod 4=0 And Y Mod 100100 （ 2） a=Int(a) And b =Int(b) Or
3、 a=z （ 4） a0 And a0 （ 10） Trim(S)=S （ 11） Date=#8/8/2008# （ 12） Weekday(Date)=2 第 4 章 程序控制结构与算法基础一 .简单填空1. Randomize 2. N=Int(99-10+1)*Rnd+10) 3. M=(Int(100-10+1)*Rnd+10)/10 4. Exit For 5. Exit Do 二读程序写结果1. 150 12 2. 22 23 -1 3. 5 3 0 4. 20 40 60 三程序填空1. Len(s) Mid(s,i,1) c=” A” And c=” a” And c=” 0
4、” And cN L=M L=N k Mod M = 0 And k Mod N = 0 Text4.Text = k Exit For 实验 3-7 判断升序数、降序数CStr(N) Len(S) 1 Mid(S, k, 1) = Mid(S, k + 1, 1) k = Len(S) N = Val(Text1.Text) S = CStr(N) For k = 1 To Len(S) - 1 If Mid(S, k, 1) Mid(S, Len(S) - k + 1, 1) k = Len(S) 2 Mid(S, k, 1) + S1 S = S1 实验 3-9 求级数的值Val(Tex
5、t1.Text) 0 1 x n s * n t / s = 0 And Mid(s, i, 1) And i max Then max = score(i) score(i) = 0 And c 0 m = m + 1 实验 4-5 排序1 To 10 Int(99 - 10 + 1) * Rnd + 10) Text1.Text & A(n) & 1 To 9 i + 1 To 10 A(i) A(j) T = A(j) A(j) = A(i) A(i) = T 1 To 9 10 - i A(j) A(j + 1) T = A(j + 1) A(j + 1) = A(j) A(j) =
6、T 1 To 10 Text3.Text = Text3.Text & A(i) & 10 T = A(i) 0 j i - 1 k + 1 1 To 10 Text4.Text = Text4.Text & A(i) & 实验 4-6 二维数组的产生及输出1 To 4 1 To 5 Int(9 - 0 + 1) * Rnd + 0) 1 To 4 1 To 5 Print A(i, j); Print 1 To 4 1 To 5 Picture1.Print A(i, j); Picture1.Print 1 To 4 1 To 5 Text1.Text = Text1.Text & A(i
7、, j) & Text1.Text = Text1.Text & vbCrLf 实验 4-6 查找最大和最小元素及其位置1 To 3 1 To 4 A(i, j) = Int(99 - 10 + 1) * Rnd + 10) Picture1.Print A(i, j); Picture1.Print A(1, 1) ， 1 ， 1 A(1, 1) ， 1 ， 1 A(i, j) i j A(i, j) b Then DecNumber = True Else DecNumber = False End If 10 To 100 Prime(i) = True And Prime(i + 2)
8、 = True List2.AddItem i & 和 & i + 2 DecNumber(i) = True And Prime(i) = True List3.AddItem i 实验 5-2 求多项式和k = 1 a = f(x, k) S + a k = k + 1 Single As Single Dim i As Integer, a As Single a = (x + 1) / x For i = 2 To k a = a * (x + i) / (2 * i - 1) * x) Next i a 实验 5-3 进制转换Asc(C) - Asc(A) + 10 Left(S,
9、k - 1) Mid(S, k + 1) Change(Mid(S2, i, 1) * N (0 - i) T1 + T2 Tran(8, S) Tran(16, S) Not (C = 0 And C = A And C a(j) t = a(j) a(j) = a(i) a(i) = t 2 To UBound(a) a(i) M M = a(i) a(i) N N = a(i) s = s + a(i) Average = s / UBound(a) 实验 6 界面设计实验 6-1 用户登陆MsgBox 请登录！ PassWordInput=TxtPassW.Text UserIdInp
10、ut=UserId And PassWordInput=PassWord CmdReset_Click 实验 6-2 学籍登记OptXb(0).Value = True List1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4) List1.RemoveItem List1.ListIndex 实验 6-3 字体格式设置Select Case OpFont Check2.Value = 1 OpColor = Index OpFont = Index 实验 6-4 兴趣调查List1.AddItem Item End Select Case Index Item = Text1.Text 实验 6-5 调色板
