10、設置到指定的控件或窗體上應采用SetFocus方法。
12 .當圖像控件(Image)的Stretch屬性為True時,Image控件能自動調整自己的尺寸與顯示的圖片匹配。
四、讀程序題,寫出程序運行結果。
優(yōu)選教育資源 共贏共享共進
1. PrivateSubForm_Click()
ForI=1To9
Forj=1To30-3*I
Print"";
Nextj
Fork=1ToI
Printk;
Nextk
Fork=I-1To1Step-1
Printk;
Nextk
Print
NextI
EndSub
2.
OptionExplicit
P
11、rivateSubCommand1_Click()
StaticSAsInteger
DimiAsInteger
S=1
Fori=1To5
S=S*i
Nexti
PrintS
EndSub
3.
ForX=5To1Step-1
For Y = 1 To 6 - X
優(yōu)選教育資源 共贏共享共進
PrintTab(Y+5);"*";
NextY
Print
NextX
4.
PrivateSubForm_Activate()
Print"aa"&"bb",-5*6,Not2<=3
Print"aa"&"bb";-5*6;Not2<=3
Prin
12、t
Print"30+60",
Print30+60
?
?"30+60";30+60
EndSub
5.
X=1
DoWhileX<=10
IfXMod7=0Then
Y=X+6
Else
Z=X
EndIf
X=X+2
Loop
PrintX,Y,Z
五、編程題
1 (textl )、
1 .設計一個計算程序。該程序用戶界面如圖所示,由四個文本框:文本框文本框2(text2)、文本框3(text3)、文本框4(text4),和三個按鈕:命令按鈕1(command]、命令按鈕2(command2、命令按鈕3(command4組成。程序運行后,用
戶單擊
13、清除按鈕,則清除文本框中顯示的內容。單擊計算按鈕,如果成績填寫不完全,則給出提示信息,否則計算三科平均成績。單擊退出按鈕則退出。
2 .設計程序。要求:從文本框Textl中接收輸入的數(shù)據(jù),當單擊確定按鈕(command)時,如果該數(shù)據(jù)滿足條件:除以3余2,除以5余3,除以7余4,則輸出;否則將焦點定位在文本框Textl中,選中其中的文本。
3 .設計一個歡迎程序。該程序用戶界面如圖所示。要求程序運行后,用戶選中粗體復選框時,標簽(Labell)中的文字(歡迎您!)的字體變成粗體,用戶選中斜體復選框時,標簽的字體變成斜體。若取消選中,則恢復原字體。單擊結束,則退出。
4 .任意輸入3個數(shù),
14、求大小排第二的那個數(shù),寫出程序代碼。
《VB〉期末復習參考答案
一、填空題
1. 創(chuàng)建應用程序界面設置屬性編寫代碼
2. 屬性、text
3. LabelTextBox
4. Load方法Show方法Hide方法Unload方法
5. txtshow.text="GOODWORK"
6. Click()、frm1.show
7. 算術表達式字符串表達式關系表達式布爾表達式日期表達式對象表達
式運算符
8. 1
9. TrueFalse
10. 12
11. Sin(x)A2+Sqr(xA2-yA2)/(2*x)
12. DimA(1To5,-2To6)AsStri
15、ng
13. 單擊雙擊裝載多響應某個事件后所執(zhí)行的程序代
碼cmdlClick
14. 完成某種特定的功能對象名.方法名Form1.Show
15. AutoSizeStretch
16. FileCopy"c:\","d:\"
二、單項選擇題
1.B2,C3.C4.D5.D6.B7.B
8.D9.D10.C11.D12.A13.C
三、指出下列句中的錯誤,修改或者說明原因。
1 .int.sum不正確。變量名中不能包括小數(shù)點。
2 .變量名的長度最長可達255個字符。
3 .3.6,4
因為a不是整型變量。
4 .不正確。程序不可以改變字符的長度,這是VB規(guī)定。
16、
5 .不完全正確。Variant是一種特殊的數(shù)據(jù)類型,除了定長字符串數(shù)據(jù)及用戶定義類型
外,可以包含任何種類型的數(shù)據(jù),這是VB規(guī)定。
6 .False。邏輯表達式計算結果。
7 .不正確。兩個日期型數(shù)據(jù)相減,其結果是一個數(shù)值型數(shù)據(jù)。
8 .不正確。靜態(tài)變量為局部變量,只能在過程中聲明。
9 .正確。
10 .正確。
11 .正確。
12 .不正確。該屬性設為Ture時,Image控件不能自動調整自己的尺寸與顯示的圖片匹
配,而可以使圖片自動擴展以適應控件的尺寸。
四、讀程序題,寫出程序運行結果。
1.程序運行后,單擊窗體,輸出結果為:
優(yōu)選教育資源 共贏共享共進
17、
1
1 21
1 2321
1234321
123454321
12345654321
1234567654321
123456787654321
1 2345678987654321
2 .程序運行后,單擊按鈕Command1輸出結果為:120。
3 .
*
**
***
****
*****
4 .
aabb-30False
aabb-30False
30+6090
30+6090
5.
11 13 9
優(yōu)選教育資源 共贏共享共進
五、編程題
1.
PrivateSubCommand1_Click()
Textl.Text
18、=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
PrivateSubCommand2_Click()
a=Trim(Textl.Text)
b=Trim(Text2.Text)
c=Trim(Text3.Text)
Ifa=""Orb=""Orc=""Then
MsgBox"成績填寫不完全!",vbCritical
Else
Text4.Text=(Val(a)+Val(b)+Val(c))/3
EndIf
EndSub
PrivateSubCommand3_Click()
UnloadMe
EndSu
19、b
2.
PrivateSubCommand1_Click()
x=Val(Text1.Text)
IfxMod3=2AndxMod5=3AndxMod7=4Then
Else
Print x
優(yōu)選教育資源 共贏共享共進
Textl.SetFocus
Textl.SelStart=0
Textl.SelLength=Len(Textl.Text)
EndIf
EndSub
3.
PrivateSubCheck1_Click()
IfCheckl.Value=1Then
Label1.Font.Bold=True
Else
Label1.Font.Bo
20、ld=False
EndIf
EndSub
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Label1.Font.Italic=True
Else
Label1.Font.Italic=False
EndIf
EndSub
PrivateSubCommand1_Click()
UnloadMe
EndSub
4.
a=Val(InputBox("輸入第一個數(shù):"))
b=Val(InputBox("輸入第二個數(shù):"))
c=Val(InputBox("輸入第三個數(shù):"))
Ifa