Question

大学VB 求程序 谢谢啦

Answer 1

Private Sub Command1_Click()

Dim t As String, j As Long, s As String

Me.Cls

t = Text1

For j = Len(t) To 1 Step -1

s = s & Mid(t, j, 1)

Next

Print "反向输出结果："; s

End Sub

Private Sub Form_Load()

Text1 = "ABCD"

Command1.Caption = "反向输出"

End Sub

Private Sub Command1_Click()

Dim t As String, j As Long, s As String

Me.Cls

t = Text1

For j = 1 To Len(t)

s = Mid(t, j, 1) & s

Next

Print "反向输出结果："; s

End Sub

Private Sub Form_Load()

Text1 = "ABCD"

Command1.Caption = "反向输出"

End Sub

Answer 2

程序设计