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

VB考前辅导班模拟试卷二 试题一（每小题2分，共10分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 过程JiSuan用于计算S=1+1/2!-1/3!+1/4!+…-1/9!+1/10!的值，并用消息框显示结果。 【程序】 Option Explicit Private Sub JiSuan() Dim k As Integer, f As Long, fh As Integer, (1) s as single s = 1 : (2) f = 2 : fh = 1 For k = 2 To 10 s = s + fh / f : (3) fh = -fh : f = (4) f * (k+1) Next k (5) msgbox “1+1/2!-1/3!+1/4!+…-1/9!+1/10!的和为：” s End Sub 【供选择的答案】 A、s as integer B、dim s as integer C、dim s as single D、s as single A、f = 1 B、f = 2 C、f= -1 D、f = -2 A、fh= 1 B、fh= -1 C、fh = -fh D、fh= (-1)^k A、f * k B、f * (k+1) C、f * 3 D、f * (k+2) A、Msgbox “1+1/2!-1/3!+1/4!+…-1/9!+1/10!的和为：” f B、Msgbox “1+1/2!-1/3!+1/4!+…-1/9!+1/10!的和为：” + f C、msgbox “1+1/2!-1/3!+1/4!+…-1/9!+1/10!的和为：” + s D、msgbox “1+1/2!-1/3!+1/4!+…-1/9!+1/10!的和为：” s 试题二（每小题2分，共16分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 程序界面如下图所示，程序运行时要求有以下功能： 单击按钮Command1，生成十个[100，999]之间的随机整数，然后对这些数按数位之和进行升序排列并显示在窗体上。例如：112的数位之和为4，621的数位之和为9，360的数位之和为9，371的数位之和为11……，因此按下图所示顺序排列。函数CalcNumber用于计算数n各数位之和。 【程序】 Private Sub command1_Click() Dim a(1 To 10) As Integer, b(1 To 10) As Integer Dim k As Integer, j As Integer, p As Integer, t As Integer For k = 1 To 10 a(k) = (6) fix(rnd*900)+100 : b(k) = (7) CalcNumber(a(k)) Next k For k = 1 To 9 p = k For j = (8) k+1 to 10 If (9) b(p)b(j) Then p = j Next j t = a(p): a(p) = a(k): a(k) = t : t = b(p): b(p) = b(k): b(k) = t (10) Print a(k) Next k Print a(10) End Sub Function CalcNumber(ByVal n As Integer) As Integer Dim s As string, L as integer, r as integer, k as integer s = (11) trim(str(n)) : L = len(s) for k = 1 to L r = r + (12) val(mid(s,k,1)) next k (13) CalcNumber = r End Function 【供选择的答案】 A、int(rnd*899)+100 B、int(rnd(900))+100 C、int(rnd(899)+100) D、fix(rnd*900)+100 A、call CalcNumber(a(k)) B、call CalcNumber a(k) C、CalcNumber(a(k)