首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有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
2013-10-16
44
问题
设窗体上有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://kaotiyun.com/show/YLQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,其名称为command1,然后编写如下代码:OptionBase1PrivateSubCommand1_Click()DimArrArr=Array(43,68f-25,65,-78,12
在窗体上画一个名为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()Dimarrarr=Array(358,32,46,73,23,59,
以下说法错误的是______。
下列关于数据库运行和维护的叙述中,正确的是______。
下面关于标准模块的叙述不正确的是______。
在考生文件夹中有工程文件execise113.vbp及窗体文件execise113.frm。在名为Form1的窗体上有一个标签数组,名为Lab1,该数组有4个控件元素,标题分别是Wait、Edit、Aix和Move,如下图所示。在程序运行后,将
在名为Form1的窗体上绘制一个命令按钮,名为Crud1,标题为“移动按钮”,如下图所示。编写适当的事件过程,使得程序运行时,每单击命令按钮一次,该按钮向右移动100。注意:程序中不得使用变量,事件过程中只能写一条语句;文件必须存放在考生
在名为Form1的窗体上绘制一个命令按钮,其名称为Cmd1,标题为Move,位于窗体的右下部。编写适当的事件过程,使程序运行后,每单击一次窗体,都使得命令按钮同时向左、向上移动100。程序的运行情况如下图所示。注意:不得使用任何变量;文件
假定建立了一个名为Command1的命令按钮数组,则下列说法中错误的是()。
随机试题
冈崎片段是
男性,56岁的心房颤动患者,突然发生失语。2周来共发生过5次,每次持续2~15秒。查体无神经系统异常。脑CT无异常。主要累及的血管是
下列细胞因子中,与慢性阻塞肺疾病慢性气道炎症发病关系最密切的是
自营性房地产贷款是指银行以本外币存款作为主要信贷资金来源自主发放的用于房地产开发、经营、流通和消费领域的贷款。主要有()。
目前,我国民间组织设立、规范与管理的政策法规主要包括( )。
【2014辽宁鞍山】学生放学回家后既想看电视又想做作业的心态体现的是()。
群体发展的最高阶段是()
A、 B、 C、 D、 B
一家商场按下述方式促销商品:一年中任何时候,或者有季节性促销,或者有节日促销,或两者兼而有之。每一种促销都会持续一个月。在任何一个月,如果商场想要把某一类商品清仓,就宣布季节性促销;如果某个月份有节日并且仓库中仍有剩余商品,就宣布节日促销。不过,11月没有
WhogatheredinaRomesquareSaturdayfortheFamilyDayrally?
最新回复
(
0
)