首页 资讯 关注 科技 财经 汽车 房产 图片 视频 金融

热评

旗下栏目: 国际 国内 时局 热评

城市的天空VB程序题:随机生成3个正整数,其中一个1位数,1个2位数,1个3位

来源:网络整理 作者:网络整理 人气: 发布时间:2020-05-23
摘要:VB程序题:随机生成3个正整数,其中一个1位数,1个2位数,1个3位数,计算它们的平均值,保留两位小数,运行界面如图2.2.1所示。龚沛曾提示:1.随机数生成某...

VB程序题:随机生成3个正整数其中一个1位数,1个2位数,1个3位数,计算它们的平均值,保留两位小数,运行界面如图2.2.1所示。龚沛曾 2017-05-27 10:29:35  分类: VB程序题  参与: 人

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

程序运行效果图如下:


城市的天空VB程序题:随机生成3个正整数,其中一个1位数,1个2位数,1个3位

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

责任编辑:网络整理