作业帮 > 综合 > 作业

随机生成数字,计算平均值,求vb程序编码!

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/04 00:33:23
随机生成数字,计算平均值,求vb程序编码!
 
Private Sub CmdCS_Click()
Text1 = Int(10 * Rnd)
Text2 = Int(100 * Rnd)
Text3 = Int(1000 * Rnd)
End Sub
Private Sub CmdJS_Click()
Randomize (Timer)
'Text4 = Val(Text1) + Val(Text2) + Val(Text3)
Text4 = Int(100 * (Val(Text1) + Val(Text2) + Val(Text3)) / 3) / 100
End Sub
Private Sub Cmdqc_Click()
Text1 = ""
Text2 = ""
Text3 =""
Text4 = ""
End Su