实验3自测1程序Private Sub Form_Click()Dim x#, y#, a#, b#, c#, d#x = Val(InputBox(输入第一个数, 输入一个数)y = Val(InputBox(输入第二个数, 输入一个数)a = x + yb = x - yc = x * yd = x / yd = Fix(d * 100 + 0.5) / 100MsgBox x+y= & a & vbCrLf & x-y= & b & vbCrLf & x*y= & c & vbCrLf & x/y= & dEnd 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 + dn = m / 4Print 和为 & mPrint 平均值为 & nEnd Sub截图自测3，程序（1） 程序代码：Private Sub Form_click()Dim X%, Y%, H%, F%H = Val(InputBox(输入鸡和兔的总头数H, 输入数据)F = Val(InputBox(输入鸡和兔的总脚数F, 输入数据)X = 2 * H - F / 2Y = F / 2 - HPrint 笼中鸡为 & X & 只 & Chr（13） & 笼中兔为 & Y & 只End Sub截图