回 帖 发 新 帖 刷新版面

主题:跪求各位老大帮帮忙。

设计如下图界面(Text1 Command1 Label1),完成以下功能:
在文本框1中输入任意长度的字符串,当单击命令按钮时,在标签中显示倒置后的字符串。如:输入“ABCD”变换为“DCBA”

Private Sub Command1_click ()
Dim a$, c$, s$, n%, i%
a = Text1. #####[2]#####         '第2空
n = #####[3]#####(a)             '第3空
For i = 1 To n
    c = Mid(a, #####[1]#####,1)  '第4空
    s = #####[5]##### & s        '第5空
Next i
Label1.Caption = s
End Sub

请帮帮忙,考试急用呀!

回复列表 (共17个回复)

沙发

....对发帖人身份质疑!
谁出的题,汗
有函数StrReverse()不用非要搞这么麻烦.

板凳

版主的号不会被黑了吧?

3 楼

为什么要用和版副同名的id呢?

4 楼

天哪!真实版副的id!

莫非号码真的被盗?

5 楼

你究竟是谁阿?怎么你在使用版副的号码?
我等你一小时内回答!

6 楼

不可能同名啊!分和标签都在那里!

7 楼

我就是tanchuhan呀,各位别误会了

8 楼

等等!
你考什么试?难道是黑砖窑老板要考你?

9 楼

[quote]设计如下图界面(Text1 Command1 Label1),完成以下功能:
在文本框1中输入任意长度的字符串,当单击命令按钮时,在标签中显示倒置后的字符串。如:输入“ABCD”变换为“DCBA”

Private Sub Command1_click ()
Dim a$, c$, s$, n%, i%
a = Text1.[color=FF0000]的文本[/color]        '第2空
n = [color=FF0000]求文本长度的函数[/color](a)             '第3空
For i = 1 To n
    c = Mid(a, [color=FF0000]取出倒数第I个字符[/color],1)  '第4空
    s = [color=FF0000]取出后的字符[/color] & s        '第5空
Next i
Label1.Caption = s
End Sub

请帮帮忙,考试急用呀!
[/quote]

10 楼

严重怀疑此人的身份

我来回复

您尚未登录,请登录后再回复。点此登录或注册