07年vb期末考试b卷答案.pdf

《07年vb期末考试b卷答案.pdf》由会员分享，可在线阅读，更多相关《07年vb期末考试b卷答案.pdf（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 分；循环结构 2 分；求和式 2 分；输

3、出 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