网友您好，请在下方输入框内输入要搜索的题目：

搜题

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

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

[主观题]

在窗体中建立三个文本框，名称分别为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

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

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称”相关的问题

第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

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

报考湖南成人高考艺术类专业注意事项! 2024年自考准考证打印入口官网有什么注意事项 2024年自考大专报名需要中专毕业证吗都要哪些材料湖南成人高考艺术类专业录取控制分数线划定方式？初中可以自考本科文凭吗报考要求有哪些考生报名2024年湖南成人高考要趁早，注意改革变化! 2024年自考本科报名限制学历吗流程步骤是什么 2024年考自考大专要具备什么学历有哪些要求 2024年初中学历去自考大专怎么报名需要什么条件 2024年湖南成人高考录取查询时间！

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次