可做奧鵬院校所有作業(yè)，畢業(yè)論文，咨詢請?zhí)砑観Q：3230981406      微信：aopopenfd777

離線考核
《VB程序設(shè)計》


一、填空題（每空2分，共20分。）
1．VB 有 3 種工作模式,即_____________________ 模式、運行模式和中斷模式。
2. 下列程序段的執(zhí)行結(jié)果為_____________________ 。
Dim  x(3,5)
For  i=1  to  3
For  j=1  to  5
　　x(i,j)=i+j
Next  j
Next  i
Print  x(3,4)
3.以下循環(huán)的執(zhí)行次數(shù)是_____________________ 。
K  =  0
Do    While    K<=10
　　K=K+1
Loop
4.程序中要求彈出"保存文件"的對話框，如果用通用對話框 dlgSave 來完成，其語句為_____________________ 。
5.在窗體上畫一個列表框 List1 和一個文本框 Text1，然后編寫如下兩個事件過程：
Private  Sub  Form_Load  ()
List1.AddItem    "辦公室"
List1.AddItem    "政工部"
List1.AddItem    "財務(wù)科"
List1.AddItem    "學(xué)生處"
a  =  list1.listcount
List1.listindex=1
Text1.Text=  List1.list(list1.listindex)
End  Sub
　程序運行后，a=______________ ，  Text1.text=__________________。
6.在過程定義中用_________________ 關(guān)鍵字，可以實現(xiàn)形參按值傳遞。
7.VB 工程文件的擴展名為____________ ,標(biāo)準(zhǔn)模塊文件的擴展名為___________ ,窗體文件的擴展名為_____________ 。

二、（每題2分，共20分。)
1
2
3
4
5
6
7
8
9
10



(      )1. 若要禁止窗體被移動，則可設(shè)置窗體的 Move 屬性為 False 來實現(xiàn)。
(      )2. 表示 x 是 5 的倍數(shù)或是 9 的倍數(shù)的邏輯表達式為:x  Mod  5=0  OR  x  Mod  9=0。
(      )3. 執(zhí)行  Print  "A123"+123  語句，系統(tǒng)會給出出錯提示。
(      )4. 在 Visual Basic 中，Integer 是合法的變量名。
(      )5. 已知 A$="87654321"，則表達式 Val(Left$(A$，4)+Mid$(A$,4,2))的值是：876554。
(      )6. Public 可以用來定義變量，但必須出現(xiàn)在通用聲明段，而不能出現(xiàn)在過程中。
(      )7. X=28，則表達式（X  Mod  10)*10+X/10  的結(jié)果為 82。
(      )8. 在 VB 中具有 Print 方法的對象只有窗體對象。
(      )9. MsgBox 函數(shù)返回的值是數(shù)值型。
(      )10.Date( )+4 的功能是推算當(dāng)前系統(tǒng)日期加上 4 天后的日期。
三、編程題(每題30分，共60分。)
1、在窗體上有一個名為“統(tǒng)計”的按鈕（cmdStatic），單擊按鈕則產(chǎn)生10個小于100(不含100) 的隨機正整數(shù)并在窗體上逐行打印，并統(tǒng)計其中5的倍數(shù)所占比例，然后在窗體上打印出來。寫出包含正確過程名的代碼。
2、設(shè)窗體上有標(biāo)簽Label1和計時器Timer1兩個控件，編寫相應(yīng)的事件過程，要求運行程序時，用計時器實現(xiàn)每隔2秒標(biāo)簽中字體的大小放大到原來的1.5倍，如果字體大小超過100，則恢復(fù)初始大小，Label1中文字初始字體為宋體，大小為10，顯示文字為“測試文字”。
要求以上所有功能均通過代碼實現(xiàn)（包括屬性設(shè)置），試寫出必要的過程代碼。