VB程序設(shè)計知識點歸納

1、歡迎閱讀第一章1從功能上講，Visual Basic 6.0有3種版本，即：學(xué)習(xí)版、專業(yè)版、企業(yè)版2與傳統(tǒng)的程序設(shè)計語言相比，Visual Basic最突出的特點是事件驅(qū)動編程機制3 Visual Basic 6.0集成環(huán)境的主窗口中含有標(biāo)題欄、菜單欄、工具欄4用標(biāo)準(zhǔn)工具欄中的工具按鈕不能執(zhí)行的操作是打印源程序。5關(guān)于Visual Basic"方法"的概念錯誤的是方法是對事件的響應(yīng)6 在Visual Basic中，稱對象的數(shù)據(jù)為屬性7 Visual Basic應(yīng)用程序可以用解釋方式執(zhí)行也可以用編譯方式執(zhí)行第二章1計時器控件的Interval屬性用于設(shè)置Timer事件發(fā)生的時

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

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

4、Visual Basic",使b="Basic"的語句是b=Left(a,8,5)。2 下列符號中哪個是 VB程序中合法的變量名：A?ab7B?7abC?If D?a*bc(A)數(shù)字開頭，關(guān)鍵字，*3 X是小于100的非負數(shù)，用 VB表達式表達正確的是 0<=X and X<1004 設(shè)有如下變量聲明Dim TestDate As Date為變量TestDate正確賦值的表達方式是5 TextDate=#1/1/200 2#6 表達式4 + 5 6 * 7 / 8 Mod 9的值是5,設(shè)a=3,b=5,貝U表達式(a>b)Or(b>0)值為

5、真。5/5.25為1 如果除數(shù)與被除數(shù)不是整數(shù)時，系統(tǒng)會自動對其進行取整運算，取整是有規(guī)律的：如果整數(shù)部 分為偶數(shù)，大于0.5的就進位，小于等于0.5的就直接把小數(shù)去掉，5舍6入；如果整數(shù)部分 為奇數(shù)，4舍5入。例如：52.5等價于52頁腳內(nèi)容歡迎閱讀52.6等價于5352.4等價于525.43等價于5351.5等價于527函數(shù)String(n, "str")的功能是返回由n個字符組成的字符串8設(shè)有如下聲明：9 Dim X As Integer 如果 Sgn(X)的值為-1,則 X 的值是小于 0 的數(shù) Sgn(3-5)=-1 Sgn(5-3)=110 Integer類型的

6、數(shù)據(jù)由2字節(jié)組成，Long類型的數(shù)據(jù)由4字節(jié)組成。11已知X<Y, A>B,正確表示它們之間關(guān)系的式子是 Sgn(Y-X)-Sgn(A-B)=-212在一個有邏輯運算算術(shù)運算及關(guān)系運算混合在一起的表達式(無括號)中，其運算順序為以下合法的 Visual Basic 標(biāo)識符是那些：A?ForLoop B? Const C?9abc D? a#x A通常所說的變量名13能正確表示條件"整型變量x值是大于等于-5并且小于等于5"的邏輯表達式-5<=x and x<=514求下列表達式的值：表達式4+5 6 * 7 / 8 Mod 9的值是5,表達式5 Mo

7、d 3+35*2的值是2設(shè)a=2,b=4,c=6,下歹!J表達式a>b Eqv c<a的值為真Eqv相同為true相反為false設(shè)$="中華人民共和國"，表達式Left (S,1) +Right (S,1) +Mid (S,3,2)的值為"中國人民" 表達式2*4A2-2*6/3+32的值是29表達式5人2 Mod 252人2的值是115 VB算術(shù)運算符乘或除、整除、求余的優(yōu)先級，從高到低依次為乘或除、整除、求余16獲得系統(tǒng)日期的函數(shù)是date ()17數(shù)學(xué)式子sin30寫成VB表達式是：？Sin(30*3.14/180)18在Visual

8、 Basic的立即窗口內(nèi)輸入以下語句19 X = 6520 ?Chr$(X)21在窗口中顯示的結(jié)果是 _A_22計算下列表達式的值表達式93?Mod?2A2的值是_1_。表達式Len。123程序設(shè)計ABC ")的值是_10_。Int (198.555*100+0.5) /100 的值是 _198.56_。已知 A$=u 123456781",貝U表達式 val(Left$(A$,4)+Mid$(A$,4,2)的值為( 123445)左取4位1234中取4位開始2位23數(shù)學(xué)關(guān)系30式10表示成正確的 VB表達式為3<=x?And?x<10?lE?x>=3?a

9、nd?x<1024表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達式是x?mod?5=0?or?x?mod?9=025 s$= "china ”26 s$= "Beijing： "27 Print?s$28以上語句的輸出結(jié)果是。參考答案 Beijing29 表達式 Ucase(Mid(" abcdefgh ,3,4)的值是 _ CDEF _30 已知 a=3.5, b=5.0,?c=2.5,d=trueRJ表達式：a>=0?and?a+c>b+3?OR?NOT?d勺值是_ False 。第四章1 VB中可用MsgBox語句產(chǎn)生一消息框。2 VB提

10、供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是：選擇結(jié)構(gòu)？獨？?!環(huán)結(jié)構(gòu)？獨?頁腳內(nèi)容歡迎閱讀 順序結(jié)構(gòu)3 InputBox函數(shù)返回值的類型為字符串。4 J下列語句正確的是(C)5 A? If A w B Then Print "A等于 B"B? If A<>B Then Printf "A 不等于 B"6 C? If A<>B Then Print "A 不等于 B"D? If A 引Print "A 不等于 B"7 在Do UntilLoop1環(huán)中，判斷循環(huán)表達式與結(jié)束循環(huán)的關(guān)系是先判

11、斷循環(huán)表達式， 當(dāng)表達式值為真時結(jié)束循環(huán)8 在While循環(huán)中，判斷循環(huán)表達式與結(jié)束循環(huán)的關(guān)系是先判斷循環(huán)表達式，當(dāng)表達式 值為真時執(zhí)行循環(huán)體9 設(shè)a=6,則執(zhí)行x=IIf(a >5,-1,0)后,x的值為1 If a>5 thenA=-1 Else A=0 endif10要使下列For語句循環(huán)執(zhí)行20次，循環(huán)變量的初值應(yīng)當(dāng)是多少？11 For?k=?_1_To?-5?Step?-2 參考答案1: 33N=(終值-初值)/2+112 以下語句的輸出結(jié)果是：13 Print Int(12345.6789*1000.5)/100參考答案1234514 給出下列程序運行的結(jié)果15 (1)

12、 x=516 y=-617 If Not x>0 Then x=y-3 Else y=x+318 Print x-y; y-x結(jié)果-3 319 (2) J 1=420 J2=921 If J1<J2 Then Print J2 Else Print J1 結(jié)果為 9(3)執(zhí)行以下程序段后，變量 c $的值為(Quick BASIC Programing ) a $ = "Visual Basic Programing" b $ = "Quick" c $ = b $ & Ucase (Mid $ (a $,7,6) & Rig

13、ht $ (a $,11)(4)以下語句的輸出結(jié)果是032,548.50。Print Format $ (32548.5, "000,000.00")(5)在窗體(Name屬性為Formal)上畫兩個文本框(其 Name屬性分別為Text1和Text2)和 一個命令按鈕(Name屬性為Command。，然后編寫如下兩個事件過程：Private Sub Command1_Click()A = Text.Text + Text2.Text Print a End Sub Private Sub Formm_Load() Text1.Text ="" Text

14、2.Text ="" End Sub程序運行后，在第一個文本框(Text1)和第二個文本框(Text2)中分別輸入123和321, 然后單擊命令按鈕，則輸出結(jié)果為123321。頁腳內(nèi)容歡迎閱讀(6 )閱讀下面的程序段： For I = 1 To 3 i=1i=2i=3For j = 1 To I j=1to1j=1to2j=1 to 3For k = j To 3 k=1to 3 k=1to3k=2to3 k=1to3 3 A=A+1a=3a=3+3+2k=2to3 2Next kk=3to3 1Nextja=8+3+2+1Next I 執(zhí)行上面的三重循環(huán)后，a的值為_14

15、 _0(7)在窗體上畫兩個文本框(其 Name屬性分別為Text1和Text2)和一個命令按鈕(其 Name 屬性為Command。，然后編寫如下的事件過程：Private Sub Command1_Click()X = 0Do While x<50X = ( x + 2 ) * ( x + 3 ) N = n+1LoopText1.Text = Str(n)Text2.Text = Str(x) End Sub 程序執(zhí)行后，單擊命令按鈕，在兩個文本框中顯示的值分別為2和72。(8)設(shè)a=10, b=5, c=1,執(zhí)行語句Print a > b > c后，窗體上顯示的是 Fa

16、lse(9)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As Integer Cis , -Y=1Y=Y+5X=5+XPrint X,YEnd Sub程序運行時，三次單擊命令按鈕 Commandl后，窗體上顯示的結(jié)果為15 6 Static無法 釋放 x=5+5+5 y=1+5(10)設(shè)有語句 x=InputBox("輸入數(shù)值"，"0","示例")程序運行后，如果從鍵盤上輸入數(shù)值10 并按回車鍵，變量X

17、的值是字符串"10"(11)在窗體上有一個文本框控件，要求每一秒鐘在文本框中顯示一次當(dāng)前名稱為TxtTime：一個計時器控件，名稱為Timerl的時間。程序為：Private Sub Timer1_ ()TxtTime.text=TimeEnd Sub在下劃線上應(yīng)填入的內(nèi)容是Timer(12)假定有以下程序段： For i=1 To 33-1/1+1=3For j=5 To 1 Step -11-5/-1+1Print i*j3*5Next 頁腳內(nèi)容歡迎閱讀Next 則語句Print i*j的執(zhí)行次數(shù)是15(13)以下程序段的輸出結(jié)果為(4) x=1 y=4 Do Unti

18、l y>4 x=x*y y=y+1 Loop Print x(14)在窗體上面畫一個文本框，然后編寫如下事件過程：Private Sub Form_Activate()Text1.Text=""Text1.SetFocusFor i=1 to 10 Sum=Sum+i NextText1. Text=SumEnd Sub上述程序的運行結(jié)果是55首相加末項*項數(shù)/2(15)在窗體上畫一個名稱為 Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 <>

19、; 0 Then m = m + n 3 Next n Print n End Sub程序運行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是(21)(16)設(shè)有如下程序：Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0Fori = 1 To 5 x = n / i n = n + 1 sum = sum + x NextEnd Sub該程序通過For循環(huán)計算一個表達式的值，這個表達式是 (1/2+2/3+3/4+4/5)(17)下面程序運行后，窗體(Form1)中輸出的結(jié)果是(TrueTrue)Pri

20、vate Sub Form_Load()Form1.AutoRedraw=True 設(shè)置 form1 讓他顯示結(jié)果X=3:y=5Print x=3;y=5 x 是否=3(18)下面程序執(zhí)行的結(jié)果是(579)Private Sub Command1_Click() 頁腳內(nèi)容歡迎閱讀A="123":b="456"C=Val(a)+Val(b) 2邊是數(shù)字則做加法Print cEnd Sub(19)若i的初值為8,則下列循環(huán)語句的循環(huán)次數(shù)為(5)次 同樣可以用公式：(終值-初值) /步長+1Do While i<=17i=i+2Loop(20)執(zhí)行下面的

21、程序段后，x的值為(21)x=5For i=1 To 20 Step 2 x=x+i5Next I(21)下面程序運行后，輸出的值是(54)Private Sub Command1_Click()J=1do While J<5J=J+1A=A+J*JloopPrint AEnd Sub(22)有如下程序：Private Sub FormKeyPress(KeyAscii As Integer)For m=1 To 3For j=1 To mFor k=j To 3 i . J F 1 I- In=n+m+j-kNext kNext jNext mPrint nEnd Sub程序運行后，按

22、任意鍵，n的值是(20 )(23)在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()A= 12B= 34C= 56Print A + B+CEnd Sub程序運行后，單擊命令按鈕，輸出結(jié)果是 (123456)(24)下面程序運行后輸出的結(jié)果是(110 20 )Private Sub Command1_Click()A=0For M=1 To 10A=A+1 : B=0歡迎閱讀For J=1 To 10A=A+1 : B=B+2Next J ： Next MPrint A;BEnd Sub(25) x=int(Rnd)+3 :if?xA2>

23、;8? then y=xA2+1 ：if?xA2=9?then?y=xA2-2:if?xA2<8?then?y=xA3:print?y程序運行后輸出的結(jié)果是_7_。(26)執(zhí)行下面的程序段，x而值為Private Sub Command1_Click()For i=1 To 9a=a + iNext ix=Val (i)MsgBox xEnd Sub_ .參考答案10(27)在窗體上有一個命令按鈕，然后編寫如下程序:Function Trans(ByVal num As Long) As LongDim k As Longk=1Do While num num=0 時循環(huán)終止k=k *

24、(num Mod 10) 取個位10位百位相乘num=num 10'! ； I.'I ILoopTrans=kPrint TransEnd FunctionPrivate Sub Command1_Click()Dim m As LongDim s As Long歡迎閱讀m=InputBox("請輸入一個數(shù)")s=Trans(m)End Sub程序運行時，單擊命令按鈕，在輸入對話框中輸入"789”,輸出結(jié)果為_1_,在輸入對話框中輸入"987”輸出_2在輸入對話框中輸入"879”,輸出結(jié)果為 _3_.參考答案 1 : 504 2

25、 : 504 3: 50422 表達式 Int(4*Rnd+1)*(Int(4*Rnd-1)值的范圍是-4, 823語句x+y=x ,是錯誤的賦值語句。24邏輯表達式Not(1>2),其邏輯值為真”25 表達式 1.5+32>2 Or 7 Mod 3<4 And Not 1 的運算結(jié)果是(-1)一二26 可以將變量A、B值互換的語句是 A=C : C=B : B=A27執(zhí)行如下語句：28 &= inutBox("Today" , "Tomorrow, "Yesterday","Day before yeste

26、rday", 5)29 將顯示一個輸入胃話框，在對話框的輸入?yún)^(qū)中顯示的信息是(Yesterday)30 能在窗體 Forml的標(biāo)題欄中顯示"VisualBasic窗體"的語句是(Form1.Caption="VisualBasic窗體 ")第五章1 如果在程序中要將c定義為靜態(tài)變量，且為整型數(shù)，則應(yīng)使用的語句是( Static a As Integer2 聲明一個變量為局部變量應(yīng)該用(Static)3 Sub過程與Function過程最根本的區(qū)別是(Sub過程不能返回值，而Function過程能返回值)4 若要向列表框添加列表項，可使用的方法是

27、(AddItem)5 在某個Sub過程中定義的局部變量作用域只限于該過程可以與其它事件過程中定義的局部變 量同名6 Sub過程中不可以嵌套調(diào)用Sub過程7 定有以下函數(shù)過程：8 Puncli Firn(S As Siring) As Siring9 Dim si As Sting10 Iori-1 loLen(S)11 s1 = UCase(Mid(S, i, 1)十 s112 Next i13 Fun=s114 End Function15 在窗體上畫一個命令按鈕，然后編寫如下事件過程：16 P山®C Sub CornmmldLClick。17 Dim S(rl As String

28、, Str2 As String18 Std = inputbox("請輸入一個字符串")19 Sir2-l'un(Sli+l)20 Prim Str221 End Sub歡迎閱讀22 程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串"abcdefg”,則單擊”確23 定”按鈕后在窗體上的輸出結(jié)果為(GFEDCBA)24 復(fù)選框的Value屬性為_1時，表示復(fù)選框被選中。第六章1用下面語句所定義的數(shù)組的元素個數(shù)是(9)Dim a(-3 to 5) as integer2要聲明一個長度為256個字符的定長字符串變量 str,正確的語句是(Dim str

29、 as String*256)3設(shè)有數(shù)組聲明語句：Option Base 0Dim B(-1 To 10,2 To 9,20) As Integer 則數(shù)組 B 中共有(2016)個元素4在窗體上畫一個命令按鈕，名稱為Command單擊命令按鈕時，執(zhí)行如下事件過程：PrlVate Sub Commandl-C1ickoa$="software and hardware"b$= Right(a$,8)c$=Mid(a$,1 , 8)Msgbox a$,b$,c$,1End Sub則在彈出的信息框的標(biāo)題欄中顯示的信息是(hardwafe)5為了清除列表框中的所有內(nèi)容，應(yīng)使用的方

30、法是 (Clear)程序填空1. 下列程序是判斷一個整數(shù) (>=3)是否為素數(shù)，請補充完整。2. Dim n As Integer3. n=InputBox("請輸入一個整數(shù)(>=3)")4. k=Int(SqKn)5. i=26. swit=07. While i <=k And swit=08. If n Mod i=0 Then9. _1_Else:參考答案 1.swit=0 2.swit=1I * I_2_I 'JEnd IfloopIf swit=0 ThenPrint n;"是一個素數(shù)。"ElsePrint n;&q

31、uot;不是一個素數(shù)。"歡迎閱讀6.17.End If下面程序是用來打印九九乘法表的，請補充完整。Dim i As Integer, j As Integer, Str1$Str1=""For i=1 To 9For j=1 To 9If_1_ThenStrl-Strl + Str$(j) - " + StrS(i) - 1l-r, + StrS(Val(iElse18. Str1=Str1 & Chr(13) _2_End If19. Next j20. Next i21. Print Str1 參考答案

32、1: j<=I 2: j>i22. 下面程序的功能是產(chǎn)生 10個小于100(不含100)的隨機正整數(shù)，并統(tǒng)計其中5的倍數(shù)所占比例，但程序不完整，請補充完整。23. Sub PR()24. Randomize25. Dim a(10)26. For j=1 To 10a(i) =Int( _1_)27. If _2_ Then k=k + 128. Print a(j)29. Next j30. Print31. Print k / 1032. End Sub參考答案 1 : (99 * Rnd)+ 1 2: a(j) Mod 5 = 033. 以下程序的功能是從鍵盤輸入若干個學(xué)生的

33、考試成績，統(tǒng)計并輸出最高分和最低分，當(dāng)輸入負 數(shù)時結(jié)束輸入，輸出結(jié)果。請補充完整下列程序段。34. Dim x, amax, aminAsSingle35. x=InputBox("Entera score")36. amax=x37. amin=x38. Do While_1_If x > amax Then amax=x End If If_2_Then amin=x End Ifx=InputBox("enter a score") LoopPrint "max="；amax, "min="；amin參

34、考答案 1: x>0 2： x<amin39. 在窗體上畫一個命令按鈕，然后編寫如下事件過程:40. Private Sub Command1_Click()歡迎閱讀41. x=042. Do Until x=-1a=InputBox("請輸入第一個數(shù)字 a的值")43. a=Val(A)44. b=InputBox("請輸入第二個數(shù)字 b的值")45. b=Val(b)46. x=InputBox("請輸入第三個數(shù)字 x的值")47. x=Val(x)48. a=a + b + x49. Loop50. Print a5

35、1. End Sub52. 在程序運行后，單擊命令按鈕，在對話框中分別輸入 5, 4, 8, 5, 8,-1 ,輸出結(jié)果為 _1_. 參考答案11253. 下列程序的功能是：當(dāng)x<50時，y=0.8x;當(dāng)500x&100, y=0.7 x；當(dāng)x>100時，沒有意義。Private Sub Command1_Click()Dim x As Singlex=InputBox("請輸入 x 的值！")_1_Case Is < 50y=0.8 * xCase 50 To 100y=0.7 * x_2_Print ”輸入的數(shù)據(jù)出界！"End Sel

36、ectPrint x, yEnd Sub參考答案1: Select Case x 2： Case Else54. 設(shè)有如下程序段：55. a$="BeijingShanghai"56. b$=Mid(a$,InStr(a$,"g")+1)57.58. 執(zhí)行上面的程序段后，變量b$的值為_1_.參考答案1: Shanghai I I59. 執(zhí)行下面程序，當(dāng)單擊窗體時，顯示在窗體上第一行的內(nèi)容是_1_第二行的內(nèi)容是_2_Private Sub Form_Click()Dim I As Integer,Sum As IntgerFor I=0.5 To 8.5

37、 Step2.5Sum=Sum+I*10Next IPrint Sumprint IEnd Sub 參考答案1: 200 2: 1025下面程序的功能是對密文解密。密文的加密方法是以字符為單位，取其 ASCII碼，按逆序保存(例如字母"e"的ASCII碼是01100101密文中則為10100110)。解密是加密的逆過程。完善程2627282930313233343536373839404142434445464748495051525354555657585960616263歡迎閱讀序，實現(xiàn)以上功能。t)Private Sub Command1_Click()Dim s A

38、s String, st As String, i As Integer,n As Integer s=Text1Do Until n >=Len(s)_1_If n Mod 8 <> 0 Thenst=st &Mid(s,n,1)Elsest=st & Mid(s,n,1)List1.AddItem st_2_End IfLoopEnd SubPrivate Sub Command2_Click()Dim s As String, st As String, i As IntegerFor i=0 To_3_st=List1.List(i)For j=1 T

39、o Len(st)s=Mid(st,j,1) & sNext jFor j=Len(s) To 1 Step-1 n=4_ Next jText2=Text2 & Chr(n) s=""_5_ Next iEnd Sub參考答案 1: n=n+1 2： st=""3: List1.Listcount 4： n+2A(j-1) 5: n=0下面程序的功能是，找出 100以內(nèi)所有可以表示成 3個連續(xù)自然數(shù)之和的數(shù)。完善程序，實現(xiàn)以上功能。(難)Option ExplicitPrivate Sub Command1_Click()Dim I A

40、s Integer, N As IntegerDim Js As Integer, S As StringFor I =1 To 100If Fun(I,N,Js)Then S=Str(I) & "=" & N Do_1_N=N+1S=S & "+" & NLoopList1.AddItem SEnd If歡迎閱讀Next IEnd SubPrivate Function Fun(L As Integer, M As Integer, Js As Integer) As BooleanDim I As Integer, _

41、2_ K=0 _3_Do While Sum < L And K < 3K=K+1Js=Js+1Sum=Sum+JsLoopIf _4_henM=IFun=TrueE xit ForExit if/ I) I -i產(chǎn) j， I ' ! I .Next I£*' . I 二.一"End Function參考答案 1 : while n<=js-1 2: Sum=0 3 : Js=i-1 4: k=3 And Sum=L、判斷題(每題1分，共10分)()1.由Visual Basic語言編寫的應(yīng)用程序有解釋和編譯兩種執(zhí)行方式。()2.文本框控件

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

43、()10.如果一個菜單項的 Visible屬性為False,則它的子菜單也會顯示。、單選題(每題2分，共20分)頁腳內(nèi)容歡迎閱讀()11.要改變控件的高度，應(yīng)修改控件的 屬性。A、TopB、LeftC、HeightD、Width()12. VB算術(shù)運算符乘或除、整除、求余的優(yōu)先級，從高到低依次為 oA、乘或除、求余、整除B、乘或除、整除、求余C、整除、求余、乘或除D、整除、乘或除、求余()13.下列哪個屬性用來表示標(biāo)簽(Label)的內(nèi)容和窗體(Form)的標(biāo)題A、CaptionB、TextC、LeftD、Name()14.判斷整型變量 m能否被n整除的VB表達式為。A、n Mod m=0 B

44、、m/n*n=m C、m Mod nD、mn*n=m()15.選中復(fù)選框控件時，Value屬性的值為 。A、TrueB、FalseC、0D、1()16.在窗體Form1的一個事件過程中，使用 來清除窗體上所繪制的圖形的方法是不正確的A、Form1.Cls B、Form.ClsC、Me.CLSD、Cls()17.設(shè)計動畫時通常用時鐘控件 屬性來控制動畫速度。A、Interval B、TimerC、MoveD、Enabled()18.使用Circle方法不可以繪制的圖形是 。A、圓角矩形B、橢圓C、圓餅圖D、扇形()19.運行時組合框控件 Comb1中所選擇的表項，可以表示為 。A、Comb1.T

45、extB、Comb1.ListIndex C、Comb1.List D、Comb1.ListCount()20.若i的初值為9,則下列循環(huán)語句的循環(huán)次數(shù)為 次。Do While i<=20i=i+3LoopA、3次B、4次C、5次D、6次三、程序填空題(每空2分，共20分)1 .【程序說明】以下程序產(chǎn)生 30個兩位隨機整數(shù)、并按從小到大的順序存入數(shù)組a中，再將其中的奇數(shù)按從小到大的順序在窗體中用緊湊格式輸出。Private Sub Form_Click()Dim a(30) As byteFor i=1 To 30,i as Byte, j As Byte, m As Bytea(i)=

46、 (21)Next i For i=1 To 29For j= (22) If a(i)>a(j) Then m=a(i)(23)a(j)=mNext jNext iFor i=1 To 30If (24) Then (25) Next iEnd Sub)頁腳內(nèi)容(22 )頁腳內(nèi)容歡迎閱讀(23 ) (24 ) (25 ) 2.【程序說明】下列程序運行時，單擊Command1(0后，圖片每秒自動左移 1毫米，單擊Command1(1痹止移動(當(dāng)圖片尾部移出窗體后，圖片從窗體右端進入窗體)。界面設(shè)計如下圖1所示。圖1程序2的界面設(shè)計【程序】Private Sub Command1_Clic

47、k(Index As Integer)If Index=0 Then (26) Else Timer1.Enabled=False End SubPrivate Sub Form_Load() Timer1.Interval =(27)Form1.ScaleMode = 6 (28)End SubPrivate Sub Timer1_Timer() Picture1.Left = (29)If Picture1.Left + Picture1.Width <= Form1.ScaleLeft Then _(30)= Form1.ScaleLeft + Form1.ScaleWidthEn

48、d Sub(26) (27) (28 )(29 )(30 )四、程序閱讀題(每小題5分，共20分)程序31、請寫出單擊窗體三次后，窗體上的顯示結(jié)果。Private Sub Form_Click()Static a As IntegerDim b As Integerb = a + b + 2 a = a + bForm1.Print "a=" a, "b=" bEnd Sub程序32、請寫出單擊窗體后，窗體上的顯示結(jié)果。Private Sub Form_Click()For i% = 1 To 7Print Spc (7- i);For j% = 1 T

49、o (2 * i%) - 1 : Print "M" ; : Next j% PrintNext i%End Sub程序33、寫出程序運行時，單擊 Option1(2)后，窗體上的顯示結(jié)果。Private Sub Form_Load()Option1(0).Value=FalseOption1(1).Value=FalseOption1(2).Value=False歡迎閱讀End SubPrivate Sub Option1_Click(Index As Integer)If Option1(Index).Value=True ThenSelect Case IndexCa

50、se 0Check1(0).Value=1: Check1(1).Value=0Case 1Check1(0).Value=0: Check1(1).Value=1Case 2Check1(0).Value=1: Check1(1).Value=1End SelectIf Check1(0).Value=1 Then Print "您好"If Check1(1).Value=1 Then Print "歡迎使用 Visual Basic!"End IfEnd Sub程序34、設(shè)Text1.Text為"abcdef",運行時連續(xù)單擊3次

51、控件HScroll1右側(cè)箭頭后，分別 寫出組合框控件中的第1項、第2項及第3項的內(nèi)容。Private Sub Form_Load()HScroll1.SmallChange = 1: HScroll1.Max = 5HScroll1.Min = 1: HScroll1.Value = 1Combo1.ClearEnd SubPrivate Sub HScroll1_Change()Combo1.AddItem Left(Text1.Text, HScroll1.Value), 0End Sub五、程序設(shè)計題(每題10分，共30分)35 .編制事件過程Command1_Click執(zhí)行該過程時輸入

52、n以及n個數(shù)，計算這n個數(shù)的和并在 文本框控件Text1中顯示。(10分)36 .編制通用函數(shù)過程fsum ,計算Single類型一維數(shù)組所有元素的和。(10分)37 .在窗體上建立命令按鈕“ Command'1 (顯示)和“ Command2(退出)。運行時，“Command2按鈕始終顯示“退出”；單擊“顯示”按鈕后窗體上顯示“歡迎使用Visual Basic!”同時標(biāo)題改為“清除”，再單擊“消除”按鈕后，界面恢復(fù)窗體裝入時的初態(tài)。(10分)VB練習(xí)題(一)參考答案試題一、判斷題(每小題1分，共10分)I. V 2. X 3. V 4. X 5. X 6. V 7. V 8. V 9

53、. 乂 10. X試題二、單選題(每小題2分，共20分)II. C 12. B 13. A 14. D 15. D 16. B 17. A 18.A 19. C 20. B試題三、程序填空題(每空2分，共20分)21. Int(Rnd*90)+1022.i+1 To 3023. a(i) = a(j) 24. a(i) Mod2<>0 25.Print a(i); 26. Timer1.Enabled=True 27. 1000 28. Timer1.Enabled = False 29.頁腳內(nèi)容頁腳內(nèi)容歡迎閱讀Picture1.Left-130. Picturel.Left試題四

54、、程序閱讀題(每小題5分，共20分)31. a = 2 b = 2a = 6 b = 4a = 14 b = 832. HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM33. 您好歡迎使用Visual Basic!34. abcd abc ab試題五、程序設(shè)計題(每小題各10分，共30分)35 .編制事件過程Command1_Click執(zhí)行該過程時輸入n以及n個數(shù)，計算這n個數(shù)的和并 在文本框控件 Text1中顯示。Private Sub Command1_Click()Dim s As Single, n As Integer, x As

55、Singlen=InputBox(" 輸入 n")For i=1 To nx=InputBox("x="): s=s+xNext iText1.Text=sEnd Sub36 .編制通用函數(shù)過程fsum ,計算Single類型一維數(shù)組所有元素的和。Private Function fsum(a() As Single, n As Single) As SingleDim i As Integer -For i = 1 To nfsum = fsum + a(i)Next i I I ;End Function37 .在窗體上建立命令按鈕“ Command

56、1 (顯示)和“ Command2(退出)。Private Sub Command1_Click()If Command1.Caption ="顯示"ThenPrint "歡迎使用 Visual Basic ! ": Command1.Caption =" 清除"ElseForm1.Cls : Command1.Caption ="顯示"End IfEnd SubPrivate Sub Command2_Click()歡迎閱讀EndEnd Sub顯示"Private Sub Form_Load()Form

57、l.Cls : Commandl.Caption ="End SubVB練習(xí)題(二)一、判斷題(每題i分，共io分)()1. VB是以結(jié)構(gòu)化的Basic語言為基礎(chǔ)、以事件驅(qū)動作為運行機制的可視化程序設(shè)計語言。()2.用DIM定義數(shù)值變量時，該數(shù)值變量自動賦初值為0。()3.移動框架時框架內(nèi)控件也跟隨移動，因此框架內(nèi)控件的Left和Top屬性值也隨之改變。()4.列表框和文本框一樣均沒有Caption屬性，但都具有 Text屬性。()5.圖片框可以通過 Print方法來顯示文本。()6.語句 "FontName =宋體""與"Form1.FontName =宋體"”的作用完全相同，無一例外。()7. SetFocus方法是把焦點移到指定對象