第1页 / 共37页
第2页 / 共37页
第3页 / 共37页
第4页 / 共37页
第5页 / 共37页
第6页 / 共37页
第7页 / 共37页
第8页 / 共37页
大学生课程考试系统VB答案.doc
题号
选择题
1 在设计应用程序时，通过______窗口可以查看到应用程序工程中的所有组成部分。D:工程资源管理器窗口
2 通过以下______窗口可以在设计时直观的调整窗体在屏幕上的位置。 B:窗体布局窗口
3 如果要向工具箱中加入控件和部件，可以利用“工程”菜单中的______命令。B:部件
4 如果要改变窗体的标题，需要设置窗体对象的______属性。B:Caption
5 在Visual Basic中，所有的窗体和控件都必定具有的一个属性是______。A:Name
6 下列不能打开属性窗口的操作是______。C:按Ctrl+T
7 通过改变单选按钮（OptionButton）控件的______属性值，可以改变单选按钮的选取状态。A:Value
8
InputBox函数返回值的类型为______。B:字符串
9 可以同时删除字符前导和尾部空白的函数是______。C:Trim
10 表达式4+5\6*7/8 Mod 9的值是______。B:5
11 以下语句的输出结果是______。
Print Format$("32548.5","000,000.00")C:032,548.50
12 执行以下程序段后，变量c$的值为______。
a$="Visual Basic Programming"
b$="Quick"
c$=b$ & UCase(Mid$(a$,7,6))
& Right$(a$,12)D:Quick BASIC Programming
13 为了把焦点移到某个指定的控件，所使用的方法是______。A:SetFocus
14 设a=6，则执行
x=IIF(a>5,-1,0) 后，x的值为______。D:-1
15 请输入B的值在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()
x = 0
Do Until x = -1
a = InputBox("请输入A的值")
a = Val(a)
b = InputBox("请输入B的值")
b = Val(b)
x =
InputBox("请输入x的值")
x = Val(x)
a = a + b + x
Loop
Print a End Sub 程序运行后，单击命令按钮，
依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为______。A:2
16 阅读下面的程序段：
For i = 1 To 3
For j = 1 To i
For k = j To 3
a = a + 1
Next k
Next j
Next i 执行上面的三重循环后，a的值为______。C:14
17 在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程： Private Sub Form_Load()
Text1.Text = ""
Text1.SetFocus
For i = 1 To 10
Sum = Sum + i
Next i
Text1.Text = Sum End Sub 上述程序的运行结果是
______。C:出错
18 在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Option Base 1 Private Sub Command1_Click()
Dim a(4,
4)
For i = 1 To 4
For j = 1 To 4
a(i, j) = (i - 1) * 3 + j
Next j
Next i
For i
= 3 To 4
For j = 3 To 4
Print a(j, i);
Next j
Print
Next i End Sub 程序运行后，
单击命令按钮，其输出结果为______。D: 9
12
10 13
19 要利用通用对话框控件来显示“保存文件”对话框，需要调用控件的______方法。C:ShowSave
20 假定有如下的Sub过程： Sub S(x As Single, y As Single)
t = x
x = t / y
y = t Mod y End Sub 在窗体上画一个命
令按钮，然后编写如下事件过程： Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a = 5
b = 4
S a, b
Print a, b End Sub 程序运行后，单击命令按钮，输出结果为______。D: 1.25 1
21 阅读程序： Sub subP(b() As Integer)
For i = 1 To 4
b(i) = 2 * i
Next i End Sub
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
a(1) = 5
a(2) = 6
a(3) = 7
a(4) = 8
subP a()
For i = 1 To 4
Print
a(i);
Next i End Sub 运行上面的程序，单击命令按钮，输出结果为______。A: 2 4
6 8
22 下列不能打开菜单编辑器的操作是______。D:按Shift+Alt+M
23 在程序运行期间，如果拖动滚动条上的滚动框，则触发的滚动条事件是______。C:Scroll
24 为了暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是______。C:Enabled
25 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为______。D:Put文件号，记录号，变量名
26 要显示当前过程中的所有变量及对象的取值，可以利用______窗口。D:本地
27 为了在运行时能显示窗体左上角的控制框（系统菜单），必须______。B:把窗体的ControlBox属性设置为True，并且把BorderStyle属
性设置为1～3
28 用下面语句定义的数组的元素个数是______。 dim A(-3 to 5) as integerD:9
29 假定有以下程序段：
For i = 1 To 3
For j = 5 To 1 Step -1
Print j
Next j, i “Print j”的执
1
行次数是______。A:15
30 以下程序段的输出结果为______。
X = 1
Y = 4
Do Until Y > 4
X = X * Y
Y = Y + 1
Loop
Print
XB:4
31 当我们输入代码时，Visual Basic可以自动检测______错误。A:语法错误
32 用下面的语句所定义的数组的元素个数是：______。 Dim arr(3 To 5,-2 to 2)C:15
33 将一个窗体设置为MDI子窗体的方法是______。B:将窗体的MDIChild属性设为True
34 假定有下面的过程： Function Func(a As Integer, b As Integer) As Integer
Static m As Integer, i As Integer
m = 0
i = 2
i = i + m + 1
m = i + a + b
Func = m End Function 在窗体上画一个命令按钮，然后编写如下事件过程: Private
Sub Command1_Click()
Dim k As Integer, m As Integer
Dim p As Integer
k = 4
m = 1
p = Func(k, m)
Print
p;
p = Func(k, m)
Print p End Sub 程序运行后，单击命令按钮，输出结果为______。D: 8
8
35 编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode) End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii) End Sub 在一般情况下（即不按住Shift键和锁定大写），
运行程序，如果按“A”键，则程序的输出是______。A:A
a
36 在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private
Sub Command1_Click()
Text1.Text = UCase(SaveAll) End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll
= SaveAll + Chr(KeyAscii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为______。C:ABCDEFG
37 在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为False，然后编写如下代码： Dim SaveAll As String Private
Sub Command1_Click()
Text1.Text = UCase(SaveAll) End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll
= SaveAll + Chr(KeyAscii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为______。B:
不显示任何信息
38 每个Visual Basic应用程序中最多可以包含______个MDI窗体。A:1
39 在窗体上画一个文本框,然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char = Chr(KeyAscii)
KeyAscii = Asc(UCase(char))
Text1.Text = String(6, KeyAscii) End Sub 程序运行后，如果在键
盘上输入字母“a”，则文本框中显示的内容为______。D:AAAAAAA
40 把窗体的KeyPreview属性设置为True，然后编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode + 2) End
Sub 程序运行后，如果按“A”键，则输出结果为______。C:A
C
41 编写如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Button And 3) = 3 Then
Print "AAAA"
End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为______。D:按什么键都不显示
42 编写如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift
= 6 And Button = 2 Then
Print "BBBB"
End If End Sub 程序运行后，为了在窗体上输出“BBBB”，应执行的操作为______。
D:同时按下Ctrl、Alt键和鼠标右键
43 在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click()
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "All Files(*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files(*.bat)|*.bat"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOPen
MsgBox
CommonDialog1.filename End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______。
B:Text Files(*.txt)
44 为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为______。B:Hide
45 用Write和Print语句向文件中写入多个数据的差别在于______。C:Write语句写入字符串会自动给字符串加上双引号；写入的正数前面
没有空格
46 下列操作中不能向工程中添加窗体的是______。C:右击窗体，在弹出的菜单中选择“添加窗体”命令
47 当一个工程含有多个窗体时，其中的启动窗体是______。D:在“工程属性”对话框中指定的窗体
48 在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存在方式是______。A:随机存取方式
49 以下语句用于打开一个顺序文件Open "C:\MyFile.txt" For OutPut 但该语句的一个重要错误是没有______。B:指定文件号
50
Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括______。B:Unix文件
51 文件列表框控件的______属性用来确定在列表框中显示的文件类型。B:Pattern
52 以下变量名中，______是不符合Visual Basic的命名规范的。 B:_mnu_Open_234
2
53 符号%是声明______类型变量的类型定义符。A:Integer
54 执行下列语句后整型变量a的值是______。
If (3 - 2) > 2 Then
a = 10
Else If (10 / 2) = 6 Then
a =
20
Else
a = 30
End IfC:30
55 用Dim(1,3 to 7,10)声明的是一个______维数组。C:3
56 以下说法错误的是______。A:函数过程没有返回值
57 在Visual Basic代码中，将多个语句合并写在一行上的并行符是______。B:冒号（:）
58 在代码中定义了一个子过程： Sub P(a,b)
... End Sub 下面______调用该过程的格式是正确的。C:Call P(10,20)
59 下列______语句可以为动态数组分配实际元素个数。D:ReDim语句
60 用于去掉一个字符串的右边的空白部分的函数是______。A:RTrim$()
61
VB没有提供下列______事件。D:MouseExit
62 文本框能输入下列______。D:文本和数字
63 下列控件______不能接受快捷键。B:标签
64 在VB6中下列______是不对的。D:可以写出16位应用程序
65
66
Microsoft Visual Basic 6.0包括三种版本，其中不包括______。A:通用版
Visual Basic窗体设计器的主要功能是：______。A:建立用户界面
67 下列哪项是窗体对象的方法而不是属性______。B:Print
68 不在VB6启动时的基本控件集中的是______。D:CommonDialog
69
70
VB中项目文件的扩展名是______。A:VBP
VB中窗体文件的扩展名是______。B:FRM
71 下面______不是VB的数据类型。D:Bool
72 在VB的集成开发环境中不能执行程序的方法是______。C:按F9键
73 大部分控件都没有的属性是______。D:Interval
74 唯一能区别一个控件的属性是______。C:Name
75
VB提供的缺省窗体包含______。A:标题栏
76 窗体在屏幕上显示后有______种方法可以清除它。C:3种
77 窗体不拥有下列______事件。B:Validate
78 文本框控件最多能处理______个字节。A:32K
79 对用MsgBox显示的消息框，下面______是错的。D:可以有四个按钮
80
CommonDialog控件可以显示______种对话框。C:6种
81 对变量名说法不正确的是______。C:可以包含字母、数字、下划线和标点符号
82 下列说法不正确的是______。D:"if (true=true) then msgbox "" " 在vb中通不过
83 用______属性可唯一标志控件数组中的某一个控件。B:Index
84 在VB中传递参数的方法有______方式。B:两种
85 下列哪条语句是错的______。C:exit while
86 下列语句都是在Form中定义，______是错的。A:Public Const A1 = 2u
87 关于MDI窗体下列说法正确的是______。C:不可以在MDI窗体上放置按钮控件
88
VB一共有设计、运行和中断三种模式，要使用调试工具应该______。C:进入中断模式
89 在Visual Basic中，下列运算符中优先级最高的是：______。A:*
90 以下关系表达式中，其值为假的是：______。B:"VisualBasic"="visualbasic"
91 在窗体上画一个命令按钮（名称为Command1），编写如下事件过程： Private Sub Command1_Click()
b = 5
c = 6
Print
a = b + c End Sub 程序运行后，单击命令按钮，输出的结果是：______。D:False
92 以下程序段运行的结果是：______。
Dim a(-1 To 5) As Boolean
Dim flag As Boolean
flag = False
Dim i As Integer
Dim j As Integer
Do Until flag = True
For i = -1 To 5
j = j + 1
If a(i) = False Then
a(i) = True
Exit For
End If
If i = 5 Then
flag = True
End If
Next
Loop
Print jC:35
93 在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程： Private Sub Command1_Click()
Dim b As Integer
b
3
= b + 1 End Sub 运行程序，三次单击命令按钮后，变量b的值是：______。B:1
94 执行下列语句后，显示输入对话框，此时如果单击"确定"按钮，则变量strInput的内容是：______。 strInput=InputBox("请输入字符
串","字符串对话框","字符串")C:"字符串"
95 为了清除列表框中的所有内容，应使用的方法是：______。B:Clear
96 在窗体上画一个文本框（其名称为Text1）和一个标签（其名称为Label1）。要求程序运行后，如果在文本框中输入字符，则立即在标
签中显示相同的内容。以下可以实现上述操作的事件过程是：______。A:Private Sub Text1_Change()
Label1.Caption =
Text1.Text
End Sub
97 下面不能正确求该函数数值的程序段是：______。D:If x <= 0 Then
y = x
End If
If x <> 0 Then
y = y * x
Else
y = 0
End If
98 在窗体上画一个通用对话框，程序运行后，通过ShowOpen方法显示“打开”对话框，要求在该对话框的“文件类型”栏中只显示扩展名
为DOC的文件，则对通用对话框的Filter属性的正确设置是：______。D:"(*.DOC)|*.DOC"
99 以下正确的叙述是：______。B:Select Case语句中的测试表达式只能是数值表达式或字符串表达式
100 在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编
写如下事件过程： Private Sub Command1_Click()
x = Int(Val(Text1.Text) + 0.5)
Label1.Caption = Str(x) End Sub 程
序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是：______。C:29
101 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()
For i = 1 To 4
If
i = 1 Then x = i
If i <= 4 Then x = x + 1
Print x;
Next i End Sub 程序运行后，单击命令按钮，其输出
结果为：______。 B: 2 3
4 5
102 在窗体上画一个命令按钮（其名称为Command1），然后编写如下事件过程： Private Sub Command1_Click()
Dim a(5, 5) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 1 To 3
a(i, j) = (i - 1) * 3 + j
Print
a(i, j);
Next j
Print
Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是：______。B:1
2 3
4 5
6
7
8 9
103 在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label,
ByVal a As Integer)
L.Caption = "1234"
a = a * a End Sub
Private Sub Form_Load()
Label1.Caption = "ABCD"
Label2.Caption = 10 End Sub
Private Sub Command1_Click()
a = Val(Label2.Caption)
Call func(Label1, a)
Label2.Caption = a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是：______。D:1234 和 10
104 假定程序中有以下语句： answer = MsgBox("String1",,"String2","String3",2) 执行该语句后，将显示一个信息框，此时如果单
击“确定”按钮，则answer的值为：______。D:1
105 以下叙述中不正确的是：______。A:Open语句的功能是打开一个已经存在的文件
106 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text1属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a, b
a = InputBox("Enter an Integer")
b = text1.Text
text1.Text = b +
a End Sub 程序运行后，先在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，如果单击“确定”按钮，则文本框中显
示的内容是：______。C:456123
107 设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为：______。 x= IIF((a>b) And (c
141 如果在立即窗口中执行以下操作（ 是回车键）：
a=8
b=9
print a>b 则输出结果是______。
C:False
142 当一个工程含有多个窗体时，其中的启动窗体是______。D:在“工程属性”对话框中指定的窗体
143 对变量名说法不正确的是______。C:可以包含字母、数字、下划线和标点符号
144 在Visual Basic中，下列运算符中优先级最高的是：______。A:*
145 以下关系表达式中，其值为假的是：______。B:"VisualBasic"="visualbasic"
146 在窗体上画一个命令按钮（名称为Command1），编写如下事件过程： Private Sub Command1_Click()
b = 5
c = 6
Print
a = b + c End Sub 程序运行后，单击命令按钮，输出的结果是：______。D:False
147 以下程序段运行的结果是：______。
Dim a(-1 To 5) As Boolean
Dim flag As Boolean
flag = False
Dim i As Integer
Dim j As Integer
Do Until flag = True
For i = -1 To 5
j = j + 1
If a(i) = False Then
a(i) = True
Exit For
End If
If i = 5 Then
flag = True
End If
Next
Loop
Print jC:35
148 在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。B:Text1.Visible = False
149 在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程： Private Sub Command1_Click()
Dim b As Integer
b
= b + 1 End Sub 运行程序，三次单击命令按钮后，变量b的值是：______。B:1
150 执行下列语句后，显示输入对话框，此时如果单击“确定”按钮，则变量strInput的内容是：______。 strInput=InputBox("请输入字
符串","字符串对话框","字符串")C:"字符串"
151 下面不能正确求该函数数值的程序段是：______。D:If x <= 0 Then
y = x
End If
If x <> 0 Then
y = y * x
Else
y = 0
End If
152 在窗体上画一个通用对话框，程序运行后，通过ShowOpen方法显示“打开”对话框，要求在该对话框的“文件类型”栏中只显示扩展名
为DOC的文件，则对通用对话框的Filter属性的正确设置是：______。D:"(*.DOC)|*.DOC"
153 以下正确的叙述是：______。B:Select Case语句中的测试表达式只能是数值表达式或字符串表达式
154 在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编
写如下事件过程： Private Sub Command1_Click()
x = Int(Val(Text1.Text) + 0.5)
Label1.Caption = Str(x) End Sub 程
序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是：______。C:29
155 在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程： Private Sub Command1_Click()
Counter = 0
For i = 1 To 4
For j = 6 To 1 Step -2
Counter = Counter + 1
Next j
Next
i
Label1.Caption = Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是：______。B:12
156 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()
For i = 1 To 4
If
i = 1 Then x = i
If i <= 4 Then x = x + 1
Print x;
Next i End Sub 程序运行后，单击命令按钮，其输出
结果为：______。 B: 2 3
4 5
157 以下叙述不正确的是：______。C:在Sub过程中可以嵌套定义Function
158 在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function Func(ByVal x As Integer, y As Integer)
y = x
* y
If y > 0 Then
Func = x
Else
Func = y
End If End Function Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 3
b = 4
c = Func(a, b)
Print "a="; a
Print "b="; b
Print "c=";
c End Sub 程序运行后，单击命令按钮，其输出结果为：______。A:a= 3
b= 12
c= 3
159 假定程序中有以下语句： answer = MsgBox("String1",,"String2","String3",2) 执行该语句后，将显示一个信息框，此时如果单
击“确定”按钮，则answer的值为：______。D:1
160 以下叙述中不正确的是：______。A:Open语句的功能是打开一个已经存在的文件
161 在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。当改变目录列表框的内容时，
要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change事件过程中应使用的语句是：______。D:File1.Path = Dir1.Path
162 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text1属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a, b
a = InputBox("Enter an Integer")
b = text1.Text
text1.Text = b +
a End Sub 程序运行后，先在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，如果单击“确定”按钮，则文本框中显
示的内容是：______。C:456123
163 设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为：______。 x= IIF((a>b) And (c
165 决定一个窗体有无控制菜单的属性是______。D:ControlBox
166 能够获得一个文本框中被选取文本的内容的属性是______。C:SelText
167 要使一个命令按钮成为图形命令按钮，则应设置其哪一属性值______。B:Style
168 要把一个命令按钮设置成无效，应设置其哪一属性值______。B:Enabled
169 若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的______属性。D:BackStyle
170 决定控件上文字的字体、字形、大小、效果的属性是______。D:Font
171 下列程序段的执行结果为______。 X=2.4:Z=3:K=5 Print "A(";X+Z*K;")"B:A( 17.4 )
172 下列程序段的显示结果为______。
x = 0
Print x - 1
x = 3A:-1
173
Visual Basic逻辑运算符Xor、Or、Eqv、And中，级别最高的运算符是______。D:And
174 系统符号常量的定义可以通过______获得。A:对象浏览器
175 函数Len(Str(Val("123.4")))的值为______。C:6
176 设A="12345678"，则表达式Val(Left(A,4)+Mid(A,4,2))的值为______。B:123445
177 函数UCase(Mid("visual basic",8,8))的值为______。D:BASIC
178
Rnd函数不可能产生______值。B:1
179 表达式Left("how are you",3)的值是______。A:how
180 表达式Abs(-5)+Len("ABCDE")的值是______。C:10
181 表达式Int(-17.8)+Fix(-17.8)+Int(17.8)+Fix(17.8)的值是______。C:-1
182 在程序代码中清除图片框Picture1中的图形的正确语句是______。B:Picture1.Picture=LoadPicture("")
183 在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是______。C:Picture1.Picture=LoadPicture("mypic.jpg")
184 列表框中的列表项的数目可以通过以下哪个属性的值获得______。B:ListCount
185 在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。C:Listindex
186 要将一个组合框设置为简单组合框（Simple Combo），则应将其Style属性设置为______。 B:1
187 要使一个标签透明且不具有边框，则应______。A:将其BackStyle属性设置为0，BorderStyle属性设置为0
188 为了使图片框的大小可以自动适应图片的尺寸，则应______。A:将其Autosize属性值设置为True
189 为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为______。D:5000
190 若在Shape控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的区域由BackStyle
属性填充，则应______。A:将Shape控件的FillStyle属性设置为2至7间的某个值，BackStyle属性设置为1
191 要使目录列表框（名称为Dir1）中的目录随着驱动器列表框（名称为Drive1）中所选择的当前驱动器的不同而同时发生变化，则应______。
C:在Drive1中的Change事件中，书写语句
Dir1.Path=Drive1.Drive
192 要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性______。D:Filename
193 要获得当前驱动器应使用驱动器列表框的哪个属性______。B:Drive
194 下列程序段的执行结果为______。
A = 0: B = 0
For I = -1 To -2 Step -1
For J = 1 To 2
B = B +
1
Next J
A = A + 1
Next I
Print A; BA: 2
4
195 下列程序段的执行结果为______。
S = 0: T = 0: U = 0
For X = 1 To 3
For Y = 1 To X
For Z = Y
To 3
S = S + 1
Next Z
T = T + 1
Next Y
U = U + 1
Next X
Print
S; T; UB: 14 6 3
196 下列程序段的执行结果为______。
197 下列程序段的执行结果为______。
K = 0
I = 0
For I = 1 To 3
A = I ^ I ^ K
Print A;
Next IA: 1
1 1
For G = 10 To 19 Step 3
I = I + 1
Next G
Print IA: 4
198 下列程序段的执行结果为______。
A = "abcd"
B = "bcde"
E = Right(A, 3)
F = Mid(B, 2, 3)
If E < F Then
Print E + F Else Print F + ED:bcdcde
199 下列程序段的结果为______。
A = "ABBACDDCBA"
For I = 6 To 2 Step -2
X = Mid(A, I, I)
Y = Left(A,
I)
Z = Right(A, I)
Z = X & Y & Z
Next I
Print ZC:BBABBA
200 下列程序段的执行结果为______。
X = 2
Y = 1
If X * Y < 1 Then Y = Y - 1 Else Y = -1
Print Y - X > 0B:False
201 执行以下语句后显示结果为______。
Dim x As Integer
If x Then Print x Else Print x - 1C:-1
202 下列程序段的执行结果为______。
For x = 5 To 1 Step -1
For Y = 1 To 6 - x
Print Tab(Y + 5); "*";
Next Y
Print
Next xC:*
**
***
****
*****
203 下列程序的执行结果为______。
I = 4
A = 5
Do
I = I + 1
A = A + 2
Loop Until I >= 7
Print
7
"I="; I
Print "A="; AD:I= 7
A= 11
204 下列程序段的执行结果为______。
x = 1
Y = 1
For I = 1 To 3
F = x + Y
x = Y
Y = F
Print F;
Next ID: 2 3
5
205 下列程序段的执行结果为______。
Dim A(5)
For I = 1 To 5
A(I) = I * I
Next I
Print A(I - 1)B: 25
206 设执行以下程序段时依次输入1、3、5，执行结果为______。
Dim a(4) As Integer, b(4) As Integer
For K = 0 To 2
a(K
+ 1) = Val(InputBox("请输入数据"))
b(3 - K) = a(K + 1)
Next K
Print b(K)A: 1
207 下列程序段的执行结果为______。
Dim m(3, 3) As Integer
Dim i As Integer
Dim j As Integer
Dim x As Integer
For i = 1 To 3
m(i, i) = i
Next
For i = 0 To 3
For j = 0 To 3
x = x + m(i, j)
Next
Next
Print xD: 6
208 下列程序段的执行结果为______。
Dim A(10), B(5)
For i = 1 To 10
A(i) = i
Next i
For j = 1 To 5
B(j) = j * 20
Next j
A(5) = B(2)
Print "A(5)="; A(5)D:A(5)= 40
209 使用Public Const语句声明一个全局的符号常量时，该语句应放在______。C:标准模块的通用声明段
210
Sub过程与Function过程最根本的区别是______。D:Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
211 可以在窗体模块的通用声明段中声明______。A:全局变量
212 单击窗体时，下列程序代码的执行结果为______。 Private Sub Form_Click()
Test 2 End Sub
Private Sub Test(x As Integer)
x = x * 2 + 1
If x < 6 Then
Call Test(x)
End If
x = x * 2 + 1
Print x; End SubA:23
47
213 单击命令按钮时，下列程序代码的执行结果为______。 Public Sub Procl(n As Integer, ByVal m As Integer)
n = n Mod 10
m
= m / 10 End Sub
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 12: y = 34
Call Procl(x,
y)
Print x; y End SubB: 2 34
214 以下说法正确的是______。 B:只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
215 在用菜单编辑器设计菜单时，必须输入的项是______。 D:名称
216 若有一菜单项（名为MenuItem），为了在运行时使该菜单项失效（变灰），应使用的语句是______。D:MenuItem.Enabled = False
217 下面叙述中不正确的是______。B:自定义数据类型只能在窗体模块的通用声明段进行声明
218 使用驱动器列表框的______属性可以返回或设置驱动器列表中当前选中的磁盘驱动器的索引值。D:ListIndex
219 下列叙述中不正确的是______。C:从驱动器列表框中选择驱动器能自动地变更系统当前的工作驱动器
220 使用目录列表框的______属性可以返回或设置当前工作目录的完整路径（包括驱动器盘符）。B:Path
221 文件列表框中用于设置或返回是否显示只读文件的属性是______。C:ReadOnly
222 下面叙述中正确的是______。B:随机文件由若干条记录组成，并可以按记录号访问各个记录
223 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是______。C:代码窗口
224 设有如下变量声明 Dim TestDate As Date 为变量TestDate正确赋值的表达方式是______。A:TestDate=#1/1/2002#
225 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y = 1
Y = Y + 5
X = 5 + X
Print X, Y End Sub 程序运行时，三次单击命令按钮
Command1后，窗体上显示的结果为______。B: 15
6
226 设有语句 x=InputBox("输入数值","0","示例") 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是______。
D:变量X的值是字符串“10”
227 设a="Visual Basic"，下面使b="Basic"的语句是______。B:b=Mid(a,8,5)
228 在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间。程序为：
Private Sub Timer1_ ______()
TxtTime.text=Time End Sub 在下划线上应填入的内容是______。D:Timer
229 在窗体上画两个单选按钮，名称分别为Optionl、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1，标题为“粗
体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中（窗
体外观如下图），则能够实现上述要求的语句序列是______。
D:Option1.Value=True
Check1.Value=1
230 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为Ture，这个属性是______。C:Cancel
231 图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是______。B:Stretch
232 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()
Dim i As Integer,n As Integer
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。B:3
233 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()
8
相关推荐
2023年江西萍乡中考道德与法治真题及答案.doc
2012年重庆南川中考生物真题及答案.doc
2013年江西师范大学地理学综合及文艺理论基础考研真题.doc
2020年四川甘孜小升初语文真题及答案I卷.doc
2020年注册岩土工程师专业基础考试真题及答案.doc
2023-2024学年福建省厦门市九年级上学期数学月考试题及答案.doc
2021-2022学年辽宁省沈阳市大东区九年级上学期语文期末试题及答案.doc
2022-2023学年北京东城区初三第一学期物理期末试卷及答案.doc
2018上半年江西教师资格初中地理学科知识与教学能力真题及答案.doc
2012年河北国家公务员申论考试真题及答案-省级.doc
2020-2021学年江苏省扬州市江都区邵樊片九年级上学期数学第一次质量检测试题及答案.doc
2022下半年黑龙江教师资格证中学综合素质真题及答案.doc
最新资料
2022-2023学年河北省唐山市高三上学期期末数学试题及答案.doc
2022-2023学年河北省张家口市高三上学期期末数学试题及答案.doc
2022-2023学年河北省衡水市高三上学期期末语文试题及答案.doc
2022-2023学年河北省保定市高三上学期期末数学试题及答案.doc
2022-2023学年河北省张家口市高三上学期期末语文试题及答案.doc
2022-2023学年河北省石家庄市高三上学期期末语文试题及答案.doc
2020-2021年四川省凉山州西昌市高一物理上学期期中试卷及答案.doc
2020-2021年四川省遂宁市安居区高一英语上学期期中试卷及答案.doc
2020-2021年四川省西昌市高一英语上学期期中试卷及答案.doc
2021-2022年四川省广安市岳池县高一地理上学期期中试卷及答案.doc
2021-2022年四川省成都市郫都区高一物理上学期期中试卷及答案.doc
2021-2022年四川省广安市岳池县高一物理上学期期中试卷及答案.doc