当前位置：首页 - 正文

用VB怎样才能实现倒序读取文本文件？？

发布网友发布时间：2022-04-20 22:26

共3个回答

热心网友时间：2023-09-08 23:46

'添加两个文本框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

热心网友时间：2023-09-08 23:46

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)

热心网友时间：2023-09-08 23:47

dim s as string
dim i as integer
s=“qwertyuiop”
for i = len (s ) to 1 step -1
print mid(s,i ,1);
next

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

用VB怎样才能实现倒序读取文本文件？？

最新推荐

猜你喜欢

热门推荐