在窗体上画一个命令按钮和两个文本框,其名称分别为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

题目

在窗体上画一个命令按钮和两个文本框,其名称分别为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.出错


相似考题
更多“在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,在属性窗口中把窗体的K ”相关问题
  • 第1题:

    在名为Form1的窗体上添加三个文本框和一个命令按钮,其名称分别为Text1、Text2、Text3和Command1,然后编写如下两个事件过程: Private Sub Command1_Click() Text3=Textl+1Text2 End Sub private Sub Form1_Load() Text1="" Text2="" Text3="" End Sub 打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为( )。

    A.57

    B.12

    C.5

    D.出错


    正确答案:A

  • 第2题:

    在名为“Form1”的窗体上添加3个文本框和一个命令按钮,其名称分别为“Text1”、“Text2”、“Text3”和“Command1”,然后编写如下两个事件过程:

    Private Sub Commandl Click()

    Text3=Text1+Text2

    End Sub

    Private Sub Form1 Load()

    Text1=" "

    Text2=" "

    Text3=" "

    End Sub

    打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为【 】。


    正确答案:57
    57 解析:本题考查对“+”的理解。在VBA中,“+”既可以用作数学运算符,也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接,然后在第3个文本框中显示,所以应该是57,在连接字符串方面,“+”和“&”是相同的功能,但“&”只能用来连接字符串,而不能进行数学运算。命令按钮 Commandl的Click事件是:Text3=Text1+Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中,窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后,单击命令按钮来触发其Click事件,完成两个字符串的连接。

  • 第3题:

    在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和 Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程: Private Sub Commandl Click() a=TextText+TextText Print a End Sub Private Sub Form. Load() TextText="" Text2.Text="" End Sub 程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和 321,然后单击命令按钮,则输出结果为 ( )

    A.444

    B.321123

    C.123321

    D.132231


    正确答案:C
    解析:文本框的Text属性表示文本框的内容,当程序执行时,用户在文本框输入的内容会自动保存在该属性中,题中语句 Text1.Text+Text2. Text是实现将两文本框中内容的简单连接。故选项C正确。

  • 第4题:

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

    A.27

    B.28

    C.29

    D.30


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

  • 第5题:

    在名称为Form1的窗体上画两个文本框,名称分别为Text1、Text2,都没有初始内容,再画3个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“显示”、 “隐藏”、 “复制”。程序运行时,向Text1中输入的所有字符,都显示“*”。单击“显示”按钮后,在Text1中显示所有字符。再单击“隐藏”按钮后,Text1中的内容不变但显示的都是“?”。单击“复制”按钮后,把Text1中的实际内容复制到Text2中,如图25所示。注意:存盘时必须存放在考生文件夹下,工程文件名为ylc5.vbp,窗体文件名为ylc5.frm。


    正确答案:1.操作步骤 (1)在Visual Basic集成环境中选择“文件”→“新建工程”命令在“新建工程”对话框中选择“标准EXE”选项单击“确定”按钮。 (2)在工具箱中选择Label控件在窗体上创建两个Label控件。在属性窗口中设置名称分别为Label1、Label2Caption属性为“口令1”、“口令2”。 (3)选择工具箱中的TextBox控件在窗体上创建在属性窗口中设置名称为Text1、 Text2设置Text属性为空。在属性窗口设置Text1的PasswordChar属性为“*”这样在密码输入的时候Text文本显示为“*”。 (4)选择工具箱中的命令按钮控件在窗体上用鼠标拖动创建三个命令按钮名称分别为Command1、Command2、Command3在属性窗口设置Caption属性为“显示”、“隐藏”、“复制”。 2.行为编码 (1)在代码编辑器中选择Command1对象和Click事件其行为代码如下: Private Sub Command1_Click() Text1.PasswordChar=" " End Sub (2)在代码编辑器中选择Command2对象和Click事件其行为代码如下: Private Sub Command2_Click() Text1.PasswordChar="?" End Sub (3)在代码编辑器选择Command3对象和Click事件其行为代码如下: Private Sub Command3_Click() Text2.Text=Text1.Text End Sub 3.存盘保存 执行“文件”→“保存工程”命令工程文件名为ylc5.vbp窗体文件名为ylc5.frm。
    1.操作步骤 (1)在Visual Basic集成环境中选择“文件”→“新建工程”命令,在“新建工程”对话框中选择“标准EXE”选项,单击“确定”按钮。 (2)在工具箱中选择Label控件,在窗体上创建两个Label控件。在属性窗口中设置名称分别为Label1、Label2,Caption属性为“口令1”、“口令2”。 (3)选择工具箱中的TextBox控件,在窗体上创建,在属性窗口中设置名称为Text1、 Text2,设置Text属性为空。在属性窗口设置Text1的PasswordChar属性为“*”,这样在密码输入的时候Text文本显示为“*”。 (4)选择工具箱中的命令按钮控件,在窗体上用鼠标拖动创建三个命令按钮,名称分别为Command1、Command2、Command3,在属性窗口设置Caption属性为“显示”、“隐藏”、“复制”。 2.行为编码 (1)在代码编辑器中选择Command1对象和Click事件,其行为代码如下: Private Sub Command1_Click() Text1.PasswordChar=" " End Sub (2)在代码编辑器中选择Command2对象和Click事件,其行为代码如下: Private Sub Command2_Click() Text1.PasswordChar="?" End Sub (3)在代码编辑器选择Command3对象和Click事件,其行为代码如下: Private Sub Command3_Click() Text2.Text=Text1.Text End Sub 3.存盘保存 执行“文件”→“保存工程”命令,工程文件名为ylc5.vbp,窗体文件名为ylc5.frm。 解析:(1)本题通过不同的角度考查考生对TextBox控件的PasswordChar属性的设置、Text属性的操作和使用。(2)设置Text1的PasswordChar属性为“?”,表示显示在Text1的文本框中的文本都以“?”符号代替。(3)由于Text2没有设置PasswordChar属性,因此文本在Text2中以明文的形式显示出来。

  • 第6题:

    在窗体(Name属性为form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮 (Name属性为Command1),然后编写如下两个事件过程,该过程的运行结果为______。Private Sub Command1_Click() a = Text1, Taxt + Text2, Text Print aEnd SubPrivate Sub form_ Load() Text1.Text = "123" Text2.Text = "321"End Sub

    A.444

    B.321123

    C.123321

    D.132231


    正确答案:C
    解析:本题的重点是数字和字符串的区别。在“Text1.Text”和“Text2.Text”的值为字符串,对于字符串来讲“+”运算符和“&”运算符是一样的。

  • 第7题:

    (1)在名为Form1的窗体上绘制两个标签(名称分别为Label1和Label2,标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Command1,标题为“输入”)。编写命令按钮的Click事件过程,使程序运行后,若单击命令按钮,则先后显示两个“输入”对话框,在两个“输入”对话框中分别输入长和宽,并分别在两个文本框中显示出来,运行后的窗体如图21-1所示。

    注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为sj1.vbp,窗体文件名为sj1.frm。

    (2)在名为Form1的窗体上绘制一个标签(名称为Label1,标题为“输入”)、一个文本框(名称为Text1,Text属性为空白)和一个命令按钮(名称为Command1,标题为“显示”)。请编写命令按钮的Click事件过程,使程序运行后,在文本框中输入内容,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。

    注意:要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为Sj2.vbp,窗体文件名为sj2.frm。


    正确答案:

    (1)根据题意,新建“标准EXE”工程,在窗体上添加两个标签,名称分别为Label1和Label2、Caption属性分别为“长”和“宽”,两个文本框,名称分别为Text1和Text2、Text属性为空,一个命令按钮,名称为Command1,Caption属性为“输入”。设计完成后,双击Command1进入代码窗口,编写如下代码:


    (2)根据题意,新建“标准EXE”工程,在窗体上添加一个标签,其名称为Label1,标题为“输入”,一个文本框,其名称为Text1、Text属性为空,一个命令按钮,其名称为Com-mand1、标题为“显示”。窗体设计完成后,双击Command1命令按钮,编写如下代码:


  • 第8题:

    在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下程序:

    PrivateSubCommand1_Click()

    X=0

    DoWhileX<10

    X=(X+1)*(X+2)

    n=n+1

    Loop

    Text1.Text=Str(n)

    Text2.Text=Str(X)

    EndSub

    程序运行后,单击命令按钮,在两个文本框Text1和Text2中分别显示的值是( )

    A、1和0

    B.2和12

    C.2和72

    D.3和12


    正确答案:B

  • 第9题:

    在窗体上画两个文本框(其NAME属性分别为TEXT1和TEXT2)和一个命令按钮(其NAME属性为COMMAND1),然后编写如下事件过程: PRIVATE SUB COMMAND1_CLICK( ) X=0 N=0 DO WHILE X<50 x=(x+2) * (x+3) N=N+1 LOOP TEXT1=STR(N) TEXT2=STR(X) END SUB程序运行后,单击命令按钮,在两个文本框中显示的值分别为( )。

    A.1和0

    B.2和72

    C.3和50

    D.4和168


    正确答案:B
    解析:第一次循环后N=1,X=6,第二次循环后N=2,X=72,且此时循环终止。

  • 第10题:

    在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在( )处填入适当的内容,将程序补充完整。


    正确答案:
    True【解析】当向文本框中输入任何字符时.文本框中的内容发生变化,从而触发Change事件,事件处理程序将命令按钮激活即可。这通过设置Command1.Enabled的属性值为真来实现。

  • 第11题:

    在窗体上画两个文本框(其Name属性分别为Text1和Tex12)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程: 程序运行后,单击命令按钮,在两个文本框中显示的值分别为()。

    A10和0

    B2和100

    C3和50

    D4和168


    B

  • 第12题:

    在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: 程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入“同学们,”和“你们好”,然后单击命令按钮,则输出结果为多少?
    程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入“同学们,”和“你们好”,然后单击命令按钮,则输出结果为:同学们,你们好。

  • 第13题:

    在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,在属性窗V1中把窗体的KeyPreview属性设置为True,然后编写如下程序:

    Dim 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

    Privtee Sub Form_KeyPress(KeyAscii As Integer)

    S1=S1&Chr(KeyAscii)

    End Sub

    Pfivtee Sub Command 1_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
    解析:KeyPreview属性被设置为True,则一个窗体先于该窗体上的控件接收到此事件。Form. Load事件是窗体载入事件,常用于窗体的初始化,Text1和Text2的属性Enabled设置成false,禁止向文本框里输入。本题中Form_KeyDown,Form_KeyPress事件的作用是将用户按下的按键值分别传给字符串s1、s2,然后通过命令按钮输出。

  • 第14题:

    在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,

    然后编写如下程序:

    Function Fun(X As Integer,ByVal y As Integer)As Integer

    x=x+y

    If X<0 Then

    Fun=x

    Else

    Fun=y

    End If

    End Function

    Private Sub Command1 Click()

    Dim a As Integer,b As Integer

    a=-10:b=5

    Text1.Text=Fun(a,B)Text2.Text=Fun(a, B)End Sub

    程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是【 】和【 】。


    正确答案:-5 5
    -5 , 5 解析:Fun函数的目的是修改参数x的值为x+y,如果x0,则返回x,否则返回y。执行Command1_click时,初始a=-10,b=5,执行第一个Fun函数后,a的值为-5,小于0,故返回a的值-5。执行第二个Fun函数后,a的值为0,不小于0,故函数返回b的值5。所以本题两空分别为-5及5。

  • 第15题:

    在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: Private Sub Command1_Click() A=Text1.Text+TextText Print a End Sub Private SUb Form胃Load() Text1.Text= " " TextText=" " End Sub程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入33和44,然后单击命令按钮,则输出结果为

    A.77

    B.33+44

    C.3344

    D.4433


    正确答案:C
    解析:对于该题,初学者一般都会认为选项A是答案,这是因为还没有建立数值和字符的概念。在文本框中的内容,在形式上无论是数值还是字符,实际上它都是字符。本题中的加号(+)对字符来讲是起到连接的作用,所以输出的是“3344”。

  • 第16题:

    在名为“Form1”的窗体上添加3个文本框和一个命令按钮,其名称分别为“Tem1”、“Text2”、“Text3”和“Command1”,然后编写如下两个事件过程:

    Private Sub Command1 Click()

    Text3=Text1+Text2

    End Sub

    Private Sub Forml Load()

    Text1=""

    Text2=""

    Text3=""

    End Sub

    打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为【 】。


    正确答案:57
    57 解析:本题考查对“+”的理解。在VBA中,“+”既可以用作数学运算符,也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接,然后在第3个文本框中显示,所以应该是57,在连接字符串方面,“+”和“&”是相同的功能,但“&”只能用来连接字符串,而不能进行数学运算。命令按钮 Command1的Click事件是:Text3=Text1-1-Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中,窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后,单击命令按钮来触发其Click事件,完成两个字符串的连接。

  • 第17题:

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

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

    A.2

    B.3

    C.4

    D.5


    正确答案:B
    题只能计算当i>1所循环的次数。注意i在循环体内被强行加3,到For循环时.还要再加步长1,这相当于因此,n=3。选择B。

  • 第18题:

    在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Textl和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后,在两个文本框中分别输人姓名和年龄,然后单击“显示”按钮,则在窗体上显示两个文本框中的内容,如图所示。要求程序中不得使用任何变量。

    注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjtl.vbp,窗体文件名保存为sjtl.frm。


    正确答案:

    【考点分析】本题考点有:标签的Name和Caption属性、文本框Name和Text属性、命令按钮的Name和Caption属性、“&”和“+”运算符以及Print方法。
    【解题思路】通过标签的Name和Caption属性设置标签的名称和标题,通过文本框Name和Text属性设置文本框的名称和文本,通过命令按钮的Name和Caption属性设置命令按钮的名称和标题,“&”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。
    【操作步骤】
    步骤1:新建一个窗体,按照题目要求建立控件并设置相应属性,程序中用到的控件及属性如表3.16所示。


    步骤2:打开代码编辑窗口,在指定位置编写如下代码。
    参考答案
    Private Sub Command1_Click()
    Form1.Print Text1.Text&",现年"&
    Text2.Text&"岁"
    End Sub
    步骤3:调试并运行程序,关闭程序后按题目要求存盘。

  • 第19题:

    在名为Form1的窗体上绘制两个标签(名称分别为Lab1和Lab2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Cmd1,标题为Display)。然后编写命令按钮的Click事件过程,使程序运行后,在两个文本框中分别输入姓名和年龄,然后单击命令按钮,则在窗体上显示两个文本框中的内容,如下图所示。

    注意:

    程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise57.vbp,窗体文件名为execise57.frm。


    正确答案:

  • 第20题:

    在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写下列事件过程: Private Sub Command1 Click( ) x=0 DO While x<50 x=(x+2)*(x4.3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别为( )。

    A.1和0

    B.2和72

    C.3和50

    D.4和168


    正确答案:B
    B。【解析】DoWhileUntil…Loop循环语句的执行过程是:如果条件为真(True),则执行语句块,当执行到Loop语句时,将返回到While语句并对“条件”再次进行判断,如仍为真(True),则重复前述过程;如果条件为假(False),则不执行语句块,而执行Loop之后的语句。本题第1次执行循环体后,x、n的值分别为6和1,第2次执行循环体后,x、n的值分别为72和2,此时While语句“条件”为假,将n、x的值在文本框中显示。

  • 第21题:

    在窗体(NAME属性为FORM1)上画三个文本框(其NAME属性分别为TEXT1、TEXT2和TEXT3)和一个命令按钮(NAME属性为COMMAND1),然后编写如下两个事件过程: PRIVATE SUB COMMAND1_CLICK( ) TEXT3=TEXT1+TEXT2 END SUB PRIVATE SUB FORM1_LOAD( ) TEXT1="" TEXT2="" TEXT3="" END SUB 程序运行后,在第一个文本框(TEXT1)和第二个文本框(TEXT2)中分别输入5和7,然后单击命令按钮,则文本框(TEXT3)中显示的内容为( )。

    A.12

    B.57

    C.75

    D.空值


    正确答案:B
    解析:完成文本框(TEXT1)和文本框(TEXT2)内容的求和,然后将结果显示在文本框 (TEXT3)中,但文本框的Value属性返回的值是字符串型,故两个字符串进行“+”运算的结果是字符中叠加,即两个字符串相连接。

  • 第22题:

    在窗体中绘制两个文本框和一个命令按钮,然后在命令按钮的代码窗口中编写如下事件过程:

    Private Sub Command1_Click()

    Text1="VB programming"

    Text2=Text1

    Text1="ABCD"

    End Sub

    程序运行后,单击命令按钮,文本框Text2中显示的内容为【 】。


    正确答案:VB programming
    VB programming 解析:本段程序是先把"VB programming"赋给Text1,然后再把Text1的内容赋给Text2,最后把"ABCD"赋给Text1。最后Text1中的内容是"ABCD",而Text2中的内容是"VB programming"。

  • 第23题:

    在窗体上画两个文本框,(其Name 属性分别为Text1和Text2)和一个命令按纽(其Name属性为Command1),然后编写如下事件过程()

    A1和0

    B2和72

    C3和50

    D4和168


    B

  • 第24题:

    单选题
    在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:程序运行后,在文本框中输入456,然后单击命令按钮,在输入对话框中输入123,则文本框中显示的内容是(  )。
    A

    579

    B

    123

    C

    456123

    D

    456


    正确答案: C
    解析:
    默认情况下,InputBox的返回值是一个字符串,因此程序中a="123",b="456",b+a="456"+"123"="456123"。使用字符连接运算符“+”时,如果连接的是字符串和数值,可根据返回值类型判断,若返回值类型为字符串,则它将数值转换成字符串后与另一字符串连接成新字符串返回;若返回值类型为数值,则它要求字符串中只能包含数字,而不能有其他字符,否则报“类型不匹配”的错误。