離線考核
《VB程序設(shè)計（高起專）》
滿分100分
一、填空題（每空2分，共20分。）
1．語句Print Int(12345.6789*100+0.5)/100的輸出結(jié)果是: __________。
2. 在窗體上畫一個文本框和一個圖片框,然后編寫如下兩個事件過程:
Private Sub Form_Click()
Text1.Text = "VB程序設(shè)計"
End Sub
Private Sub Text1_Change()
Picture1.Print "VB Programming"
End Sub
程序運行后,單擊窗體,在文本框中顯示的內(nèi)容是_________________ ,而在圖片框中顯示的內(nèi)容是_________________ 。
3.在窗體上畫一個文本框，名稱為Text1，然后編寫如下程序：
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 盤temp 文件夾下建立一個名為dat.txt 的文件，在文本框中輸入字符，每次按回車鍵都把當前文本框中的內(nèi)容寫入文件dat.txt，并清除文本框中的內(nèi)容：如果輸入“END”，則不寫入文件，直接結(jié)束程序。請?zhí)羁铡?br/>
4.某人編寫下列函數(shù)來判斷a 是否為素數(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
在測試時發(fā)現(xiàn)有1 個非素數(shù)也被判斷為素數(shù)，這個錯判的數(shù)是 _________________ 。
5.下列程序的功能是把文件filel.txt 中重復字符去掉后(即若有多個字符相同，則只保留1 個)寫入文件file2.txt。請?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”表示，錯誤的用“F”表示。每小題2分，共20分。)
( )1. 可獲得字符 ASCII 碼值的函數(shù)為 Chr( )。
( )2. 靜態(tài)變量只能在過程中定義而不能在通用聲明段中定義。
( )3. 命令按鈕 Command1 的單擊事件代碼如下：
Private Sub Command1_Click()
Dim I As Integer
I=I+1
End Sub
單擊按鈕 3 次,I 的值為 3。
( )4. 一個符號常量可以賦同一類型的不同值。
( )5. InputBox 函數(shù)可以不帶參數(shù)調(diào)用，而 MsgBox 函數(shù)則要求至少帶一個參數(shù)調(diào)用。
( )6. LoadPicture 是 VB 的一個函數(shù)，用于將指定的圖片文件調(diào)入內(nèi)存。
( )7. 各種控件的所有屬性都可以在設(shè)計模式下通過屬性窗口設(shè)置，也都可以在運行模式下通過程序語句進行賦值。
( )8. Input# 語句是從文件中讀取數(shù)據(jù)項, Line Input# 讀取的是文件中的一行,而 InputBox 函數(shù)要求從鍵盤輸入數(shù)據(jù)。
( )9. 用菜單編輯器設(shè)計菜單時, 頂層菜單不能加快捷鍵,但可以在菜單標題中的字母前插入“&”符號來設(shè)置熱鍵。
( )10.定時器控件的時間間隔設(shè)為 0 或 Enabled 屬性設(shè)為 False都將停止觸發(fā) Timer 事件。
三、編程題（每小題30分，共60分。)
1. 在名稱為Form1 的窗體上畫一個文本框,其名稱為Text1,在屬性窗口中把文本框的MultiLine屬性設(shè)置為True,編寫事件過程實現(xiàn)單擊窗體時把磁盤文件smtext1.txt 的內(nèi)容讀到內(nèi)存并在文本框中顯示出來,然后把該文本框中的內(nèi)容存入磁盤文件smtext2.txt。(文件位置在D盤的test文件夾里)。
2. 已知登錄界面，由兩個標簽（ Label1、Labe12 ）和兩個文本框 （txtName 、 txt Password ）以及兩個按鈕(cmdExit、cmdOk) 組成。其中，口令文本框 （txtPassword ）的 PasswordChar 屬性已經(jīng)設(shè)置為“*”，運行時要求輸入姓名和密碼，單擊cmdExit按鈕退出程序，單擊cmdOk按鈕則判斷在兩個文本框中輸入的內(nèi)容是否為“Guest”和“12345”，是則彈出消息框，顯示“歡迎使用本系統(tǒng)！”，并將1!+2!+3!+…+10!的值作為窗體（Form1）的標題顯示；否則顯示“對不起，你不是本系統(tǒng)用戶！”，寫出相應的事件過程。
