违法和不良信息举报 联系客服
免费注册 登录

在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,在属性窗口中把窗体的K

题目

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

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(真Name属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do While x＜50 x=(x+2)*(x+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

第2题：

在名为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

第3题：

在窗体中有两个文本框分别为 text1 和 text2 ，一个命令按钮 command1, 编写如下两个事件过程：

Private sub command1_click()

A=text1.value+text2.value

Msgbox a

End sub

Private sub form_load()

Text1.value= ””

Text2.value= ””

End sub

程序运行时，在文本框 text1 中 78 ，在文本框 text2 中输入 87 ，单击命令按钮，消息框中输出的结果为____ 11 ___


正确答案：

第4题：

在窗体(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正确。

第5题：

在名为“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事件，完成两个字符串的连接。

第6题：

（ 19 ）在窗体上画两个文本框（名称分别为 text1 和 text2 ）和一个命令按钮（名称为 command1 ） , 然后

编写如下事件过程：

Private Sub Command1_Click()

x = 0

Do While x < 50

x = (x + 2) * (x + 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

第7题：

在窗体上画一个命令按钮和两个文本框，其名称分别为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，然后通过命令按钮输出。

第8题：

在窗体(Name 属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Commnd1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_ Load () Text1 Text=“” Text2 Text=“” End sub程序运行后，在第一个文本框(Text1)和第二个文本框(text2)中分别输入123和321，然后单击命令按钮，则输出结果为______ 。

A．444

B．321123

C．123321

D．132231


正确答案：C

第9题：

在窗体上画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。

第10题：

在窗体(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”。

更多相关问题
相关内容