vb.net 一维数组计算问题

[snlx200606]

Dim num() As Integer = New Integer() {5, 2, 3}

这个num()数组有三个值5、2、3，根据输入的数与数组做减法运算，如下：

输入一个数，假如输入为3，则数组输出为2、2、3
假如输入为5，则数量5，则数组输出为0、2、3
输入10时，则数组输出为0、0、0


大侠，看看吧，帮帮忙忙吧！

[miller0113]

dim m_input as integer
m_input = “输入的数值"
dim m as integer
For i = 1 To 3
m=num(i)-m_input
if(m<=0)
num(i)=0
m_input=m_input-num(i)
else
num(i)=m
Next i

[miller0113]

前面的少了end if ，修改为：
dim m_input as integer
m_input = “输入的数值"
dim m as integer
For i = 1 To 3
m=num(i)-m_input
if(m<=0)
num(i)=0
m_input=m_input-num(i)
else
num(i)=m
end if
Next i

[miller0113]

前面的还少了exit ，这个应该对了
dim m_input as integer
m_input = “输入的数值"
dim m as integer
For i = 1 To 3
m=num(i)-m_input
if(m<=0)
num(i)=0
m_input=m_input-num(i)
else
num(i)=m
exit For
end if
Next i

[snlx200606]

三楼的，谢谢你给我的思路，谢了啊，不过你那有点小问题，更改后如下：
Dim num() As Integer = New Integer() {5, 2, 3, 10}

Dim m_input As Integer
m_input = text.Text.Trim
Dim m As Integer
For i = 0 To 4 - 1
m = num(i) - m_input
If (m <= 0) Then
num(i) = 0
m_input = -m
Else
num(i) = m
Exit For
End If
Next i


Dim aa11 As String
aa11 = ""
For i = 0 To 4 - 1
aa11 += (num(i)) & " "
Next
rt.Text = aa11