Question

帮忙编一个VB小程序

对于X1，X2，...，Xn给定值; Y1，Y2，... ，Yn，和Z1，Z2，...，Zn让这些组合赋予新的值，先后考虑（Xi，Yi，Zi）：Xi值最小，Zi - 最大，Yi - 中间值 谢谢~~~采纳有追加~~

Answer 1

Dim X() As Integer, Y() As Integer, Z() As Integer

Dim i, n

Private Sub Command1_Click()

Randomize

i = Text1.Text * 1 '强制转化为数值

ReDim X(i)

ReDim Y(i)

ReDim Z(i)

For n = 0 To i - 1

 X(n) = Int(Rnd() * (Text2(1) - Text2(0))) + Text2(0)

 Z(n) = X(n) + Int(Rnd() * (Text3.Text - 2)) + 2

 Y(n) = Int(Rnd() * (Z(n) - X(n) - 1)) + X(n) + 1

 

 List1.AddItem "X" & n & "-" & "Y" & n & "-" & "Z" & n & "    " & X(n) & "-" & Y(n) & "-" & Z(n)

 

Next

End Sub

张志晨

Answer 2

一看就是SB的作业

Answer 3

下次