vb循环结构程序设计.pptVIP

代码 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer, i As Integer, max As Integer, min As Integer Dim sum As Single, ave As Single lblrnd.Caption = m = Val(txtnum.Text) r = Int(Rnd * 100) + 1 max = r min = r n = 1 sum = r lblrnd.Caption = Str(r) 第三十页，编辑于星期一：二十二点 十九分。 代码 Do r = Int(Rnd * 100) + 1 If r max Then max = r Else If r min Then min = r End If sum = sum + r lblrnd.Caption = lblrnd.Caption + + Str(r) n = n + 1 Loop While n m 第三十一页，编辑于星期一：二十二点 十九分。 代码 ave = sum / n 求平均值 lblmax.Caption = max 标签显示最大值 lblmin.Caption = min 标签显示最小值 lblave.Caption