首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有Textl、Text2两个文本框,并编写了下面的程序代码: Private Sub Textl_KeyPress(KeyAscii As Integer) If"A"<=Chr(KeyAscii)And Chr(KeyA
设窗体上有Textl、Text2两个文本框,并编写了下面的程序代码: Private Sub Textl_KeyPress(KeyAscii As Integer) If"A"<=Chr(KeyAscii)And Chr(KeyA
admin
2019-01-17
25
问题
设窗体上有Textl、Text2两个文本框,并编写了下面的程序代码:
Private Sub Textl_KeyPress(KeyAscii As Integer)
If"A"<=Chr(KeyAscii)And Chr(KeyAscii)<=”Z”Then
KeyAscii=KeyAscii+(Asc("a")-Asc(”A”))
End If
n=0
If KeyAscii=13 Then
For k=1 To Len(Textl)
ch$=Mid(Textl,k,1)
If”a”<=ch And ch<=”z”Then n=n+1
Next k
Text2=n
End If
End Sub
程序运行时,在Textl文本框中输入“Visual Basic 6.0”后按回车键,则在Text2文本框显示的是
选项
A、1 1
B、16
C、Visual Basic 6.0
D、visual basic 6.0
答案
A
解析
本题中的第一个If…Then结构的作用是将所有输入的大写字符转换为小写字符;第二个If结构的条件是按下回车键,里面嵌套了一个For循环,在循环中依次取出文本框中的每一个字符进行判断,若其为小写字符则n自加1,循环结束后n的值就是文本框中字母的个数。
转载请注明原文地址:https://jikaoti.com/ti/DCm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click() Dims a%=100 PrintaEndSub其中变量a和s的数据类型分别是( )。
下列叙述中正确的是( )。
设窗体上有2个文本框Text1和Text2,并有下面的事件过程:DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger) If"A"
数据库应用系统中的核心问题是( )。
窗体上有1个名称为Command1的命令按钮;1个名称为List1、没有列表项的列表框。编写如下程序:PrivateSubCommand1_Click()DimxAsString,sAsString,tempAsString
以下关于键盘事件的叙述中,错误的是( )。
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序:PrivateSubCommand1_Click()Dimcount(10)AsInt
以下不能输出"Program"的语句是( )。
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件灾下的in5.dat文件中
随机试题
男性,30岁,火焰烧伤总面积70%。颜面、颈、前胸及两上肢为Ⅲ度烧伤(30%),伤后1小时送医院处理。该患者烧伤指数为
鲁女士,45岁,患糖尿病5年,1个月前诊断为卵巢癌。病人皮肤粘膜干燥,皮下脂肪菲薄,身体极度衰弱。
A、心虚胆怯证B、心血不足证C、瘀阻心脉证D、痰火扰心证E、水饮凌心证心悸眩晕,胸闷痞满,渴不欲饮,小便短少,或下肢浮肿,形寒肢冷,伴恶心,欲吐,流涎,舌淡胖,苔白滑,脉象弦滑或沉细而滑。证属
事故统计结果可以用()等形式表达。
涂料按其涂膜的特殊功能可分为()等。
获得施32,总承包资质的企业,可以对所承接的工程实行()。
随着钢中含碳量的增加,钢材的()。
在我国的政策性银行中最先转型成为开发性金融机构的是()。
阅读下面材料,根据要求写作文。人人都在渴望幸福,人人都在感受幸福。幸福有时很抽象,有时很具体。幸福有时很遥远,有时近在咫尺。奉献是幸福,给予是幸福,获得是幸福,享受是幸福……一句祝福的话语是幸福,一个理解的眼神是幸福……幸福是心灵的感觉,幸福是生
设函数f(x)在点x=a处可导,则函数|f(x)|在点x=a处不可导的充分条件是
最新回复
(
0
)