VB第五章自测题与答案.doc

自测题及其参考答案 5．1 循环的概念 自测题 填空题（共30分，每空10分） 反复执行的程序段称为（ ）；进入循环体的条件称为（ ）；中止循环体执 行的条件称为（ ）。 指出下列循环结构控制流程图的循环体、进入循环的条件和结束循环条件。（共70 分，每小题35分） 1． S=0 : i=1 S=0 : i=1 i=100 False i=100 True S=S+x S=S+x i=i+1 i=i+1 2． t=1 : i=1 t=1 : i=1 t=t*i t=t*i i=i+1 i=i+1 i=5 True i=5 False 参考答案 填空题 循环体、循环条件、结束循环条件 指出下列循环结构控制流程图的循环体、进入循环的条件和结束循环条件。 i=100、s=s+i、i100 i=5、t=t*i、i5 5．2 while…wend语句 自测题 当x的输入值为50，19，0，21和-1时，下列事件过程的执行结果是什么？（20分） Private Sub Command1_Click() Dim x%, s% s = 0 x = InputBox(x=) While x = 0 s = s + x x = InputBox(x=) Wend Print s=; s End Sub 写出下列事件过程的功能。（20分） Private Sub Command1_Click() Dim i%, t! t = 1: i = 1 While i 10 t = t * 1 / i i = i + 2 Wend Print t=; t End Sub 单项选择题（共20分，每小题10分） 1．执行下列程序段后屏幕上（ ）。 i% = 10 Sum = 0 While i 1 Sum = Sum + i i = i - 1 Wend Print Sum 无显示 显示10 显示54 显示55 2．以下程序段中循环语句（ ）。 x% = 0 While Not x x = x + 1 Print x Wend 有语法错误 是死循环 循环体执行一次 循环体一次也不执行 下面事件过程的功能是：使用公式求π的值，要求计算到最 后一项的值大于10-6为止，在横线上填上适当内容。（共40分，每空10分） Private Sub Command1_Click() Dim i, pi! pi = 0: (1) While (2) pi = pi + (3) i = i + 1 Wend Print pi=; (4) End Sub 参考答案 当x的输入值为50，19，0，21和-1时，事件过程的执行结果是：s=90。 事件过程的功能是求。 单项选择题 1．c 2. b 四．(1) i=1 （2）1/（i*i）=1e-6 1/(i*i) sqr(pi*6) 5．3 Do…loop语句 自测题 一．单项选择题（40分，每小题10分） 1．执行下列程序段输出结果是（ ）。 x=2 Do while x8 Print “*” x=x+2 Loop a)* b) ** c)*** d)**** 2．设有程序段 Dim k% k=5 Do until k=0 k=k-1 Loop 则下面描述正确的是（　　　）。 循环体一次也不执行 循环体执行一次 循环体执行五次 循环体执行无限次 ３．执行下列程序段输出结果是（　　　）。 n%=0 Do n=n+2 Print n Loop until n=8 2 b)2 c)2 d)2 4 4 4 6 6