发布时间 : 星期二 文章VB2011期末试卷含答案更新完毕开始阅读
2013-3-30 5
A. 3 15 B. 2 12 C. 4 24 D. 5 15
44. 若要退出For循环，可使用的语句为____D___。
A. Exit B. Exit Do C. Time D. Exit For 45. 下面程序段的作用是___D____。 m=0:n=0
For i=1 To 10
x= Val(InputBox(\请输入x的值:\ If x>0 Then m=m+x
ElseIf x<0 Then n=n+1 End If Next i Print m,n
A. 计算从键盘输入的数据之和，并统计输入数据的数目 B. 分别计算从键盘输入的正数之和与负数之和 C. 分别计算从键盘输入的正数和负数的个数
D. 计算从键盘输入的正数之和，并统计负数的个数
二、判断题（正确的√，错误的打×，每题1分，共5分） 1.在VB中，可以用ABS(X)计算x的绝对值
2.在VB中，定义静态局部变量用的关键字是Public 3.在VB中，乘法的运算优先级别比加法高
4.程序运行后，在窗体上单击鼠标，程序不会接收到的事件是click 5.VB是一种可视化、面向对象的程序设计语言
三、填空题（将正确的答案写到答题卡上，每空1分，共12分） 1. 表达式10 MOD 16\\4的值是_______。2 2. 在VB中，用 Dim X As Integer 语句定义的变量X，系统默认其值为_______。0|零
3. 用 dim abc as variant 定义的变量abc,其类型是_______。变体类型 4. \，这四个字符中，_______的ASCII码值最大。“a” 5. For-Next循环的
6. 表达式 sgn(-25) 的值是_______。-1
7. 在VB中，用于产生输入对话框的函数是_（InputBox|InputBox()）_，其返回值类型为_（字符串|字符串类型|字符型|string）_类型。 8. Int(-8.6)的函数值是_______。-9
9. 将Form1的字号设置成20，使用的语句是____。Form1.fontsize = 20 10. VB中，对象主要是指_______窗体_______和__控件________。 四、程序填空题（每空2分,共28分） 1 private Sub Command1_Click()
Dim s As String, n As Integer S=“ 22b3c” N=Val(s)+78 Print n
5
2013-3-30 6
End Sub
上面程序运行后，单击Command1 命令按钮，输出结果是__100____.
.
2. 设输入的数据分别为14、3时，输出的值分别是___4、6___。 Private Sub Form_Click() Dim a As Integer
a = Val(InputBox(\请输入一个数\ Select Case a Mod 5 Case Is < 2 w = a + 10 Case Is < 4 w = a * 2 Case Else w = a - 10 End Select Print w End sub
3. 有如下程序，运行后输出结果是___5___。 Private Sub Form_Click() a=5
If a<=3 Then Print 3; End If
If a<=4 Then Print 4; End If
If a<=5 Then Print 5; End If End sub
4. 运行下列程序段，显示的结果是___优秀__。 x=Int(Rnd)+5 Select Case x Case 5
Print \优秀\ Case 4
Print \良好\ Case 3
Print \通过\ Case Else
Print \不通过\End Select
5. 当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为___2___。 If a
6
2013-3-30 7
If c x=1 Else x=2 End If Else If c 6. 以下程序段执行后，变量x的值为____25___。 x = 0 For i = 1 To 5 For j = 1 To 5 x = x + 1 Next j Next i Print x 7. 下列程序中 s = s + j 语句共执行了___15____次，执行完后，将输出s的值为__45__ Dim s As Integer Dim i As Integer, j As Integer For i = 1 To 10 Step 2 For j = 1 To 5 Step 2 s = s + j Next j Next i Print s 8. 实现功能：假设有一个5位数密码。只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。请完善算法帮忙找出这个密码。 Private Sub Command1_Click() ① 67008 Dim x As Long ② x For x = ____①__ To 67998 Step 10 ③ Next x If (x Mod 67 = 0) And (x Mod 78 = 0) Then Print ____②___ End If _____③____ End Sub 9. 3位水仙花数是指一个三位数，其各个数位上的数字之立方和为该数。例如：153=1^3+5^3+3^3。 请不要更改源程序的结构，删除原题里的①、②、③。填写正确的代码，使程序完善 7 2013-3-30 8 Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer For i = 100 To 999 ① 100 a = i \\ __①____ ② 100 b = (i - a * __②__) \\ 10 ③ End if c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i ___③___ Next i End Sub 五、编程题（2题，共10分） 1.从键盘任意输入2个数，比较大小，输出其中的大者（5分） 2. 8