作者lunacyDK (好无聊 囧)
看板Visual_Basic
标题[VB6 ] 制作排序的问题
时间Tue Jan 3 01:46:43 2006
老师出的作业
题目:设计一个表单,可供输入20个数字,并有"由小到大","由大到小"
的排序功能
目前只会这种
Private Sub Command1_Click()
Dim score(20) As String
Dim tmp As String
Dim val1 As Integer
Dim val2 As Integer
Dim i As Integer
Dim j As Integer
For i = 0 To 19
score(i) = InputBox("请输入数值,以下列格式输入", "排列大小", "")
Next
For i = 0 To 19
For j = 0 To 19 - i
val1 = Val(Mid(score(j), InStr(1, score(j), ",") + 1))
val2 = Val(Mid(score(j + 1), InStr(1, score(j + 1), ",") + 1))
If val1 < val2 Then
tmp = score(j)
score(j) = score(j + 1)
score(j + 1) = tmp
End If
Next
Next
For i = 0 To 19
Print score(i)
Next
End Sub
有想过用20格text来输入数字
可是在来排序就没头绪@@
请问有大大 能教教我吗
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.163.164.2
1F:推 dunn:把text弄成物件阵列 01/03 03:10