UC知道VB 中程序问题,高手进!
来源：百度知道 编辑：UC知道 时间：2024/06/04 10:52:45
Private Sub Command1_Click()
Print fun("ABCDEFG")
End Sub
Function fun(st As String) As String
stlen = Len(st)
temp = ""
For k = 1 To stlen / 2
temp = temp + Mid(st, k, 1) + Mid(st, stlen - k = 1, 1)
Next k
fun = temp
End Function
倒数第4行哪里有问题啊
k = 1
把=换成+
打错了
Print fun("ABCDEFG")
End Sub
Function fun(st As String) As String
stlen = Len(st)
temp = ""
For k = 1 To stlen / 2
temp = temp + Mid(st, k, 1) + Mid(st, stlen - k = 1, 1)
Next k
fun = temp
End Function
倒数第4行哪里有问题啊
k = 1
把=换成+
打错了
Mid(st, stlen - k = 1, 1)怎么有＝号？是减号还是加号呢？
Mid(st, stlen - k = 1, 1)
这个地方。。
Private Sub Command1_Click()
Print fun("ABCDEFG")
End Sub
Function fun(st As String) As String
stlen = Len(st)
temp = ""
For k = 1 To stlen / 2
temp = temp + Mid(st, k, 1) + Mid(st, stlen - k, 1)
Next k
fun = temp
End Function
你试一下，我是把那个“=1”去掉了，不知道对不对