窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下: Private Sub Conunsnd1_Click() Dim x1 As Integer,x2 As Integer,x3 As Integer

admin2016-06-23  20

问题 窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:
Private Sub Conunsnd1_Click()
Dim x1 As Integer,x2 As Integer,x3 As Integer
8=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语句可以是连续的范围:界1To界2,如:12To20,C错。x4是排除了字符串中字母、数字字符的个数的和。选D。
转载请注明原文地址:https://kaotiyun.com/show/fSLp777K
0

最新回复(0)