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

[主观题]

在窗体中建立一个文本框text1和一个命令按钮command1，...

在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：

Private Sub Command1_Click()

Dim I As Integer

If Text1.Text＜＞"Gong" Then

I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")

If I＜＞4 Then

End

Else

Text1.Text = ""

Text1.SetFocus

End If

Else

MsgBox "密码帐号正确!"

End If

End Sub

若在text1中输入字符串"Gong"，则程序运行结果为()

A.显示对话框，提示"密码帐号正确!"

B.显示对话框，提示"密码错误"

C.程序出错

D.没有任何提示

查看答案

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

您可能会需要：

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

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

更多“在窗体中建立一个文本框text1和一个命令按钮command…”相关的问题

第1题

在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：

Private Sub Command1_Click( )

Dim I As Integer

If Text1.Text<>"Gong" Then

I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")

If I<>4 Then

End

Else

Text1.Text = ""

Text1.SetFocus

End If

Else

MsgBox "密码帐号正确!"

End If

End Sub

若在text1中输入字符串"Gong"，则程序运行结果为()

A.显示对话框，提示"密码帐号正确!"

B.显示对话框，提示"密码错误"

C.程序出错

D.没有任何提示

点击查看答案

第2题

在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：

Private Sub Text1_LostFocus( )

If Not IsNumeric(Text1) Then

MsgBox "帐号有非数字字符错误"

Text1.Text = ""

Text1.SetFocus

else

MsgBox "帐号正确"

End If

End Sub

当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为()

A.显示对话框，提示信息为"帐号正确"

B.显示对话框，提示信息为"帐号有非数字字符错误"

C.程序出错

D.没有任何提示

点击查看答案

第3题

有一个窗体Form1，其中有一个文本编辑框Text1和一个命令按钮Command1。运行窗体后在文本编辑框中输入一串字符，单击命令按钮后该窗体的标题改变为文本编辑框中输入的字符串。则宏命令SetValue的参数设置是( )。

A．“项目”：[Forms]![Form1]，“表达式”：[Forms]![Form1]![Text1]

B．“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Text1]

C．“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Command1]

D．“项目”：[Forms]![Form1]![Text1]，“表达式”：[Fonns]![Form1]![Command1]

点击查看答案

第4题

窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Command1，设文本框Text1中内容为 12，文本框Text2中内容为34。下面程序的执行结果为______。Private Sub Command1_ Cilick() Text3.Text = Str＄(Val(Text1.Text)) + Val(Text2.Text) Print val(Text3,Text)End Sub

A．12

B．34

C．46

D．1234

点击查看答案

第5题

在窗体上画一个文本框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

点击查看答案

第6题

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

点击查看答案

第7题

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

点击查看答案

第8题

在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段： Private Sub Command1_Click() x=0 Do Until x>=50 X=(x+4)﹡(x＋3) N=n+1 Loop Text1.Text＝Str(n) Text2.Text＝str(x) End Sub运行程序后，单击命令按钮，在两个文本框中显示的值分别为A. 1和0 B. 2和240 C. 3和50 D. 4和168

点击查看答案

第9题

在窗体中添加一个命令按钮Commandl和一个文本框Text1，编写命令按钮Com-mand1 的 Click事件代码； Private Sub Command1_Click() Dim S As String*20 S=TextText End Sub 该程序的功能是当单击按钮Command1时，把变量S中内容写入一个顺序文件 datl. dar中，正确的程序段是 ( )

A．Open "datl. dat", For lnput As#1 Write井1,S

B．Open"datl. dat" For Output As#1 Write#1, S

C．Open"dat", For Binary As #1 Write #1, S Close #1

D．Open datl. dat"For Random As #1 Write #1, S Close #1

点击查看答案

第10题

在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：

程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（）。

A.20是一个奇数

B.20

C.20是一个偶数

D.2

点击查看答案