鄭州大學VB實驗報告書參考答案

1、XX大學VB實驗報告書參考答案以下內容均來自百度文庫，所以僅供參考。不過經(jīng)親自測試習題及實驗（一）的答案基本正確，除了實驗題的3，4小題沒有改字形字體顏色什么的。實驗一一、選擇題DDBAB,C(CD)DDC,ADDCA二、填空題Windows中斷工具箱代碼分類form2.show有語法錯誤錯誤事件結構化文件名和結構工程編寫代碼雙擊任意控件或右健快捷菜單選“代碼窗口”vb的安裝文件夾屬性方法fontload對象三、編程1-1PrivateSubCommand1_Click()PrintSqr(8),8(1/3)EndSub1-2PrivateSubCommand2_Click()Fori=100

2、To110PrintSqr(i)NextiEndSub1-3（基本設置在屬性窗口完成！）PrivateSubCommand3_Click()PrintXX大學在前進!EndSub1-4（基本設置在屬性窗口完成?。㏄rivateSubCommand4_Click()Label1=藍天、白云、綠水、青山EndSub實驗二一BCBCC,CBBDA,CCCBA,CBDCC二form_click()interval,5000vbp,frmtop,left,height,width,像素pictureloadlockedfont,alignmentgotfocus,lostfocus屬性窗口，代碼三2-1

3、PrivateSubCommand1_Click()Label3=Text1*Text2EndSubPrivateSubCommand2_Click()Label3=Text1/Text2EndSub2-2PrivateSubCommand1_Click()Picture1.Visible=TruePicture1=LoadPicture(C:DocumentsandSettingsAll示例圖片Waterlilies.jpg)EndSubPrivateSubCommand2_Click()Picture1.Visible=TruePicture1=LoadPicture(C:Document

4、sandSettingsAll示例圖片Winter.jpg)EndSubPrivateSubCommand3_Click()Picture1.Visible=FalseEndSub2-3PrivateSubCommand1_Click()Label3=Text1*Text2EndSub2-4PrivateSubCommand1_Click()Text2=Text1EndSubPrivateSubCommand2_Click()Text1=Text2=EndSubPrivateSubText1_Change()Command1.Visible=TrueCommand2.Visible=TrueE

5、ndSub2-5PrivateSubCommand1_Click()Timer1.Interval=500EndSubPrivateSubCommand2_Click()Timer1.Interval=0EndSubPrivateSubTimer1_Timer()Image1.Left=Int(Rnd*(Form1.ScaleWidth-Image1.Width)Image1.Top=Int(Rnd*(Form1.ScaleHeight-Image1.Height)EndSub實驗三一A(BC)(BC)AA,A(BCD)DBB,B二3，4，5，6，8，10，11，12，14，15，16三abs

6、(x+y)(3+x*y)2(-b+sqr(b2-4*a*c)/(2*a)sin(30*3.14/180)+exp(2)四int(rnd*71+20)x*y=10andx=Aandx=Zleft(s,3)或者,mid(s,1,3)五3-2PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1)PrintFormat(x2,#.000),Format(Sqr(x),#.000),Format(x3,#.000),Format(x(1/3),#.000)EndSub3-3PrivateSubCommand1_Click()DimxAsIntegerx=In

7、t(Rnd*900+100)Text1=Trim(Str(x)Text2=Right(Text1,1)+Mid(Text1,2,1)+Left(Text1,1)EndSub3-4PrivateSubCommand1_Click()Dimmax,minAsIntegermin=Val(Text1)max=Val(Text2)RandomizePrintInt(Rnd*(max-min+1)+min),Int(Rnd*(max-min+1)+min),Int(Rnd*(max-min+1)+min)EndSub3-5PrivateSubCommand1_Click()Text1=DateText2

8、=TimeText3=WeekdayName(Weekday(Date)EndSub實驗四一CDCDA,DBBAC二(1)48.71E-01,-4.8712(2)關系，邏輯，數(shù)值(3)900，100，mid(a,2,1),c(4)m1,2,3printm&月是第二季度endselect三(1)x=4y=13(2)10四4-1PrivateSubCommand1_Click()Dimnum,a1,a2,a3AsSinglenum=Val(Text1)*180/3.14a1=Int(num)num=num-a1a2=Int(num*60)num=num*60-a2a3=Format(num*60,

9、#.000)Printa1,a2,a3EndSub4-2PrivateSubCommand1_Click()DimyAsIntegery=Val(Text1)If(yMod400=0OryMod4=0AndyMod1000)ThenMsgBoxy&是閏年ElseMsgBoxy&不是閏年EndIfEndSub4-3PrivateSubCommand1_Click()Dimx,y,z,tAsIntegerx=Val(InputBox(inputx:)y=Val(InputBox(inputy:)z=Val(InputBox(inputz:)IfxyThent=x:x=y:y=tIfyzThent=

10、y:y=z:z=tIfxyThent=x:x=y:y=tEndIfPrintx,y,zEndSub4-4PrivateSubCommand1_Click()DimnettimeAsInteger,moneyAsSinglenettime=Val(InputBox(每月上網(wǎng)時數(shù)：,上網(wǎng)費用)Ifnettime=-1Thenmoney=0ElseIfnettime10Thenmoney=25ElseIfnettime50Thenmoney=nettime*2ElseIfnettime100Thenmoney=nettime*1.5ElseIfnettime200Thenmoney=nettimeE

11、lsemoney=200EndIfIfmoney0ThenMsgBox該月上網(wǎng)費用為&money&元實驗五一BCBAC二（1）forx=1to10s*(1-1/x)(2)0t1E-6(3)jt(4)5115三5-1PrivateSubCommand1_Click()Dimi,sumAsIntegersum=0Fori=1To100sum=sum+iNextiPrint1+2+.+100=;sumEndSub5-2PrivateSubCommand1_Click()Dimx,yAsIntegerForx=0To20Fory=0To33If5*x+3*y+(100-x-y)/3=100ThenPr

12、intx,y,100-x-yEndIfNextyNextxEndSub5-3PrivateSubCommand1_Click()DimiAsIntegeri=7DoIfiMod2=1AndiMod3=2AndiMod5=4AndiMod6=5AndiMod7=0ThenPrintiExitDoElsei=i+7EndIfLoopEndSub5-4PrivateSubCommand1_Click()Dimx,y,zAsIntegerForx=1To9Fory=1To9Forz=0To9If100*x+10*x+z+100*y+10*z+z=532ThenPrintx,y,zEndIfNextzN

13、extyNextxEndSub5-5PrivateSubCommand1_Click()DimsumAsSingle,nAsIntegersum=1DoWhilesum=0.0001ti=(-1)(i+1)/(2*i-1)pi=pi+tii=i+1LoopEndSub5-9PrivateSubCommand1_Click()Dimi,j,kAsIntegerPrint水仙花數(shù)有：Fori=1To9Forj=0To9Fork=0To9Ifi*100+j*10+k=i3+j3+k3ThenPrinti,j,kEndIfNextkNextjNextiEndSub5-10PrivateSubComma

14、nd1_Click()Dimi,j,kAsIntegerk=0Fori=999To100Step-1Forj=2ToInt(Sqr(i)IfiModj=0ThenExitForNextjIfj=Int(Sqr(i)+1Thenk=k+1:PrintiIfk=3ThenExitForNextiEndSub5-11PrivateSubCommand1_Click()Dimi,n,min,maxAsIntegerDimaverAsSinglemin=100max=50Fori=1To20n=Int(Rnd*(99-51)+51)Printn;IfiMod5=0ThenPrintIfnmaxThenm

15、ax=nIfnMaxThenMax=ia(i):iMax=iIfia(i)minThenmin=ia(i):imin=iNextiPrintmax=;Max,imax=;iMaxPrintmin=;min,imin=;iminPrintaver=;aver/10EndSub6-2PrivateSubCommand1_Click()Dimia(20),num(5)AsIntegerDimMax,min,averAsInteger,iMax,iminAsIntegerFori=1To20ia(i)=Int(Rnd*101)Printia(i);SelectCaseia(i)CaseIs60num(

16、1)=num(1)+1Case60To69num(2)=num(2)+1Case70To79num(3)=num(3)+1Case80To89num(4)=num(4)+1Case90To100num(5)=num(5)+1EndSelectNextiPrintPrint各分數(shù)段的人數(shù)分別是(059,6069,7079,8089,90100)：Fori=1To5Printnum(i);NextiEndSub6-3PrivateSubCommand1_Click()Dima(10)AsInteger,t%Fori=1To10a(i)=Int(Rnd*51)Printa(i);NextiPrint

17、Fori=1To9Forj=i+1To10Ifa(i)MaxThenMax=ia(i,j):iMax=i:jmax=jNextjPrintNextiPrintmax=;Max,imax=;iMax,jmax=;jmaxEndSub實驗七一CCDABDDAAA二（1）n?。?）1到n累加和（3）n是否是素數(shù)（4）冒泡排序（5）遞歸調用實現(xiàn)斐波那契數(shù)列（6）求最大公約數(shù)和最小公倍數(shù)三7-1PrivateSubCommand1_Click()Dimn,sumAsIntegern=Val(InputBox(n=?)sum=jsh(n)Print1!+2!+.+;n;!=;sumEndSubPublic

18、Functionjsh(n)AsIntegerDimi,s,tAsIntegers=0t=1Fori=1Tont=t*is=s+tNextijsh=sEndFunction7-2PrivateSubCommand1_Click()Dimn,flagAsIntegern=Val(InputBox(n=?)flag=1sushun,flagPrintn=;flagEndSubPublicSubsushu(n,flag)DimiAsIntegerFori=2Ton-1IfnModi=0Thenflag=0:ExitForNextiEndSub7-3PrivateSubCommand1_Click()

19、DimflagAsInteger,strAsStringstr=InputBox(n=?)flag=huiwen(str)Ifflag=1ThenPrintstr;是回文數(shù)ElsePrintstr;不是回文數(shù)EndSubPublicFunctionhuiwen(str)AsIntegerDimlens,m,iAsIntegerlens=Len(str)Fori=1ToInt(lens/2)IfMid(str,i,1)Mid(str,lens-i+1,1)ThenExitForNextiIfi=Int(lens/2)+1Thenhuiwen=1Elsehuiwen=0EndFunction7-4

20、PrivateSubCommand1_Click()Dimn,m,c1,c21,c22,c23AsIntegern=Val(InputBox(n=?)m=Val(InputBox(m=?)c1=jc1(n)/(jc1(m)*jc1(n-m)Print函數(shù)計算c1=;c1jc2n,c21jc2m,c22jc2n-m,c23Print子過程計算c2=;c21/(c22*c23)EndSubPublicSubjc2(n,c)DimiAsIntegerc=1Fori=1Tonc=c*iNextiEndSubPublicFunctionjc1(n)DimiAsIntegers=1Fori=1Tons=s

21、*iNextijc1=sEndFunction7-5PrivateSubCommand1_Click()Dimstr1AsStringstr1=InputBox(請輸入一個實數(shù)：)MsgBoxsum(str1)EndSubPublicFunctionsum(strAsString)Dimlens,i,nAsIntegerDimcAsString*1lens=Len(str)n=0Fori=1Tolensc=Mid(str,i,1)Ifc=0Thenn=n+Val(c)EndIfNextisum=nEndFunction7-6PrivateSubCommand1_Click()Dimstr1As

22、Stringstr1=InputBox(請輸入一個字符串：)Printstr1;中有數(shù)字字符;num(str1);個。EndSubPublicFunctionnum(strAsString)Dimlens,i,nAsIntegerDimcAsString*1lens=Len(str)n=0Fori=1Tolensc=Mid(str,i,1)Ifc=0Thenn=n+1EndIfNextinum=nEndFunction7-7PrivateSubCommand1_Click()可參考本實驗填空第六題或采用本方法，注意兩法的形參是傳地址還是傳值的區(qū)別Dimm,n,y,bAsIntegerm=Val

23、(InputBox(pleaseinputainteger(m):)n=Val(InputBox(pleaseinputainteger(n):)Printm;和;n;gysgbsm,n,pPrint的最大公約數(shù)為;nPrint最小公倍數(shù)為;pEndSubPublicSubgysgbs(a,b,c)DimrAsIntegerc=a*br=aModbDoWhiler0a=bb=rr=aModbLoopc=c/bEndSubVisualBasic程序設計課程考試大綱（本學期19周，1-16周上課，周4學時，課程總學時64，其中：理論32+上機32）【基本要求】熟悉VisualBasic集成開發(fā)環(huán)境

24、；了解VisualBasic中對象的概念和事件驅動程序的基本特性；掌握VisualBasic的基本語句；了解簡單的數(shù)據(jù)結構和算法；掌握VisualBasic常用控件及其控件的三個要素；掌握模塊化程序設計的過程設計（包括函數(shù)過程、子過程）方法；能針對簡單的實際問題構造算法，并能正確地實現(xiàn)算法與程序之間的轉換，具有使用VisualBasic編制和上機調試簡單程序的能力；培養(yǎng)利用計算機解決問題的意識、思路和能力，為今后進行計算機應用奠定基礎?！究荚嘪圍】1.VisualBasic程序設計概述Q發(fā)展、特點、版本、安裝、啟動、退出QVisualBasic6.0集成開發(fā)環(huán)境（7個主要窗口）2.VisualBasic程序設計的相關概念Q對象和類的概念Q對象的建立和編輯Q對象的屬性、事件和方法Q事件驅動的實質Q窗體和控件的基本屬性Q窗體、標簽、文本框、命令按鈕、時鐘（主要屬性、事件、方法）Q常用方法（Print和Cls）Q工程的管理Q環(huán)境的設置（利用“工具”菜單下的“選項”命令提供的選項卡完成）Q幫助系統(tǒng)的使用Q程序調試3.VisualBasic語言