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

admin2013-10-16 34

问题设窗体上有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/YLQp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

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

二级VB

NCRE全国计算机二级

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click()Dimart(1To10)AsIntegerFori=1To10Art(i)=Int(R

编写如下代码：DimFlagAsBooleanPrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Flag=T

实现字符的Unicode编写方式与ANSI编写方式相互转换的函数是______。

在运行过程中，要将某窗体设置为不可见，可以设置窗体的______属性。

软件工程环境一般应具有某些特征，下列叙述中______不是它必须具备的特征。

假定有一个菜单项，名称为MenuItem，为了在运行时使该菜单项失效(变灰)，应使用的语句为______。

下列关于防火门监控器的说法中，错误的是()。

事业单位的经营支出是指事业单位开展各项专业业务活动及其辅助活动发生的支出。()

A．绝经后阴道不规则流血，有盆腔包块。阴道细胞学涂片示雌激素中—高度影响B．妇检有盆腔肿块，AFP升高C．诊断为卵巢肿瘤，HCG增高D．诊断为卵巢肿瘤，CAl25增高E．诊断为卵巢肿瘤，有甲状腺功能亢进表现卵巢颗粒细胞瘤()

下列属于气体灭火系统喷嘴安装要求有()。

信托业务分为主动管理信托和被动管理信托，其分类依据是()。

根据员工的实际贡献支付报酬，并适当拉开差距，使业绩好的员工得到鼓励，业绩差的员工，努力去改进业绩，这体现了薪酬管理的()原则。(2004年11月三级真题)

下列选项中，关于行政管理的正确说法有()。

在某国的总统竞选中，争取连任的现任总统申辩：“本届政府执政期间，失业率降低了两个百分点，可见本届政府的施政纲领是正确的。”如果下列哪项为真，则能有力地削弱以上的申辩?

Thefatherwasdelightedtohearthechild______that.