[单选题]

在窗体下画两个文本框Text1和Text2,一个命令按钮Command1,请阅读下列程序段:

Private Sub Command1_Click()

x=0

D.o Until x>=50

x=(x+4)*(x+3)

n=n+1

Loop

Text1.Text=Str(n)

Text2.Text=Str(x)

E.nd Sub

运行程序后,单击命令按钮,在两个文本框中显示的值分别为( )。

A.1和0

B.2和240

C.3和50

D.4和168

参考答案与解析:

相关试题

在窗体上画两个文本框Text1和Text2,一个命令按钮Command1,请阅读

[单选题]在窗体上画两个文本框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和0B.2和240C.3和50D.4和168

  • 查看答案
  • 在窗体上画两个文本框Text1和Text2,一个命令按钮Command1,请阅读

    [单选题]在窗体上画两个文本框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

  • 查看答案
  • 窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下

    [单选题]窗体上有两个文本框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,编写下

    [单选题]窗体上有两个文本框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

  • 查看答案
  • 窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列

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

  • 查看答案
  • 窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列

    [单选题]窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序D.im y As IntegerPrivate Sub Command1_Click()D.im x As Integerx=2Text1.Text=Fun2(Funl(x),y)Text2.Text=Funl(x)E.nd SubPrivate Function Funl(x As Integer) As Integerx=x+y ∶y=x+yF.unl=x+yE.nd FunctionPrivate Fun

  • 查看答案
  • 在窗体上画两个名称为Text1、Text2的文本框和一个名称为Command1的

    [单选题]在窗体上画两个名称为Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Dim x As Integer, n As Integer x=1 n=0 Do While x<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是( )。A.9和2B.27.和3C.195和3

  • 查看答案
  • ( 33 )在窗体中有一个命令按钮 command1 和一个文本框 text1,

    [单选题]( 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 ,一个命令按钮 comm

    [试题]在窗体中有两个文本框分别为 text1 和 text2 ,一个命令按钮 command1, 编写如下两个事件过程:Private sub command1_click()A.=text1.value+text2.valueMsgbox aE.nd subPrivate sub form_load()Text1.value= ””Text2.value= ””E.nd sub程序运行时,在文本框 text1 中 78 ,在文本框 text2 中输入 87 ,单击命令按钮,消息框中输出的结果为____

  • 查看答案
  • 在窗体上有两个命令按钮Command1和Commnd2,三个文本框Text1,T

    [单选题]在窗体上有两个命令按钮Command1和Commnd2,三个文本框Text1,Text2和Text3,有如下事件过程: Private Sub Comuand1_Click() Text3.Text= Text1.Text+Text2.Text End Sub Private Sub Command2_Click() Text3.Text= Text3.Text+Str(Val(Text1.Text)+Val (Text2.Text)) End Sub程序运行后,在Text1和Text2中分别输

  • 查看答案
  • 在窗体下画两个文本框Text1和Text2,一个命令按钮Command1,请阅读