VB考前辅导班模拟考试卷MNSJ6.docVIP

试题一(每小题2分，共10分) 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 过程JiSuan用于计算s=1-1/2!+1/3!-1/4!+1/5!…+1/9!-1/10!的值，并用消息框显示结果。 【程序】 Option Explicit Private Sub JiSuan() Dim k As Integer, f As Long, fh As Integer, ----1d--- s = 1 : ----2c--- : fh = 1 For k = 2 To 10 ----3b--- : s = s + fh / f : f = ----4a--- Next k ----5d--- End Sub 【供选择的答案】 A、s as integer B、dim s as byte C、dim s as single D、s as single A、f = 0 B、f = 1 C、f = 2 D、f = -1 A、fh = 1 B、fh = -fh C、fh = -1 D、fh = (-1)^k A、f * (k+1) B、f * k C、f * 3 D、f * (k+2) A、Msgbox “1-1/2!+1/3!-1/4!+1/5!…+1/9!-1/10!的值=” f B、Msgbox “1-1/2!+1/3!-1/4!+1/5!…+1/9!-1/10!的值=” + f C、msgbox “1-1/2!+1/3!-1/4!+1/5!…+1/9!-1/10!的值=” + s D、msgbox “1-1/2!+1/3!-1/4!+1/5!…+1/9!-1/10!的值=” s 试题二(每小题2分，共8分) 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 事件过程Command1_Click用于产生10个[10,50]之间的随机整数，并采用选择排序算法将10个数以从小到大的顺序输出到窗体上。 【程序】 Const N = 10 Private Sub Command1_Click() Dim a(1 To N) As Integer, p As Integer Dim k As Integer, j As Integer, t as Integer Randomize For k = 1 To N a(k) = ----6c--- Print a(k); Next k Print For k = 1 To N - 1 p = k For j = ----7b--- If ----8a--- Then p = j Next j If ----9d--- then t = a(p) : a(p) = a(k) : a(k) = t Next k For k = 1 To N Print a(k); Next k Print End Sub 【供选择的答案】 A、Int(Rnd * 40) + 10 B、Int(Rnd * 40) + 10 C、Fix(Rnd * 41 + 10) D、Int(Rnd(41) + 10) A、1 To N - k B、k + 1 To N C、1 To N - p D、p To N + 1 A、a(p) a(j) B、a(p) a(j) C、a(k) a(j) D、a(k) a(j) A、p j B、p = j C、p = k D、p k 试题三(每小题2分，共6分) 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 事件过程Command1_Click用于在窗体上打印如下图所示的图案。 【程序】 Private Sub Command1_Click() Dim k As Integer, kgs As Integer, zfs As Integer For k = 1 To 5 kgs = ----10c--- ----11b--- Next k For k = 1 To 5 zf