首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据: Private Sub Command1_Click() Dim s1 As String, s2 As String Open "
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据: Private Sub Command1_Click() Dim s1 As String, s2 As String Open "
admin
2015-08-28
34
问题
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:
Private Sub Command1_Click()
Dim s1 As String, s2 As String
Open "c:\d4.dat" For Append As #3
Line Input #3, s1
Line Input #3, s2
Text1.Text=s1+s2
Close
End Sub
该程序运行时有错误,应该进行的修改是( )。
选项
A、将Open语句中的For Append改为For Input
B、将Line Input改为Line
C、将两条Line Input语句合并为Line Input #3, s1,s2
D、将Close语句改为Close #3
答案
A
解析
文件打开方式中的Append意味着打开的文件是顺序输出方式,也就是说打开文件是为了向其中写入数据的而不是要读出数据。因此Open "c:\d4.dat" For Append As #3应该改为Open "c:\d4.dat" For Input As #3。所以A选项正确。Clsoe语句中的文件号可以省略,这时会关闭所有打开的文件。
转载请注明原文地址:https://kaotiyun.com/show/IQLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To3arr(i)=iNextix=Input
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionFunc(ByValxAsInteger,yAsInteger)y=x*yIfy>0Then
在窗体上画一个文本框,其名称为Text1。为了在程序运行后Text1中的文本不可编辑,应当使用的语句是______。
若在Shape控件内以FillStyle属性所指定的图案填充区域,而填充图案的线条的颜色由FillColor属性指定,非线条的区域由BackStyle属性填充,则应______。
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:PrivateSubCommand1_Click()fori=1To4forj=0ToiPrintChr$(65+
已知通用对话框名为Cdlg,则执行下列的______语句,将弹出“打开文件”对话框。
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。PrivateSubForm_Click()StaticxAsIntegerClsPri
在用通用对话框控件建立“打开”或“保存”对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是______。
唯一能区别一个控件的属性是______。
如果要改变窗体的标题,需要设置窗体对象的______属性。
随机试题
目前认为,肺心病的首要死亡原因是
患者,女,34岁。3周前腰腿疼痛,近5天明显,尤其遇寒冷天气则疼痛加重,饮食尚可,二便正常,舌淡苔白,脉沉迟。最佳选药是
以下关于行政诉讼第三人的说法中,哪些是正确的?
名义利率、通货膨胀率、实际利率三者之间的关系正确的是()。
Hundredsofyearsago,aRomanarmycamenorthfromEnglandtomakewaronScotland.TheScots,abravepeople,lovedtheircoun
用0、l、2、3、4五个数组成一个五位数,数字可以重复,问至少有三个连续的1的数有多少个?()
设f(x)连续,且f’(0)>0,则存在δ>0,使得().
A.haveratifieditB.approvingitC.implementitsprovisionsD.restrictsmokinginpublicplacesE.causedbytobaccouseF.
Foxesandfarmershavenevergotonwell.Thesesmalldog-likeanimalshavelongbeenaccusedofkillingfarmanimals.Theyare
A、Totellcampuspersonnelofthenewlibraryservices.B、Toannouncethenewmoviesoncampusthissummer.C、Tonotifyuniversi
最新回复
(
0
)