首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If"A"<=Chr(KeyAscii)And Chr(KeyAscii)<="Z"Th
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If"A"<=Chr(KeyAscii)And Chr(KeyAscii)<="Z"Th
admin
2017-06-21
41
问题
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If"A"<=Chr(KeyAscii)And Chr(KeyAscii)<="Z"Then
KeyAscii=KeyAscii+(Asc("a")-Asc("A"))
End If
n=0
IfKeyAscii=13 Then
For k=1 To Len(Text1)
ch$=Mid(Text1,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
解析
本题中的第一个If…Then结构的作用是将所有输入的大写字符转换为小写字符;第二个If结构的条件是按下回车键,里面嵌套了一个For循环,在循环中依次取出文本框中的每一个字符进行判断,若其为小写字符则n自加1,循环结束后n的值就是文本框中字母的个数。
转载请注明原文地址:https://kaotiyun.com/show/mXGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
全局变量必须在【】模块中定义。
下图窗体上有三个文本框Text1、Text2和Text3以及一个按钮Command1。为完成已知圆直径求圆周长和圆面积的功能,程序如下:程序填空处应是______。
在标准模块中用:Dim或Private关键字定义的变量是______变量,它们只能在程序的模块中使用。
一个变量未被显示定义,末尾也没有类型说明符,则该变量的隐含类型是上______类型。
以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在【】和【】处填上正确的内容。PrivateSubCommand1_Click()Dimd(6)fori=1To50n=【】d(n)=【
在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1.程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,如图所示,请填空。PrivateSubOpti
数据管理技术发展过程经过人工管理、文件系统和数据库系统3个阶段,其中数据独立性最高的阶段是【】。
模块独立性是软件模块化所提出的要求,衡量模块独立性的度量标准则是模块的
下面不属于软件测试实施步骤的是
随机试题
常用的公报有
下列加横线词语活用现象与其他三项不同的一项是()
对于国际敏感度指数(ISI),正确的说法是
产于云南的道地药材是
下列人员中,可以做兼职律师的有______。
2014年2月3日,甲与乙公司签订买卖合同,以60万元价格向乙公司购买一辆客车。双方约定,购车合同签订之日起1个月内甲支付50万元,余款在2016年2月3日前付清。并约定乙公司保留客车所有权至甲付清全部款项之前。2月10日,甲未经其妻同意,以自家婚后
社区建设的社会保障功能主要面对的群体是()。
Themeaningoftheword"gruelling"inthefirstparagraphismostcloseto______.Triathlon,accordingtothetext,originate
(1)"Allright,boysandgirls,who’dliketoseesomemagic?"TwiceadaytheferryArahura—anditisgreetedwithcriesof"Me!
SmotherLove[A]Everymorning,LeanneBricklandandhersisterwouldbicycletoschoolwiththesamewordsringingintheir
最新回复
(
0
)