VB教材课后习题答案
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
<大学程序设计基础-Visual Basic>教材课后习题答案
第1章
一、选择题
1 2 3 4 5 6 7
B D B
C B B D
第2章
一、选择题
1 2 3 4 5 6 7 8 9 10
B C B C B C A A A A
11 12 13 14
A B A A
二、填空题
1.rem或’ _ ：
2.“” # #
3.5x2-3x-2sinA/3
4.321456
5.300
三、操作题
1、
程序段：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
Dim s As Long, c As Long
x = Text1.Text
y = Text2.Text
s = x * y
c = (x + y) * 2
Label3.Caption = "长方形的面积为" + Str(s)
Label4.Caption = "长方形的周长为" + Str(c)
End Sub
3、
程序段：
Private Sub Command1_Click()
Text1.Text = "第一"
End Sub
Private Sub Command2_Click()
Text1.Text = "第二"
End Sub
4、程序代码：
Private Sub Text1_Change()
Text1.MaxLength = 10
End Sub
5、程序代码：
Private Sub Text1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
第3章
一、选择题
1 2 3 4 5 6 7
D A D B A D B
二、填空题
1. False
2.B^2-4*a*c else
三、操作题
1．从键盘输入三个值，判断它们能否构成三角形的三个边。如果能构成一个三角形，则计算三角形的面积。
Dim a As Integer, b As Long, c As Long, s As Single, p As Single
a = Val(InputBox("请输入一个值："))
b = Val(InputBox("请输入一个值："))
c = Val(InputBox("请输入一个值："))
If (a + b > c And a + c > b And b + c > a) Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print a & "," & b & "," & c & "能构成一个三角形,它的面积为:" & s
End If
2．编写程序，任意输入一个整数，判定该整数奇偶性。
Dim n As Integer
n = Val(InputBox("请输入一个整数："))
If n Mod 2 = 0 Then
Print n & "是偶数"
Else
Print n & "是奇数"
End If
3．求一元二次方程的a*x^2+b*x+c=0的根。
Dim a As Integer, b As Integer, c As Integer, delta As Single, x1 As Single, x2 As Single
a = Val(InputBox("请输入一个整数："))
b = Val(InputBox("请输入一个整数："))
c = Val(InputBox("请输入一个整数："))
delta = b ^ 2 - 4 * a * c
If delta = 0 Then
x1 = -b / (2 * a)
Print "一元二次方程有两个相等的实根x1=x2=" & x1
Else
If delta > 0 Then
x1 = (-b + Sqr(delta)) / (2 * a)
x2 = (-b - Sqr(delta)) / (2 * a)
Print "一元二次方程有两个不等的实根x1=" & x1 & ",x2=" & x2
Else
x1 = (-b) / (2 * a)
x2 = Sqr(-delta) / (2 * a)
Print "一元二次方程有两个不等的虚根x1=" & x1 & "+" & x2 & "i,x2=" & x1 & "-" & x2 & "i"
End If
End If
4. 任意输入三个数，输出最大数。
Dim a As Integer, b As Integer, c As Integer, max As Integer
a = Val(InputBox("请输入一个整数："))
b = Val(InputBox("请输入一个整数："))
c = Val(InputBox("请输入一个整数："))
max = a
If max < b Then
max = b
End If
If max < c Then
max = c
End If
Print "最大数是" & max
5．任意输入三个数，由大到小排序输出。
Dim a As Integer, b As Integer, c As Integer, temp As Integer
a = Val(InputBox("请输入一个整数："))
b = Val(InputBox("请输入一个整数："))
c = Val(InputBox("请输入一个整数："))
If a < b Then
temp = a
a = b
b = temp
End If
If b > c Then
Print a, b, c
Else
If a > c Then
Print a, c, b
Else
Print c, a, b
End If
End If
第4章
一、选择题
1 2 3 4 5 6 7 8 9 10
A B A C D B A D B B
11 12 13 14 15 16