2006年4月全國計算機等級考試二級VB語言筆試試題及答案
發(fā)布時間：2010-01-13 共12頁
(8)在窗體上畫1個名稱為Command1的命令按鈕和2個名稱分別為Text1、Text2的文本框，如圖所示，然后編寫如下程序：
Function Fun(x As Integer,ByVal y As Integer)As Integer
x=x+y
If x<0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=-10：b=5
Text1.Text=Fun(a，b)
Text2.Text=Fun(a，b)
End Sub
程序運行后，單擊命令按鈕，Text1和Text2文本框顯示的內(nèi)容分別是【9】和【10】。
(9)在窗體上畫1個命令按鈕和1個文本框，其名稱分別為Command1和Text1，然后編
寫如下代碼：
Dim SaveAll As String
Private Sub Command1_Click()
Text1.Text=Left(UCase(SaveAll)，4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序運行后，在文本框中輸入abcdefg，單擊命令按鈕，則文本框中顯示的內(nèi)容是【11】。
(10)在窗體上畫1個命令按鈕和1個通用對話框，其名稱分別為Command1和CommonDialog1，然后編寫如下事件過程：
Private Sub Command1_Click()
CommonDialog1.【12】="打開文件"
CommonDialog1.Filter="All Files(*.*)|*.*"
CommonDialog1.InitDir="C：＼"
CommonDialog1.ShowOpen
End Sub
該程序的功能是，程序運行后，單擊命令按鈕，將顯示“打開”文件對話框，其標題是“打開文件”，在“文件類型”欄內(nèi)顯示“AIl Files(*.*)”，并顯示C盤根目錄下
的所有文件，請?zhí)羁铡?/P>
(11)在窗體上畫1個文本框，名稱為Text1，然后編寫如下程序：
Private Sub Form_Load()
Open"d：＼temp＼dat.txt"For Output As#1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
lf【13】=13 Then
If UCase(Text1.Text)=【14】Then
Close 1
End
Else
Write#1，【15】
Text1.Text=""
End If
End If
End Sub
以上程序的功能是，在D盤temp目錄下建立1個名為dat.txt的文件，在文本框中輸入字符，每次按回車鍵(回車符的ASCII碼是13)都把當(dāng)前文本框中的內(nèi)容寫入文件dat.txt，并清除文本框中的內(nèi)容；如果輸入“END”，則結(jié)束程序。請?zhí)羁铡?/P>
