2014春中国农业大学《VB语言程序设计》在线作业A

VB语言程序设计-在线作业_A 用户名： 最终成绩：100.0
一 单项选择题
1.阅读下面的程序：
Private Sub Form_Click()
Dim m, n As Integer
m = InputBox("请输入 M 的值")
m = Val(m)
m1 = m
n = InputBox("请输入 N 的值")
n = Val(n)
n1 = n
Do While n < 0
remin = m Mod n
m = n
n = remin
Loop
Print m1, n1, m
End Sub
程序运行后，单击窗体，在输入对话框中分别输入16和24，在程序在窗体上的输出结果为（）。
16244
16248
24168
24166
本题分值：5.0
用户得分：5.0
用户解答：16248
知识点：
________________________________________
2.假定有以下循环结构
Do Until 条件
循环体
Loop
则正确的描述是（）。
不论“条件”是否为“真”，至少要执行一次循环体
如果“条件”是一个为0的常数，则一次循环体也不执行
如果“条件”是一个不为0的常数，则至少执行一次循环体
如果“条件”是一个为0的常数，则无限次执行循环体
本题分值：5.0
用户得分：5.0
用户解答：如果“条件”是一个为0的常数，则无限次执行循环体
知识点：
________________________________________
3.在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
Private Sub Command1_Click()
x = 0
Do While x < 50
x = (x + 2) * (x + 3)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。
1和0
2和72
4和168
3和50
本题分值：5.0
用户得分：5.0
用户解答：2和72
知识点：
________________________________________
4.执行下面的程序段后，x的值为（）。
x = 5
For i = 1 To 20 Step 2
x = x + i / 5
Next i
20
24
25
21
本题分值：5.0
用户得分：5.0
用户解答：21
知识点：
________________________________________
5.阅读下面的程序：
Private Sub Form_Click()
Dim Check, Counter
Check = True
Counter = 0
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then
Check = False
Exit Do
End If
Loop
Loop Until Check = False
Print Counter, Check
End Sub
程序运行后，单击窗体，输出结果为（）。
150
10False
10True
20-1
本题分值：5.0
用户得分：5.0
用户解答：10False
知识点：
________________________________________
6.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i = 1 To 4
x = 4
For j = 1 To 3
x = 3
For k = 1 To 2
x = x + 6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是（）。
7
157
15
538
本题分值：5.0
用户得分：5.0
用户解答：15
知识点：
________________________________________
7.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For i = 1 To 4
For j = 0 To i
Print Chr$(65 + i);
Next j
Print
Next i
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。




本题分值：5.0
用户得分：5.0
用户解答：
知识点：
________________________________________
8.阅读下面的程序：
Option Base 1
Private Sub Form_Click()
Dim Arr(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
Arr(i, j) = (i - 1) * 2 + j
Next j
Next i
For i = 3 To 4
For j = 3 To 4
Print Arr(j, i);
Next j
Print
Next i
End Sub
程序运行后，单击窗体，输出结果是（）。
79 810
810811
5768
6879
本题分值：5.0
用户得分：5.0
用户解答：79 810
知识点：
________________________________________
9.用下面的语句所定义的数组的元素个数是（）。
Dim arr(3 To 5, -2 To 2)
12
8
15
24
本题分值：5.0
用户得分：5.0
用户解答：15
知识点：
________________________________________
10.在窗体上画一个命令按钮，Name属性为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim Arr(3) As Integer
For i = 1 To 3
For j = 1 To 3
Arr(j) = Arr(i) + 1
Next j
Next i
Print Arr(3)
End Sub
程序运行后，单击命令按钮，输出结果是（）。
7
4
5
6
本题分值：5.0
用户得分：5.0
用户解答：5
知识点：
________________________________________
11.可唯一标志控件数组中某一个控件的属性是（）。
Index
Name
TabIndex
Caption
本题分值：5.0
用户得分：5.0
用户解答：Index
知识点：
________________________________________
12.删除列表框中指定的项目所使用的方法为（）。
RemoveItem
Move
Remove
MoveItem
本题分值：5.0
用户得分：5.0
用户解答：RemoveItem
知识点：
________________________________________
13.阅读下面的程序：
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
运行上面的程序，单击命令按钮，输出结果为（）。
2 4 6 8
程序出错
5 6 7 8
10 12 14 16
本题分值：5.0
用户得分：5.0
用户解答：2 4 6 8
知识点：
________________________________________
14.阅读下面的程序：
Function Func(x As Integer, y As Integer) As Integer
Dim n As Integer
Do While n <= 4
x = x + y
n = n + 1
Loop
Func = x
End Function
Private Sub Command1_Click()
Dim x As Integer, y As Integer, n As Integer, z As Integer
x = 1: y = 1
For n = 1 To 6
z = Func(x, y)
Next n
Print z
End Sub
程序运行后，单击命令按钮，输出结果是（）。
16
31
21
26
本题分值：5.0
用户得分：5.0
用户解答：31
知识点：
________________________________________
15.阅读下面的程序：
Function F(a As Integer)
Static c
b = 0
b = b + 1
c = c + 1
F = a + b + c
End Function
Private Sub Command1_Click()
Dim a As Integer
a = 2
For i = 1 To 3
Print F(a)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为（）。
4 4 4
4 6 8
4 5 6
4 7 9
本题分值：5.0
用户得分：5.0
用户解答：4 5 6
知识点：
________________________________________
16.阅读下面的程序：
Function func(n As Integer) As Integer
Sum = 0
For i = 1 To n
Sum = Sum + (i + 1) * i
Next i
func = Sum
End Function
Private Sub Command1_Click()
Dim a As Integer
a = 5
s = func(a)
Print s
End Sub
程序运行后，单击命令按钮，输出结果为（）。
60
15
80
70
本题分值：5.0
用户得分：5.0
用户解答：70
知识点：
________________________________________
17.按文件存取方式和结构来区分有（）。
ASCII文件和二进制文件
磁盘文件和打印文件
程序文件和数据文件
顺序文件和随机文件
本题分值：5.0
用户得分：5.0
用户解答：顺序文件和随机文件
知识点：
________________________________________
18.用Write和Print语句向文件中写入多个数据的差别在于（）。
Print语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格
Print语句自动在数据项之间插入逗号
Write语句不会自动在数据项之间插入逗号
Write语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格
本题分值：5.0
用户得分：5.0
用户解答：Write语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格
知识点：
________________________________________
19.下面关于顺序文件的描述正确的是（）。
文件的组织结构复杂
每条记录的长度必须相同
数据以ASCII码形式存放在文件中，所以可通过文本编辑软件显示
可通过编程对文件中的某条记录方便地修改
本题分值：5.0
用户得分：5.0
用户解答：数据以ASCII码形式存放在文件中，所以可通过文本编辑软件显示
知识点：
________________________________________
20.执行语句“Print #1, 123; "hello"”后，相应的顺序文件内被写入的内容是（）。
"123 hello"
123 "hello"
123 hello
123,hello
本题分值：5.0
用户得分：5.0
用户解答：123 hello