vb模拟题(答案).doc

Visual Basic语言笔试试题(答案)
(共100分)
一、单项选择题(每题1分,共20分)

18. A
二、多项选择题(每题1分,共10分)


三、判断分析题(每题1分,共10分)
01.´ 02.´ 03.´ 04.Ö 05.Ö 06.´ 07.´ 08.Ö 09.Ö 10.´

四、填空题(每题2分,共20分)
1. ①True
2.②Single
3.③150
4.④2 To n – 1 ⑤ n Mod x = 0 Then ⑥ False ⑦ f Then
5.⑧ 4 – Sgn(A) * A ⑨"M"; ⑩ B
五、读程序(每题4分,共20分)
1. B 2. A 3. C 4. C 5. D
六、编程题:(每题10分,共20分)
01. 编写程序计算由下列公式确定s的值。
要求:mand1,计算S的值,结果显示在标签框Label1中。mand2 结束程序的运行。
答案:
Private mand1_Click() '1分
s1 = 0 '1分
x = -1 '1分
For k = 1 To 39 Step 2 '4分
x = -x
s1 = s1 + x * (1 / k)
Next k
s = 4 * s1 '1分
= s '1分
End Sub
Private mand2_Click() '1分
End
End Sub
02. 有5支球队进行单循环赛, 胜负场次如下:
球队编号
胜
平
负
积分
1001
1
2
1
1002
1
1
2
1003
2
1
1
1004
3
1
0
1005
0
1
3
胜一场得3分,平一场得1分, 负一场得0分。
要求:单击“计算”mand1, 算出每个队的积分。求按上