在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程：Private Commandl_Click()Dim i As Integer, n As IntegerFor i=0 To 50i = i+3n = n+1If i>10Then Exit ForNextTextl.Text=Str(n)End Sub程序运行后，单击命命令按钮，在文本框中显示的值是 （　　） 。

试卷相关题目

• 1在窗体上面画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell ，然后编写如下事件过程：Private Sub Commandl_Click()Counter=0For i=1 To 4For j=6 To 1 Step -2Counter=Counter+1NextjNextiLabell.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是

  A.11

  B.12

  C.16

  D.20

  开始考试点击查看答案
• 2在窗体上画一个文本框（其名称为 Textl)和一个标签（其名称为 Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是 （　　） 。

  A.Private Sub Textl_Click()Labell.Caption=Textl.TextEnd Sub

  B.Private Sub Text1_Change()Labell.Caption=Textl.TextEnd Sub

  C.Private Sub Labell_Ctrange()Labell. Caption=Textl.TextEnd Sub

  D.Private Sub Labell_Click()Labell.Caption=Textl.TextEnd Sub

  开始考试点击查看答案
• 3执行以下程序段后，变量 c$ 的值为 （　　） 。a$= “ Visual Bassic Programming ”b$= “ Quick ” e$=b$&U Case(Mid$(a$,7,6))&Right$(a$,12)

  A.Visual Basic Programming

  B.Quick Basic programming

  C.Quick Basic Programming

  D.Quick Basic Programming

  开始考试点击查看答案
• 4设 a=5,b=6,c=7,d=8 ，执行下列语句后， X 的值为 （　　） 。X=IIf((a>b)And(c>d),10,20)

  A.10

  B.20

  C.True

  D.False

  开始考试点击查看答案
• 5没有如下的用户定义类型：Type Studentnumber As Stringname As Stringage AS IntegerEnd Type则以下正确引用该类型成员的代码是 （　　） 。

  A.Student. name= “李明”

  B.Dim s As Students.name= “李明”

  C.Dim s As Type Students.name= “李明”

  D.Dim s As Types.name= “李明”

  开始考试点击查看答案
• 6在窗体上画一个命令按钮和两个标签，真名和分别为 Commandl 、 Labell 和 Labe12 ，然后编写如下事件过程：Private Sub Commandl_Chick.a=0For i=1 To 10a=a+1b=0Forj=1 To 10a=a+1b=b+2NextjNext iLabell. Caption=Str(a)Labe12.Caption=Str(b)End Sub程序运行后，单击命令按钮，在标签 Labell 和 Labe12 中显示的内容分别为 （　　） 。

  A.10 和 20

  B.20 和 110

  C.200 和 110

  D.110 和 20

  开始考试点击查看答案
• 7在窗体上画一个名称为 Listl 的列表框，一个名称为 Labell 的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是 （　　） 。

  A.Privale Sub Listl_Click()Labell. Caption=Listl. ListIndexListl. Removeltem Listl.TextEnd Sub

  B.Private Sub Listl_Click()Labell.Name=Listl. ListIndexListl.RemoveItem Listl.TextEnd Sub

  C.Private Sub Listl_Click()Labell. Caption=Listl.TextListl. RemovItem Listl. ListIndexEnd Sub

  D.Private Sub Listl_Click()Labell. Name=Listl. TextListl. RemoveItem Listl. ListIndexEnd Sub

  开始考试点击查看答案
• 8在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序：Private Sub Commandl Click()Dim i As Integer, j As IntegerDim a (10,10)As IntegerFor i=1 To 3For j= i To 3a(i,j)=(i-1)*3+jPrint a (i,j);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是 （　　） 。

  A.123246369

  B.234345456

  C.147258369

  D.123456789

  开始考试点击查看答案
• 9在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A (4)As Integer,B(4) As IntegerFor k=0 To 2A(k+1)=InputBox(“ 请输入一个整数 ”)B(3-k)=A(k+1)Next kPrint B(k)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入 2 、 4 、 6 ，输入结果为 （　　） 。

  A.0

  B.2

  C.3

  D.4

  开始考试点击查看答案
• 10有以下程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer,j As IntegerReDim arr(3,2)For i=1 To 3For j=1 To 2arr (i,j)=i*2+jNext jNext iReDim Preserve arr(1,4)For j=3 To 4arr(3,j)=j+9Next jPrint arr(3,2);arr(3,4)End Sub程序运行后，单击窗体，输出结果为 （　　） 。

  A.8 13

  B.0 13

  C.7 12

  D.0 0

  开始考试点击查看答案