[单选题]

在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:
PrivateSubCommand1_Click()
Dimi,j,x
Fori=1To20step2
x=0
Forj=ITo20step3
x=x+1
Nextj
Nexti
Text1.Value=Str(x)
EndSub
打开窗体运行后,单击命令按钮,文本框中显示的结果是(  )。

A.1

B.7

C.17

D.400

参考答案与解析:

相关试题

在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:

[单选题]在窗体上有一个命令按钮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,编写事件代码如下:

    [单选题]在窗体中有一个命令按钮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

  • 查看答案
  • 在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:<br /><img border="0" style="width:

    [单选题]在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:打开窗体运行后,单击命令按钮,文本框中显示的结果是(  )。A.1B.

  • 查看答案
  • 在窗体上有一个命令按钮command1和一个文本框Text1,编写事件代码如下:<br /><img border="0" style="width:

    [单选题]在窗体上有一个命令按钮command1和一个文本框Text1,编写事件代码如下:打开窗体运行后,单击命令按钮,文本框中显示的结果是(  )。A.1B.

  • 查看答案
  • 在窗口中有一个标签Label0和一个命令按钮Command1,Command1的事件代码如下:<br />PrivateSubCommand1_Click(  )<br />L

    [问答题]在窗口中有一个标签Label0和一个命令按钮Command1,Command1的事件代码如下:PrivateSubCommand1_Click(  )

  • 查看答案
  • 在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:<br /><img border="0" style="width:

    [单选题]在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:打开窗体运行后,单击命令按钮,文本框Text1输出的结果是(  )。A

  • 查看答案
  • 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click(  )<br /><img

    [单选题]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Clic

  • 查看答案
  • 在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写如下程序:

    [单选题]在窗体上画一个命令按钮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,然后编写如下程序:

    [单选题]在窗体上画一个命令按钮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 程序运

  • 查看答案
  • 在窗体中有一个文本框Text1,编写事件代码如下:<br />PrivatesubForm_Click(  )<br />X=val(Inputbox("输入x的值&

    [单选题]在窗体中有一个文本框Text1,编写事件代码如下:PrivatesubForm_Click(  )X=val(Inputbox("输入x的值"))Y=

  • 查看答案