题目内容（请给出正确答案）

在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称

[主观题]

在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称

为command1的命令按钮，编写如下代码：

Private Sub Command1_Click()

Dim x!, y!, z!, t!

x = Text1

y = Text2

z = Text3

If x< y then

t = x

x = y

y = t

End If

If y< z then

t = y

y = z

z = t

If x< y then

t = x

x = y

y = t

End If

End If

Label1.Caption = x & "," & y & "," & z

End Sub

当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为()

A.3,5,8

B.5,3,8

C.8,5,3

D.3.8.5

提问人：网友zhangwei2018 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“在窗体中建立三个文本框，名称分别为text1、text2和t…”相关的问题

第1题

在窗体中建立了三个文本框，名称分别为text1、text2和text3，编写以下程序段：

PrivateSubText2_LostFocus()

DimiAsInteger

IfIsNumeric(Text2)Then

Text3.Text="正确!!"

Else

Text2.Text=""

Text2.SetFocus

Text3.Text="错误,再输入!!"

EndIf

EndSub

当在text2中输入字符串"abcd"后，点击text3，运行的结果为()

A.text2的内容清除,text3中显示"正确!!"

B.text3中显示"正确!!"

C.光标聚焦在text2中

D.text2的内容清除,text3中显示"错误,再输入!!"

点击查看答案

第2题

窗体上仅有两个文本框TextBox1和TextBox2控件, 当焦点在TextBox1时,按下Tab键后，如下叙述正确的是。

A、触发了TextBox1的GotFocus事件和TextBox2的LostFocus事件

B、触发了TextBox1的LostFocus事件和TextBox2的GotFocus事件

C、触发了TextBox1的KeyPress事件和TextBox2的GotFocus事件

D、触发了TextBox1的LostFocus事件和TextBox2的KeyPress事件

点击查看答案

第3题

在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。

编写如下程序：

Private Sub Form_Load（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

End Sub

Private Sub Command1_Click（）

x=Val（Text1.Text）

y=Val（Text2.Text）

Text3.Text=f（x，y）

End Sub

Function f（ByVal x As Integer,ByVal y As Integer）

Do While y$amp;tmp=x Mod y

x=y

y=tmp

Loop

f=x

End Function

运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是（）。

A．4

B．6

C．8

D．12

点击查看答案

第4题

窗体中有文本框为Text1和Text2。运行程序时单击"运行"按钮Command1，在Text1中输入整数m（m>0），在Text2中显示输出m的全部除1和自身之外的因子。例如，20的因子有2，4，5，10，输出结果为"2,4,5,10,"；16的因子为2，4，8，输出结果为"2,4,8,"。事件代码如下： Private Sub Command1_Click() m = Val(Me!Text1) resule = "" k = 2 Do If m Mod k = 0 Then result = result & k & "," k = k + 1 Loop While 【】 Me!Text2 = result End Sub 程序【】处应填写的语句是______。

A、k>m

B、k<m<br> C、k>=m

D、k<=m<br>

点击查看答案

第5题

以下程序段：

Private Sub Form_Load()

Dim Nop As Integer, Op As String * 1

Num1 = 3

Num2 = 2

Nop = val(Inputbox("请输入1-4之间的整数"))

Select Case Nop

Case 1

Op = "+"

Result = Num1 + Num2

Case 2

Op = "-"

Result = Num1 - Num2

Case 3

Op = "×"

Result = Num1 * Num2

Case 4

Op = "÷"

Result = Num1 / Num2

End Select

Label1= Num1 & Op & Num2 & "=" & Result

End Sub

窗体运行后，输入1，则label1的标题显示结果为()

A.3+2=5

B.3-2=1

C.3×2=6

D.3÷2=1.5

点击查看答案

第6题

执行下面的程序段后，b的值为______。

a=800

b=30

a=a+b

b=a-b

a=a-b

点击查看答案

第7题

窗体中有图片框(Picturel)和计时器(Timed)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向下、向右移动100twip。请填空。

Private Sub Form_Load()

Prcture1_Picture=LoadPicture("c\pic\mouth.ico")

______.Interva=2000

End Sub

Prinvate Sub Timer1_Timer()

Static x,y As Integer

x=x+100

y=y+100

Pictuer1.Move[x，y]

End Sub

点击查看答案

第8题

在结构化程序设计思想提出来以前，在程序设计中曾强调程序的效率。现在与程序的效率相比，人们更重视程序的【】。

点击查看答案

第9题

创建一个窗体，在该窗体中建立两个按钮，分别命名为Command1和Command2。下列程序代码用于实现以下功能：单击命令按钮Command1后，按钮Command1变为不可用，而Cmmnand2设置为可用。请填空。

Private Sub Command1_ Click()

Command1.______ = False

Command1.______ = True

End Sub

点击查看答案

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

简答题

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

简答题

点击打开微信