首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private Sub Form Load() Open"C:\dat.txt"For Output As #1 Text1.Text="" End Sub
在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private Sub Form Load() Open"C:\dat.txt"For Output As #1 Text1.Text="" End Sub
admin
2019-03-14
56
问题
在窗体上画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
IfUCase(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/RsUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:PublicxAsIntegerPfivateSubF
编写如下程序:PrivateSubCommand1Click()DimnAsLong,sAsStringn=InputBox(“输入一个数”)DoWhilen0S=S&nMod10:s=S&n\10Mod10n=n
为了删除列表框中的一个列表项,应使用的列表框方法是
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为
软件(程序)调试的任务是
用户在组合框中输入或选择的数据可以通过一个属性获得,这个属性是()。
在关系代数运算中,有5种基本运算,它们是()。
在E-R图中,用来表示实体的图形是
从键盘上输入一个浮点数asingle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asingle=InputBox("请输入一个浮点数:")str1$=Str$(asing
随机试题
有效焦点大于多少,透视时X线管阳极可不转动
A、适应证B、用法用量C、注意事项D、不良反应E、药品成分主要用于治疗头痛是药物的()
A.一次用量B.三日用量C.七日用量D.三日极量E.七日极量麻醉药品片剂处方不得超过
根据《建筑桩基技术规范》,对于桩侧负摩阻力和中性点的说法,不正确的是()。
室内给水系统采用设储水池、水泵的给水方式时,其不足之处为()。
在个别资本成本的计算中,不必考虑筹资费用影响因素的是()。
个体执行任务时追求成功的内在驱动力称为()。
光场对于原子或分子运动状态的影响一直是人们关注的问题。由于光子具有动量,因此原子在吸收和发射光子的过程中,动量会发生改变,从而使原子或分子运动学行为发生变化。因为普通光源的光强很弱,它对于原子运动学行为的影响可以忽略,而激光场的光强很大,所以它对原子运动学
社会学家将婚后丈妻关系分为()
Readthearticlebelowaboutcomputerprinters.Foreachquestion(31-40),writeonewordinCAPITALLETTERSonyourAnswerSheet
最新回复
(
0
)