当前位置:首页 » VB程序题 » 正文

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号