vb郭贤海课后答案全.doc

习题一
一、填空题
1.“控件工具箱”、“窗体设计器”、“工程资源管理器”、“属性窗口”、“窗体布局窗口”、“代码编辑器”“立即”、“本地”和“监视”窗口等
；设计（Design）模式、运行模式（Run）和中断（Break）模式
3、工程1；1；Form1
4、选择菜单“视图|立即窗口”即可打开“立即”窗口；它是Visual Basic中的一个系统对象，叫Debug对象，可以在调试程序时使用它，通常使用Print方法向立即窗口中输出程序的信息，还可以将语句直接写在“立即”窗口上，按“回车”键后，这行语句会被立刻执行。
5、查看代码、查看对象；“查看对象”按钮；“查看代码”按钮
二、选择题

三、程序设计题
1.
Private Sub Command1_Click()
= "欢迎使用VB！"
End Sub
Private Sub Command2_Click()
= ""
End Sub
Private Sub Command3_Click()
End
End Sub
2.
Private Sub Command1_Click()
= "你好，张三！"
= False
End Sub
Private Sub Command2_Click()
= False
= True
= False
End Sub
Private Sub Command3_Click()
= True
= True
= False
End Sub
习题二
一、填空题
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()
= - 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.
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a =
b =
c = a + b
= "+"
= c
End Sub
Private Sub Command2_Click()
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