VISUAL BASIC 程序设计课后答案(编程题目)西电版.pdf
文本预览下载声明
第三章、
二、编程题
1、
Private Sub Command1_Click()
Dim x,y,h,f%
h Text1.Text
f Text2.Text
x (4 *h - f)/ 2
y (f-2 *h)/ 2
Label3.Caption 计算结果是：鸡有x 只，兔有y 只
End Sub
2、Private Sub Command1_Click()
Dim x,y,z,a,b,c,h%
h Val(InputBox(请输入总金额, 现金兑换,0))
x h\ 100
y (h - 100 *x)\ 50
z (h - 100 *x - 50 *y)\ 20
a (h - 100 *x - 50 *y -20 *z)\ 10
b (h - 100 *x - 50 *y -20 *z - 10 *a)\ 5
c (h - 100 *x - 50 *y -20 *z - 10 *a - 5 *b)
Label1.Caption h 元需要支付的钱币总张数：x +y +z + a
+b +c x +y +z+ a+b + c 张
End Sub
第四章
四、编程题
1、
Private Sub Command1_Click()
Dim a,b,c,d,e!
a Val(InputBox(请输入一个正数))
b a^2
c Sqr(a)
d a^ 3
e a^ (1/ 3)
Print Tab(4); Format$(b, #.000); Tab(14); Format$(c, #.000); Tab(24); Format$(d,
#.000);Tab(34);Format$(e, #.000);
End Sub
2、
Private Sub Command1_Click()
Dim a,b,c,max,min!
a Val(Text1.Text)
b Val(Text2.Text)
c Val(Text3.Text)
Ifa b Then
max a
min b
Else
max b
min a
EndIf
Ifmax cThen
max c
EndIf
Ifmin cThen
min c
EndIf
Label4.Caption 最大数为：max 最小数为：min
End Sub
3、
Private Sub Command1_Click()
Dim a%
a Val(InputBox(请输入年份))
If(a\ 4 a/ 4)And(a\ 100 a/ 100) Or (a\ 400 a/ 400)Then
MsgBox 闰年
Else
MsgBox 不是闰年
EndIf
End Sub
4、
Private Sub Command1_Click()
Dim x%
x Val(InputBox(请输入一个整数))
Ifx\ 5 x/ 5Then
Label1.Caption x 能被5整除
Else
Label1.Caption x 不能被5整除
EndIf
End Sub
5、
Private Sub Command1_Click()
Dim x,y!
x Val(Text1.Text)
Ifx 300Then
y 0
ElseIfx 500Then
y (x -300) *0.02
ElseIfx 5000Then
y (x - 500) *0.03+ 4
Else
y (x - 5000) *0.04+4 +45 *3
EndIf
Label2.Caption 纳税y 元
End Sub
6、
Private Sub Command1_Click()
显示全部