vb 程序设计教程(机械工业出版社)习题答案 实验3

vb 程序设计教程(机械工业出版社)习题答案

实验3

自测1程序

Private Sub Form_Click()

Dim x#, y#, a#, b#, c#, d#

x = Val(InputBox("输入第一个数", "输入一个数"))

y = Val(InputBox("输入第二个数", "输入一个数"))

a = x + y

b = x - y

c = x * y

d = x / y

d = Fix(d * 100 + 0.5) / 100

MsgBox "x+y=" & a & vbCrLf & "x-y=" & b & vbCrLf & "x*y=" & c & vbCrLf & "x/y=" & d

End Sub

截图

自测2程序

Private Sub Form_Click()

Dim a%, b%, c%, d%, m%, n%

a = Val(InputBox("输入第一个数", "输入一个数"))

b = Val(InputBox("输入第二个数", "输入一个数"))

c = Val(InputBox("输入第三个数", "输入一个数"))

d = Val(InputBox("输入第四个数", "输入一个数"))

m = a + b + c + d

n = m / 4

Print "和为" & m

Print "平均值为" & n

vb 程序设计教程(机械工业出版社)习题答案

End Sub

截图

vb 程序设计教程(机械工业出版社)习题答案

自测3，程序

（1）程序代码：

Private Sub Form_click()

Dim X%, Y%, H%, F%

H = Val(InputBox("输入鸡和兔的总头数H", "输入数据"))

F = Val(InputBox("输入鸡和兔的总脚数F", "输入数据"))

X = 2 * H - F / 2

Y = F / 2 - H

Print "笼中鸡为" & X & "只" & Chr（13） & "笼中兔为" & Y & "只" End Sub

截图

vb 程序设计教程(机械工业出版社)习题答案