vb编写程序将一段文字逆序输出4
发布网友
发布时间:2023-11-28 06:37
我来回答
共3个回答
热心网友
时间:2024-01-18 12:17
'添加两个文本框Text1和Text2,一个按钮Command1
'Text1输入文字,单击按钮Command1时Text2输出文字
Private Sub Command1_Click()
Dim str1 As String
Dim str2 As String
Dim i As Integer
str1 = Text1
For i = Len(str1) To 1 Step -1
str2 = str2 & Mid(str1, i, 1)
Next
Text2 = str2
End Sub
热心网友
时间:2024-01-18 12:17
Private Function NX(ByVal strInput As String) As String
Dim i As Integer
For i = Len(strInput) To 1 Step -1
NX = NX & Mid(strInput, i, 1)
Next
End Function
编写以上函数过程,放在窗体模块开始部分,如果放在标准模块内以使整个应用程序都可调用,则将Private改为Public。
假如要将Text1内容逆序显示在Text2上,调用:
Text2.Text = NX(Text1.Text)
热心网友
时间:2024-01-18 12:18
dim s as string
dim i as integer
s=“qwertyuiop”
for i = len (s ) to 1 step -1
print mid(s,i ,1);
next