2. 计算机
  3. 当前文件夹中设有一个文本文件Filel．txt，并有下面程序代码： Private Sub Command1_Click() Dim ch As String Open"Filel．txt"For Input As #1 D

当前文件夹中设有一个文本文件Filel．txt，并有下面程序代码： Private Sub Command1_Click() Dim ch As String Open"Filel．txt"For Input As #1 D

admin2016-08-24  41
问题 当前文件夹中设有一个文本文件Filel．txt，并有下面程序代码：
    Private Sub Command1_Click()
    Dim ch As String
    Open"Filel．txt"For Input As #1
    Do While Not EOF(1)
    ch=Input(1，#1)
    If"A"    Print"&"：
    End If
    Print ch：
    Loop
    Close#1
    End Sub
    上述代码运行时产生的结果是(    )。
选项 A、在窗体上原样显示文件中的所有内容
B、把文件中所有大写字母改为“&”字符后显示，其他内容原样显示
C、把文件中的所有内容显示在窗体上，但在每个大写字母前显示一个“&”字符
D、把文件中所有大写字母改为“&”字符后显示，小写字母原样显示，其他字符不显示
答案C
解析 本题中，利用Open语句，以顺序输入方式打开文本文件“Filel．txt”，然后执行Do While循环结构，利用Input(1，#1)函数，从文本文件中依次取出一个字符并将其赋值给字符串变量ch，若取出的字符是大写字母，则在其前面显示一个“&”符号，所以C选项叙述正确。
转载请注明原文地址:https://kaotiyun.com/show/cYLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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