[单选题]

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

B.27和3

C.195和3

D.600和4

参考答案与解析:

相关试题

在窗体上画两个名称分别为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 Type Personname As String*8mjot As String+20E.nd TypeD.im P As Person设文本框中的数据已正确地赋值给Person类型的变量P,当单击“保存”按钮时,能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是A.Open“c:\Test2.dat”ForOutpu

  • 查看答案
  • ( 19 )在窗体上画两个文本框(名称分别为 text1 和 text2 )和一

    [单选题]( 19 )在窗体上画两个文本框(名称分别为 text1 和 text2 )和一个命令按钮(名称为 command1 ) , 然后编写如下事件过程:Private Sub Command1_Click()x = 0D.o While x < 50x = (x + 2) * (x + 3)n = n + 1Looptext1.Text = Str(n)text2.Text = Str(x)E.nd Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别为A. ) 1 和 0B. ) 2

  • 查看答案
  • 在窗体上画两个文本框(名称分别为Text1和Text2)和—个命令按钮(名称为C

    [单选题]在窗体上画两个文本框(名称分别为Text1和Text2)和—个命令按钮(名称为Cotranand1),然后编写如下事件过程:Private Sub Command1_Click() x=0 Do While x<50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x)End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别为______。A.1和0B.2和72C.3和50D.4和168

  • 查看答案
  • 在窗体上画两个名称为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

  • 查看答案
  • 在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称

    [单选题]在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称为 Commandl),然后编写如下两个事件过程: Private Sub Command1_Click() Text1.Text = "Computer Rank Examination" End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub程序运行后,单击命令按钮,则在Text2文本框中显示的内容是______。A.

  • 查看答案
  • 窗体上有两个名称分别为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

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

    [单选题]窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Commandl的命令按钮。 运行后的窗体外观如下图所示。设有如下的类型声明: Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test290.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是( )。A.Open"c:/Test29.dat"ForRan

  • 查看答案
  • 在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序: P

    [单选题]在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:Private Sub Form_Load()ShowText1.Text = ""Text2.Text = ""Text1.SetFocusE.nd SubPrivate Sub Text1_Change()Text2.Text = Mid(Text1.Text, 8)E.nd Sub程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是( )。A.BeijingC

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