首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下: Private Sub Command1_Click() Dim x1 As Integer, x2 As Integer, x3 As In
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下: Private Sub Command1_Click() Dim x1 As Integer, x2 As Integer, x3 As In
admin
2020-06-30
56
问题
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:
Private Sub Command1_Click()
Dim x1 As Integer, x2 As Integer, x3 As Integer
s = Trim(Text1.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" 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函数是去掉字符串前面和后面的空格,A)错。Select Case语句的测试表达式,可以是算术表达式或字符表达式,其值应是数字或字符型, B)错。Case语句可以是连续的范围:界1 To 界2 ,如:12 To 20,C)错。x4是排除了字符串中字母、数字字符的个数的和。选D)。
转载请注明原文地址:https://kaotiyun.com/show/KGHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生目录下有一个工程文件sjt3.vbp。窗体上有三条直线,是一个数组,数组的名称为Line1。在运行时,用鼠标单击其中一条线的任何位置,则以单击的点为起始点,画一个正弦曲线(如图1-310所示);若鼠标单击在直线之外,则不画正弦曲线。
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上已经有一个标签Label1,请画一个单选按钮数组,名称为Op1,含三个单选按钮,它们的Index属性分别为0、1、2,标题依次为“飞机”、“火车”、“汽车”,再画一个名称为Text1的文本框。窗体
设工程中有Form1、Form2两个窗体,要求单击Form2上的Command1命令按钮,Form2就可以从屏幕上消失,下面的事件过程中不能实现此功能的是.
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Commanl的命令按钮。Forml的代码如下:Form2的代码如下:Public
若程序中有语句:y=proc(6),则proc应该是
设有下面的程序段:X=InputBox("请输入一个整数")ReDima(x)Fork=xTo0Step-1a(k)=kNextk一般,在这段程序之前应先进行数组a的定义。下
设有下面的语句:PrintIIffx>0,1,Ilf(x
下面属于系统软件的是()。
随机试题
()的人际关系,主要指和谐、融洽、友爱、团结的人际关系。
按药理作用,具有缓解作用的药物是
A.先见于踝部B.体腔积液甚为少见C.限于眶周D.高度凹陷性水肿E.水肿指压凹陷不明显急性肾炎的水肿
机场旅客航站区指标依据()划分为6个等级。
对外贸易在资本主义社会中的作用包括()。
根据公司法律制度的规定,下列情形中,构成股东要求司法解散公司的正当理由的是()。(2016年)
隋朝选拔人才的主要方式是()。
图案
设f(χ)可导,则当△χ→0时,△y-dy是△χ的().
Lawyersarelessthan1%ofAmericanadults,【C1】______theyarewell-representedingovernment.Boththepresidentandthevice-p
最新回复
(
0
)