Question

VB编程：用inputBOX输入一个字符串，以逆序形式输出。分别采用步长为正和负编程。

求教 有谁会VB嘛？ 会的话 帮我编一个程。 会的话，尽快了哈！ 急要哈！ 谢谢哈~！

Answer 1

Private Sub Form_Click()
Dim t As String
Dim s As String
t = InputBox("输入")
For i = 1 To Len(t)
s = Mid(t, i, 1) & s
Next i
Print s
End Sub

Private Sub Form_Click()
Dim t As String
t = InputBox("输入")
For i = Len(t) To 1 Step -1
s = s & Mid(t, i, 1)
Next i
Print s
End Sub

Answer 2

VB6 有一个函数可以直接完成这个功能

Dim a As String, b As String
a = InputBox("请输入字符串")

b = StrReverse(a)

MsgBox b

Answer 3

Dim a As String
a1 = 0
a2 = 0
a3 = 0
a = InputBox("请输入字符串，以?号结束")
For i = 1 To Len(a) - 1
c = Mid(a, i, 1)
Select Case Asc(c)
Case 65 To 90, 97 To 122
a1 = a1 + 1
Case 48 To 57
a2 = a2 + 1
Case Else
a3 = a3 + 1
End Select
Next i
Print Left(a, Len(a) - 1)
Print " 字母有" & a1 & "个"
Print " 数字有" & a2 & "个"
Print "其他字符有" & a3 & "个"

Answer 4

好