一道VB题。。希望有懂的帮我写下代码。。感激不尽

来源：百度知道 编辑：UC知道 时间：2024/06/16 21:42:23
随机产生N（10-30）个大写字母，按产生的顺序输出并统计相邻两个字母满足升序的情况，输出符合条件的每对字符和统计结果
各位懂的人。。再好心帮我分析下每步的原因和思路好吧。。小弟急着用。。感激不禁

Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, l As Integer, R As String, S As String, T As String
Cls
Randomize
i = Fix(Rnd * (30 + 1 - 10)) + 10

For j = 1 To i
R = R & Chr(Fix(Rnd * (90 + 1 - 65)) + 65)
Next
Print "随机产生" & i & "个字母：" & R & vbCrLf
Print "两两之间升序的有"

For k = 1 To Len(R) - 1
S = Mid(R, k, 1)
T = Mid(R, k + 1, 1)
If Asc(T) > Asc(S) Then
l = l + 1
Print S; T
End If
Next

Print "共" & l & "组升序的"
End Sub

Private Sub Form_Load()
Dim s() As Integer '定义用来存储字母的数组
Dim n As Integer '定义有几个字母
Dim i, j As Integer '定义一些中间需要的变量
Randomize '初始化随机数
n = Int((30 - 10 + 1) * Rnd + 10) '随机生成数字n即数组的长度
ReDim s(n) As Integer '重新定义数组
Print "共产生" & n & "个字母:"
For i = 1 To n
s(i) = Int((90