北师18秋514VB程序设计作业（二）离线考核
《VB程序设计》作业（二）本课程作业由两部分组成。第一部分为“客观题部分”，由15个选择题组成，每题1分，共15分。第二部分为“主观题部分”，由编程题组成，共15分。作业总分30分，将作为平时成绩记入课程总成绩。
客观题部分：
选择题（每题1分，共15题）
1. 当VB执行下面语句后，A的值为（ ）。
A=1 IF A>0 THEN A=A+1 IF A>1 THEN A=0
A）0 B）1 C）2 D）3
2. 当VB执行下面语句后，输出的结果是（）。
Private Sub Form_Click（） score = Int(Rnd * 10) + 30 Select Case score Case Is < 10 A$ = "F" Case 10 To 19 A$ = "D" Case 20 To 29 A$ = "C" Case 30 To 39 A$ = "B" Case Else A$ = "A" End Select Print A$ End Sub
A） A B） B C） C D） D
3. 执行下面的程序段后，x 的值为( )。
x=2
Fori=1 To 10Step 3
x=x+i\2
Next i
A) 2 B) 4 C) 7 D) 9
4. 假定有以下循环结构：
Do Until 条件 循环体 Loop
则正确的描述是（ ）。
A) 如果“条件”是一个为0的常数，则一次循环体也不执行 B) 如果“条件”是一个为0的常数，则至少执行一次循环体 C) 如果“条件”是一个不为0的常数，则至少执行一次循环体 D) 不论“条件”是否为“真”，至少要执行一次循环体
5. 假定有以下程序段：
For i= 1 To 3 For j = 5 To 1 Step -1 Printi * j Nextj , i
则语句“Printi * j ”的执行次数是（ ）。
A）20 B）24 C）15 D）18
6. 以下程序段的输出结果为（ ）。
x = 2 y = 8 Do Until y>8 x = x * y y = y +1 Loop Print x
A）2 B）9 C）10 D）16
7. 用下面的语句所定义的数组的元素个数是（ ）。
DimA（-3 To 5）As Integer
A）6 B）7 C）8 D）9
8. 阅读下面的程序段：
Fori=1 To 2
Forj=1 To i
For k=j To 2
x=x+1
Next k
Next j
Next i
执行上面的三重循环后，x的值为( )。
A) 3 B) 4 C) 5 D) 6
9. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Fori=1 To 3
x=2
Forj =1 To 2
x=4
Fork=1 To 3
x=x+5
Nextk
Nextj
Nexti
Printx
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A) 11 B) 19 C) 57 D) 63
10. 在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，然后编写如下事件过程：
Private Sub Command1_Click()
x=1
Do While x<50
x=(x+1)*(x+2)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
A) 1和0 B) 2和56 C) 3和 70 D) 4和168
11. 以下正确的叙述是（ ）。
Select Case语句中的测试表达式可以是任何形式的表达式
Select Case语句中的测试表达式只能是数值表达式或字符串表达式
在执行Select Case语句时，所有Case子句均按出现的次序被顺序执行
如下Select Case语句中的Case表达式是错误的：
Select Case x
Case 1 to 10
……
End Select
12. 在窗体上绘制一个命令按钮Command1，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4, 5)
j = 1
For i = 5 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
运行程序，单击命令按钮，输出结果为（ ）。
A）54321 B)12345 C)1234 D)4321
13. 在窗体上绘制一个命令按钮Commandl，编写以下事件过程：?
Private?Sub?Commandl_C1ick()?
Dim?b
b＝Array(1,2,3,4,5)?
……
End?Sub?
此过程的功能是把数组b中的5个数逆序存放。为了实现此功能，省略号处的程序段应该是（ ）。
For?i＝0?To?5-1\2?
tmp＝b(i)? ?? b(i)＝b(5-i-1)? ?? b(5-i-1)＝tmp? ??Next?i
For?i＝0?To?5?
?? tmp=b(i)? ?? b(i)＝b(5-i-1)? ?? b(5-i-1)=tmp? ?? Next?i
For?i＝0?To?5\2?
?? tmp＝b(i)? ?? b(i)＝b(5-i-1)? ?? b(5-i-1)=tmp? ?? Next?i
For?i＝1?To 5\2?
?? b(5-i-1)＝tmp? ?? tmp=b(i) ?? b(i)＝b(5-i-1)? ?? Next?i
14. 在窗体上绘制一个命令按钮Commandl，编写以下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a(3, 3) As Integer
For i = 1 To 3
For j = 1 To 3
a(i, j) = 2 * i + j
Next j
Next i
For i = 2 To 3
For j = 2 To 3
Print a(j, i)
Next j
Next i
End Sub
程序运行后，单击命令按钮，输出的结果是（ ）。
A） 5 B）6 C) 6 D）5
6 7 8 7
7 8 7 6
8 9 9 8
15. 设有函数y＝，下面不能正确求得函数值的程序段是（ ）。
Select Case x
Case Is < 0
y=x
Case 0
y=0
Case Is > 0
y=x*x
End Select
If x>0 Then
y=x*x
End If
If x=0 Then
y=0
End If
If x<0 Then
y=x
End If
If x < 0 Then
y = x
Else
If x > 0 Then
y = y * x
Else
y = 0
End If
End If
If x<=0 Then
y=x
End If
If x>0 Then
y=x*x
Else
y=0
End If主观题部分：
编程题（每题15分，共1题）
编程实现一个窗体Form的click事件，单击该窗体后从键盘接收变量n的数值然后计算并打印1+2+...+n的值，如果和已经大于1000则停止计算。
转载注明无忧答案网q761296021
页:
[1]