《第4章-vb控制结构》习题答案.doc

《第4章 VB控制结构****题答案
一、填空题
1、顺序控制结构、选择控制结构、循环控制结构。（P59）
2、关系/逻辑（P60）
情况中的表达式、Select case中的测试表达式（P64）
Exit Do、Exit For《第4章 VB控制结构****题答案
一、填空题
1、顺序控制结构、选择控制结构、循环控制结构。（P59）
2、关系/逻辑（P60）
情况中的表达式、Select case中的测试表达式（P64）
Exit Do、Exit For（P69）
设计模式、运行模式、中断模式（P74）
编译错误、运行错误、逻辑错误（P75）
9。
23
MouseDown、MouseUp、Click。
24
10
1 2 12
4 10
6
1 2 3 6
80 30 30
二、单项选择题
1、B
2、C
3、C
4、A
5、C
6、A
7、B
8、A
9、C
10、D
11、D
12、D
13、B
14、C
15、A
16、D
三、编程题
Dim x, y As Single
x = Val(InputBox("请输入x的值"))
If x >= 20 Then
y = Sin(x)
Else
If x >= 0 And x < 20 Then
y = Cos(x)
Else
y = Exp(x)
End If
End If
Print y
Dim a, b, c, d As Integer
Dim x1, x2 As Single
a = Val(InputBox("请输入a值", "求二次方程的根"))
b = Val(InputBox("请输入b值", "求二次方程的根"))
c = Val(InputBox("请输入c值", "求二次方程的根"))
d = b ^ 2 - 4 * a * c
If d > 0 Then
x1 = Str((-b + Sqr(d)) / (2 * a))
x2 = Str((-b - Sqr(d)) / (2 * a))
ElseIf d = 0 Then
x1 = Str(-b / (2 * a))
x2 = Str(-b / (2 * a))
Else
x1 = Str(-b / (2 * a) + Sqr(-d) / (2 * a)) & "i"
x2 = Str(-b / (2 * a) + Sqr(-d) / (2 * a)) & "i"
End If
Print "x1="; x1, "x2="; x2
Dim a, b As Single
Const c As Integer = 65
a = Val(InputBox("请输入商品数量", "输入框"))
Select Case a
Case Is >= 500
b = * a * c
Case Is >= 400
b = * a * c
Case Is >= 300
b = * a * c
Case Is >= 200
b = * a * c