神马品牌网娶个女皇回现代gl免费:帮我看看这个是什么??
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 16:08:06
Private Sub cmdok_Click()
Const n As Integer = 100
Dim int1(0 To n) As Single
Dim max As Single
Dim min As Single
Dim result As Single
Dim int2 As Integer
For int2 = 0 To n
int1(int2) = Rnd * 1000
Next int2
max = int1(0)
min = int1(0)
result = int1(0)
For int2 = 1 To n
If max < int1(int2) Then max = int1(int2)
If min > int1(int2) Then min = int1(int2)
result = result + int1(int2)
Next int2
txt1.Text = max
txt2.Text = min
txt3.Text = result / (n+1)
End Sub
为什么n+1
弟弟发来问我的 ~ 我连是什么东西都看不懂 =.=
Const n As Integer = 100
Dim int1(0 To n) As Single
Dim max As Single
Dim min As Single
Dim result As Single
Dim int2 As Integer
For int2 = 0 To n
int1(int2) = Rnd * 1000
Next int2
max = int1(0)
min = int1(0)
result = int1(0)
For int2 = 1 To n
If max < int1(int2) Then max = int1(int2)
If min > int1(int2) Then min = int1(int2)
result = result + int1(int2)
Next int2
txt1.Text = max
txt2.Text = min
txt3.Text = result / (n+1)
End Sub
为什么n+1
弟弟发来问我的 ~ 我连是什么东西都看不懂 =.=
计算机编程题啊 应该是VB的吧
游戏的设置啦`~~
私人的潜水艇上
强迫完整的100
暗淡的区域1，0到无数，例如单一的
头脑迟钝的程序，像一英镑
暗淡的一分钟就像独角演习员
简单的答案像医院
暗淡区2好像是整体
区域2等于0
区域1和区域2是皇家1000号
区域2头脑迟钝
汗~~~~~~~看不懂