VisualBasic程序設(shè)計學(xué)習(xí)與實驗指導(dǎo)

VisualBasic程序設(shè)計學(xué)習(xí)與實驗指導(dǎo)答案上篇學(xué)習(xí)指導(dǎo)第1章VisualBasic概述一.選擇題123456789ABDDBBCAC101112131415161718AACCDCABD二．填空題1.事件2.查看對象3.工程4.視圖屬性窗口5窗體編輯器第2章面向?qū)ο蟪绦蛟O(shè)計初步一.選擇題1234567ACADCDA二．填空題1.控件2.事件3.類屬性4.屬性56.Name第3章VisualBasic語言基礎(chǔ)一.選擇題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章程序控制結(jié)構(gòu)與算法基礎(chǔ)一.簡單填空1.Randomize2.N=Int((99-10+1)*Rnd+10)3.M=(Int((100-10+1)*Rnd+10))/104.ExitFor5.ExitDo二．讀程序?qū)懡Y(jié)果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變量、函數(shù)與表達(dá)式的使用實驗2-1算術(shù)運算符的使2-202007-10-1532.8571432.85714285714286實驗2-2字符運算符的使用20071020071020172007-10-10102007-10-20出錯，類型不匹配實驗2-3關(guān)系運算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue實驗2-4邏輯運算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59實驗2-5常用函數(shù)的使用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算法基礎(chǔ)及程序控制結(jié)構(gòu)實驗3-1三個數(shù)的交換A=CC=BB=TBC實驗3-2求周長和面積ConstPI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(L,".00")Format(M,".00")實驗3-3求分段函數(shù)的值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判斷素數(shù)NModk=0k=NNModi=0k=2實驗3-6求最大公約數(shù)和最小公倍數(shù)M<NL=ML=NMModk=0AndNModk=0Text3.Text=kExitForM>NL=ML=NkModM=0AndkModN=0Text4.Text=kExitFor實驗3-7判斷升序數(shù)、降序數(shù)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判斷回文數(shù)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求級數(shù)的值Val(Text1.Text)01x^ns*nt/s<=10^-6Text2.Text=y實驗3-10查找數(shù)字串并求和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隨機(jī)產(chǎn)生20個奇數(shù)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統(tǒng)計單詞個數(shù)Text1.Text0Mid(s,i,1)<>""Andi<=Len(s)i=i+1Mid(s,start,i-start)nText1.Text=""List1.Clear實驗4數(shù)組的使用實驗4-1一維數(shù)組的產(chǎn)生及輸出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產(chǎn)生10個互不相同的整數(shù)Int((999-10+1)*Rnd+10)tMod10=5ThenExitForn=n+1a(i)=tFori=1To10Printa(i);IfiMod5=0ThenPrintNexti實驗4-4統(tǒng)計數(shù)字出現(xiàn)的次數(shù)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二維數(shù)組的產(chǎn)生及輸出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矩陣轉(zhuǎn)置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界面設(shè)計實驗6-1用戶登陸MsgBox"請登錄！"PassWordInput=TxtPassW.TextUserIdInput=UserIdAndPassWordInput=PassWordCmdReset_Click實驗6-2學(xué)籍登記OptXb(0).Val