设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Text1_KeyPress(KeyAscii As Integer) If"A"<=Chr(KeyAscii)And Chr(KeyAscii)<="Z"The

admin2016-09-19  27

问题 设窗体上有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
IfKeyAscii=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 Basic6.0”后按回车键,则在Text2文本框显示的是

选项 A、11
B、16
C、Visual Basic6.0
D、visual basic6.0

答案A

解析 本题中的第一个If…Then结构的作用是将所有输入的大写字符转换为小写字符;第二个If结构的条件是按下回车键,里面嵌套了一个For循环,在循环中依次取出文本框中的每一个字符进行判断,若其为小写字符则n自加1,循环结束后n的值就是文本框中字母的个数。
转载请注明原文地址:https://kaotiyun.com/show/gdLp777K
0

最新回复(0)