[填空題] 在窗體上畫一個命令按鈕,名稱為command1,然后編寫如下程序: Private Sub Command1_Click() Dim ct As
[填空題] 在窗體上畫一個命令按鈕,名稱為command1,然后編寫如下程序:
Private Sub Command1_Click()
Dim ct As String
Dim nt As Integer
Open "e:stud. txt" (13)
Do While True
ct=InputBox("請輸入姓名:")
If ct= (14) Then Exit Do
nt=Val(InputBox("請輸入總分:"))
Write #1, (15)
Loop
Close #1
End Sub
以上程序的功能是,程序運(yùn)行后,單擊命令按鈕,則向e盤根目錄下的文件stud. txt中添加記錄(保留已有記錄),添加的記錄由鍵盤輸入;如果輸入“end”,則結(jié)束輸入。每條記錄包含姓名(字符串型)和總分(整型)兩個數(shù)據(jù)。請?zhí)羁铡?/p>正確答案:
(AC)ForAppend As #A (AD)"end" (AE)ct,nt
參考解析:可通過Open語句打開或創(chuàng)建一個文件。其格式為:Open<文件名>[For方式][Access存取類型][鎖定方式]As[#]文件號[Len=記錄長度],其中“方式”指文件打開模式,OutPut剛于順序輸出,Append用于順序追加寫入到文件末尾,Input用于順序讀取。根據(jù)題目的要求以及在題干程序中出現(xiàn)了#1字樣,因此打開方式為Append,文件號為1號。題目中要求當(dāng)輸入end時結(jié)束輸入,因此在程序中判斷,如果輸入的變量為字符串"end"的時候退出循環(huán),注意字符串常量必須加引號作為定界符。Write#語句也可以把數(shù)據(jù)寫入順序文件,因此把要寫入的變量用逗號隔開分別寫入文件。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。