回 帖 发 新 帖 刷新版面

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

设计如下图界面(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个回复)

11 楼

[quote]....对发帖人身份质疑!
谁出的题,汗
有函数StrReverse()不用非要搞这么麻烦.[/quote]
这是老师出的题呀,又不是设计题,是填空题,请帮帮忙填那4个空。

12 楼

pfan论坛2008年度第一大悬案!

13 楼

怀疑出真知!

我也怀疑此人身份!!!

14 楼

抗拒从严,坦白从宽!
老实交代吧.....

15 楼

是呀!~

想必认识 tanchuhan 的人都知道。
他不会出这种问题。

被盗号,连这问题都无法解决的人可以盗号?(可以...........天理何在?)
耍大家?就算再无聊,也别无聊到这种程度。(BINGO.....捡起石头,大家上)
使用私人电脑的亲朋好友?友朋就不太像了!(帮助.........可能会被他骂)

还有别的可能性吗?

16 楼

楼主竟然后版副的号问这个简单的问题!
我们猜猜楼主是谁?

17 楼

Private Sub Command1_Click()
Dim a$, c$, s$, n%, i%
a = Text1.Text
n = Len(a)
For i = 1 To n
    c = Mid(a, i, 1)
    s = c & s
Next i
Label3.Caption = s

End Sub
来看看,不知道是不是迟了,哈哈

我来回复

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