文档介绍:VB_郭贤海_课后答案全
VB_郭贤海_课后答案全
1 / 33
VB_郭贤海_课后答案全<br****题一
一、填空题
1.“控件工具箱”、“窗体设计器”、“工程资源管理器”、“属性窗口”、“窗体布局窗口”、“代码编辑器”“立即”、“本ck()
Dim a As Single, b As Single, c As Single
a =
b =
c = a - b
= "-"
= c
End Sub
Private Sub Command3_Click()
Dim a As Single, b As Single, c As Single
a =
b =
c = a * b
= "*"
= c
End Sub
VB_郭贤海_课后答案全
VB_郭贤海_课后答案全
6 / 33
VB_郭贤海_课后答案全
Private Sub Command4_Click()
Dim a As Single, b As Single, c As Single
a =
b =
c = a / b
= "/"
= c
End Sub
Private Sub Command5_Click()
= ""
= ""
= ""
End Sub
Private Sub Command6_Click()
End
End Sub
4.
Private Sub Command1_Click()
VB_郭贤海_课后答案全
VB_郭贤海_课后答案全
7 / 33
VB_郭贤海_课后答案全
Dim c As String
c = InputBox("输入带区号的电话号码,区号为4为,号码为8位,比如输入“7”:")
MsgBox ("区号:" + Left(c, 4) + Chr(13) + Chr(10) + "号码:" + Right(c, 8))
End Sub<br****题二
一、填空题
1. 0
2. “除数为零”错误
3. Long
4. False
5. Const PI =
6. True
7. 4
8. 4
9. Dim Mystr As String*10
10. True
11. 1<=x And x<=5
二、程序设计题
1.
Private Sub Command1_Click()
VB_郭贤海_课后答案全
VB_郭贤海_课后答案全
8 / 33
VB_郭贤海_课后答案全
= - 100
End Sub
Private Sub Command2_Click()
= + 100
End Sub
Private Sub Command3_Click()
= - 100
End Sub
Private Sub Command4_Click()
= + 100
End Sub
2.
Private Sub Command1_Click()
= "百位数:" + Left(, 1) + " 十位数:" + Mid(, 2, 1) + " 个位数:" + Right(, 1)
End Sub
3.
VB_郭贤海_课后答案全
VB_郭贤海_课后答案全
9 / 33
VB_郭贤海_课后答案全
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a =
b =
c = a + b
=