设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。A．BasicB．cisaBC．BASICD．CISAB

题目

设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。

A．Basic

B．cisaB

C．BASIC

D．CISAB

相似考题

1.窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为Text1、Text2, 1个名称为 Command1的命令按钮，并有以下程序Private Sub Command1_Click（）Dim str As String, s As String, k As Integers=Text1Str=””For k=List1.ListCount-1 to 0 Step-1If InStr（List.List（k）,s）>0 thenstr=str&List.List（k）&” ”End IfNext kIf str=””ThenText2=”没有匹配的项目”ElseText2=strEnd IfEnd Sub程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A．京B．北京 南京C．南京D．没有匹配的项目

2.在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：Dim S1 As String, S2 As StringPrivate Sub Form_Load（）Text1. Text=””Text2. Text=””End SubPrivate Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）S2=s2 & Chr（KeyCode）End SubPrivate Sub Text1_KeyPress（KeyAscii As Integer）S1=S1 & chr（KeyAscii）End SubPrivate Sub Command1_Click（）Text1.Text=S2Text2.Text=S1S1=""S2=""End Sub程序运行后，在Text1中输入"abc"，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为（ ）。A．abc 和 ABCB．abc 和 abcC．ABC 和 abcD．ABC 和 ABC

3.（ 27 ）设有如下通用过程：Public Function Fun(xStr As String) As StringDim tStr As String, strL As IntegertStr = ""strL = Len(xStr)i = 1Do While i <= strL / 2tStr = tStr & Mid(xStr, i, 1) & Mid(xStr, strL - i + 1, 1)i = i + 1LoopFun = tStrEnd Function在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()Dim S1 As StringS1 = "abcdef"Text1.Text = UCase(Fun(S1))End Sub程序运行后，单击命令按钮，则 Text1 中显示的是A ） ABCDEFB ） abcdefC ） AFBECDD ） DEFABC

4.设有如下通用过程：Public Function Fun（xStr As String）Dim tStr As String, srtL As IntegertStr+" "strL=Len（xStr）i=1Do While i <=strL/2tStr=tStr &Mid（xStr,i ,1）& Mid （xStr ,strL-i+1,1）i=i+1LoopFun=tStrEnd Function在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：Private Sub Command 1_ Click（）Dim S1 As StringS1="abcdef"Text1.Text=UCase（Fun（S1））End Sub程序运行后，单击命令按钮，则Text1中显示的是（ ）。 A．ABCDEFB．abcdefC．AFBECDD．DEFABC

参考答案和解析
正确答案：B
解析：本题考查的考点是有关循环和取子串函数的。本题比较简单，循环次数就是字符串的长度，每次都在第k位取一个字母，最后倒序连接起来。注意每次都把ch连接到s的前面。
更多“设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。A．BasicB．cisaBC．BASICD．CISAB”相关问题

  • 第1题：

    窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；

    还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str="" For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)＞0 Then str=str&List1.List(k)&" " End If Next k If str="" Then Text2="没有匹配项目" Else Text2=str End If End Sub 程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是______。

    A．京

    B．北京 南京

    C．南京 北京

    D．没有匹配的项目


    正确答案：C
    解析：InStr([首字符位置]字符串1，字符串2[,n])用来在“字符串1”中查找“字符串2”，如果找到，则返回“字符串2”的第一个字符在“字符串广中的位置。ListCount属性表示组合框中项目的数量。ListCount-1表示组合框中最后一项的序号。程序中循环变量的初值是列表框中的最后一个项目，终值是列表框中的第一个项目，此循环的作用是从列表框的最后一个项目到第一个项目中，找出列表框项目中包含“京”的项目，并将内容显示在Text2中。

  • 第2题：

    在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。

    A．27

    B．28

    C．29

    D．30


    正确答案：C
    解析：程序中各部分值的运算过程为：
      Text1.Text="28.653"
      Val(Text1.Text)=28.653
      Val(Text1.Text)+0.5=29.153
      Int(Val(Text1.Text)+0.5)=29
      x=29
      str(x)="29"

  • 第3题：

    设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr="" strL=Len(xStr) i=1 Do While i＜＝strL/2 tStr＝tStr & Mid(xStr,i,1) & Mid(xStr,strL-i+1，1) i＝i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abcdef" Text1.Text=UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，则Text1中显示的是______。

    A．ABCDEF

    B．abcdef

    C．AFBECD

    D．DEFABC


    正确答案：C
    解析：Mid(字符串，p，n)；从第p个字符开始，向后截取n个字符。p和n都是算术表达式。“&”：字符串连接运算符，将两个字符串按顺序连接起来。
    UCase(字符串)：将字符串所有的字母都转换成大写字符。
    Len(字符串)：返回字符串的长度。
    分析程序：当Fun过程用语句Fun()调用后，S1的值“abcdef”被赋给xStr，执行第一次循环时Mid(xStr,i,1)相当于Mid(xStr,1，1)，Mid(xStr,strL-i+1，1)相当于Mid(xStr,6,1)，此时tStr=AF，由此判断选项C正确。

  • 第4题：

    在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。

    Private Sub Command1_Click（ ）

    Dim str As String, s As String, c As String

    str = UCase（Text1）

    s = ""

    c = "Z"

    While c >= "A"

    If InStr（str, c） = 0 Then

    s = 【7】

    End If

    c = Chr$（Asc（c） 【8】 ）

    Wend

    If s <> "" Then

    Text1 = s

    End If

    End Sub


    正确答案：

    s&c　-1

  • 第5题：

    （24）在窗体上有文本框Text1和命令按钮Command1,并有下列事件过程： Private Sub Command1_Click() Dim i As Integer For j=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 单击命令按钮，程序运行后，在文本框中显示的值是 A.2 B.3 C.4 D.5


    正确答案：C
    【解析】For循环是指定循环次数的循环，但是有时候可能需要在循环变量到达终值前退出循环，这可以使用Exit For语句来实现。在一个For循环中，可以含有一个或多个Exit For语句，并且它可以出现在循环体的任何位置。本题中，当i大于10的时候，就退出For循环，不管循环变量j是否达到终值50。程序执行过程如下：
    第1次循环，即j=0时：i=3，n=1；第2次循环，即j=1时：i=6，n=2；第3次循环，即j=2时：i=9，n=3；第4次循环，即j=3时：i=12，n=4；此时i>10成立，执行Exit For语句退出循环。

  • 第6题：

    在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2.17 n=Len(Str$(m)＋Space(5)) Me!Text1=n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示______。

    A．5

    B．8

    C．9

    D．10


    正确答案：D
    解析：程序中“n=Len(Str$(m)+Space(5))”的含义是算出字符串总长度，当把正数转换成字符串时，Str$函数在字符串前面留有一个空格，Space(数值表达式)，则返回由数值表达式确定的空格个数组成的空字符串。 Str$(m)表示5个字符串，Space(5)表示5个字符串，所以n等于10。

  • 第7题：

    设有如下通用过程：Public Function Fun (xStr As String) As String Dim tStr As String，strL As Integer tStr=-" " strL=Len(xStr) i=strL/2 Do Whilei＜=strL tStr=tStr &id(xStr,i+1，1) i=i+1 Loop Fun=tStr & tStrEnd Function 在窗体上画—个名称为Text1的文本框和—个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_ Click() Dim S1 String S1="ABCDEF" Text1.Text=LCase(Fun(S1))End Sub 程序运行后，单击命令按钮，文本框中显示的是 ______。

    A．ABCDEF

    B．abcdef

    C．defdef

    D．defabc


    正确答案：C
    解析：Mid(字符串，p，n)：从第p个字符开始，向后截取n个字符。p和n都是算术表达式。
    “&”：字符串连接运算符，将两个字符串按顺序连接起来。
    LCase(字符串)：将字符串所有的字母都转换成小写字符。
    Len(字符串)：返回字符串的长度。
    由LCase可知，最后结果为小写字符串，可排除选项A。当Fun过程用语句Fun(S1)调用后，S1的值“ABCDEF”被赋给xStr，执行第一次循环时Mid(xStr,i+1，1)相当 Mid(xStr,4，1)，此时tStr=D，执行第二次循环时Mid(xStr,i+1，1)相当于Mid(xStr,5，1)，此时tStr=DE，执行第三次循环时Mid(xStr,i+1，1)相当于Mid(xStr,6，1)，此时tStr=DEF，执行第四次循环时Mid(xStr,i+1，1)相当于Mid(xStr,7，1)，没有取到值，此时tStr=DEF，i的值为7，不满足循环条件，循环结束，Fun=tStr & tStr=DEFDEF，由此判断选项C正确。

  • 第8题：

    设窗体上有text1文本框和Command1命令按钮，并有以下程序：

    Private Sub Command1_Click()

    Temp$=””

    For k=1 to len(text1)

    Ch$=mid(text1,k,1)

    If not found(temp,ch)then

    Temp=temp&【13】

    End If

    Next k

    Text1=【14】

    End Sub

    Private function found(str as string,ch as string)as Boolean

    For k=1 to len(str)

    If ch=mid(str,k,1)then

    Found=【15】

    Exit function

    Next k

    Found=false

    End function

    运行时，在文本框中输入 若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母，例如，若文本框中原有字符串为“abcddbbc”则单击命令按钮后文本框中字符串为“abcd”,其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回true，否则返回false。请填空


    正确答案：
    【答案】：【13】ch
    【知识点】：Mid()函数的用法以及字符串连接的方法
    【解析】：ch中存放的是从文本框中取出的一个字符，如果它还没有出现在temp中，则将它连接在temp的后面。
    【答案】：【14】temp
    【知识点】：文本框显示内容的方法
    【解析】：temp中存放了所有不重复的字符，是我们所需要的内容，因此最后将它显示在文本框中。
    【答案】：【15】True
    【知识点】：函数返回值的用法
    【解析】：found函数是判断某个字符是否在某个字符串中，如果是则返回True，如果不是则返回False。

  • 第9题：

    在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：

    Private Sub Text1 KeyPress(KeyAscii As Integer)

    Dim str As String,n As Integer

    str=UCase(Chr(KeyAscii))

    n=Len(str)

    Text1.Text=String(n,str)

    End Sub

    程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。

    A．pp

    B．pP

    C．PP

    D．Pp


    正确答案：B
    解析：解答本题的前提是了解下列几个函数的作用：UCase函数的作用是将某字符串中的字符全部转成大写；String(n,str)函数的作用是返回n个重复字符的字符串；Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码，输入小写字母“p”后，str为大写字母“P”，n=1，String(n,str)为“P”，所以Text1中在按下键盘上的键时又添加了一个“P”。

  • 第10题：

    在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click(． For I =1 To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next I Text1.value = Str(x． End Sub 打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

    A.6

    B.12

    C.18

    D.21


    正确答案：D
    首先看一下程序结构，本程序有三个For循环，赋值语句"x=3"在第一层循环语句"ForI=1To4"内，也就是说，无论I的值是1还是4，循环的结果都一样，因为在第一轮循环执行结束，第二轮循环开始时，变量x的值都会恢复为3，所以可以将"ForI=1To4"看作只执行了一次。根据"Forj=1To3"和"Fork=1To2"这个嵌套循环，我们可以推算出语句"x=x+3"执行了6次，循环过程如下：j=1时：k=1，x=3+3=6，k=2，x=6+3=9;j=2时：k=1，x=9+3=12，k=2，x=12+3=15;j=3时：k=1，x=15+3=18，k=2，x=18+3=21。所以程序通过语句"Text1.value=Str(x．"，在文本框中输出的结果为21。所以本题答案为D。

  • 第11题：

    窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。 Private Sub Command1_Click（ ） Dim str As String，S As String．k As Integer s=Text1 str ="" For k=Listl．ListCount-1 To 0 Step-1 If InStr(List1．List(k)，s)>0 Then str=str ＆ List1．List(k)＆"" End If Next k If str=""Then Text2="没有匹配的项目" Else Text2=str End If End Sub程序运行时，在Text1中输入"京"，单击命令按钮，则在Text2中显示的内容是（ ）。

    A.京

    B.北京南京

    C.南京北京

    D.没有匹配的项目


    正确答案：C
    C。【解析】InStr函数格式是：InStr([首字符位置，]字符串1，字符串2[，n])，即在“字符串1”中查找“字符串2”若找到，则返回“字符串2”的第一个字符在“字符串1”中的位置。而“字符串1”的第一个字符的位置为1，即指定一字符串在另一个字符串中最先出现的位置。题中利用For循环将S即Text1中文本在列表框中各项进行查找，若S在某列表项中则将该项放入Str中，并在Text2中显示该列表项，若Str为空则在Text2中显示“没有匹配的项目”。

  • 第12题：

    在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。

    A．abodefg

    B．不显示任何信息

    C．ABCDEFG

    D．出错


    正确答案：B

  • 第13题：

    （ 29 ）在窗体上画一个命令按钮和两个文本框，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：

    Dim S1 As String, S2 As String

    Private Sub Form_Load()

    Text1.Text = ""

    Text2.Text = ""

    End Sub

    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

    S2 = S2 & Chr(KeyCode)

    End Sub

    Private Sub Text1_KeyPress(KeyAscii As Integer)

    S1 = S1 & Chr(KeyAscii)

    End Sub

    Private Sub Command1_Click()

    Text1.Text = S2

    Text2.Text = S1

    S1 = ""

    S2 = ""

    End Sub

    程序运行后，在 Text1 中输入 “ abc ” ，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为

    A ） abc 和 ABC

    B ） abc 和 abc

    C ） ABC 和 abc

    D ） ABC 和 ABC


    正确答案：C

  • 第14题：

    （ 30 ）有如下通用过程：

    Public Function Fun(xStr As String) As String

    Dim tStr As String ,strL As Integer

    tStr= ” ”

    strL=Len(xStr)

    i=strL/2

    Do While i<=strL

    tStr=tStr & Mid(xStr,i+1,1)

    i=i+1

    Loop

    Fun=tStr & tStr

    End Function

    在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：

    Private Sub Command1_Click()

    Dim S1 As String

    S1= ” ABCDEF ”

    Text1.Text=Lcase(Fun(S1))

    End Sub

    程序运行后，单击命令按钮，文本框中显示的是

    A ） ABCDEF

    B ） abcdef

    C ） defded

    D ） defabc


    正确答案：C

  • 第15题：

    在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。

    A．abc和ABC

    B．abc和abe

    C．ABC和abc

    D．ABC和ABC


    正确答案：C
    解析：KeyPress事件是处理用户按键的事件过程，当用户按键时激发该事件。KeyDown事件也是在用户按下按键时发生。但是KeyDown事件过程的KeyCode参数与KeyPress事件的KeyAscii参数不同。对于KeyPress事件的KeyAscii参数来说，小写状态下按A键返回97，而对于KeyDown事件过程的KeyCode参数来说返回65，由此可判断选项C为正确答案。

  • 第16题：

    以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。

    Private Sub Command1_Click（ ）

    Dim k As Integer

    Dim sum As Single, max As Single, min As Single

    sum = Text1（0）

    max = Text1（0）

    min = ______

    For k = ______ To 6

    If max < Text1（k） Then

    max = Text1（k）

    End If

    If min > Text1（k） Then

    min = Text1（k）

    End If

    sum = sum + Text1（k）

    Next k

    Text2 = （______） / 5


    正确答案：

     text1(0)　1　(sum-max-min)

  • 第17题：

    在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Commandl，然后编写如下两个事件过程；

    Private Sub Command1_Click()

    S＄= InputBox ("请输入1个字符串")

    Text1.Text= S＄

    End Sub

    Private Sub Text1_Change()

    Labell.Caption = UCase(Mid(Text1, Text2, 8))

    End Sub

    程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"Visual Basic"，则在标签中显示的内容是______。


    正确答案：BASIC
    BASIC

  • 第18题：

    下列程序是将两个文本框(text1和text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。 Private Sub Command1_Click() Dim sl As String，s2 As String S1=Text1.Text S2=TextText For i=Len(s1)To 1 Step-1 s3=s3+Mid(s1，i，1)+Mid(s2，i，1) Next i Pic1.Print s3 End Sub 程序运行后，在Text1文本框中输入“ABCDE”，在Text2文本框中输入“12345”，单击命令按钮，则在Pic1图片框中显示的内容是

    A．E5D4C3B2A1

    B．ABCDE12345

    C．12345ABCDE

    D．A1B2C3D4E5


    正确答案：A
    解析：Len()函数是计算字符串的长度，用“ABCDE”的长度来确定循环次数。两个Mid函数从右至左逐个取两个字符串中的单个字符，然后重新进行组合。

  • 第19题：

    在窗体上面显示一个名称为Text1的文本框和一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() Text1.Text="Visual" ME．Text1="Basic" Text1="Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是______。

    A．Visual

    B．Basic

    C．Program

    D．出错


    正确答案：C

  • 第20题：

    在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim i As Integer，n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 单击命令按钮，程序运行后，在文本框中显示的值是( )。

    A．2

    B．3

    C．4

    D．5


    正确答案：C
    解析：For循环是指定循环次数的循环，但是有时候可能需要在循环变量到达终值前退出循环，这可以使用ExitFor语句来实现。在一个For循环中，可以含有一个或多个ExitFor语句，并且它可以出现在循环体的任何位置。本题中，当i大于10的时候，就退出For循环，不管循环变量j是否达到终值50。程序执行过程如下：第1次循环，即j=0时：i=3，n=1：第2次循环，即j=1时：i=6，n=2：第3次循环，即j=2时：i=9，n=3：第4次循环，即j=3时：i=12，n=4：此时i＞10成立，执行ExitFor语句退出循环。

  • 第21题：

    在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是

    A． Visual

    B．Basic

    C．Program

    D．出错


    正确答案：C
    解析：Text是文本框的默认属性。

  • 第22题：

    在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序： Diln S1 As String，S2 As String Private Sub Form. Load（ ） Text1．Text="" Text2．Text="" Text1．Enabled=False Text2．Enabled=False End Sub Private Sub Form. KeyDown(KeyCode As Integer，Shift As Integer) S2=S2＆Chr(KeyCode) End Sub Pri vate Sub Form. KeyPress(KeyAscii As Integer) S1=S1＆Chr(KeyAscii) End Sub Private Sub Command1 Click（ ） Text1．Text=S1 Text2．Text=S2 S1="" S2="" End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（ ）。

    A.abc和ABC

    B.空白

    C.ABC和abc

    D.出错


    正确答案：A
    A。【解析】KeyPrtview属性被设置为True，则一个窗体先于该窗体上的控件接收到此事件。Form_Load事件是窗体载入事件，常用于窗体的初始化，Text1和Text2的属性Enabled设置成false，禁止向文本框里输入。本题中Form_KeyDown，Form_KeyPress事件的作用是将用户按下的按键值分别传给字符串s1、s2，然后通过命令按钮输出。

  • 第23题：

    在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1 KeyPress(KeyAscii As Integer) If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1 Click（ ） Dim m As String，i As Integer For i=Len(ss)To 1 Step-1 m=m+Mid(SS，i，1) Next Text1．Text=UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（ ）。

    A.NUMtBER l00

    B.REBMUN

    C.REBM UN l00

    D.001 REBMUN


    正确答案：D
    D。【解析】本题是从后往前依次取SS的字符加到m后，起到了逆序输出的结果。

相关内容