首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If "A"
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If "A"
admin
2015-06-30
80
问题
设窗体上有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
If KeyAscii = 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
解析
Text1_KeyPress过程中,先把输入的字符串中大小字母变成小写字母。当按下回车键后,执行For循环统计小写字母的个数。退出循环后把n值赋给Text2。选A)。
转载请注明原文地址:https://kaotiyun.com/show/3MQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在用Open语句打开文件时,如果省略“For方式”,则打开的文件的存取方式是()。
下列程序段的运行结果是()。Subsele()DimnAsIntegeri=21:n=3DoWhilei>ni=i-nLoopPrin
下列程序段的执行结果为______。X=5Y=-20IfNotX>0ThenX=Y-3ElseY=X+3PrintX-Y;Y-X
在窗体上画一个命令按钮,然后编写如下程序:SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=rEndSub
在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为Text1、Command1和Label1,文本框的Text1属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click()x=Int(Val(Tex
当数据的物理结构(存储结构、存取方式等)改变时,不影响数据库的逻辑结构,从而不致引起应用程序的变化,这是指数据的【】。
假定有一个菜单,名为Menultem,为了运行时使该菜单项失效,应使用的语句为()
下面关于多窗体程序设计描述不正确的是
设通用对话框控件的名称为CD1,希望在打开文件对话框中的“文件类型”列表中包含:所有文件、Word文档和文本文件这3类文件,在程序中设置Filter属性时正确的是
下列叙述正确的是
随机试题
关于尺骨鹰嘴骨折治疗错误的是
关于期刊目次页,说法正确的有()。
轴(纵)向分辨力直接与什么有关()
A、异烟肼B、链霉素C、对氨基水杨酸钠D、利福平E、乙胺丁醇可致露觉异常和视力障碍()
A.ADA增高B.ANCA阳性C.AMA阳性D.CAl9—9增高E.AFP增高原发胆汁性肝硬化
我国规定的投机头寸持仓限量()以上(含本数)时,会员或客户应向交易所报告资金情况、头寸情况等,客户须通过期货公司会员报告。
楷书又名正书、真书,是()所创。
如图所示,长木板B放在粗糙的水平面上,物块A放在B的粗糙表面上,A与B间的动摩擦因数和B与水平面间的动摩擦因数均为μ=0.4,A的质量为m,B的质量为2m,物块和长木板用轻绳绕过轻滑轮连着,A与B和B与水平面间的滑动摩擦力与它们间对应的最大静摩擦力视为相等
Doctorshavelongknownthatlungcancer,whichkills160,000Americanseachyear,takesaheaviertollamongblackAmericans,
SusanClark377BindingWayWoodburyNJ08096(856)832-4476OBJECTIVE:positionasauniversityhistoryteacherEDU
最新回复
(
0
)