[填空题] 在窗体上画一个命令按钮,名称为command1,然后编写如下程序: Private Sub Command1_Click() Dim ct As String Dim nt As I

14 查阅

[填空题] 在窗体上画一个命令按钮,名称为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

以上程序的功能是,程序运行后,单击命令按钮,则向e盘根目录下的文件stud. txt中添加记录(保留已有记录),添加的记录由键盘输入;如果输入“end”,则结束输入。每条记录包含姓名(字符串型)和总分(整型)两个数据。请填空。

参考答案:

(AC)ForAppend As #A (AD)"end" (AE)ct,nt

可通过Open语句打开或创建一个文件。其格式为:Open<文件名>[For方式][Access存取类型][锁定方式]As[#]文件号[Len=记录长度],其中“方式”指文件打开模式,OutPut刚于顺序输出,Append用于顺序追加写入到文件末尾,Input用于顺序读取。根据题目的要求以及在题干程序中出现了#1字样,因此打开方式为Append,文件号为1号。题目中要求当输入end时结束输入,因此在程序中判断,如果输入的变量为字符串"end"的时候退出循环,注意字符串常量必须加引号作为定界符。Write#语句也可以把数据写入顺序文件,因此把要写入的变量用逗号隔开分别写入文件。

计算机考试