且这六个数字在某些范围
A1 = 0.37 To 0.42
A2 = 0.46 To 0.49
A3 = 0.51 To 0.55
A4 = 0.56 To 0.61
A5 = 0.51 To 0.58
A6 = 0.415 To 0.45
要求输入d2能得到随机的一组数字，我写的下面
但是得不到正确数据，测试的时候发现很多数字越界，怎么写
Dim A1, A2, A3, A4, A5, A6 As Double
For A1 = 0.37 To 0.42 Step 0.1
For A2 = 0.46 To 0.49 Step 0.1
For A3 = 0.51 To 0.55 Step 0.1
For A4 = 0.56 To 0.61 Step 0.1
For A5 = 0.51 To 0.58 Step 0.1
For A6 = 0.415 To 0.45 Step 0.1
TxtD2.Text = "5A1-A2-4A3-4A4-A5+5A6"
Exit For
Next A6
Next A5
Next A4
Next A3
Next A2
Next A1
TxtD2.Text = ""
Trim(Text2.Text) = A1
Trim(Text3.Text) = A2
Trim(Text4.Text) = A3
Trim(Text5.Text) = A4
Trim(Text6.Text) = A5
Trim(Text7.Text) = A6
