首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command 1的命令按钮。命令按钮的单击事件过程如下: Private Sub Command 1_Click() Dim x1 As Integer,x2 As Integer,x3 As Inte
窗体上有一个名称为Text1的文本框,一个名称为Command 1的命令按钮。命令按钮的单击事件过程如下: Private Sub Command 1_Click() Dim x1 As Integer,x2 As Integer,x3 As Inte
admin
2015-05-29
17
问题
窗体上有一个名称为Text1的文本框,一个名称为Command 1的命令按钮。命令按钮的单击事件过程如下:
Private Sub Command 1_Click()
Dim x1 As Integer,x2 As Integer,x3 As Integer
s=Trim(Text1.Text)
strLen=Len(s)
For i=l To strLen
c=Mid(s,i,1)
Select Case c
Case"0"To"9"
xl=x1+l
Case"A"To"z"
x2=x2+1
Case"a"To"z"
x3=3+1
Case Else
x4=x4+1
End Select
Next
Print"x1";x1,"x2";x2,"x3";x3,"x4";x4
End Sub
以下关于上述程序的叙述中,正确的是
选项
A、s是去掉文本框中字符串末尾的空格
B、Select Case c有误,Case后应该是一个表达式
C、各Case分支条件有误,不能用To表示字符的取值区间
D、x4是字符串中非字母、非数字字符的个数
答案
D
解析
Trim函数的作用是去掉文本框中字符串两端的空格;多分支控制结构又称为Select Case语句或Case语句,可以同时对条件的多个取值来判断,Case后面的表达式可采用3种形式:
①表达式1[,表达式2]…;
②表达式1 To表达式2;
③Is关系运算表达式。
最终x1是字符串中数字的个数;x2是字符串中大写字母的个数;x3是字符串中小写字母的个数;x4是字符串中非字母、非数字字符的个数。
转载请注明原文地址:https://kaotiyun.com/show/pDQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1Click()Dimarray1(10,10)AsInteger
在名称为Form1的窗体上绘制一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:PrivateSubFormClick()Open"d:\test\smtext
下列程序段的执行结果为DimA(10,10)ForI=2To4ForJ=4To5A(I,J)=I*JNextJNextIPr
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)将显示一个对话框,在对话框的输入区中显示的信息是
为了改变计时器控件的时间间隔,应该修改该控件的______属性。
以下叙述中错误的是
以下叙述中错误的是
随机试题
—Whatisthedifference?—Thisbreadisdifferentfrom______.
Somehepatitisvirusesarespreadbyfecal-oral______oftenbyfoodhandlersandincrowded,unsanitaryconditions.
不适宜使用普通硅酸盐水泥的工程为()。
根据《建筑设计防火规范》(GB50016—2006)的规定,下列关于备用泵设置的说法中,错误的是()。
当收入差距的衡量指标——基尼系数接近()时,收入便接近于绝对平等。
马克思主义认为,人的全面发展最根本的是指()
这些被称为是“屏幕育成”的一代青少年,他们很多的价值观念直接来自长期_________的影视文化。青少年在吸收影视文化积极影响的同时,也在任由影视文化中的消极因素对其价值观念产生着误导。从某种意义上来说,影视文化正在校园之外对当代青少年_________着
2,4,8,14,22,( )
为了使文本框只具有垂直滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为
TheHistoryofGlobalizationGlobalizationiscommonlybelievednottohavebeenaconcernin【D1】______.In1841,awriterfrom【
最新回复
(
0
)