2. 计算机
  3. 设有如下程序代码： Private Sub Command1_Click() Dim Sname As String, SNo As String, Score As Single Open "D:\Score.txt" __________ As

设有如下程序代码： Private Sub Command1_Click() Dim Sname As String, SNo As String, Score As Single Open "D:\Score.txt" __________ As

admin2015-09-23  76
问题 设有如下程序代码：
Private Sub Command1_Click()
  Dim Sname As String, SNo As String, Score As Single
  Open "D:\Score.txt" __________ As #1
  SNo = InputBox("输入学号：")
  Sname = InputBox("输入姓名：")
  Score = Val(InputBox("输入成绩："))
  Print #1, SNo, Sname, Score
  Close #1
End Sub
以上程序的功能是，向文件D:\Score.txt中写入一名同学的学号、姓名和成绩，当文件不存在时，则新建该文件；当文件存在时，则覆盖原文件的内容。在横线处应填入的内容是(    )。
选项 A、For Input
B、For Output
C、For OverWrite
D、For Random
答案B
解析 文件打开格式为Open 文件说明 [For 方式] [Access 存取类型] [锁定] As # 文件号 [Len = 记录长度] 。其中，输入输出方式中Output主要用于指定文件顺序输出方式，如果文件不存在，则建立一个新的数据文件，将记录可以写到该文件中，如果文件已经存在，该语句打开已存在的文件，新写入的数据将覆盖原来的数据。故本题B选项正确。
转载请注明原文地址:https://www.kaotiyun.com/show/8QLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)