【正文】
% Dim Counter As Integer Randomize (1) Timer For N=1 To 50 X=Rnd()* Rnd()*41+60 (2) If x Mod 6 (3) =2 Then Print x Counter= Counter+ 1 (4) End If (5) Next N Print Counter End Sub 《 VB 程序設(shè)計(jì)與應(yīng)用》參考答案 一、填空題 1 2 3 4 5 答案 可視化設(shè)計(jì) 事件驅(qū)動(dòng)編程 窗體( form) 控件 集合 題號(hào) 6 7 8 9 10 答案 特殊子程序 雙精度 動(dòng)作 Print 選中 題號(hào) 11 12 13 14 15 答案 高度( Height) 寬度 (Width) 中央 工程 1 題號(hào) 16 17 18 19 20 答案 0 空 False Picture Cls 二、選擇題 1 2 3 4 5 答案 C A B C A 題號(hào) 6 7 8 9 10 答案 D D A B B 題號(hào) 11 12 13 14 15 答案 D A A A D 題號(hào) 16 17 18 19 20 答案 C A C C B 三、判斷題 1 2 3 4 5 6 7 8 9 10 答案 Х Х Х √ Х √ √ √ √ Х 11 12 13 14 15 16 17 18 19 20 答案 √ Х √ √ Х Х √ Х Х √ 四、程序閱讀題: (一) ( 10分) 1 、 55 110 (二)、 ( 10 分) * 2 5 15 30 75 16 32 80 五、編程題 ( 20分) (一) Timer1 x ,y (二 ) Randomize Rnd()*41+60 x Mod 6 Counter+ 1 5 End If