首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If "A"
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If "A"
admin
2020-07-22
28
问题
设窗体上有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://jikaoti.com/ti/JGS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,其名称为Textl,为了在程序运行后隐藏该文本框,应使用的语句为
在窗体上画两个文本框,其名称分别为Textl和Text2,然后编写如下程序:PrivateSubForm_Load()Textl.Text="":Text2.Text="":TeXt1.SetFocusEndSub
有如下程序:PrivateSubForm_Click()DimiAsInteger,nAsIntegerFori=1To20i:i+4:n=n+iIfi>10ThenExitFor
下面关于菜单的叙述中正确的是
输入VB源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用
在窗体模块的声明部分声明变量时,不能使用的关键字是
程序流程图中带有箭头的线段表示的是
设有窗体的FormMouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If(ButtonAnd3
设窗体上有一个文本框Textl和一个命令按钮Commandl,并有以下事件过程:PrivateSubCommandl_Click()DimsAsString,chAsStrings=""Fork=1ToLen(Textl)ch=
设有如下事件过程:PrivateSubCommandl_Click()Fori=1To5j=iDoPrin
随机试题
可使老年人发生尿潴留的是
模拟信号放大器是完成对输入模拟量()。
条件同上题,指出该段压水试验的P-Q曲线类型为( )。
下列关于风险管理信息传递的说法,不正确的是()。
一位研究者使用智力测验对一个孩子进行了三次测量,每次的分数都不同,请问,这里智力分数的不同反映的是
Guest:Oh,Ihadn’trealizedhowlateitwas.I’mafraidI’llhavetobegoing.Host:Oh,notyet.I’mjustgoingtomakesomec
全球暖化
设A是三阶矩阵,α1,α2,α3为三个三维线性无关的列向量,且满足Aα1=α2+α3,Aα2=α1+α3,Aα3=α1+α2求矩阵A的特征值;
Languagecompetenceandlanguageperformancearecompletelydifferent.Competenceisanabilitytorecognizeandunderstandsent
A、Telephoneregistrationismucheasier.B、Nothingcanhelpregistrationdifficulties.C、Telephoneregistrationmaygivehimal
最新回复
(
0
)