UC知道vb要考试了~有道题不会~高手进
来源：百度知道 编辑：UC知道 时间：2024/05/31 07:41:48
Private Sub Command1_Click()
Dim s As String, ch As String
s = ""
For k = 1 To Len(Text1)
ch = Mid(Text1, k, 1)
s = ch + s
Next k
Text1.Text = s
End Sub
在文本框中输入“Basic”，单击命令按钮 TEXT1显示的为什么是cisaB?
请写除程序的运行过称~~我是新手~·最好给我逐句翻译一下~~。。
Dim s As String, ch As String
s = ""
For k = 1 To Len(Text1)
ch = Mid(Text1, k, 1)
s = ch + s
Next k
Text1.Text = s
End Sub
在文本框中输入“Basic”，单击命令按钮 TEXT1显示的为什么是cisaB?
请写除程序的运行过称~~我是新手~·最好给我逐句翻译一下~~。。
给你个完整运行过程。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
s="",ch=""
k = 1
ch = Mid(Text1, 1, 1) = "B"
s = ch + s = "B" + "" = "B"
k = 2
ch = Mid(Text1, 2, 1) = "a"
s = ch + s = "a" + "B" = "aB"
k = 3
ch = Mid(Text1, 3, 1) = "s"
s = ch + s = "s" + "aB" = "saB"
k = 4
ch = Mid(Text1, 4, 1) = "i"
s = ch + s = "i" + "saB" = "isaB"
k = 5
ch = Mid(Text1, 5, 1) = "c"
s = ch + s = "c" + "isaB" = "cisaB"
输入“basic” 点确定
之后
For k = 1 To Len(Text1) 'k从1到5循环
ch = Mid(Text1, k, 1) ’mid函数的意思是把text1里从第k个字符取一个字符
s = ch + s ‘把这个字符放在最前面
Next k
Text1.Text = s
End Sub
循环过程：basic，第一次取b，第二次取a且把a放在b之前组成ab
第三次取s且把s放在ib之前，组成sab
以此类推，就把整个字符串反过来 变成cisab了<