2. 计算机
  3. 设有如下程序代码： Private Sub Commandl_Click() Dim Sname As String，SNo As String，Score As Single Open”D：＼Score．txt"_______As

设有如下程序代码： Private Sub Commandl_Click() Dim Sname As String，SNo As String，Score As Single Open”D：＼Score．txt"_______As

admin2018-12-20  64
问题 设有如下程序代码：
    Private Sub Commandl_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://kaotiyun.com/show/kNFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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