第3章顺序结构程序设计.doc

第三章
一、思考题 略

二、程序阅读题
1． A=2 B=1 C=2
2． 12
3． BABCBACBC
4． 1 2 False
5． 1-12-123-1234-

三、选择题
1.B 2.D 3.B 4.B 5.D 6.C

四、程序设计题
１．
Private sub form_click()
Dim r!,s!
R=val(inputbox(“r=”))
S=3.14159*r*r
Print “s=”;s
End sub

2．
Private sub form_click()
　 Dim x as single
X=val(inputbox(“x=”))
Print fix(x*x*1000)/1000,fix(sqr(x)*1000)/1000
End sub