首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private Sub Form Load() Open“C:\dat.txt”For Output As#1 Text1.Text=“” End
在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private Sub Form Load() Open“C:\dat.txt”For Output As#1 Text1.Text=“” End
admin
2012-09-07
26
问题
在窗体上画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中输入字符时,将触发Tcxt1的KeyPress事件,同时可返回一个KeyAscn参数(输入字符的AscII码,区分大小写)。当KeyAscii为13时,表示输入了回车键,此时判断Text1的文本信息,如果Text1的文本为“END”,则关闭文件,退出程序。
转载请注明原文地址:https://kaotiyun.com/show/ERhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
模块独立性是软件模块化所提出的要求,衡量模块独立性的度量标准则是模块的
对用MsgBox显示的消息框,下面______是错的。
用Dim(1,3to7,10)声明的是一个______维数组。
符号%是声明______类型变量的类型定义符。
下面程序是用来打印九九乘法表的,请补充完整。 DimiAsInteger,jAsInteger,Strl$ Strl="" Fori=1To9 Forj=1To9 If【】Then Strl=St
为了定义自己的鼠标光标,首先应把MousePointer属性设置为【】,然后把【】属性设置为一个图标文件。
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是
软件工程的出现是由于【】。
假定有以下循环结构:Dountil条件循环体Loop则下列说法正确的是______。
栈底至栈顶依次存放元素A、B、C、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是______。
随机试题
A注册会计师负责审计甲公司2012年财务报表。注册会计师对定期存款应检查的事项中,恰当的有()。
女性,40岁,A型预激综合征患者,突然出现心慌、心悸来诊。心电图示心率180次/分,QRS波群正常,RR间期绝对规则,可见电压交替,QRS波群后隐约见P’,RP’约110ms。该例心动过速是
男性,35岁,讲话中突然剧烈头痛、呕吐,检查:BP140/90mmHg,神志清楚,颈部明显抵抗,四肢肌力正常,双侧Babinski征(-)患者常见的并发症为
阴阳的相互转化是
男,38岁,从事重件手工锻打作业,每次锻打十余分钟。该作业氧消耗的特点是
心绞痛的牵涉痛区是肾结石的牵涉痛区是
男,51岁,重症肺炎患者,入院后次日病情加重,突发持续性呼吸急促,发绀,伴烦躁,呼吸频率38次/分,心率108次/分,律齐,两肺可闻及湿啰音。血气分析:pH7.34,FaO250mmHg,PaCO230mmHg。胸片示两中下肺纹理增多模糊,斑片状阴影,心胸
甲、乙两公司先后向王某出具正式的委托授权书,委托王某为其代理人,授权王某可以和任何单位签订购销合同。王某签订的下列合同中,有效的是()。
下列关于算法复杂度叙述正确的是
YoumaynotlikeEnglish.Ifyoudon’tlikeEnglish,youarenot【11】—manypeople【12】it.Yes,Englishisdifficult.Itisdifficu
最新回复
(
0
)