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

[主观题]

在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Comman

d1），外观如图所示。

编写如下程序：

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＜＞0

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

提问人：网友zhaoxingcang 发布时间：2022-01-06

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“在窗体上画3个标签、3个文本框（名称分别为Text1、Tex…”相关的问题

第1题

在窗体上画2个名称为L1、L2的标签，其标题分别为“姓名：”...

在窗体上画2个名称为L1、L2的标签，其标题分别为“姓名：”和“成绩：”，1个名称为C1的命令按钮，其标题为“计算”，3个名称分别为T1、T2和T3的文本框。要求程序运行后，在T3中显示“姓名成绩等级”信息；在T1和T2中输入姓名和成绩，点击【计算】按钮，在文本框T3中追加并换行显示姓名、成绩以及等级信息。其中：按照≥90为“优”，≥80为“良”，≥70为“中”，≥60为“及格”，＜60为“不及格”来划分等级。程序运行界面如下图所示。 style="width:499px;height:254px" src="http://static.jiandati.com/17a306d-chaoxing2016-707360.jpeg"＞提示：（1）使T3能显示多行内容，同时具有水平和竖直滚动条，需要将T3的MultiLine属性设置为True，ScrollBars属性设置为Both。（2）在文本框中换行追加并且显示时，可用T3.Text = T3.Text & vbCrLf & （待追加并显示的字符串）。例如：T3.Text = T3.Text & vbCrLf & T2.Text 保存工程和窗体，窗体文件名为：昵称-1-2.frm;工程名为：昵称-1-2.vbp。将工程文件和窗体文件压缩成：昵称-1-2.rar，以附件形式提交。

点击查看答案

第2题

在窗体上画一个名称为C0mnmndl的命令按钮和3个名称分别为Label1、Label2、Label3的标签，然后编写如

下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 : z=n+z y=y+z : x=x+z Label1 Caption=x Label2 Caption=y Label3 Caption=z End Sub 运行程序，连续3次单击命令按钮后，则3个标签中显示的内容分别是______。

A．10 10 10

B．30 30 30

C．30 30 10

D．10 30 30

点击查看答案

第3题

在窗体上画一个名称为Command1的命令按钮和3个名称分别为Label1, Label2, Label3的标签，然后编写

如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n= 10 z = n + z y = y + z x = x + z Label1.Caption = x LabelCaption = y LabelCaption = z End Sub 运行程序，连续三次单击命令按钮后，则3个标签中显示的内容分别是

A．10 10 10

B．30 30 30

C．30 30 10

D．10 30 30

点击查看答案

第4题

（6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后

（6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然

后编写如下两个事件过程：

Private Sub Command1_Click()

S$=InputBox("请输入一个字符串")

Text1.Text=S$

End Sub

Private Sub Text1_Change()

Label1.Caption=UCase(Mid(Text1.Text, 7))

End Sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，

则在标签中显示的内容是【6】。

点击查看答案

第5题

在名为“Form. 1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“txt1”、“txt2”、“txt3”和“Comm

andl”，然后编写如下两个事件过程：

Private Sub Commandl_Click()

txt3＝txt1+txt2

End Sub

Private Sub Form1_Load()

txt1＝""

txt2＝""

txt3＝""

End Sub

当打开窗体Form1后，在txt1和txt2中分别输入3和5，然后单击命令按钮Commandl，则文本框txt3中显示的内容为_

点击查看答案

第6题

在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Tex

t1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是： ______。

A．27

B．28

C．29

D．30

点击查看答案

第7题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后

编写如下两个事件过程：程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入一个具有大小写的字符串，则在标签中显示的内容全部为大写。请填空。

点击查看答案

第8题

在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labe11，文本框的Tex

t1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(TextText)+0.5) LabeCaption=Str(x) End Sub 程序运行后，在文本框中输入653，单击命令按钮，标签中显示的内容是______。