首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private SUb Form Log( ) Open“C:\dat.txt”For OutputAs#1 Textl.Text=“” End Sub Private Sub Textl
在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private SUb Form Log( ) Open“C:\dat.txt”For OutputAs#1 Textl.Text=“” End Sub Private Sub Textl
admin
2020-07-22
34
问题
在窗体上画1个文本框,名称为Text1,然后编写如下程序:
Private SUb Form Log( )
Open“C:\dat.txt”For OutputAs#1
Textl.Text=“”
End Sub
Private Sub Textl_KeyPress(KeyAscii As Integer)
If=13 Then
If UCase(Textl.Text=_________)Then
Close 1
End
Else
Write#1.Text1.Text
Textl.Text=“”
选项
A、KeyAscii “END”
B、Textl.Text“END”
C、Textl.Text 13
D、KeyAscii13
答案
A
解析
本题考查KeyPress事件。在Textl中输入字符时,将触发Textl的KeyPress事件,同时可返回一个KeyAscii参数(输入字符的ASCII码,区分大小写)。当KeyAseii为13时,表示输入了回车键,此时判断Textl的文本信息,如果Textl的文本为“END”,则关闭文件,退出程序。
转载请注明原文地址:https://jikaoti.com/ti/vhS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所
以下关于菜单的叙述中,错误的是
能够存放组合框的所有项目内容的属性是( )。
命令按钮Command1的MouseUp事件过程结构如下:PrivateSubCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,
有三个关系R.S和T如下:则由关系R和s得到关系T的操作是()。
窗体上有一个名称为Command1的命令按钮,有程序如下:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger’第1个ForFori=1To1
下面关于算法的叙述中,正确的是()。
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
下面()不是VB的文件系统控件。
数据库系统在其内部具有3级模式,用来描述数据库中全体数据的全局逻辑结构和特性的是()。
随机试题
涂料具有良好的触变性,有利于方便施工,防止流挂。
关于宫颈上皮内瘤样病变,叙述正确的是
A.2年B.20年C.7年D.6个月中药一级保护品种可申请的保护年限为()
强迫观念是()
班主任要做好个别教育工作,既要发挥________的骨干作用;又要抓好________的转化工作。
保险利益:又称可保利益或者可保权益,指投保人或被保险人对保险标的具有利害关系而享有的合法的、可以用金钱估计的、确定的经济利益。按照保险利益原则,下列哪个当事人的投保行为有效?()
大李和小王是某报新闻部的编辑。该报总编计划从新闻部抽调人员到经济部。总编决定:未经大李和小王本人同意,将不调动两人。大李告诉总编:“我不同意调动,除非我知道小王是否调动。”小王说:“除非我知道大李是否调动,否则我不同意调动。”如果上述三人坚持各自的决定,则
所有国家机关、社会组织和公民个人都必须遵守法律,依法享有和行使法定职权与权利,承担和履行法定职责与义务。这集中体现了
Manycriticsconsiderthatfarmorestressisplacedonachievementsinathleticsthanintheacademicsphere.We’retoldthati
A、Hewaslookingforajob.B、Heseemedtohavemanyneededqualifications.C、Hehandedinhisapplicationearlierthanothers.
最新回复
(
0
)