(11)在窗体上画一个命令按钮,名称为Command1,然后编写如下程序: Private Sub Commandl_Click() Dim ct As String Dim nt As Integer Open”e

admin2011-10-24  54

问题 (11)在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:
  Private Sub Commandl_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”,则结束输入。每条记录包含姓名(字符串型)和总分(整型)两个数据。请填空。

选项

答案For Append As#1; ”end”; ct,nt

解析 【13】空因为要保留原纪录,因此要用追加方式打开。【14】空检验是否结束,输入”end”则结束,所以应判断是否输入了”end”。【15】空要将姓名和总分写入文件,也就是将ct和nt的值写进去。所以本空应为ct,nt。
转载请注明原文地址:https://kaotiyun.com/show/L9hp777K
0

最新回复(0)