《07年vb期末考试b卷答案》由会员分享，可在线阅读，更多相关《07年vb期末考试b卷答案（2页珍藏版）》请在金锄头文库上搜索。
1、2006/20072006/2007 学年第学年第 2 2 学期学期VBVB 程序设计期末试卷程序设计期末试卷 B B 答案与评分标准答案与评分标准试题一、判断题（每小题 1 分，满分 10 分）(1）A（2）B（3）B（4）A（5）B（6）B(7）B（8）A(9）A（10）B试题二、单选题（每小题 2 分，满分 20 分）(11）B（12）（13)BC（14)D（15）（16）（17）（18）(19）DAABA（20）D试题三、程序填空题(每小题 2 分，满分 30 分)（21)B(22）A（23）(24）D(33)CC(34）A（25）（26）（27)D（35）DCC(28）B（29）（3
2、0）CD（31）(32）CA试题四、程序阅读题（每小题 3 分，满分 24 分）（36)B（37）（38）（39）（40）（41）(42）DCAACD（43）D试题五、程序设计题(满分 16 分）1、 （本题满分 7 分)Private Sub Command1_Click()Dim s As SingleDim x As IntegerDim i As Integerx = Int（Rnd * 9） + 1s = 0For i = 0 To 19s = s + x i/( i+1)Next iPrint ”x=”; x, s=”， sEnd Sub事件与变量定义 1 分；产生 x 语句 1
3、分；循环结构 2 分；求和式 2 分；输出 1 分2、(本题满分 9 分)Private Sub Form_Click（)事件与常量、变量定义1 分；Const Pi As Double = 3.14159圆心，半径确定2 分；Dim x As Single，y As Single填充样式1 分；FillStyle = 0填充色确定2 分x = ScaleWidth / 2画圆方法3 分； （每个 1 分）y = ScaleHeight / 2FillColor = vbRedCircle (x, y)， 1500, ， Pi 2, Pi * 2 / 3FillColor = vbGreenCircle (x, y)， 1500，FillColor = vbBlueCircle (x, y)， 1500，End Sub, -Pi 2 / 3， Pi 4 / 3, -Pi * 4 / 3， -Pi * 2
