[单选题]

在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮,然后编写如下事件过程:

Private Commandl_Click()

D.im i As Integer, n As Integer

F.or i=0 To 50

i = i+3

n = n+1

If i>10Then Exit For

Next

Textl.Text=Str(n)

E.nd Sub

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

A.5

B.4

C.3

D.2

参考答案与解析:

相关试题

在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然

[单选题]在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Dim arrayl(10,10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 To 4 array l(i,j)=i+j Next j Next i Text1.Text=arrayl(2,3)+arrayl(3,4) End Sub 程序运行后,单击命令按钮

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

    [单选题]在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:Microsoft Visual Basic Programming 然后编写如下事件过程: Private Sub Commandl_Click() Open"d:/temp/outf,txt"For Ouput As #1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text,i,1) If c>="A"And C<="Z"Then Print

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

    [单选题]在窗体(名称为Forml)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。A. Private Sub Text1_Change() Commandl.Caption="计算机等级考试" End SubB.Private Sub Commandl_Click() Caption=”计算机等级考试” End SubC.Pr

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

    [单选题]( 19 )在窗体上画一个名称为 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. ) 5B. ) 4C. )

  • 查看答案
  • ( 15 )在窗体上画一个文本框(名称为 text1 )和一个标签(名称为 la

    [单选题]( 15 )在窗体上画一个文本框(名称为 text1 )和一个标签(名称为 label1 ) , 程序运行后,在文本框中每输入一个字符 , 都会立即在标签中显示文本框中字符的个数 , 以下可以实现实现上述操作的事件过程是A. )Private Sub Text1_Change()Label1.Caption = Str(Len(Text1.Text))E.nd SubB. )Private Sub Text1_Click()Label1.Caption = Str(Len(Text1.Text)

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

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

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

    [单选题]在窗体上画一个名称为Text1的文本框和一个名称为Commmand1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click () Dim array 1 (10, 10) As Integer Dim i, j As Integer for i = 1 To 3 for j = 2 To 4 array1(i, j)= i+ j Next j Next i Text1.Text= array1(2, 3) +array1(3, 4)End Sub程序运行后,单击命

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

    [单选题]在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是( )。A.Private Sub Text1_Change()C.ommand1.Caption = "计算机等级考试"E.nd SubB.Private Sub Command1_ Click ()C.aption = "计算机等级考试"E.nd Sub

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

    [单选题]在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。A.Prlvate Sub Text1_Change() Command1. Caption="计算机等级考试" End SubB.Private Sub Command1_Click() Caption="计算机等级考试" End SubC.

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

    [单选题]3在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1),然后编写如下事件过程: Private Sub Commandl_Click() x=Val(Text1.Text) SelectCaseX Case 1,3 y=X*X CaseIS>=10,IS<=-10 y=X Case-10 To 10 y=-X End Select End SA.执行y=x*xB.执行y=-xC.先执行y=x*x,再执行y=-xD.程序出错

  • 查看答案
  • 在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令