求VB编程.题目如下

1.从键盘上输入4个数.编写程序,计算并输出这4个数的和及平均值! 2.设计一个程序.输入任意一个整数.然后输出期位数!

答案：Private Sub Command1_Click()
Dim a, b, c, d, sum, ave
a = Val(InputBox("请输入第一数"))
b = Val(InputBox("请输入第二数"))
c = Val(InputBox("请输入第三数"))
d = Val(InputBox("请输入第四数"))
sum = a + b + c + d
ave = sum / 4
Print "和为："; sum
Print "平均值为："; ave
End Sub
Private Sub Command2_Click()
Dim num
num = Val(InputBox("请输入一个整数"))
MsgBox "该数的位数为:" & Len(Trim(Abs(num)))
End Sub
这么简单的题目你也问！！  我没VB开发环境所以没办法贴了。
  Private Sub Form_Load() Me.FontSize = "20" Me.FontBold = True Me.Print Space(20) 

上一个：VB编程_888不见了？
下一个：VB编程有什么用？