作者jimlexus (水桶王)
看板Visual_Basic
标题[.NET] 排顺序大小～
时间Sun Nov 16 17:29:36 2008
这是VB6的写法～～～～～～～～～～～～
Private Sub Form_Load()
Dim i, j As Integer
Dim data(5) As Integer
Dim temp As Integer
Me.AutoRedraw = True .................这行.net要怎麽改写勒？？？？？
For i = 0 To 4
data(i) = Val(InputBox("请输入数字"))
Next
For i = 0 To 3
For j = i + 1 To 4
If data(i) > data(j) Then
temp = data(i)
data(i) = data(j)
data(j) = temp
End If
Next
Next
For i = 0 To 4
Print data(i)
Next
End Sub
--
再做十个伏地挺身好了~ 是!是!是!是!是!是!是!是!是!是!是!是!是!是!是!是!是!
( ￣□￣)/ <(￣ㄧ￣ ) <(￣ㄧ￣ ) <(￣ㄧ￣ )<(￣ㄧ￣ ) <(￣ㄧ￣ )
<(￣ㄧ￣ ) <(￣ㄧ￣ ) <(￣ㄧ￣ )<(￣ㄧ￣ ) <(￣ㄧ￣ )
<(￣ㄧ￣ ) <(￣ㄧ￣ ) <(￣ㄧ￣ )<(￣ㄧ￣ ) <(￣ㄧ￣ )
<(￣ㄧ￣ ) <(￣ㄧ￣ ) <(￣ㄧ￣ )<(￣ㄧ￣ ) <(￣ㄧ￣ )
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.80.131.91