離線(xiàn)考核
《VB程序設(shè)計(jì)（高起專(zhuān)）》
滿(mǎn)分100分
一、填空題（每空2分，共20分。）
1．語(yǔ)句Print Int(12345.6789*100+0.5)/100的輸出結(jié)果是: __________。
2. 在窗體上畫(huà)一個(gè)文本框和一個(gè)圖片框,然后編寫(xiě)如下兩個(gè)事件過(guò)程:
　　Private Sub Form_Click()　　
　　        Text1.Text = "VB程序設(shè)計(jì)"　　
　　End Sub
　　Private Sub Text1_Change()　　
　　        Picture1.Print "VB Programming"　　
　　End Sub
　　程序運(yùn)行后,單擊窗體,在文本框中顯示的內(nèi)容是_________________ ,而在圖片框中顯示的內(nèi)容是_________________   。

3.在窗體上畫(huà)一個(gè)文本框，名稱(chēng)為T(mén)ext1，然后編寫(xiě)如下程序：
Private Sub Form_Load_()
Open "d:\temp\dat.txt" _________________
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
_________________        
Close #1
End
Else
_________________  
Text1.Text=""
End If
End Sub
以上程序的功能是：在D 盤(pán)temp 文件夾下建立一個(gè)名為dat.txt 的文件，在文本框中輸入字符，每次按回車(chē)鍵都把當(dāng)前文本框中的內(nèi)容寫(xiě)入文件dat.txt，并清除文本框中的內(nèi)容：如果輸入“END”，則不寫(xiě)入文件，直接結(jié)束程序。請(qǐng)?zhí)羁铡?br/>
4.某人編寫(xiě)下列函數(shù)來(lái)判斷a 是否為素?cái)?shù)，若是，則函數(shù)返回True；否則返回False。
Function prime(a As Integer)As Boolean
Dim k As Integer，isprime As Boolean
If a<2 Then
Isprime = False
Else
Isprime = True
k=2
Do While k<a/2 And isprime
If a Mod k=0 Then
isprime=False
Else
k=k+1
End If
Loop
End If
prime=isprime
End Function
在測(cè)試時(shí)發(fā)現(xiàn)有1 個(gè)非素?cái)?shù)也被判斷為素?cái)?shù)，這個(gè)錯(cuò)判的數(shù)是 _________________  。


5.下列程序的功能是把文件filel.txt 中重復(fù)字符去掉后(即若有多個(gè)字符相同，則只保留1 個(gè))寫(xiě)入文件file2.txt。請(qǐng)?zhí)羁铡?br/>Private Sub Command1_Click( )
Dim inchar As String, temp As String, outchar As String
outchar=""
Open "file1.txt" For Input As #1
Open "file2.txt" For Output As #2
_________________         
inchar=Input$(n,1)
For k=1 To n
temp=Mid(inchar,k,1)
If InStr(outchar,temp)= _________________    Then
outchar=outchar & temp
End If
Next k
Print #2, _________________   
Close #2
Close #1
End Sub

二、判斷題(正確的用“T”表示，錯(cuò)誤的用“F”表示。每小題2分，共20分。)
(     )1. 可獲得字符 ASCII 碼值的函數(shù)為 Chr( )。
(     )2. 靜態(tài)變量只能在過(guò)程中定義而不能在通用聲明段中定義。
(     )3. 命令按鈕 Command1 的單擊事件代碼如下：
Private  Sub  Command1_Click()
Dim  I  As  Integer
I=I+1
End  Sub
單擊按鈕 3 次,I 的值為 3。
(     )4. 一個(gè)符號(hào)常量可以賦同一類(lèi)型的不同值。
(     )5. InputBox 函數(shù)可以不帶參數(shù)調(diào)用，而 MsgBox 函數(shù)則要求至少帶一個(gè)參數(shù)調(diào)用。
(     )6. LoadPicture 是 VB 的一個(gè)函數(shù)，用于將指定的圖片文件調(diào)入內(nèi)存。
(     )7. 各種控件的所有屬性都可以在設(shè)計(jì)模式下通過(guò)屬性窗口設(shè)置，也都可以在運(yùn)行模式下通過(guò)程序語(yǔ)句進(jìn)行賦值。
(     )8. Input#  語(yǔ)句是從文件中讀取數(shù)據(jù)項(xiàng), Line Input#  讀取的是文件中的一行,而 InputBox 函數(shù)要求從鍵盤(pán)輸入數(shù)據(jù)。
(     )9. 用菜單編輯器設(shè)計(jì)菜單時(shí),  頂層菜單不能加快捷鍵,但可以在菜單標(biāo)題中的字母前插入“&”符號(hào)來(lái)設(shè)置熱鍵。
(     )10.定時(shí)器控件的時(shí)間間隔設(shè)為 0 或 Enabled 屬性設(shè)為 False都將停止觸發(fā) Timer 事件。
三、編程題（每小題30分，共60分。)
1. 在名稱(chēng)為Form1 的窗體上畫(huà)一個(gè)文本框,其名稱(chēng)為T(mén)ext1,在屬性窗口中把文本框的MultiLine屬性設(shè)置為T(mén)rue,編寫(xiě)事件過(guò)程實(shí)現(xiàn)單擊窗體時(shí)把磁盤(pán)文件smtext1.txt 的內(nèi)容讀到內(nèi)存并在文本框中顯示出來(lái),然后把該文本框中的內(nèi)容存入磁盤(pán)文件smtext2.txt。(文件位置在D盤(pán)的test文件夾里)。
2. 已知登錄界面，由兩個(gè)標(biāo)簽（ Label1、Labe12 ）和兩個(gè)文本框 （txtName 、 txt Password ）以及兩個(gè)按鈕(cmdExit、cmdOk) 組成。其中，口令文本框 （txtPassword ）的 PasswordChar 屬性已經(jīng)設(shè)置為“*”，運(yùn)行時(shí)要求輸入姓名和密碼，單擊cmdExit按鈕退出程序，單擊cmdOk按鈕則判斷在兩個(gè)文本框中輸入的內(nèi)容是否為“Guest”和“12345”，是則彈出消息框，顯示“歡迎使用本系統(tǒng)！”，并將1!+2!+3!+…+10!的值作為窗體（Form1）的標(biāo)題顯示；否則顯示“對(duì)不起，你不是本系統(tǒng)用戶(hù)！”，寫(xiě)出相應(yīng)的事件過(guò)程。