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

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

admin2016-06-22  26
问题 当前文件夹中设有一个文本文件File1．txt，并有下面程序代码：
Private Sub Command1_Click()
Dim ch As String
Open"File1．txt"For Input As #1
Do While Not EOF(1)
ch=Input(1，#1)
If"A"＜ch And ch＜"Z"Then
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://jikaoti.com/ti/IoJ0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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