VB程序設(shè)計(jì)知識(shí)點(diǎn)歸納講解學(xué)習(xí)

1、資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除第一章1從功能上講，VisualBasic6.0有3種版本，即：學(xué)習(xí)版、專業(yè)版、企業(yè)版2 與傳統(tǒng)的程序設(shè)計(jì)語言相比，VisualBasic最突出的特點(diǎn)是事件驅(qū)動(dòng)編程機(jī)制。3 VisualBasic6.0集成環(huán)境的主窗口中含有標(biāo)題欄、菜單欄、工具欄4 用標(biāo)準(zhǔn)工具欄中的工具按鈕不能執(zhí)行的操作是打印源程序。5 關(guān)于VisualBasic"方法"的概念錯(cuò)誤的是方法是對事件的響應(yīng)6 在VisualBasic中，稱對象的數(shù)據(jù)為屬性7 VisualBasic應(yīng)用程序可以用解釋方式執(zhí)行也可以用編譯方式執(zhí)行第二章1 計(jì)時(shí)器控件的Interval屬性用于設(shè)

2、置Timer事件發(fā)生的時(shí)間間隔，為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把該計(jì)時(shí)器的Enabled屬性設(shè)置為False，如果要求設(shè)置定時(shí)器時(shí)間間隔為1秒鐘，那么它的Interval屬性值應(yīng)該等于10002 利用Ctrl+G操作可以打開立即窗口。3 假定窗體上有一個(gè)標(biāo)簽，名為Lable1。為了使該標(biāo)簽透明并且沒有邊框，則正確的屬性設(shè)置為：Lable1.BackStyle=0Lable1.BorderStyle=04 在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是代碼窗口5 在VisualBasic中，窗體文件的擴(kuò)展名為FRM6 窗體的Name屬性指定窗體的名稱，用來標(biāo)識(shí)一個(gè)窗體7 改變控件在窗體中的上下位置

3、，應(yīng)修改該控件的屬性是Top8 表示滾動(dòng)條控件取值范圍最大值的屬性是Max9 如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是Caption10 在文本框(Text)中，通過ForeColor屬性來設(shè)置字體顏色11若要求從文本框中輸入密碼時(shí)在文本框中只顯示*號(hào)，則應(yīng)當(dāng)在此文本框的屬性窗口中設(shè)置Passwordchar屬性值為*12 能夠改變復(fù)選框中背景顏色的屬性是Backcolor13 圖片框是不具有Picture屬性的對象14 窗體的Name屬性指定窗體的名稱，用來標(biāo)識(shí)一個(gè)窗體15 要想返回文本框中輸入的內(nèi)容則可利用text屬性進(jìn)行編程第三章1 用于從字符串左邊截取字符的函數(shù)是Left()，設(shè)a=&

4、quot;VisualBasic"，使b="Basic"的語句是b=Left(a,8,5)。2 下列符號(hào)中哪個(gè)是VB程序中合法的變量名：Aab7B7abCIfDa*bc(A)數(shù)字開頭，關(guān)鍵字，*3 X是小于100的非負(fù)數(shù)，用VB表達(dá)式表達(dá)正確的是0<=XandX<1004 設(shè)有如下變量聲明DimTestDateAsDate為變量TestDate正確賦值的表達(dá)方式是TextDate=#1/1/2002#5 表達(dá)式4+56*7/8Mod9的值是5，設(shè)a=3,b=5，則表達(dá)式(a>b)Or(b>0)值為真。5/5.25為1如果除數(shù)與被除數(shù)不是整數(shù)

5、時(shí)，系統(tǒng)會(huì)自動(dòng)對其進(jìn)行取整運(yùn)算，取整是有規(guī)律的：如果整數(shù)部分為偶數(shù)，大于0.5的就進(jìn)位，小于等于0.5的就直接把小數(shù)去掉，5舍6入；如果整數(shù)部分為奇數(shù)，4舍5入。例如：52.5等價(jià)于5252.6等價(jià)于5352.4等價(jià)于525.43等價(jià)于5351.5等價(jià)于526 函數(shù)String(n,"str")的功能是返回由n個(gè)字符組成的字符串7 設(shè)有如下聲明：DimXAsInteger如果Sgn(X)的值為-1，則X的值是小于0的數(shù)Sgn(3-5)=-1Sgn(5-3)=18 Integer類型的數(shù)據(jù)由2字節(jié)組成，Long類型的數(shù)據(jù)由4字節(jié)組成。9 已知XvY,A>B,正確表示它們

6、之間關(guān)系的式子是Sgn(Y-X)-Sgn(A-B)=-210在一個(gè)有邏輯運(yùn)算算術(shù)運(yùn)算及關(guān)系運(yùn)算混合在一起的表達(dá)式(無括號(hào))中，其運(yùn)算順序?yàn)橐韵潞戏ǖ腣isualBasic標(biāo)識(shí)符是那些：AForLoopBConstC9abcDa#xA通常所說的變量名11能正確表示條件"整型變量x值是大于等于-5并且小于等于5"的邏輯表達(dá)式-5<=xandx<=512 求下列表達(dá)式的值：表達(dá)式4+56*7/8Mod9的值是5，表達(dá)式5Mod3+35*2的值是2設(shè)a=2,b=4,c=6，下列表達(dá)式a>bEqvc<a的值為真Eqv相同為true相反為false設(shè)$=&quo

7、t;中華人民共和國"，表達(dá)式Left(S,1)+Right(S,1)+Mid(S,3,2)的值為"中國人民"表達(dá)式2*4人2-2*6/3+32的值是29表達(dá)式5人2Mod252人2的值是113 VB算術(shù)運(yùn)算符乘或除、整除、求余的優(yōu)先級(jí)，從高到低依次為乘或除、整除、求余14 獲得系統(tǒng)日期的函數(shù)是date()15 數(shù)學(xué)式子sin30寫成°VB表達(dá)式是：Sin(30*3.14/180)16 在VisualBasic的立即窗口內(nèi)輸入以下語句X=65?Chr$(X)在窗口中顯示的結(jié)果是_A_17 計(jì)算下列表達(dá)式的值表達(dá)式93Mod2A2的值是_1_。表達(dá)式Len(

8、123程序設(shè)計(jì)ABC)的值是_10_。Int(198.555*100+0.5)/100的值是_198.56_。已知A$=12345678，則表達(dá)式val(Left$(A$,4)+Mid$(A$,4,2)的值為(123445)左取4位1234中取4位開始2位18數(shù)學(xué)關(guān)系3w)<10表示成正確的VB表達(dá)式為3<=xAndx<10或x>=3andx<1019表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式是xmod5=0orxmod9=020s$=“china：”s$=“Beijing：”Prints$以上語句的輸出結(jié)果是_。參考答案Beijing21表達(dá)式Ucase(Mid(

9、abcdefgh,3,4)的值是_CDEF_。22已知a=3.5,b=5.0,c=2.5,d=true,貝U表達(dá)式：a>=0anda+c>b+3ORNOTd的值是_False_第四章1 VB中可用MsgBox語句產(chǎn)生一消息框。2 VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是：選擇結(jié)構(gòu)或循環(huán)結(jié)構(gòu)或順序結(jié)構(gòu)word 可編輯資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除3 InputBox函數(shù)返回值的類型為字符串。J下列語句正確的是(C)AIfAWBThenPrint"AT等于B"BIfA<>BThenPrintf"A不等于B”CIfA<

10、>BThenPrint"A不等于B"DIfAwBPrint"AF等于B"4 在DoUntilLoop1環(huán)中，判斷循環(huán)表達(dá)式與結(jié)束循環(huán)的關(guān)系是先判斷循環(huán)表達(dá)式，當(dāng)表達(dá)式值為真時(shí)結(jié)束循環(huán)5 在While循環(huán)中，判斷循環(huán)表達(dá)式與結(jié)束循環(huán)的關(guān)系是先判斷循環(huán)表達(dá)式，當(dāng)表達(dá)式值為真時(shí)執(zhí)行循環(huán)體6設(shè)a=6,則執(zhí)行x=IIf(a>5,-1,0)后,x的值為-1Ifa>5thenA=-1ElseA=0endif7 要使下列For語句循環(huán)執(zhí)行20次，循環(huán)變量的初值應(yīng)當(dāng)是多少?Fork=_1_To-5Step-2參考答案1：33N=(終值-初值)/2+18

11、以下語句的輸出結(jié)果是:PrintInt(12345.6789*1000.5)/100參考答案123459 給出下列程序運(yùn)行的結(jié)果(1)x=5y=-6IfNotx>0Thenx=y-3Elsey=x+3Printx-y;y-x結(jié)果-33(2) J1=4J2=9IfJ1<J2ThenPrintJ2ElsePrintJ1結(jié)果為9(3)執(zhí)行以下程序段后，變量c$的值為(QuickBASICPrograming)a$="VisualBasicPrograming"b$="Quick"c$=b$&Ucase(Mid$(a$,7,6)&Ri

12、ght$(a$,11)(4)以下語句的輸出結(jié)果是032,548.50。PrintFormat$(32548.5,"000,000.00")(5)在窗體(Name屬性為Formal)上畫兩個(gè)文本框(其Name屬性分別為Textl和Text2)和一個(gè)命令按鈕(Name屬性為Command1)，然后編寫如下兩個(gè)事件過程：PrivateSubCommand1_Click()A=Text.Text+Text2.TextPrintaEndSubPrivateSubFormm_Load()Text1.Text=""Text2.Text=""EndS

13、ub程序運(yùn)行后，在第一個(gè)文本框(Textl)和第二個(gè)文本框(Text2)中分別輸入123和321,然后單擊命令按鈕，則輸出結(jié)果為123321。(6)閱讀下面的程序段：word 可編輯資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除ForI=1To3i=1i=2i=3Forj=1ToIj=1to1j=1to2j=1to3Fork=jTo3k=1to3k=1to3k=2to3k=1to33A=A+1a=3a=3+3+2k=2to32Nextkk=3to31Nextja=8+3+2+1NextI執(zhí)行上面的三重循環(huán)后，a的值為_14(7)在窗體上畫兩個(gè)文本框(其Name屬性分別為Text1和Text2)和一個(gè)命

14、令按鈕(其Name屬性為Command1)，然后編寫如下的事件過程：PrivateSubCommand1_Click()X=0DoWhilex<50X=(x+2)*(x+3)N=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序執(zhí)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為2和72。(8)設(shè)a=10,b=5,c=1,執(zhí)行語句Printa>b>c后，窗體上顯示的是False(9) 在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下程序：PrivateSubCommand1_Click()StaticXAsIntege

15、rStaticYAsIntegerClsY=1Y=Y+5X=5+XPrintX,YEndSub程序運(yùn)行時(shí)，三次單擊命令按鈕Commandl后，窗體上顯示的結(jié)果為156Static無法釋放x=5+5+5y=1+5(10) 設(shè)有語句x=InputBox("輸入數(shù)值"，"0"，"示例")程序運(yùn)行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，變量X的值是字符串"10"(11) 在窗體上有一個(gè)文本框控件，要求每一秒鐘在文本框中顯示一次當(dāng)前名稱為TxtTime：一個(gè)計(jì)時(shí)器控件，名稱為Timerl的時(shí)間。程序?yàn)椋篜rivateSubT

16、imer1_()TxtTime.text=TimeEndSub在下劃線上應(yīng)填入的內(nèi)容是Timer12)假定有以下程序段：Fori=1To33-1/1+1=3Forj=5To1Step-11-5/-1+1Printi*j3*5NextNext則語句Printi*j的執(zhí)行次數(shù)是1513)以下程序段的輸出結(jié)果為(4)x=1y=4DoUntily>4x=x*yy=y+1LoopPrintx(14)在窗體上面畫一個(gè)文本框，然后編寫如下事件過程：PrivateSubForm_Activate()Text1.Text=""Text1.SetFocusFori=1to10Sum=Su

17、m+iNextText1.Text=SumEndSub上述程序的運(yùn)行結(jié)果是55首相加末項(xiàng)*項(xiàng)數(shù)/2(15)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()Forn=1To20IfnMod3<>0Thenm=m+n3NextnPrintnEndSub程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是(21)(16)設(shè)有如下程序：PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextEnd

18、Sub該程序通過For循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是(1/2+2/3+3/4+4/5)(17)下面程序運(yùn)行后，窗體(Form1)中輸出的結(jié)果是(TrueTrue)PrivateSubForm_Load()Form1.AutoRedraw=True設(shè)置form1讓他顯示結(jié)果X=3:y=5Printx=3;y=5x是否=3(18)下面程序執(zhí)行的結(jié)果是(579)PrivateSubCommand1_Click()A="123":b="456"C=Val(a)+Val(b)2邊是數(shù)字則做加法PrintcEndSub(19)若i的初值為8，則下列循環(huán)語句的循

19、環(huán)次數(shù)為(5)次同樣可以用公式：(終值-初值)/步長+1DoWhilei<=17i=i+2Loop(20)執(zhí)行下面的程序段后，x的值為(21)x=5Fori=1To20Step2x=x+i5NextI(21)下面程序運(yùn)行后，輸出的值是(54)PrivateSubCommand1_Click()J=1doWhileJv5J=J+1A=A+J*JloopPrintAEndSub(22)有如下程序：PrivateSubFormKeyPress(KeyAsciiAsInteger)Form=1To3Forj=1TomFork=jTo3n=n+m+j-kNextkNextjNextmPrintnE

20、ndSub程序運(yùn)行后，按任意鍵，n的值是(20)(23)在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()A=12B=34C=56PrintABCEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是(123456)(24)下面程序運(yùn)行后輸出的結(jié)果是(11020)PrivateSubCommand1_Click()A=0ForM=1To10A=A+1:B=0ForJ=1To10A=A+1:B=B+2NextJ:NextMword 可編輯資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除PrintA;BEndSub(25)x=int(Rnd)+3:ifxA2>

21、8theny=xA2+1:if*人2=9theny=xA2-2:ifxA2<8theny=xA3:printy程序運(yùn)行后輸出的結(jié)果是_7_。(26)執(zhí)行下面的程序段，x的值為PrivateSubCommand1_Click()Fori=1To9a=a+iNextix=Val(i)MsgBoxxEndSub_.參考答案10(27)在窗體上有一個(gè)命令按鈕，然后編寫如下程序：FunctionTrans(ByValnumAsLong)AsLongDimkAsLongk=1DoWhilenumnum=0時(shí)循環(huán)終止k=k*(numMod10)取個(gè)位10位百位相乘num=num10LoopTrans=

22、kPrintTransEndFunctionPrivateSubCommand1_Click()DimmAsLongDimsAsLongm=InputBox("請輸入一個(gè)數(shù)")s=Trans(m)EndSub程序運(yùn)行時(shí)，單擊命令按鈕，在輸入對話框中輸入"789”,輸出結(jié)果為_1_,在輸入對話框中輸入"987”輸出_2在輸入對話框中輸入"879”,輸出結(jié)果為_3_.參考答案1:5042:5043:50410表達(dá)式Int(4*Rnd+1)*(Int(4*Rnd-1)值的范圍是-4,811 語句x+y=x,是錯(cuò)誤的賦值語句。12 邏輯表達(dá)式Not(1

23、>2),其邏輯值為真”13 表達(dá)式1.5+32>2Or7Mod3<4AndNot1的運(yùn)算結(jié)果是(-1)14 可以將變量A、B值互換的語句是A=C:C=B:B=A15執(zhí)行如下語句：1=inutBox("Today","Tomorrow,"Yesterday","Daybeforeyesterday",5)word可編輯資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除將顯示一個(gè)輸入對話框，在對話框的輸入?yún)^(qū)中顯示的信息是(Yesterday)16能在窗體Forml的標(biāo)題欄中顯示"VisualBasic窗體&quo

24、t;的語句是(Form1.Caption="VisualBasic窗體")第五章1 如果在程序中要將c定義為靜態(tài)變量，且為整型數(shù),則應(yīng)使用的語句是(StaticaAsInteger)2 聲明一個(gè)變量為局部變量應(yīng)該用(Static)3 Sub過程與Function過程最根本的區(qū)別是(Sub過程不能返回值，而Function過程能返回值)4 若要向列表框添加列表項(xiàng)，可使用的方法是(AddItem)5 在某個(gè)Sub過程中定義的局部變量作用域只限于該過程可以與其它事件過程中定義的局部變量同名6 Sub過程中不可以嵌套調(diào)用Sub過程7 定有以下函數(shù)過程：FunctionFun(SAs

25、String)AsStringDimsiAsStringFori=1ToLen(S)S=UCase(Mid(S,i,1)十s1XcxtiFuii=s1EndFunction在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCuninirnH_Click。DimStrlAsString,Str2AsStringStrl=inputbox("請輸入一個(gè)字符串")Sir2-l-'un(Sirl)PrilKStr2EndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對話框中輸入字符串"abcdefg”,則單擊”確定"按鈕后在窗體上的輸出結(jié)果為

26、(GFEDCBA)8 復(fù)選中S的Value屬性為_1一時(shí)，表示復(fù)選框被選中。第六章1用下面語句所定義的數(shù)組的元素個(gè)數(shù)是(9)Dima(-3to5)asinteger2要聲明一個(gè)長度為256個(gè)字符的定長字符串變量str,正確的語句是(DimstrasString*256)3設(shè)有數(shù)組聲明語句：OptionBase0DimB(-1To10,2To9,20)AsInteger則數(shù)組B中共有(2016)個(gè)元素4在窗體上畫一個(gè)命令按鈕，名稱為Command、單擊命令按鈕時(shí)，執(zhí)行如下事件過程：PrlVateSubCommandl-C1ickoa$="softwareandhardware"

27、;b$=Right(a$,8)c$=Mid(a$,1,8)Msgboxa$,b$,c$,1EndSub則在彈出的信息框的標(biāo)題欄中顯示的信息是(hardwafe)5為了清除列表框中的所有內(nèi)容，應(yīng)使用的方法是(Clear)資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除程序填空1. 下列程序是判斷一個(gè)整數(shù)(>=3)是否為素?cái)?shù)，請補(bǔ)充完整。DimnAsIntegern=InputBox("請輸入一個(gè)整數(shù)(>=3)")k=Int(Sqr(n)i=2swit=0Whilei<=kAndswit=0IfnModi=0Then_1_Else:參考答案1.swit=02.swit=

28、1_2_EndIfloopIfswit=0ThenPrintn;"是一個(gè)素?cái)?shù)。"ElsePrintn;"不是一個(gè)素?cái)?shù)。"EndIf2. 下面程序是用來打印九九乘法表的，請補(bǔ)充完整。DimiAsInteger,jAsInteger,Str1$Str1=""Fori=1To9Forj=1To9If_1_ThenStrl=Strl+3+Str$(i)+日l(ij)ElseStr1=Str1&Chr(13)_2_EndIfNextjNextiPrintStr1參考答案1:j<=I2：j>i3. 下面程序的功能是產(chǎn)生10個(gè)小

29、于100(不含100)的隨機(jī)正整數(shù)，并統(tǒng)計(jì)其中5的倍數(shù)所占比例，但程序不完整,請補(bǔ)充完整。SubPR()RandomizeDima(10)Forj=1To10a(i)=Int(_1_)If_2_Thenk=k+1Printa(j)NextjPrintword可編輯資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除Printk/10EndSub參考答案1：(99*Rnd)+12：a(j)Mod5=04. 以下程序的功能是從鍵盤輸入若干個(gè)學(xué)生的考試成績，統(tǒng)計(jì)并輸出最高分和最低分，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，輸出結(jié)果。請補(bǔ)充完整下列程序段。Dimx,amax,aminAsSinglex=InputBox("

30、Enterascore")amax=xamin=xDoWhile_1_Ifx>amaxThenamax=xEndIfIf_2_Thenamin=xEndIfx=InputBox("enterascore")LoopPrint"max="amax,"min="amin參考答案1：x>02：x<amin5. 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox("請輸入第一個(gè)數(shù)字a的值")a=Val

31、(A)b=InputBox("請輸入第二個(gè)數(shù)字b的值")b=Val(b)x=InputBox("請輸入第三個(gè)數(shù)字x的值")x=Val(x)a=a+b+xLoopPrintaEndSub在程序運(yùn)行后，單擊命令按鈕，在對話框中分別輸入5，4，8，5，8，-1，輸出結(jié)果為_1_.參考答案1：126. 下列程序的功能是：當(dāng)x<50時(shí)，y=0.8X;當(dāng)50WxW100,y=0.7x；當(dāng)x>100時(shí)，沒有意義。請?zhí)羁?。PrivateSubCommand1_Click()DimxAsSinglex=InputBox("請輸入x的值！")

32、_1_CaseIs<50y=0.8*xCase50To100y=0.7*x_2_Print"輸入的數(shù)據(jù)出界！"EndSelectPrintx,yEndSub參考答案1：SelectCasex2：CaseElse7. 設(shè)有如下程序段：a$="BeijingShanghai"b$=Mid(a$,InStr(a$,"g")+1)執(zhí)行上面的程序段后，變量b$的值為_1_.參考答案1：Shanghai8 執(zhí)行下面程序，當(dāng)單擊窗體時(shí)，顯示在窗體上第一行的內(nèi)容是_1_第二行的內(nèi)容是_2_PrivateSubForm_Click()DimIAs

33、Integer,SumAsIntgerForI=0.5To8.5Step2.5Sum=Sum+I*10NextIPrintSumprintIEndSub參考答案1：2002：109 下面程序的功能是對密文解密。密文的加密方法是以字符為單位，取其ASCII碼，按逆序保存(例如字母"e"的ASCII碼是01100101,密文中則為10100110)。解密是加密的逆過程。完善程序，實(shí)現(xiàn)以上功能。(難)PrivateSubCommand1_Click()DimsAsString,stAsString,iAsInteger,nAsIntegers=Text1DoUntiln>=

34、Len(s)_1_IfnMod8<>0Thenst=st&Mid(s,n,1)Elsest=st&Mid(s,n,1)List1.AddItemst_2_EndIfLoopEndSubPrivateSubCommand2_Click()DimsAsString,stAsString,iAsIntegerFori=0To_3_st=List1.List(i)Forj=1ToLen(st)s=Mid(st,j,1)&sNextjForj=Len(s)To1Step-1n=_4_NextjText2=Text2&Chr(n)s=""_5

35、_NextiEndSub參考答案1:n=n+12：st=""3:Listl.Listcount4：n+2A(j-1)5:n=010下面程序的功能是，找出100以內(nèi)所有可以表示成3個(gè)連續(xù)自然數(shù)之和的數(shù)。完善程序，實(shí)現(xiàn)以上功能。(難)OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,NAsIntegerDimJsAsInteger,SAsStringForI=1To100IfFun(I,N,Js)ThenS=Str(I)&"="&NDo_1_N=N+1S=S&"+&q

36、uot;&NLoopList1.AddItemSEndIfNextIEndSubPrivateFunctionFun(LAsInteger,MAsInteger,JsAsInteger)AsBooleanDimIAsInteger,_2_K=0_3_DoWhileSum<LAndK<3K=K+1Js=Js+1Sum=Sum+JsLoopIf_4_henM=IFun=TrueExitForExitifNextIEndFunction參考答案1：whilen<=js-12：Sum=03：Js=i-14：k=3AndSum=L(每題1分，共10分)1.由VisualBasi

37、c語言編寫的應(yīng)用程序有解釋和編譯兩種執(zhí)行方式。)2.文本框控件的MaxLength屬性值為0時(shí)，在文本框內(nèi)不可以輸入任何字符。()3.要使輸入文本框的字符始終顯示“#；則應(yīng)彳改其PasswordChar屬性為“能)4.在一個(gè)窗體中不能使用Unload來卸載本窗體，即一個(gè)窗體只能由其它窗體卸載。)5.VB的Double類型數(shù)據(jù)，可以精確表示其數(shù)值范圍內(nèi)的所有實(shí)數(shù)。)6.在圖片框中添加的控件，其Top和Left屬性值是相對圖片框而言的，與窗體無關(guān)。)7.命令按鈕不但能響應(yīng)單擊事件，而且還能響應(yīng)雙擊事件。)8.在自定義函數(shù)過程中，函數(shù)名必須被賦值。()9.文本框控件只能響應(yīng)KeyPress、KeyD

38、own、KeyUp、Change事件。()10.如果一個(gè)菜單項(xiàng)的Visible屬性為False,則它的子菜單也會(huì)顯示。word 可編輯資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除、單選題(每題2分，共20分)()11.要改變控件的高度，應(yīng)修改控件的屬性。A、TopB、LeftC、HeightD、Width()12.VB算術(shù)運(yùn)算符乘或除、整除、求余的優(yōu)先級(jí)，從高到低依次為。A、乘或除、求余、整除B、乘或除、整除、求余C、整除、求余、乘或除D、整除、乘或除、求余()13.下列哪個(gè)屬性用來表示標(biāo)簽(Label)的內(nèi)容和窗體(Form)的標(biāo)題，A、CaptionB、TextC、LeftD、 Nameword

39、可編輯()14.判斷整型變量m能否被n整除的VB表達(dá)式為A、nModm=0B、m/n*n=mC、mModnD、mn*n=m()15.選中復(fù)選框控件時(shí)，Value屬性的值為。A、TrueB、FalseC、0D、1()16.在窗體Form1的一個(gè)事件過程中，使用來清除窗體上所繪制的圖形的方法是不正確的A、Form1.ClsB、Form.ClsC、Me.CLSD、Cls()17.設(shè)計(jì)動(dòng)畫時(shí)通常用時(shí)鐘控件屬性來控制動(dòng)畫速度。A、IntervalB、TimerC、MoveD、Enabled()18.使用Circle方法不可以繪制的圖形是。A、圓角矩形B、橢圓C、圓餅圖D、扇形()19.運(yùn)行時(shí)組合框控件C

40、omb1中所選擇的表項(xiàng)，可以表示為。A、Comb1.TextB、Comb1.ListIndexC、Comb1.ListD、Comb1.ListCount()20.若i的初值為9,則下列循環(huán)語句的循環(huán)次數(shù)為次。DoWhilei<=20i=i+3B、4次C、5次D、6次LoopA、3次三、程序填空題(每空2分，共20分),再將其中的奇數(shù)按從小到1.【程序說明】以下程序產(chǎn)生30個(gè)兩位隨機(jī)整數(shù)、并按從小到大的順序存入數(shù)組a大的順序在窗體中用緊湊格式輸出。PrivateSubForm_Click()Dima(30)Asbyte,iasByte,jAsByte,mAsByteFori=1To30a(

41、i)=(21NextiFori=1To29Forj=(22)Ifa(i)>a(j)Thenm=a(i)(23)a(j)=mNextjNextiFori=1To30If(24)Then(25)NextiEndSub資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除(21)(22)(23)(24)(25)2.【程序說明】下列程序運(yùn)行時(shí)，單擊Command1(0汨，圖片每秒自動(dòng)左移1毫米，單擊Command1(1)|亭止移動(dòng)(當(dāng)圖片尾部移出窗體后，圖片從窗體右端進(jìn)入窗體)。界面設(shè)計(jì)如下圖1所示。圖1程序2的界面設(shè)計(jì)【程序】PrivateSubCommand1_Clic

42、k(IndexAsInteger)IfIndex=0Then(26)ElseTimeh.Enabled=FalseEndSubPrivateSubForm_Load()Timer1.Interval=(27)Form1.ScaleMode=6(28)EndSubPrivateSubTimer1_Timer()Picture1.Left=(29)IfPicture1.Left+Picture1.Width<=Form1.ScaleLeftThen_(30)=Form1.ScaleLeft+Form1.ScaleWidthEndSub(26)(27)(28)(29)(30)四、程序閱讀題(每

43、小題5分，共20分)程序31、請寫出單擊窗體三次后，窗體上的顯示結(jié)果。PrivateSubForm_Click()StaticaAsIntegerDimbAsIntegerb=a+b+2a=a+bForm1.Print"a="a,"b="bEndSub程序32、請寫出單擊窗體后，窗體上的顯示結(jié)果。PrivateSubForm_Click()Fori%=1To7PrintSpc(7-i);Forj%=1To(2*i%)-1:Print"M":Nextj%PrintNexti%EndSub程序33、寫出程序運(yùn)行時(shí)，單擊Option1(2)

44、后，窗體上的顯示結(jié)果。PrivateSubForm_Load()Option1(0).Value=FalseOption1(1).Value=Falseword 可編輯Option1(2).Value=FalseEndSubPrivateSubOption1_Click(IndexAsInteger)IfOption1(Index).Value=TrueThenSelectCaseIndexCase0Check1(0).Value=1:Check1(1).Value=0Case 1Check1(0).Value=0:Check1(1).Value=1Case 2Check1(0).Value=

45、1:Check1(1).Value=1EndSelectIfCheck1(0).Value=1ThenPrint"您好"IfCheck1(1).Value=1ThenPrint"歡迎使用VisualBasic!"EndIfEndSub程序34、設(shè)Text1.Text為"abcdef"，運(yùn)行時(shí)連續(xù)單擊3次控件HScroll1右側(cè)箭頭后，分別寫出組合框控件中的第1項(xiàng)、第2項(xiàng)及第3項(xiàng)的內(nèi)容。PrivateSubForm_Load()HScroll1.SmallChange=1:HScroll1.Max=5HScroll1.Min=1:HSc

46、roll1.Value=1Combo1.ClearEndSubPrivateSubHScroll1_Change()Combo1.AddItemLeft(Text1.Text,HScroll1.Value),0EndSub五、程序設(shè)計(jì)題（每題10分，共30分）35. 編制事件過程Command1_Click,執(zhí)行該過程時(shí)輸入n以及n個(gè)數(shù)，計(jì)算這n個(gè)數(shù)的和并在文本框控件Textl中顯示。（10分）36. 編制通用函數(shù)過程fsum，計(jì)算Single類型一維數(shù)組所有元素的和。（10分）37. 在窗體上建立命令按鈕“Command”1（顯示）和“Command”2（退出）。運(yùn)行時(shí)，"Comm

47、and2按鈕始終顯示"退出"；單擊"顯示"按鈕后窗體上顯示“歡迎使用VisualBasic!”同時(shí)標(biāo)題改為“清除”，再單擊“清除”按鈕后，界面恢復(fù)窗體裝入時(shí)的初態(tài)。（10分）VB練習(xí)題（一）參考答案試題一、判斷題(每小題1分，共10分)I. V2.X3.V4.X5.X6.V7.V8.V9.乂10.X試題二、單選題(每小題2分，共20分)II. C12.B13.A14.D15.D16.B17.A18.A19.C20.B試題三、程序填空題(每空2分，共20分)a(i) Mod2<>0 25. Print a(i); 26.29. Picture1

48、.Left-130.21Int(Rnd*90)+1022.i+1To3023.a(i)=a(j)24.Timer1.Enabled=True27.100028.Timer1.Enabled=FalsePicture1.Left資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除試題四、程序閱讀題(每小題5分，共20分)31 .a=2b=2a=6b=4a=14b=832 .MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM33 .您好歡迎使用VisualBasic!34 .abcdabcab試題五、程序設(shè)計(jì)題(每小題各10分，共30分)Text135 .編制事件

49、過程Command1_Click,執(zhí)行該過程時(shí)輸入n以及n個(gè)數(shù)，計(jì)算這n個(gè)數(shù)的和并在文本框控件中顯示。PrivateSubCommand1_Click()DimsAsSingle,nAsInteger,xAsSinglen=InputBox("輸入n")Fori=1Tonx=InputBox("x="):s=s+xNextiText1.Text=sEndSub36 .編制通用函數(shù)過程fsum,計(jì)算Single類型一維數(shù)組所有元素的和。PrivateFunctionfsum(a()AsSingle,nAsSingle)AsSingleDimiAsInteg

50、erFori=1Tonfsum=fsum+a(i)NextiEndFunction37 .在窗體上建立命令按鈕"Command1(顯示)和“Command2(退出)。PrivateSubCommand1_Click()IfCommand1.Caption="顯示"ThenPrint"歡迎使用VisualBasic!":Command1.Caption="清除ElseForm1.Cls:Command1.Caption="顯示"EndIfEndSubPrivateSubCommand2_Click()EndEndSu

51、bPrivateSubForm_Load()Form1.Cls:Command1.Caption="顯示"EndSub資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除VB練習(xí)題(二)一、判斷題(每題1分，共10分) 1VB是以結(jié)構(gòu)化的Basic語言為基礎(chǔ)、以事件驅(qū)動(dòng)作為運(yùn)行機(jī)制的可視化程序設(shè)計(jì)語言。) 2用DIM定義數(shù)值變量時(shí)，該數(shù)值變量自動(dòng)賦初值為0。) 3移動(dòng)框架時(shí)框架內(nèi)控件也跟隨移動(dòng)，因此框架內(nèi)控件的Left和Top屬性值也隨之改變。) 4列表框和文本框一樣均沒有Caption屬性，但都具有Text屬性。) 5圖片框可以通過Print方法來顯示文本。) 6語句“FontName

52、="宋體"”與“Form1.FontName="宋體"”的作用完全相同，無一例外。) 7SetFocus方法是把焦點(diǎn)移到指定對象上，使對象獲得焦點(diǎn)，該方法適用于所有控件。) 8由于定時(shí)器控件在運(yùn)行時(shí)是不可見的，因此在設(shè)置時(shí)可任意地將其放在任何位置。) 9表示各控件對象的變量名的屬性為Caption。) 10.決定對象是否可見的屬性是Visible屬性，決定對象可用性的屬性是Enabled屬性。(每題2分，共20分) 11下列哪個(gè)屬性用來表示各對象(控件)的位置。A、TextB、CaptionC、LeftD、Name) 12List1.Clear中的Cle

53、ar是。A、方法B、對象C、屬性D、事件()13.將文本框控件的屬性設(shè)置為True,可正常顯示文本但不可編輯。A、LockedB、EnabledC、MultiLineD、Visible)14取字符串Ax從第1個(gè)非空格符開始的連續(xù)5個(gè)字符，寫作表達(dá)式。A、Mid(Ax,1,5)B、Left(Trim(Ax),5)C、Left(Ax,5)D、Mid(Trim(Ax),5)15數(shù)學(xué)式(x+5)1/3寫成VB表達(dá)式是。A、僅+5)人1/3B、(x+5)A(13)C、(x+5)A13D、(x+5)A(1/3)()16.要使Shape控件以實(shí)心方式填充，應(yīng)該設(shè)置其屬性。A、FillColorB、FillS

54、tyleC、BackStyleD、Shape)17將命令按鈕Command1設(shè)置為不可見，應(yīng)修改該命令按鈕的屬性。A、VisibleB、ValueC、CaptionD、Enabled()18.將變量x、y中的最大數(shù)賦值給變量a,正確的表示為。A、a=Ify>xThenyElsexB、Ify>xThena=y:a=xC、a=x:Ify>xThena=yD、Ify>xThena=yElsea=xEndIf)19文本框控件Text4的Text屬性默認(rèn)值為。A、Text4B、"Text4"C、LockedD、Name)20描述以(1000，1000)為圓心、

55、以400為半徑畫1/4圓弧的語句，正確的是A、Circle(1000,1000),400,0,3.1415926/2B、Circle(1000,1000),400,0,3.1415926/2C、Circle(1000,1000),400,0,3.1415926/2D、Circle(1000,1000),400,0,90三、程序填空題(每空2分，共20分)1 【程序說明】利用一個(gè)計(jì)時(shí)器、一個(gè)標(biāo)簽框和二個(gè)命令按鈕制作一個(gè)動(dòng)態(tài)秒表，如圖1所示。單擊“開始”命令按鈕，秒表開始計(jì)時(shí)，單擊“結(jié)束”命令按鈕，秒表結(jié)束計(jì)時(shí)，并在標(biāo)簽框顯示運(yùn)行時(shí)間，如“運(yùn)行了0小時(shí)2分10秒”。(假設(shè)對象的屬性都在程序代碼中設(shè)

56、定)word可編輯資料收集于網(wǎng)絡(luò)，如有侵權(quán)請聯(lián)系網(wǎng)站刪除word可編輯圖1動(dòng)態(tài)秒表程序代碼如下:DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()Form1.Caption="動(dòng)態(tài)秒表（小時(shí)：分：秒）"Command1.Caption="開始"Command2.Caption="結(jié)束"Label1.Alignment="Label1.Caption="0:0:0"Center”Timer1.Interval=(21)Time

57、r1.Enabled=Falsex=0EndSubPrivateSubCommand1_Click()(22)EndSubPrivateSubCommand2_Click()Timer1.Enabled=False小時(shí)”+Str(m)+_x=(23)Label1.Caption="運(yùn)行了"+Str(h)+""分"+Str(s)+"秒"EndSubPrivateSubTimer1_Timer()(24)h=x3600m=(xMod3600)60s=(25)Label1.Caption=Str(h)+":"+Str(m)+":"+Str(s)EndSub(21)(22)(23)(24)(25)x是否為2.【程序說明】本程序?qū)?個(gè)大于100的偶數(shù)n分解為2個(gè)素?cái)?shù)之和。其中nflag邏輯型函數(shù)用于判斷自然數(shù)素?cái)?shù)。PrivateSubForm_Click()DimnAsInteger,xAsInteger,yAsIntegern=Val(InputBox(”請輸入1個(gè)大于100的偶數(shù)“輸入數(shù)據(jù)"，100)Forx=3Ton