在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输入一个整数")Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（　　）。

试卷相关题目

• 1为了使命令按钮（名称为Command1）右移200，应使用的语句是（　　）。

  A.Command1.Move -200

  B.Command1.Move 200

  C.Command1.Left = Command1.Left + 200

  D.Command1.Left = Command1.Left - 200

  开始考试点击查看答案
• 2设a = "a"，b = "b"，c = "c"，d = "d"，执行语句x=IIf((a <b)Or(c>d),”A”,”B”)后，x的值为 （　　）。

  A.”a”

  B.”b”

  C.”B”

  D.”A”

  开始考试点击查看答案
• 3假定有如下的窗体事件过程：Private Sub Form_Click()a$ = "Microsoft Visual Basic"b$ = Right(a$, 5)c$ = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（　　）。

  A.Microsoft Visual

  B.Microsoft

  C.Basic

  D.5

  开始考试点击查看答案
• 4设a = "MicrosoftVisualBasic" ，则以下使变量b的值为“VisualBasic”的语句是（　　）。

  A.b = Left(a, 10)

  B.b = Mid(a, 10)

  C.b = Right(a, 10)

  D.b = Mid(a, 11, 10)

  开始考试点击查看答案
• 5设a=5，b=4，c=3，d=2下列表达式的值是（　　）。3 > 2 * b Or a = c And b <> c Or c > d

  A.1

  B.True

  C.False

  D.2

  开始考试点击查看答案
• 6在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click()Timer1.（　　）End SubPrivate Sub Timer1_Timer()Text1.Text = TimeEnd Sub在下划线处应填入的内容是（　　）。

  A.Enabled = True

  B.Enabled = False

  C.Visible = True

  D.Visible = False

  开始考试点击查看答案
• 7假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（　　）。

  A.选择图片框，然后按Del键

  B.执行语句Picture1.Picture = LoadPicture ("")

  C.执行语句Picture1.Picture =""

  D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键

  开始考试点击查看答案
• 8在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：_____。

  A.Private Sub List1_Click()Label1.Caption = List1.ListIndexEnd Sub

  B.Private Sub List1_Click()Label1.Name=List1.ListIndexEnd Sub

  C.Private Sub List1_Click()Label1.Name=List1.TextEnd Sub

  D.Private Sub List1_Click()Label1.Caption =List1.TextEnd Sub

  开始考试点击查看答案
• 9在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i <= 4 Thenx = x + 1Elsex = x + 2End IfNext iPrint xEnd Sub程序运行后，单击命令按钮，其输出结果为（　　）。

  A.9

  B.6

  C.12

  D.15

  开始考试点击查看答案
• 10在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c = “ABCD”For n= 1 To 4Print （　　）NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容DCDBCDABCD则在（　　）处填入的内容为。

  A.Left(c,n)

  B.Right(c,n)

  C.Mid(c,n,1)

  D.Mid(c,n,n)

  开始考试点击查看答案