首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。命令按钮的单击事件过程如下: Private Sub Commandl_Click() Dim x l As Integer,x2 As Integer,x3 As Int
窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。命令按钮的单击事件过程如下: Private Sub Commandl_Click() Dim x l As Integer,x2 As Integer,x3 As Int
admin
2019-06-11
94
问题
窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。命令按钮的单击事件过程如下:
Private Sub Commandl_Click()
Dim x l As Integer,x2 As Integer,x3 As Integer
S=Trimf,Textl.Text)
strLen=Len(s)
For i=1 To strLen
c=Mid(s,i,1)
Select Case C
Case”0”To”9”
x1=x1+1
Case”A”T0”Z”
x2=x2+l
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/dRUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Picturel的图片框和一个名称为Timer1的计时器控件,并有下面程序代码:Dimx%,V%PrivateSubForm_Load()x=Picturel.Width*2y=Picture
为了在形状控件中填充图案,应设置的属性是()。
医院里有不同的科室,每名医生分属不同科室,则实体科室与实体医生间的联系是()。
(1)在名称为Form1的窗体上添加一个名称为Shapel的形状控件,要求在属性窗口中将其形状设置为椭圆,其短轴(垂直方向)、长轴(水平方向)的长度分别为800、1600。把窗体的标题改为“Shape控件”,窗体上无最大化、最小化按钮。程序运行后的窗体如图
程序运行时,要清除图片框Picturel中的图像,应使用语句()。
针对VisualBasic的菜单设计操作,下面叙述中错误的是()。
(1)在名称为Form1,标题为“输入”、最大化按钮不可用的窗体上画1个名称为Framel的框架控件,其标题为“选择性别”;再向框架内画两个名称分别为Option1和Option2的单选按钮,其标题分别为“男”和“女”,并将单选按钮Option2设置为选中
数据字典(DD)所定义的对象都包含于
下列选项中属于面向对象设计方法主要特征的是
随机试题
能分泌激素的肿瘤是
主动脉窦瘤破入右室Williams综合征
男性,31岁,排便不适,下坠感1个月,偶有腹泻便血,无腹痛,有癌症家族史。若诊断为直肠癌,首选治疗为
下列哪种物质是结合胆红素
需求导向定价法的理论基础是()。
情绪和情感的联系表现在()。
下列选项中,由美国发明家亚历山大·格雷厄姆·贝尔发明的是()。(2013年下半年真题)
20世纪70年代,埃德加.富尔首次提出了“教育先行”的概念,用以概括教育先于经济而发展的倾向。这表明教育的发展可以不受生产力发展水平的制约。()
HisOwnWaytoExpressLoveYesterdaywasourthree-yearanniversary.Wedidn’tdoanythingromantic;wejustwalkedhandin
A、It’ssmall.B、It’sveryhilly.C、Ithasnobusservice.D、It’slocatedoutsideofthetown.BWhatdoesthewomanimplyaboutt
最新回复
(
0
)