首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
当前文件夹中设有一个文本文件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
admin
2016-08-24
82
问题
当前文件夹中设有一个文本文件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全国计算机二级
相关试题推荐
使图像(Image)控件中的图像自动适应控件的大小应()。
下列程序的执行结果是()。PrivaaeSubForm_ActivateDimscore(3)AsInteger,totalAsIntegerDimaa_scoreAsVariantscore(1)
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubForm
下列程序运行时输出的结果是()。OptionBase1PrivateSubForm_Click() Consta=6 Dimx(a)AsInteger ForI=1toa x
设有如下的记录类型:TypeStudentnumberAsStringnameASStringageAsIntegerEndType则正确引用该记录类型变量的代码是()。
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下而的程序。首先在窗体层定义如下变量:DimPaintStartAsBoolean编写如下事件过程:PrivateSubF
在VisualBasic的立即窗口内输入以下语句:X=97<CR>?Chr$(X)<CR>在窗口中显示的结果是______。
执行下列程序后,鼠标单击窗体,输出结果为PrivateSubForm_Click() Print"Click":EndSubPrivateSubForm_MouseDown(ButtonAsInteger,S
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() Fori=1To4 x=4 Forj=1To3 x=3 F
随机试题
关于数字x线成像方法的叙述,错误的是
能产生白喉毒素的白喉杆菌,是因为其有
各类旅游用地评估,应注意()评价标准。
在资产负债表“负债及所有者权益”方填列的项目是()
对库存现金进行清查应该采用的方法是()。
甲公司拟在厂区内建造一幢新厂房,有关资料如下:(1)2015年1月1日向银行专门借款5000万元,期限为3年,年利率为6%,每年1月1日付息。(2)除专门借款外,甲公司还有两笔一般借款,分别为公司于2014年12月1日借入的长期借款1
X公司的主要产品为日用洗涤用品,其产品通过数十家批发商进入全国各地的市场,2000年X公司对这些批发商进行了顾客满意度调查。这些批发商属于X公司的_______。
WhydoesastudentmentiontheMonaLisa?
ThedevelopmentofJamestowninVirginiaduringthesecondhalfofthe17thcenturywascloselyrelatedtothemakinganduseof
A、Hedoesn’tlikeTomHanks.B、Hedoesn’tlikeYomCruises.C、Hedoesn’tlikeZeltaJones.D、Hedoesn’tlikelovemovies.B
最新回复
(
0
)