2009年9月計算機等考二級VB模擬題及解析(9)

　　(9) 在窗體上加上一個文本控件PCSTextBox，畫一個命令按鈕，當單擊命令按鈕的時候?qū)�顯示"打開文件"對話框，設(shè)置該對話框只用于打開文本文件，然后在文本控件中顯示打開的文件名。請?zhí)羁铡?/P>

　　Private Sub Command1_Click()

　　CommonDialog1.Filter= 【12】

　　CommonDialog1.ShowOpen

　　PCSTextBox.Text= 【13】

　　End Sub

　　正確答案: 1.("Text Files(*.txt) |*.txt") 2.(CommonDialog1.FileName)

　　(10) 隨機文件使用Put語句寫數(shù)據(jù)，使用 【14】 語句讀數(shù)據(jù)。

　　正確答案: 1.(Get)

　　(11) 下列程序的功能是：將數(shù)據(jù)1，2，…，8寫入順序文件Num.txt中，請補充完整。

　　Private Sub Form_Click()

　　Dim i As Integer

　　Open "Num.txt"For Output As #1

　　For i=1 To 8

　　【15】

　　Next i

　　Close #1

　　End Sub

　　正確答案: 1.(Print #1, i)