两道VB题~~我刚学

来源：百度知道 编辑：UC知道 时间：2024/06/11 19:00:26
1，编写一个函数过程，将一个给定得字符串反向输出（返回）
2，编写一个过程，对于给定的输入字符串，判断是否为数字字符串，如果是，将它转换为数值类型，并输出；否则，显示说明
ps：本人刚学VB题，所以很多不懂，不要写的很简单
发现len只能显示前四个长度 ，比如1234567 输出是 4321

Private Sub Command1_Click()
Dim a As String
a = "VB 学习"
Print StrReverse(a)
End Sub

Private Sub Command2_Click()
Dim b As String
b = "123a"
If IsNumeric(b) = True Then
Print Val(b)
Else
Print "非数字字符串"
End If
End Sub

1
function restr(byval st as string) as string
dim st1 as string

for i=1 to len(st)
st1=mid(st,i,1) & st1
next
restr=st1
end function

1.编写一个函数过程，将一个给定得字符串反向输出（返回）

Public Function Turn(Str As String)
If Str = "" Then Exit Function
i = 1
R:
Tmp = Mid(Str, i, 1) & Tmp
If i < Len(Str) Then
i = i + 1
GoTo R
End If
Turn = Tmp
End Function

2.编写一个过程，对于给定的输入字符串，判断是否为数字字符串，如果是，将它转换为数值类型，并输出；否则，显示说明

Dim NumINT As Long

Public Sub Num(Str As String)
If Str = "" Then Exit Sub
If IsNumeric(Str) Then
NumI