内容发布更新时间 : 2024/6/28 18:11:13星期一 下面是文章的全部内容请认真阅读。

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

。 ）