在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，-最需题库

试卷相关题目

1在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox("请输入一个整数")Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（　　）。
A.123
B.456
C.479
D.123456
开始考试点击查看答案
2为了使命令按钮（名称为Command1）右移200，应使用的语句是（　　）。
A.Command1.Move -200
B.Command1.Move 200
C.Command1.Left = Command1.Left + 200
D.Command1.Left = Command1.Left - 200
开始考试点击查看答案
3设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”
开始考试点击查看答案
4假定有如下的窗体事件过程：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
开始考试点击查看答案
5设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)
开始考试点击查看答案
6假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（　　）。
A.选择图片框，然后按Del键
B.执行语句Picture1.Picture = LoadPicture ("")
C.执行语句Picture1.Picture =""
D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键
开始考试点击查看答案
7在窗体上画一个名称为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
开始考试点击查看答案
8在窗体上画一个命令按钮，其名称为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
开始考试点击查看答案
9在窗体上画一个名称为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)
开始考试点击查看答案
10执行以下程序段Dim i As Integer, x As Integerx = 0For i = 20 To 1 Step -2x = x + i 5NextPrint x后，x的值为（　　）。
A.16
B.17
C.18
D.19
开始考试点击查看答案