首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If "A"<=Chr(KeyAscii)A.nd C
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If "A"<=Chr(KeyAscii)A.nd C
admin
2015-08-28
34
问题
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If "A"<=Chr(KeyAscii)A.nd Chr(KeyAscii)<="Z"Then
KeyAscii=KeyAscii+(Asc("a")-Asc("A"))
End If
n=0
If KeyAscii=13 Then
For k=1 To Len(Text1)
ch$=Mid(Textl,k,1)
If"a"<=ch And ch<="z" Then n=n+1
Next k
Text2=n
End If
End Sub
程序运行时,在Text1文本框中输入“Visual Basic 6.0”后按回车键,则在Text2文本框显示的是( )。
选项
A、11
B、16
C、Visual Basic 6.0
D、visual basic 6.0
答案
A
解析
Text1_KeyPress过程中,先把输入的字符串字母变成小写的。当按下Enter键后,执行For循环统计小写字母的个数。退出循环后把n值赋给。Text2。选A。
转载请注明原文地址:https://kaotiyun.com/show/9ZQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件(如图1-113所示)。请编写适当的事件过程完成以下功能:单击“读数”按钮,则把考生目录下的in5.txt文件中的一个整数放入Textl:单击“计算”按钮,则计算出大于该数的第一个素数,并
要得到字体对话框中用户所选择的字体颜色的属性是______。
设有如下通用过程:PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text1的文
在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1,要求每隔一秒钟在文本框中显示一次当前的时间。程序为:PrivateSubTimer1.______()TxtTime.text=Time
关于使用goto语句的说法正确的是______。
软件开发的结构化生命周期方法将软件生命周期划分成______。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是______。
下面不属于软件工程的3个要素的是______。
DefSnga定义的变量a是______类型的变量。
下列描述中,不是线性表顺序存储结构特征的是()。
随机试题
2016年2月,北方某牛场运来青年牛10头,进场后3天发病,精神差,食欲废绝,呼吸困难,腹式呼吸,心率加快,高热稽留,铁锈色鼻液。诊断该病可能是
患者,男,42岁。扩张型心肌病5年。因天气转冷,出现咳嗽、咳痰、端坐呼吸。下列哪种药不宜使用
在常用的账务处理程序中,共同的财务处理工作有()。
旅游合同的内容主要有()。
“革命不是请客吃饭,不是做文章,不是绘画绣花,不能那样雅致,那样从容不迫,文质彬彬,那样温良恭俭让。革命是暴动,是一个阶级推翻另一个阶级的暴烈的行动。”这段话出自毛泽东的()。
某厂三台机器同时出了故障。修复这3台机器花费的时间分别为5分钟,6分钟,8分钟,每台机器停产1分钟给工厂造成经济损失100元,维修组依次维修了这3台机器,合理安排维修顺序能减少经济损失。经济损失最小为()元。
2009年,某省全年粮食作物播种面积253.85万公顷,比上年增长1.5%;糖蔗种植面积13.58万公顷,下降0.2%;油料种植面积33.14万公顷,增长2.3%;蔬菜种植面积113.84万公顷,增长2.3%。若保持2009年的增长速度,哪一年水果的
A、 B、 C、 D、 D
"PsychologyClass"Whatareneurotransmitters?
FamilyMattersThismonthSingaporepassedabillthatwouldgivelegalteethtothemoralobligationtosupportone’sparen
最新回复
(
0
)