9月最新vb预测试题由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“大一vb考试模拟试题”。
化工大学北方学院应用技术学院
2012—2013学年第二学期结业考试试卷
年级：10级专业：10化学工程学科：VB程序设计 任课教师：周建敏
学生姓名：-----------------分数：------------------
一、单项选择题（每题2分，共20分）
1．在代码中引用一个控件时，应使用控件的（）属性。
A．CaptionB．NameC．TextD．Index
2．设变量x = 4，y =-1，a = 7，b =-8,下面表达式（）的值为“假”。
A．x+a 0ANDy
C．a = bORx>yD． x+y > a+bAND NOT(y
3．表达式Int(Rnd*71)+10产生的随机整数范围是（）。
A．（10，80）B．（10，81）C．[10，80]D．[10，81]
4．函数Sgn(3.1416)的返回值是（）。
A．-1B．0C．1D．以上都不对
5．67890属于（）类型数据。
A．整型B．单精度浮点数C．货币型D．长整型
6．下列变量名中正确的是（）。
A．3SB．PrintC．SelectMy NameD．Select_1
7．下列赋值语句（）是有效的。
A．sum = sum-sumB．x+2 = x + 2C．x + y = sumD．last = y / 0
8．以下的控件或方法具有输入和输出双重功能的为（）。
A．PrintB．TextboxC．OptionbuttonD．Checkbox
9．若要获得列表框中被选中的列表项的内容，可以通过访问（）属性来实现。
A．NameB．ListIndexC．ListCountD．Text
10．下列代码的运行结果为（）。
Private Sub command1_click()
Dim m(10)
For k = 1 To 10
m(k)= 114
Case 3
Print “y=”;x ^ 3 + 100
End Select
End Sub
2．Private Sub command1_click()
Dim a, b, c, d, e As String
a = “Zheng Zhou”
b = “Zhong Yuan Gong Xue Yuan”
c = a + “ ” + b
d = Left(a, 1)+ Mid(a, 7, 1)
e = Left(b, 1)+ Mid(b, 12, 1)
Print c
Print d;e
End Sub
3．设有Sub过程：
Private Sub p1(x As Integer, ByVal y As Integer)
x = 4 ：y = 5 ：z = 6
End Sub
则如下程序段的运行结果是:
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 1: y = 2: z = 3
Print x, y, z
Call p1(x, y)
Print x, y, z
End Sub
4．Private Sub command1_click()
k = 0
For i = 1 To 3
k = k + 1
a = i * i * k
Print a;
Next i
End Sub
5．Private Sub command1_click()
Dim a(5, 5)As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j)= i * 2 + j
Print a(i, j);
Next j
Next i
End Sub
6．设有Function过程:
Private Function f1(b, a)
a = a * a: b = b * b
f1 = a-b
End Function
则如下程序段的运行结果是什么？
Private Sub command1_click()
a = 4: b = 3
a = f1(a, b)
Print a
End Sub
七．编程题（共30分）
1．给出一个百分制的成绩，要求输出成绩的相应等级。（7分）
90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。
2．求n!,n由键盘输入。（7分）
3．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分）
4．从键盘输入10个数，求出其中的最大数，最小数和平均值。（8分）
