VisualBasic程序设计学习与实验指导

VisualBasic程序设计学习与实验指导答案上篇学习指导第1章VisualBasic概述一.选择题123456789ABDDBBCAC101112131415161718AACCDCABD二．填空题1.事件2.查看对象3.工程4.视图属性窗口5窗体编辑器第2章面向对象程序设计初步一.选择题1234567ACADCDA二．填空题1.控件2.事件3.类属性4.属性56.Name第3章VisualBasic语言基础一.选择题123456789AACCACCAD101112131415161718DCCADDACB192021222324252627BDBDABCCB2829DB二．填空题1.(a*sin(30/180*3.14)+c*(log(b)/log(10)))/((Abs(d)+1)*(e+f))+12.mod3.X=Int(X)AndY=Int(Y)AndX*Y>04.YMod4=0AndYMod100<>0OrYMod400=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）IlikeVB（8）4（9）44（10）34（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）VISUALBASIC（24）visualbasic10.（1）x<-100orx>100（2）a=Int(a)Andb=Int(b)Ora<0Andb<0（3）x<=yorx>=z（4）a>0Anda<>Int(a)（5）a=0xorb=0（6）Len(S)<10（7）UCase(S)=S（8）Left(S,1)=”a”AndRight(S,1)=”a”（9）Instr(S,”@”)<>0（10）Trim(S)=S（11）Date=#8/8/2008#（12）Weekday(Date)=2第4章程序控制结构与算法基础一.简单填空1.Randomize2.N=Int((99-10+1)*Rnd+10)3.M=(Int((100-10+1)*Rnd+10))/104.ExitFor5.ExitDo二．读程序写结果1.150122.2223-13.5304.204060三．程序填空1.Len(s)Mid(s,i,1)c>=”A”Andc<=”Z”c>=”a”Andc<=”z”c>=”0”Andc<=”n3=n3+12.01n-1nModi=0sum+isum=n3.1000CStr(n)CStr(n*n)Right(s2,Len(s1))=s12002N-1ExitForcount+1countMod5=0Print5.sum=1a*x^2/((2*n-1)*(2*n))sum+aAbs(a)<=0.0000001下篇实验教程实验2VisualBasic变量、函数与表达式的使用实验2-1算术运算符的使2-202007-10-1532.8571432.85714285714286实验2-2字符运算符的使用20071020071020172007-10-10102007-10-20出错，类型不匹配实验2-3关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5常用函数的使用3.143.147.389056098930651-1.9999999982051034-110.705547558252512500Aa659748688-98-89-9aaa4.5aaa4.55Visua6.0suaBasicBasic6.0abcdeEFGBasicBasicBasicVisualBasic6.0Basic88aaadd2011-3-152011-3-1514:35:5215320113001.731.731.7317.32E-010173%实验3算法基础及程序控制结构实验3-1三个数的交换A=CC=BB=TBC实验3-2求周长和面积ConstPI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(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*c"x1="&(-b+Sqr(delt))/(2*a)"x2="&(-b-Sqr(delt))/(2*a)Text2.Text=""Text3.Text=""End实验3-5判断素数NModk=0k=NNModi=0k=2实验3-6求最大公约数和最小公倍数M<NL=ML=NMModk=0AndNModk=0Text3.Text=kExitForM>NL=ML=NkModM=0AndkModN=0Text4.Text=kExitFor实验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)Fork=1ToLen(S)-1IfMid(S,k,1)<=Mid(S,k+1,1)ThenExitForNextkk=Len(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<=10^-6Text2.Text=y实验3-10查找数字串并求和Text1.Text=""Text2.Text=""List1.ClearText1.Text0False0WhileMid(s,i,1)>="0"AndMid(s,i,1)<="9"Flag=Truek=k*10+Mid(s,i,1)i=i+1Flag=Truesum+kText2.Text=sum实验3-11随机产生20个奇数Int((99-10+1)*Rnd)+10aMod2=1nMod5=0Picture1.Cls实验3-12加密解密Chr(Asc("a")+(Asc(c)-Asc("a")+3)Mod26)c=Chr(Asc("A")+(Asc(c)-Asc("A")+3)Mod26)c&s2Text2.TextLen(s2)Mid(s2,i,1)c=Chr(Asc("a")+(Asc(c)-Asc("a")+23)Mod26)c=Chr(Asc("A")+(Asc(c)-Asc("A")+23)Mod26)c&s1s1Text1.Text=""Text2.Text=""实验3-13统计单词个数Text1.Text0Mid(s,i,1)<>""Andi<=Len(s)i=i+1Mid(s,start,i-start)nText1.Text=""List1.Clear实验4数组的使用实验4-1一维数组的产生及输出i=1To20Int((9-0+1)*Rnd+0)i=1To20Printa(i);Printi=1To20Picture1.Printa(i);IfiMod5=0ThenPicture1.Printi=1To20Text1.Text&Space(2)&a(i)IfiMod5=0ThenText1.Text=Text1.Text&vbCrLfvInaIfiMod5=0ThenPicture2.Print实验4-2选手得分Int((50-10+1)*Rnd+10)/10i=1To6sum=sum+score(i)max=score(1)min=score(1)score(i)>maxThenmax=score(i)score(i)<minThenmin=score(i)(sum-max-min)/4实验4-3产生10个互不相同的整数Int((999-10+1)*Rnd+10)tMod10=5ThenExitForn=n+1a(i)=tFori=1To10Printa(i);IfiMod5=0ThenPrintNexti实验4-4统计数字出现的次数IsNumeric(S)=FalseExitSubLen(S)c>="0"Andc<="9"A(c)=A(c)+1A(k)<>0m=m+1实验4-5排序1To10Int((99-10+1)*Rnd+10)Text1.Text&A(n)&""1To9i+1To10A(i)>A(j)T=A(j)A(j)=A(i)A(i)=T1To910-iA(j)>A(j+1)T=A(j+1)A(j+1)=A(j)A(j)=T1To10Text3.Text=Text3.Text&A(i)&""10T=A(i)0ji-1k+11To10Text4.Text=Text4.Text&A(i)&""实验4-6二维数组的产生及输出1To41To5Int((9-0+1)*Rnd+0)1To41To5PrintA(i,j);Print1To41To5Picture1.PrintA(i,j);Picture1.Print1To41To5Text1.Text=Text1.Text&A(i,j)&""Text1.Text=Text1.Text&vbCrLf实验4-6查找最大和最小元素及其位置1To31To4A(i,j)=Int((99-10+1)*Rnd+10)Picture1.PrintA(i,j);Picture1.PrintA(1,1)，1，1A(1,1)，1，1A(i,j)ijA(i,j)<minA(i,j)ij"最大元素"&"A("&maxi&","&maxj&")="&max"最小元素"&"A("&mini&","&minj&")="&min实验4-7矩阵转置DimA()AsInteger"请输入N的值"ReDimA(N,N)AsIntegerFori=1ToNForj=1ToNA(i,j)=Int((99-10+1)*Rnd+10)Text1.Text=Text1.Text&A(i,j)&""NextjText1.Text=Text1.Text&vbCrLfNextit=A(i,j)A(i,j)=A(j,i)A(j,i)=tFori=1ToNForj=1ToNText2.Text=Text2.Text&A(i,j)&""NextjText2.Text=Text2.Text&vbCrLfNexti实验6界面设计实验6-1用户登陆MsgBox"请登录！"PassWordInput=TxtPassW.TextUserIdInput=UserIdAndPassWordInput=PassWordCmdReset_Click实验6-2学籍登记OptXb(0).Val