VB程序题：随机生成3个正整数，其中一个1位数，1个2位数，1个3位数，计算它们的平均值，保留两位小数，运行界面如图2.2.1所示。龚沛曾

VB程序题：随机生成3个正整数，其中一个1位数，1个2位数，1个3位数，计算它们的平均值，保留两位小数，运行界面如图2.2.1所示。龚沛曾
提示：
1.随机数生成某范围内的正整数公式为 Int(Rnd*范围+基数)  其中范围=数的上限-下限+1，基数=数的下限。
  例如，要生成2位数，语句为  Int(Rnd*(99-10+1)+10)=Int(Rnd*90+10)
2.保留两位小数，利用Format函数，形式为Format(要显示的数值, "0.00 ")

解题：按要求先在窗体上画好按钮，标签，文本框控件。

代码如下：
Private Sub Command1_Click() '产生3个随机数
    Text1.Text = Int(Rnd * 9 + 1)
    Text2.Text = Int(Rnd * 90 + 10)
    Text3.Text = Int(Rnd * 900 + 100)
End Sub

Private Sub Command2_Click()
    Text4.Text = Format((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3, "0.00") '计算平均数
End Sub

Private Sub Command3_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
End Sub

程序运行效果图如下：

Visual Basic程序设计教程(第四版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/134.html