首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private Sub Form Load() Open"C:\dat.txt"For Output As#1 Text1.Text="" End Sub Private Sub Text1_Ke
在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private Sub Form Load() Open"C:\dat.txt"For Output As#1 Text1.Text="" End Sub Private Sub Text1_Ke
admin
2015-05-30
99
问题
在窗体上画1个文本框,名称为Text1,然后编写如下程序:
Private Sub Form Load()
Open"C:\dat.txt"For Output As#1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If =13 Then
If UCase(Text1.Text=________) Then
Close 1
End
Else
Write#1.Text1.Text
Text1.Text=""
End If
End If
End Sub
程序的功能是,在C盘根目录下建立1个名为dat.txt的文件,在文本框中输入字符,每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt 中,并清空文本框中的内容;如果输入“END”,则结束程序,请选择适合空白处的语句( )。
选项
A、KeyAscii "END"
B、Text1.Text "END"
C、Text1.Text 13
D、KeyAscii 13
答案
A
解析
本题考查KeyPress事件。在Text1中输入字符时,将触发Text1的KeyPress事件,同时可返回一个KeyAscii参数(输入字符的ASCII码,区分大小写)。当KeyAscii为13时,表示输入了回车键,此时判断Text1的文本信息,如果Text1的文本为“END”,则关闭文件,退出程序。
转载请注明原文地址:https://kaotiyun.com/show/53Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是()。
有如下程序。PrivateSubCommand1_Click()DimkAsInteger,mAsIntegerDimopAsIntegerk=4:m=1Op=PPC(k,m):Pri
使用目录列表框的属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。
数据结构中,与所使用的计算机无关的是数据的______。
如果在C盘当前文件夹下已经存在名称为Sdat.dat的顺序文件,那么执行语句Open"c:\Sdat.dat"ForAppendAs#1之后,将()。
对关系S和R进行集合运算,结果中既包含S中的所有元组也包含R中的所有元组,这样的集合运算称为()。
下列描述中,不是线性表顺序存储结构特征的是()。
下列关于dowhile...loop和do...100puntil循环执行循环体次数的描述正确的是()
下列表达式中值为-6的是
数据结构包括数据的逻辑结构、数据的【】以及对数据的操作运算。
随机试题
下列哪味不是治疗梅毒的药物
A.盐酸B.组胺C.促胃液素D.乙酰胆碱E.胆酸抑制胃液分泌的因素是
根据《处方管理办法》,下列不属于药师对处方用药适宜性审核内容的是()
轻质隔墙与顶棚和其他墙体的交接处应采取防开裂措施,设计无要求时,板缝处粘贴50~60mm宽的嵌缝带,阴阳角处粘贴()mm宽纤维布。
我国中小学德育的重点具体说来应当包括或强调以下哪几方面?【】
根据所给资料,回答以下问题。2012年,全国夏粮播种面积27576千公顷,比2011年增加18千公顷,增长近0.1%。夏粮总产量12995万吨,比2011年增产356万吨,增长2.8%。单位面积产量4713公斤/公顷,比2011年增加127公斤/公顷,提
下列对VTP工作模式的描述中,错误的是()。
YouarepreparingforanEnglishtestandareinneedofsomereferencebooks.Writealettertothesalesdepartmentofabooks
We’ll______neverforget______inNewYorklastyear.
Whenyou’reeightmonthspregnant,it’shardtofindagoodinterviewsuit.Butafast-growingbellydidn’tstopNicoleYoung,3
最新回复
(
0
)