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

[主观题]

窗体中有文本框Text1和标签Label1。运行程序时单击按钮Command1,输入整数m （m＞0) ，判断m是否

窗体中有文本框Text1和标签Label1。运行程序时单击按钮Command1,输入整数m (m＞0) ，判断m是否为素数，如果是素数，则在Label1中显示 “m是素数”，否则显示 “m是合数”。事件代码如下： Private Sub Commandl_ Click() Dim result As String m = Val (Me!Text1) result= m & “是素数” k=2 Do Whilek＜=m 2 if m mod k="0" then result="m&" “是合数” exit do . end loop [ ]="result" sub 程序[＞ A、Me!Label1

B、Me!Label1. Val

C、Me!Label1. Text

D、Me !Label1. Caption

暂无答案

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

您可能会需要：

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

安装上学吧APP，拍照搜题省时又省心！

更多“窗体中有文本框Text1和标签Label1。运行程序时单击按…”相关的问题

第1题

在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程： Private Sub Command1_Click() a=InputBox("请输入一个字符串") Text1．Text=a End Sub Private Sub Textl_Change() Label1．Caption=UCase(Mid(Text1．Text，8)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic”，则在标签中显示的内容是

A．visual basic

B．VISUAL BASIC

C．basic

D．BASIC

点击查看答案

第2题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：

Private Sub Command1_Click（）

strText = InputBox（"请输入"）

Text1.Text = strText

End Sub

Private Sub Text1_Change（）

Label1.Caption = Right（Trim（Text1.Text）, 3）

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是（）。

A．空

B．abcdef

C．abc

D．def

点击查看答案

第3题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入一个具有大小写的字符串，则在标签中显示的内容全部为大写。请填空。

点击查看答案

第4题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click() strText = InputBox("请输入") Text1.Text = strTextEnd SubPrivate Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是

A．空

B．abcdef

C．abc

D．def

点击查看答案

第5题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox("请输入") Text1. Text=strText End Sub Private Sub Text1_Change() Label1. Caption=Right(Trim(Text1. Text), 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是______。

A．空

B．abcdef

C．abc

D．def

点击查看答案

第6题

在窗体上画—个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private sub Command1_Click( ) strText=lnputBox(“请输入”) Text1.Text=strText EndSub Private Sub Text1_Change( ) Label1.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是

A．空

B．abcdef

C．abe

D．def

点击查看答案

第7题

在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程： 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

点击查看答案

第8题

在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程：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

点击查看答案