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

清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 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 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 清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 2 2.mod 3.X=Int(X)And Y=Int(Y)And X*Y0 4.4.Y Mod 4=0 And Y Mod 1000 Or Y Mod 400=0 5.x=Int(99-10+1)*Rnd+10)6.0“”7.空格8.6，845.30 9.（1）8（2）1（3）abcd（4）出错，类型不匹配（5）False（6）2008-6-29（7）I likeVB（8）4（9）4 4（10）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 basic 10.（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#清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 3（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”And c=”9”n3=n3+1 2.0 1 n-1 n Mod i=0 sum+i sum=n 3.1000 CStr(n)CStr(n*n)Right(s2,Len(s1)=s1 4.100 200 2 N-1 Exit For count+1 count Mod 5=0 Print 5.sum=1 a*x2/(2*n-1)*(2*n)sum+a Abs(a)=0.0000001 清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 4 第 5 章数组的应用一.选择题1 2 3 4 5 6 7 8 9 B C C A C A D B C 10 11 12 13 A B D A 二.读程序写结果1.120 36 2.10 31 7 3.26 14 26 三程序填空1.A(i,j);Picture1.Print A(i.1)1 A(i,j)j“第”&i&“行最大数是”&Max Data&“，第”&Maxj&“列”2.Text1.Text&A(i);k preserve B(k)B(k)=A(i)3.Sqr(n-m)=Int(Sqr(n-m)ReDim Preserve B(k)n A(m)&和&B(m)4.Int(100-50+1)*Rnd+50)1 B(i)+1 第 6 章过程一判断题1 2 3 4 5 6 7 8 9 T T F F T T T T T 10 11 12 13 14 15 16 17 18 T F T T F T T T T 19 20 T T 清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 5 二.选择题1 2 3 4 5 6 7 8 A C A A A D B A 四读程序写结果1.x=2,y=2 m=2 2.9 4,5,9 27 3.50 26 4.5 64,5 5.7,14 11,22 15,30 6.29 29 3 7.12 25 下篇实验教程实验 2 Visual Basic 变量、函数与表达式的使用实验 2-1 算术运算符的使用13 17 8 3 3 2 2 6 2-2-2 0 2007-10-15 3 2.857143 2.85714285714286 实验 2-2 字符运算符的使用200710 200710 2017 2007-10-1010 2007-10-20 出错，类型不匹配实验 2-3 关系运算符的使用False False 清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 6 False False False False False True False True 实验 2-4 逻辑运算符的使用True True False True False False True True False 5-5 9 实验 2-5 常用函数的使用3.14 3.14 7.38905609893065 1-1.999999998205103 4-1 1 0.7055475 58 25 25 1250 0 A a 65 97 48 68 8-9 8-8 9-9 aaa 4.5 aaa4.5 165 Visua 6.0 清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 7 sua Basic Basic 6.0 abcde EFG Basic Basic Basic Visual Basic 6.0 Basic 8 8 aaa dd 2011-3-15 2011-3-15 14:35:52 15 3 2011 3 001.73 1.73 1.73 17.32E-01 0173%实验 3 算法基础及程序控制结构实验 3-1 三个数的交换A=C C=B B=T B C 实验 3-2 求周长和面积Const PI=3.1415926 2*PI*R PI*R*R Picture1.Cls Format(L,.00)Format(M,.00)实验 3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text=Text2.Text=清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 8 实验 3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b 2-4*a*c x1=&(-b+Sqr(delt)/(2*a)x2=&(-b-Sqr(delt)/(2*a)Text2.Text=Text3.Text=End 实验 3-5 判断素数N Mod k=0 k=N N Mod i=0 k=2 实验 3-6 求最大公约数和最小公倍数MN 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,k+1,1)Then Exit For Next k k=Len(S)实验 3-8 判断回文数1 清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 9 Len(s)2-1 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(Text1.Text)0 1 x n s*n t/s=0 And Mid(s,i,1)=9 Flag=True k=k*10+Mid(s,i,1)i=i+1 Flag=True sum+k Text2.Text=sum 实验 3-11 随机产生 20 个奇数Int(99-10+1)*Rnd)+10 a Mod 2=1 n Mod 5=0 Picture1.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&s2 Text2.Text Len(s2)Mid(s2,i,1)清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 10 c=Chr(Asc(a)+(Asc(c)-Asc(a)+23)Mod 26)c=Chr(Asc(A)+(Asc(c)-Asc(A)+23)Mod 26)c&s1 s1 Text1.Text=Text2.Text=实验 3-13 统计单词个数Text1.Text 0 Mid(s,i,1)And i max Then max=score(i)score(i)=0 And c=9 A(c)=A(c)+1 A(k)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)=T 1 To 10 Text3.Text=Text3.Text&A(i)&10 T=A(i)0 j i-1 清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 12 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,j)&Text1.Text=Text1.Text&vbCrLf 实验 4-7 查找最大和最小元素及其位置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)=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 清华大学出版社：蒋银珍沈玮吴瑾编著西华大学电气信息学院By yzq 14 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,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 UserIdInput=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 调色板