男警服尺码标准对照表:输入字符并排序VB代码运行不出来!
来源:百度文库 编辑:神马品牌网 时间:2024/05/11 18:30:13
我的VB代码为什么运行不出来?
是哪里错了??~
高人来指点啊~
^-^~谢谢`~
Dim n%, j%, i%, t%, s(1 To 10) As String
Dim s(1 To 10) As String, n%
Public Sub Command2_Click()
n = 1
s(n) = Text1
Picture1.Print s(n)
n = n + 1
Text1 = ""
End Sub
Private Sub Command1_Click()
Dim n%, i%, j%, m%
For i = 1 To n - 1
For j = i + 1 To n
If s(j) < s(i) Then
t = s(j)
s(j) = s(i)
s(i) = t
End If
Next j
Next i
For m = 1 To n
Picture1.Print s(i)
Next m
End Sub
Private Sub Picture1_Click()
End Sub
是哪里错了??~
高人来指点啊~
^-^~谢谢`~
Dim n%, j%, i%, t%, s(1 To 10) As String
Dim s(1 To 10) As String, n%
Public Sub Command2_Click()
n = 1
s(n) = Text1
Picture1.Print s(n)
n = n + 1
Text1 = ""
End Sub
Private Sub Command1_Click()
Dim n%, i%, j%, m%
For i = 1 To n - 1
For j = i + 1 To n
If s(j) < s(i) Then
t = s(j)
s(j) = s(i)
s(i) = t
End If
Next j
Next i
For m = 1 To n
Picture1.Print s(i)
Next m
End Sub
Private Sub Picture1_Click()
End Sub
把你的全部代码删除,把这段代码贴进去就可以了。
注意:每次都要重新运行
Dim n, j, i, t, s(1 To 10) As String
Public Sub Command2_Click()
s(n) = Text1
Picture1.Print s(n)
n = n + 1
Text1 = ""
End Sub
Private Sub Command1_Click()
For i = 1 To n - 1
For j = i + 1 To n
If s(j) < s(i) Then
t = s(j)
s(j) = s(i)
s(i) = t
End If
Next j
Next i
For m = 1 To n
Picture1.Print s(m)
Next m
End Sub
Private Sub Form_Load()
n = 1
End Sub