(浙师大vb模拟卷.docVIP

浙江师范大学《Visual Basic程序设计基础》考试卷 （2010----2011学年第1学期） 考试形式　笔试（闭卷） 　 　　 使用学生 全校10级理科专业 考试时间　120　分钟　　　　　　　 出卷时间 2011 年 1 月 5 日 说明：考生应将全部答案写在答题纸上，否则作无效处理。 试题一(每小题2分，共10分) 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 自定义过程JiSuan用于计算f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)，并用消息框显示结果。 【程序】 Option Explicit Public Sub JiSuan() Dim k As Integer, ----1---- Dim sign As Integer ----2---- f = 1 ----3---- f = f + sign / (k * (k + 1)) ----4---- Next k ----5---- End Sub 【供选择的答案】 A、f As String B、Dim f As String C、Dim f As Single D、f As Single A、sign = 1 B、sign = 1/sign C、sign = -1 D、sign = 0 A、for k = 1 to 20 B、for k = 2 to 19 C、for k = 2 to 20 D、for k = 1 to 19 A、sign = 1 B、sign = 1/sign C、sign = - sign D、sign = -1 A、MsgBox f= ; f B、MsgBox f= f C、MsgBox f= , f D、MsgBox f= + f 试题二(每小题2分，共8分) 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 事件过程Command1_Click用于产生10个[10,99]之间的随机整数，并采用选择排序算法将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) = ----6---- Print a(k); Next k Print For k = 1 To N - 1 p = k For j = ----7---- If ----8---- Then p = j Next j t = a(p) : ----9---- : a(k) = t Next k For k = 1 To N Print a(k); Next k Print End Sub 【供选择的答案】 A、Fix(Rnd * 90) + 10 B、Int(Rnd * 89) + 10 C、Int(Rnd * 89) + 10 D、Int(Rnd(90) + 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、a(j) = a(p) B、a(p) = a(j) C、a(k) = a(p) D、a(p) = a(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