[单选题]

在窗体上画两个名称为Tcxt1、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 +l Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是( )。

A.9和2

B.27和3

C.195和3

D.600和4

参考答案与解析:

相关试题

在窗体上画两个名称为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

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮和一个名称为Tcxt1的文本框,然

    [单选题]在窗体上画一个名称为Command1的命令按钮和一个名称为Tcxt1的文本框,然后编写如下程序:Private Sub Command1_ Click Dim x, y, z As Integer x = 5: y = 7: z =0 Text1. Text = " " Call p1(x, y, z) Text1.Text = Str (z)End SubPrivate Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)

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

    [单选题]在窗体上画两个名称分别为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.15和1B.27和3C.

  • 查看答案
  • 在窗体上画两个名称分别为Text1,Text2的文本框和一个名称为Command

    [单选题]在窗体上画两个名称分别为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.15和1B.27和3C.195和3

  • 查看答案
  • 在窗体上画两个名称为Text l、Text 2的文本框和一个名称为Command

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

  • 查看答案
  • (27)在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1

    [单选题](27)在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )D.im i As Integer, n As IntegerF.or i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)E.nd Sub程序运行后,单击命令按钮,在文本框中显示的值是( )。A.)2B.)3C.)4D.)5

  • 查看答案
  • 在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)

    [单选题]在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程:Private Sub Command1_Click()x=Val(Text1.Text)Select Case xC.ase 1,3y=x*xC.ase Is>=10,Is<=-10y=xC.ase -10 To 10y=-xE.nd SelectE.nd Sub程序运行后,在文本框中输入3,然后单击命令按钮,则以下叙述中正确的是( )。A.执行y=x*xB.执行y=-xC.先执

  • 查看答案
  • 窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1

    [单选题]窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型声明当单击“保存”按钮时.将两个文本框中的内容写入一个随机文件Test29.dat中设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是

  • 查看答案
  • 窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1

    [单选题]窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。设有如下的类型声明: Type Person name As String*8 major As String*20 End Type 当单击“Command1”按钮时,能够正确地把数据写入文件的程序段是______。A.Private Sub Command1_Click() Dim p As Person p. name=Text1. Text p. major=Text2. Text Open"C

  • 查看答案
  • 在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1)

    [单选题]在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程: Private Sub Command1_click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is>=10,Is<=-10 y=x Case-10 To 10 y=-x End Select End Sub 程序运行后,在文本框中输入3,然后单击命令按扭,则以下叙述中正确的是______。A.执行y=x*xB.执行y=-xC

  • 查看答案