作者sarcasm (just me)
看板geography101
标题计概第二发
时间Thu Dec 11 15:53:42 2008
Public Class Form1
Dim Array() As Integer = {9, 45, 6, 7, 15, 25, 6, 64, 10, 99}
Dim i As Integer
Dim min As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
min = Array(0)
For i = 0 To 9
If Array(i) < min Then min = Array(i)
Next i
TextBox1.Text = "最小值为" & min
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
End Class
=======================================================================
这个只有出现最小值
没有排整个数列
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.63.19
1F：→ hansenay:你逊掉啦 12/11 20:48
2F：→ sarcasm:没办法阿 夏豪廷太罩了 我都用偷懒的方法 12/11 21:05