随机产生15个小写字母,并对随机产生的字母按照字母顺序进行排序,当窗体加载时在窗体上分别输出排序前的字母排序和排序后的字母排序。
窗体显示例子
排序前字母为:
q w r t d g d t f g s e t y f
排序后字母为:
d d e f f g g q r s t t t w y
谢谢啦 这是老师布置的作业题,没做出来,请高手做,谢谢…………
Dim a(10) As String
Randomize
Print "排序前字母为:"
For i = 1 To 10
a(i) = Chr(Int((122 - 97 + 1) * Rnd() + 97))
Print a(i); " ";
Next i
Print "排序后字母为:"
For i = 1 To 10
For j = 10 To i + 1 Step -1
If a(j) < a(j - 1) Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next j
Print a(i); " ";
Next i
温馨提示:答案为网友推荐,仅供参考
第1个回答 2010-06-24
Private Sub Form_Activate()
Dim zfc As String
Dim a() As String, y As String, s As String
For sj = 1 To 15
Randomize
myvalue = Int((122 - 97 + 1) * Rnd + 97)
zfc = zfc & Chr(myvalue)
Next sj
Print "排序前:" & zfc
s = zfc
m = Len(zfc)
y = ""
ReDim a(m)
For i = 1 To m
a(i) = Mid(s, i, 1)
Next i
For i = 1 To m - 1
For j = i + 1 To m
If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To m
y = y + a(i)
Next i
Print "排序后:" & y
End Sub
Dim zfc As String
Dim a() As String, y As String, s As String
For sj = 1 To 15
Randomize
myvalue = Int((122 - 97 + 1) * Rnd + 97)
zfc = zfc & Chr(myvalue)
Next sj
Print "排序前:" & zfc
s = zfc
m = Len(zfc)
y = ""
ReDim a(m)
For i = 1 To m
a(i) = Mid(s, i, 1)
Next i
For i = 1 To m - 1
For j = i + 1 To m
If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To m
y = y + a(i)
Next i
Print "排序后:" & y
End Sub
参考资料:
第2个回答 2010-06-24
按字母ASCII码值排序
第3个回答 2010-06-24
Private Sub Command1_Click()
Dim a(1 To 15)
Randomize
For i = 1 To 15
a(i) = Int(Rnd * 26) + 97
Print Chr(a(i));
Next i
Print
For i = 1 To 14
For j = i To 15
If a(i) > a(j) Then
ss = a(i): a(i) = a(j): a(j) = ss
End If
Next j
Print Chr(a(i));
Next i
End Sub本回答被网友采纳
Dim a(1 To 15)
Randomize
For i = 1 To 15
a(i) = Int(Rnd * 26) + 97
Print Chr(a(i));
Next i
For i = 1 To 14
For j = i To 15
If a(i) > a(j) Then
ss = a(i): a(i) = a(j): a(j) = ss
End If
Next j
Print Chr(a(i));
Next i
End Sub本回答被网友采纳