(8) 以下過程的作用是將26個(gè)小寫字母逆序打印出來,請(qǐng)補(bǔ)充完整。
Sub Inverse()
For i=122 To 【10】
Print 【11】 ;
Next i
End Sub
正確答案: 1.(97 Step -1) 2.(Chr$(i))
(9) 在窗體上加上一個(gè)文本控件PCSTextBox,畫一個(gè)命令按鈕,當(dāng)單擊命令按鈕的時(shí)候?qū)@示"打開文件"對(duì)話框,設(shè)置該對(duì)話框只用于打開文本文件,然后在文本控件中顯示打開的文件名。請(qǐng)?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) 隨機(jī)文件使用Put語句寫數(shù)據(jù),使用 【14】 語句讀數(shù)據(jù)。
正確答案: 1.(Get)
(11) 下列程序的功能是:將數(shù)據(jù)1,2,…,8寫入順序文件Num.txt中,請(qǐng)補(bǔ)充完整。
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)
相關(guān)推薦:2009年9月計(jì)算機(jī)等考二級(jí)VB模擬題及解析匯總北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |