
Public Sum, Num, Avg As Single
Private Sub cmdOK_Click()
Sum = Val(Text1) + Sum
Num = Num + 1
Text1 = ""
MeCls
Print Sum
End Sub
Private Sub Form_Click()
MeCls
Avg = Sum / Num
Print Avg
Num = 0
Sum = 0
End Sub
Private Sub Form_Load()
Text1 = ""
End Sub
以上就是关于用VB设计一个简单的加法,和求和的小程序怎么弄全部的内容,包括:用VB设计一个简单的加法,和求和的小程序怎么弄、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)