2. 计算机
  3. 设窗体上有Textl、Text2两个文本框，并编写了下面的程序代码： Private Sub Textl_KeyPress(KeyAscii As Integer) If"A"＜=Chr(KeyAscii)And Chr(KeyA

设窗体上有Textl、Text2两个文本框，并编写了下面的程序代码： Private Sub Textl_KeyPress(KeyAscii As Integer) If"A"＜=Chr(KeyAscii)And Chr(KeyA

admin2019-01-17  39
问题 设窗体上有Textl、Text2两个文本框，并编写了下面的程序代码：
    Private Sub Textl_KeyPress(KeyAscii As Integer)
         If"A"＜=Chr(KeyAscii)And Chr(KeyAscii)＜=”Z”Then
             KeyAscii=KeyAscii+(Asc("a")-Asc(”A”))
         End If
         n=0
         If KeyAscii=13 Then
             For k=1 To Len(Textl)
                ch$=Mid(Textl，k，1)
                If”a”＜=ch And ch＜=”z”Then n=n+1
             Next k
             Text2=n
         End If
    End Sub
    程序运行时，在Textl文本框中输入“Visual Basic 6．0”后按回车键，则在Text2文本框显示的是
选项 A、1 1   
B、16   
C、Visual Basic 6．0
D、visual basic 6．0
答案A
解析 本题中的第一个If…Then结构的作用是将所有输入的大写字符转换为小写字符；第二个If结构的条件是按下回车键，里面嵌套了一个For循环，在循环中依次取出文本框中的每一个字符进行判断，若其为小写字符则n自加1，循环结束后n的值就是文本框中字母的个数。
转载请注明原文地址:https://www.kaotiyun.com/show/3SFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)