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

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

admin2015-08-28  35
问题 设窗体上有Text1、Text2两个文本框，并编写了下面的程序代码：
    Private Sub Text1_KeyPress(KeyAscii As Integer)
              If "A"＜=Chr(KeyAscii)A．nd Chr(KeyAscii)＜="Z"Then
                  KeyAscii=KeyAscii+(Asc("a")-Asc("A"))
              End If
              n=0
              If KeyAscii=13 Then
                  For k=1 To Len(Text1)
                    ch＄=Mid(Textl，k，1)
                    If"a"＜=ch And ch＜="z" Then n=n+1
                 Next k
    Text2=n
              End If
    End Sub
程序运行时，在Text1文本框中输入“Visual Basic 6．0”后按回车键，则在Text2文本框显示的是(    )。
选项 A、11
B、16
C、Visual Basic 6．0
D、visual basic 6．0
答案A
解析 Text1_KeyPress过程中，先把输入的字符串字母变成小写的。当按下Enter键后，执行For循环统计小写字母的个数。退出循环后把n值赋给。Text2。选A。
转载请注明原文地址:https://www.kaotiyun.com/show/9ZQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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