vb郭贤海课后答案全.docx

文档介绍：VB郭贤海课后答案全
VB郭贤海课后答案全
1 / 33
VB郭贤海课后答案全<br****题一
一、填空题
1.“控件工具箱”、“窗体设计器”、“工程资源管理器”、“属性窗口”、“窗体布局窗口”、“代码编辑器”“立即”、“本地”和“监视s Single, c As Single
a =
b =
c = a - b
= &quot;-&quot;
= c
End Sub
Private Sub Command3_Click()
Dim a As Single, b As Single, c As Single
a =
b =
c = a * b
= &quot;*&quot;
= 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
= &quot;/&quot;
= c
End Sub
Private Sub Command5_Click()
= &quot;&quot;
= &quot;&quot;
= &quot;&quot;
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(&quot;输入带区号的电话号码，区号为4为，号码为8位，比如输入“7”：&quot;)
MsgBox (&quot;区号：&quot; + Left(c, 4) + Chr(13) + Chr(10) + &quot;号码：&quot; + 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&lt;=x And x&lt;=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()
= &quot;百位数：&quot; + Left(, 1) + &quot; 十位数：&quot; + Mid(, 2, 1) + &quot; 个位数：&quot; + 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
= &quot;+&quot;
= c
End Sub
Private Sub Comman