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

Private Sub Command1_Click( )

D．im I As Integer

If Text1.Text<>"Gong" Then

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

If I<>4 Then

E．nd

E．lse

Text1.Text = ""

Text1.SetFocus

E．nd If

E．lse

MsgBox "密码帐号正确!"

E．nd If

E．nd Sub

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

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

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

C．程序出错

D．没有任何提示

[单选题]在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"E．nd IfE．nd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为()A．显示对话框，提示信息为"帐号正确"B．显示对话框，提

[单选题]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写下列程序：Private Sub Command1 click()A．=InputBox("请输入日期(1～31)")t="旅游景点："_&Ⅱf(A＞0 And A＜=10,"长城","")_&Ⅱf(A＞10 And A＜=20,"故宫","")_&Ⅱf(A＞20 And A＜=30,"颐和园","")Text1.Text=tE．nd Sub程序运行后，如果从键盘输入5，

[单选题]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写如下程序： Private Sub Command1_Click() A=InputBox("请输入日期(1～31)") t="旅游景点:"_ & IIf(A＞0 And A＜=10, "长城"，"")_ & IIf(A＞10 And A＜=20，"故宫"，"")_ & IIf(A＞20 And A＜=30，"颐和园"，"") Text1.Text=t End Sub 程

[单选题]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写如下程序： Private Sub Command1_Click() A=InputBox("请输入日期(1～31)") t="旅游景点:" & IIf(A＞0 And A＜=10,"长城","")_ & IIf(A＞10 And A＜=20,"故宫","")_ & IIf(A＞20 And A＜=30,"颐和园","") Text1.Text=t End Sub 程序运

[单选题]在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() Dim i，j，x For i=1 To 20 Step 2 x=0 For j-i To 20 Step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是( )。A．1B．7C．17D．400

[单选题]在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：Private Sub Command1_Click()F．or I=1 To 4X=3F．or j=i To 3F．or k=1 To 2X=x+3Next kNext jNext IText]．value=Str(x)E．nd Sub打开窗体运行后，单击命令按钮，文本框Text1输出的结果是A．6B．12C．18D．21

[单选题]（ 33 ）在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下：Private sub command1_click()F．or i=1 to 4X=3F．or j=1 to 3F．or k=1 to 2X=x+3Next kNext jNext iText1.value=str(x)E．nd sub打开窗体运行后，单击命令按钮，文本框 text1 输出的结果是A． ） 6B． ） 12C． ） 18D． ） 21

[单选题]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：D．im y As IntegerPrivate Sub Command1_Click()D．im x As Integerx=2Text1.Text=p2(p1(x),y)Text2.Text=p1(x)E．nd SubPrivate Function p1(x As Integer)As Integerx=x+y:y=x+yp1=x+yE．nd FunctionPrivate Function p2(x

[单选题]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序： Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integer x=2 Text1.Text=p2(p1(x), y) Text2.Text=pi(x)End SubPrivate Function p1(x As Integer) As Integer x=x+y:y=x+y p1=x+yEnd FunctionPrivate Function p

[主观题]在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：Private Sub Command1_Click()D．im x As Integer,y As Integer,z As IntegerC．all f(x,y,z)E．nd SubSub f(a As Integer,b As Integer,c As Integer)c=b*aE．nd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。