求一段简单的VB单击事件的代码

来源：百度知道 编辑：UC知道 时间：2024/05/12 10:20:20
一个TEXT11.text我输个数，比如16.83

按钮1事件后

Text1.Text = "16.80"
Text2.Text = "16.76"
Text3.Text = "16.75"
Text4.Text = "16.99"
Text5.Text = "16.89"
Text6.Text = "16.97"
Text7.Text = "16.84"
Text8.Text = "16.68"
Text9.Text = "16.93"
Text10.Text = "16.68"

就是再text1到text10里随机出现十个数，
这十个数总和除于10就是刚才text11.text里输的数

text1到text10里的十个数是有范围的！比如16到17区间，这个代码要怎么写啊？？

Private Sub Command1_Click()
Dim n As Integer, A(1 To 10) As Integer, i As Integer, S As Integer
n = Val(Text11.Text) * 100
For i = 1 To 9
Randomize
A(i) = Int(Rnd * 34 + n * 2 - 1700)
S = S + A(i)
Next i
A(10) = A(10) - (S - n * 10)
If A(10) >= 1700 Then
n = A(10)
A(10) = 1690 + (n Mod 10)
n = (n - A(10)) / 10
For i = 1 To 10
A(i) = A(i) + n
Next i
End If
For i = 1 To 10
Controls("text" + Trim(Str(i))).Text = A(i) / 100
Next i
End Sub
这段代码可以满足大多数要求，只有个别情况下会有超过17的情况。