python随机产生一个3位整数、将它的十位数变为0_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程序设计教程(第四版) (龚沛曾等编)课后实验源码