可做奧鵬院校所有作業(yè)，畢業(yè)論文，咨詢(xún)請(qǐng)?zhí)砑観Q：3230981406 微信：aopopenfd777
離線(xiàn)考核
《VB程序設(shè)計(jì)》
滿(mǎn)分100分
一、填空題（每空2分，共20分。）
1．VB 有 3 種工作模式,即_____________________ 模式、運(yùn)行模式和中斷模式。
2. 下列程序段的執(zhí)行結(jié)果為_(kāi)____________________ 。
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.程序中要求彈出"保存文件"的對(duì)話(huà)框，如果用通用對(duì)話(huà)框 dlgSave 來(lái)完成，其語(yǔ)句為_(kāi)____________________ 。
5.在窗體上畫(huà)一個(gè)列表框 List1 和一個(gè)文本框 Text1，然后編寫(xiě)如下兩個(gè)事件過(guò)程：
Private Sub Form_Load ()
List1.AddItem "辦公室"
List1.AddItem "政工部"
List1.AddItem "財(cái)務(wù)科"
List1.AddItem "學(xué)生處"
a = list1.listcount
List1.listindex=1
Text1.Text= List1.list(list1.listindex)
End Sub
程序運(yùn)行后，a=______________ ， Text1.text=__________________。
6.在過(guò)程定義中用_________________ 關(guān)鍵字，可以實(shí)現(xiàn)形參按值傳遞。
7.VB 工程文件的擴(kuò)展名為_(kāi)___________ ,標(biāo)準(zhǔn)模塊文件的擴(kuò)展名為_(kāi)__________ ,窗體文件的擴(kuò)展名為_(kāi)____________ 。
二、判斷題（每小題2分，共20分。)
1 2 3 4 5 6 7 8 9 10
( )1. 若要禁止窗體被移動(dòng)，則可設(shè)置窗體的 Move 屬性為 False 來(lái)實(shí)現(xiàn)。
( )2. 表示 x 是 5 的倍數(shù)或是 9 的倍數(shù)的邏輯表達(dá)式為:x Mod 5=0 OR x Mod 9=0。
( )3. 執(zhí)行 Print "A123"+123 語(yǔ)句，系統(tǒng)會(huì)給出出錯(cuò)提示。
( )4. 在 Visual Basic 中，Integer 是合法的變量名。
( )5. 已知 A$="87654321"，則表達(dá)式 Val(Left$(A$，4)+Mid$(A$,4,2))的值是：876554。
( )6. Public 可以用來(lái)定義變量，但必須出現(xiàn)在通用聲明段，而不能出現(xiàn)在過(guò)程中。
( )7. X=28，則表達(dá)式（X Mod 10)*10+X/10 的結(jié)果為 82。
( )8. 在 VB 中具有 Print 方法的對(duì)象只有窗體對(duì)象。
( )9. MsgBox 函數(shù)返回的值是數(shù)值型。
( )10.Date( )+4 的功能是推算當(dāng)前系統(tǒng)日期加上 4 天后的日期。
三、編程題(每小題30分，共60分。)
1、在窗體上有一個(gè)名為“統(tǒng)計(jì)”的按鈕（cmdStatic），單擊按鈕則產(chǎn)生10個(gè)小于100(不含100) 的隨機(jī)正整數(shù)并在窗體上逐行打印，并統(tǒng)計(jì)其中5的倍數(shù)所占比例，然后在窗體上打印出來(lái)。寫(xiě)出包含正確過(guò)程名的代碼。
2、設(shè)窗體上有標(biāo)簽Label1和計(jì)時(shí)器Timer1兩個(gè)控件，編寫(xiě)相應(yīng)的事件過(guò)程，要求運(yùn)行程序時(shí)，用計(jì)時(shí)器實(shí)現(xiàn)每隔2秒標(biāo)簽中字體的大小放大到原來(lái)的1.5倍，如果字體大小超過(guò)100，則恢復(fù)初始大小，Label1中文字初始字體為宋體，大小為10，顯示文字為“測(cè)試文字”。
要求以上所有功能均通過(guò)代碼實(shí)現(xiàn)（包括屬性設(shè)置），試寫(xiě)出必要的過(guò)程代碼。
