（11）在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是（ ）。
A．Private Sub Text1_Change()
Command1.Caption = "计算机等级考试"
End Sub
B．Private Sub Command1_ Click ()
Caption = "计算机等级考试"
End Sub
C．Private Sub Form1_ Click ()
Text1.Caption = "计算机等级考试"
End Sub
D．Private Sub Command1_ Click ()
Text1.Text = "计算机等级考试"
End Sub
（12）设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
（13）设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)
（14）假定有如下的窗体事件过程：
Private Sub Form_Click()
a$ = "Microsoft Visual Basic"
b$ = Right(a$, 5)
c$ = Mid(a$, 1, 9)
MsgBox a$, 34, b$, c$, 5
End Sub
程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（ ）。
A．Microsoft Visual
B．Microsoft
C．Basic
D．5
（15）设a = "a"，b = "b"，c = "c"，d = "d"，执行语句x=IIf((a
D．,”A”,”B”)后，x的值为 （ ）。
A．”a”
B．”b”
C．”B”
D．”A”
（16）为了使命令按钮（名称为Command1）右移200，应使用的语句是（ ）。
A．Command1.Move -200
B．Command1.Move 200
C．Command1.Left = Command1.Left + 200
D．Command1.Left = Command1.Left - 200
（17）在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
x = InputBox("请输入一个整数")
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（ ）。
A．123
B．456
C．479
D．123456
（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Command1_Click()
Timer1.（ ）
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
在下划线处应填入的内容是（ ）。
A．Enabled = True
B．Enabled = False
C．Visible = True
D．Visible = False
（19）假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（ ）。
A．选择图片框，然后按Del键
B．执行语句Picture1.Picture = LoadPicture ("")
C．执行语句Picture1.Picture =""
D．选择图片框，在属性窗口中选择Picture属性条，然后按回车键
（20）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：_____。
A．Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B．Private Sub List1_Click()
Label1.Name=List1.ListIndex
End Sub
C．Private Sub List1_Click()
Label1.Name=List1.Text
End Sub
D．Private Sub List1_Click()
Label1.Caption =List1.Text
End Sub
转贴于：计算机二级考试_考试大
【责编:onmars 纠错】
[1] [2] [3] [4] [5] [6] 
相关文章
2005-6-27
