VisualBasic程序设计-期末综合练习（程序阅读分析题） 复习题（带答案）
说明：每学期的课程题号都可能更换，请认真核对是您需要的题号后再下载！
【题号】
private sub form_click() dim x as integer static y as integer x = x + 2 y = x + y
form1.print \end sub
程序运行后三次单击窗体，form1上的输出结果为（ ）。 A. x=2 y=2 B. x=2 y=4 C. x=2 y=6 D. x=6 y=6
[认真学习课本知识，并分析作答上述题号] 参考答案：x=2 y=6
【题号】
private sub command1_click() dim x as integer static s as integer
x = val(inputbox(\请输入一个正整数=\ if x < 5 then s = s * x else
s = s + x end if
text1.text = \end sub
程序运行后，连续3次单击command按纽，且设输入的数据为5、4、3时，文本框text1中显示的值为（ ）。 A. 12 B. 20 C. 60 D. s=60
[认真学习课本知识，并分析作答上述题号] 参考答案：s=60
【题号】
private sub command1_click() static x as integer
static y as integer cls y = 1 y = y + 5 x = 5 + x print x, y end sub
程序运行后，单击命令按钮command1三次后，窗体上显示的结果为（ ）。 A. 15 16 B. 15 6 C. 15 15 D. 5 6
[认真学习课本知识，并分析作答上述题号] 参考答案：15 6
【题号】
private sub command1_click() n = text1.text select case n case 1 to 20 x = 10 case 2, 4, 6 x = 20 case is < 10 x = 30 case 10 x = 40 end select text2.text = x end sub
程序运行后，如果在文本框text1中输入10，然后单击命令按钮，则在text2中显示的内容是（ ）。 A. 10 B. 20 C. 30 D. 40
[认真学习课本知识，并分析作答上述题号] 参考答案：10
【题号】
private sub command1_click() static y as integer cls
for i = 0 to 2
x = x + y y = y + 3 next i print x, y end sub
程序运行后，连续二次单击command1按钮后，窗体上显示的值是（ ）。 A. 9 9 B. 30 12 C. 36 18 D. 63 27
[认真学习课本知识，并分析作答上述题号] 参考答案：36 18
【题号】
private sub command1_click() dim s as double dim i as integer s = 5 i = 1
do while i < 6 i = i + 2 s = s + i loop
text1.text = s end sub
程序运行后，单击命令按钮，在文件框text1中的输出结果是（A. 13 B. 20 C. 11 D. 18
[认真学习课本知识，并分析作答上述题号] 参考答案：20
【题号】
private sub command1_click() x = 0
do while x < 60
x = (x + 2) * (x + 3) n = n + 1 loop
text1.text = str(n) text2.text = str(x)
text3.text = val(text1.text) + val(text2.text) end sub
。 ）