VB程序设计学习与实验指导答案

《VB程序设计学习与实验指导答案》由会员分享，可在线阅读，更多相关《VB程序设计学习与实验指导答案（15页珍藏版）》请在装配图网上搜索。

1、清华大学出版社：蒋银珍 沈玮 吴瑾 编著Visual Basic 程序设计学习与实验指导答案上篇 学习指导第1章 Visual Basic 概述一.选择题123456789ABDDBBCAC101112131415161718AACCDCABD二填空题1. 事件2. 查看对象3. 工程4. 视图 属性窗口5. 窗体编辑器第2章 面向对象程序设计初步一.选择题1234567ACADCDA二填空题1. 控件2. 事件3. 类 属性4. 属性5. 略6. Name第3章 Visual Basic 语言基础一.选择题123456789AACCACCAD101112131415161718DCCADDA

2、CB192021222324252627BDBDABCCB2829DB二填空题1. (a*sin(30/180*3.14)+c*(log(b)/log(10)/(Abs(d)+1)*(e+f)+12. mod3. X=Int(X) And Y=Int(Y) And X*Y04. 4.Y Mod 4=0 And Y Mod 1000 Or Y Mod 400=05. x=Int(99-10+1)*Rnd+10)6. 0 “”7. 空格8. 6，845.309.（1）8（2）1（3）abcd（4）出错，类型不匹配（5）False（6）2008-6-29（7）I likeVB（8）4（9）4 4（1

3、0）3 4（11）10 -10（12）-1（13）aa（14）3（15）0（16）1（17）C（18）5（19）8（20）34.54（21）中国（22）上海（23）VISUAL BASIC（24）visual basic10.（1）x100（2）a=Int(a) And b =Int(b) Or a0 And b0（3）x=z（4）a0 And aInt(a)（5）a=0 xor b=0（6）Len(S)10（7）UCase(S)=S（8）Left(S,1)=”a” And Right(S,1)=”a”（9）Instr(S,”)0（10）Trim(S)=S（11）Date=#8/8/2008#

4、（12）Weekday(Date)=2第4章 程序控制结构与算法基础一.简单填空1. Randomize2. N=Int(99-10+1)*Rnd+10)3. M=(Int(100-10+1)*Rnd+10)/104. Exit For5. Exit Do二读程序写结果1. 150 122. 22 23 -13. 5 3 04. 20 40 60三程序填空1. Len(s) Mid(s,i,1) c=”A” And c=”a” And c=”0” And c=”9” n3=n3+12. 0 1 n-1 n Mod i=0 sum+i sum=n3. 1000 CStr(n) CStr(n*n)

5、 Right(s2,Len(s1)=s14. 100 2002 N-1Exit Forcount+1count Mod 5=0 Print5. sum=1 a*x2/(2*n-1)*(2*n) sum+a Abs(a)=0.0000001第5章 数组的应用一.选择题123456789BCCACADBC10111213ABDA二.读程序写结果1. 120 362. 10 31 73. 26 14 26三程序填空1.A(i,j);Picture1.PrintA(i.1)1A(i,j)j“第” & i & “行最大数是” & Max Data & “，第” & Maxj & “列”2.Text1.T

6、ext & A(i);kpreserve B(k)B(k)=A(i)3.Sqr(n - m) = Int(Sqr(n - m)ReDim Preserve B(k)nA(m) & 和 & B(m)4.Int(100-50+1)*Rnd+50)1B(i)+1第6章 过程一判断题123456789TTFFTTTTT101112131415161718TFTTFTTTT1920TT二.选择题12345678ACAAADBA四读程序写结果1. x=2,y=2 m=22. 9 4,5,9 273. 50 264. 5 64,55. 7,14 11,22 15,306. 29 29 37. 12 25下篇

7、 实验教程实验2 Visual Basic 变量、函数与表达式的使用实验2-1 算术运算符的使用13178332262-2-202007-10-153 2.857143 2.85714285714286实验2-2 字符运算符的使用20071020071020172007-10-10102007-10-20出错，类型不匹配实验2-3 关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4 逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5 常用函数的使用3.14 3

8、.147.389056098930651 -1 .9999999982051034-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%实验3 算法基础及程序控制结构实验3-1 三个数的交换A=CC=BB=TBC实验3

9、-2 求周长和面积Const PI=3.14159262*PI*RPI*R*RPicture1.Cls Format(L, .00) Format(M, .00)实验3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = Text2.Text = 实验3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b 2 - 4 * a * cx1= & (-b + Sqr(delt) / (2 * a)x2= & (-b - Sqr(delt) / (2 * a)Text2.Text = Text3.Text

10、 = End实验3-5 判断素数N Mod k = 0k=NN Mod i=0k=2实验3-6 求最大公约数和最小公倍数MNL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For实验3-7 判断升序数、降序数CStr(N)Len(S) 1Mid(S, k, 1) = Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) = Mid(S, k + 1, 1) Then Exit ForNext kk = L

11、en(S)实验3-8 判断回文数1Len(s)2-1Mid(S, k, 1) Mid(S, Len(S) - k + 1, 1)k = Len(S) 2Mid(S, k, 1) + S1S = S1实验3-9 求级数的值Val(Text1.Text)01x ns * nt / s = 0 And Mid(s, i, 1) = 9Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum实验3-11 随机产生20个奇数Int(99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n

12、 Mod 5 = 0Picture1.Cls实验3-12 加密解密Chr(Asc(a) + (Asc(c) - Asc(a) + 3) Mod 26)c = Chr(Asc(A) + (Asc(c) - Asc(A) + 3) Mod 26)c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc(a) + (Asc(c) - Asc(a) + 23) Mod 26)c = Chr(Asc(A) + (Asc(c) - Asc(A) + 23) Mod 26)c & s1s1Text1.Text = Text2.Text = 实验3-13 统计单词个数Te

13、xt1.Text0Mid(s, i, 1) And i max Then max = score(i)score(i) = 0 And c = 9A(c) = A(c) + 1A(k) 0m = m + 1实验4-5 排序1 To 10Int(99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & 1 To 9i + 1 To 10A(i) A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = T

14、ext3.Text & A(i) & 10T = A(i)0ji - 1 k + 1 1 To 10Text4.Text = Text4.Text & A(i) & 实验4-6 二维数组的产生及输出1 To 41 To 5Int(9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & Text1.Text = Text1.Text & vbCrLf实验4-

15、7 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int(99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1)， 1， 1A(1, 1)， 1， 1A(i, j)ijA(i, j) b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = True List2.AddItem i & 和 & i + 2DecNumber(i) = True And Prime(

16、i) = True List3.AddItem i实验5-2 求多项式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / (2 * i - 1) * x)Next ia实验5-3 进制转换Asc(C) - Asc(A) + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1) * N (0 - i)T1 + T2Tran(8, S)Tran(16, S)No

17、t (C = 0 And C = A And C a(j) t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) M M = a(i)a(i) NN = a(i)s = s + a(i)Average = s / UBound(a)实验6 界面设计实验6-1 用户登陆MsgBox 请登录！PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click实验6-2 学籍登记OptXb(0).Value = TrueList1.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 OpFontCheck2.Value = 1OpColor = IndexOpFont = Index实验6-4 兴趣调查List1.AddItem ItemEndSelect Case IndexItem = Text1.Text实验6-5 调色板15西华大学 电气信息学院By yzq