2. 计算机
  3. 窗体中文本框的名称为Text1、命令按钮的名称为Command1、组合框的名称为Combol，组合框中的列表项如图所示。 按钮的事件过程如下： Prirate Sub Command1_Click() Dim ch As Stri

窗体中文本框的名称为Text1、命令按钮的名称为Command1、组合框的名称为Combol，组合框中的列表项如图所示。 按钮的事件过程如下： Prirate Sub Command1_Click() Dim ch As Stri

admin2018-09-19  54
问题 窗体中文本框的名称为Text1、命令按钮的名称为Command1、组合框的名称为Combol，组合框中的列表项如图所示。

    按钮的事件过程如下：
    Prirate Sub Command1_Click()
    Dim ch As String，str As String
    ch=Cornbol．Text
    str=""
    n=0
    For k=Combol．ListCount-1 To 0 Step-1
    IfLeft(Combol．List(k)，Len(ch))=eh
    Then
    n=n+1
    Else
    str=str+Combol．List(k)
    End If
    Next k
    Text1．Text：str
    End Sub
    程序运行后，在组合框的编辑区输入“程”(如图所示)，再单击命令按钮，则在文本框中显示的是(    )。
选项 A、程小军程忠程极宽
B、程极宽程忠程小军
C、刘士程程小军程忠程极宽李程程
D、李程程马燧李治张宏刘士程
答案D
解析 本题考查Combox控件的属性和方法的使用，程序中定义了字符串变量ch和str，其中ch赋值为Combox中输入的汉字“程”，str的初始值为空字符串，程序进入For循环，循环变量k的初始值为Comboxl．ListCount-1，其中ListCount属性为组合框中的表项数量，表项从0开始，最后一项为Comboxl．ListCount-1，本题中Comboxl．ListCount一1为7，所以循环变量k的初始值为7终止值为0，循环共执行8次，循环执行过程如下：
    当k=7时，if Left(Comboxl．List(k)．Len(ch))=ch条件为假，执行语句str=str&Comboxl．List(k)，str的值为“李程程”
    当k=6时，if Left(Comboxl．List(k)，Len(ch))=ch条件为假，执行语句str=str&Comboxl．List(k)，str的值为“李程程马燧”
    当k=5时，if Left((：omboxl．List(k)，Len(ch))=ch条件为假，执行语句str=str&Comboxl．List(k)，str的值为“李程程马燧李治”
    当k=4时，if Left(Comboxl．List(k)．Len(ch))=ch条件为真，执行语句n=n+1，n的值为1
    当k=3时，if Left(Comboxl．List(k)，Len(ch))=ch条件为真，执行语句n=n+1，n的值为2
    当k=2时，if Left(Comboxl．List(k)，Len(ch))=ch条件为假，执行语句str=str&Comboxl．List(k)，str的值为“李程程马燧李治张宏”
    当k=1时，if Left(Comboxl．List(k)，Len(ch))=ch条件为真，执行语句n=n+1，n的值为3
    当k=0时，if Left(Comboxl．List(k)，Len(ch))=ch条件为假，执行语句str=str&Comboxl．List(k)，str的值为“李程程马燧李治张宏刘士程”。
    故本题D选项正确。本题选择D选项。
转载请注明原文地址:https://www.kaotiyun.com/show/VbFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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