level 1
Private Sub Command1_Click()Dim a, b As StringDim c As Integera = Text1.TextFor c = 1 To Len(a)b = Mid(a, c, 1) & bNext cText2.Text = bEnd Sub在以上代码中的这段代码有点不解!↓ b = Mid(a, c, 1) & b 我在书上看的是:从开始位置取指定个数的字符 例如↓Mid("hello",1,4) 返回值:"Hell"那上面的b = Mid(a, c, 1) & b 中 是怎么取?
2007年02月05日 07点02分
1
level 1
还有 为什么还要在 b = Mid(a, c, 1)后面 & b 呢?
2007年02月05日 07点02分
2
level 13
在 For c = 1 To Len(a) 这个循环中 b的值是随时在变的.在窗体运行一下,在b = Mid(a, c, 1) & b 下面加上print b 再观查b的变化
2007年02月05日 07点02分
3
level 13
字符串反向Private Sub Form_Load()aa = "123456789"MsgBox StrReverse(aa)End Sub
2007年02月05日 07点02分
4
level 1
哈哈,看来,我的身价有所提高啊,有人用“chm666”来让人误以为是“cbm666”很正常,居然也有人用“我爱舞女目”来让人误以为是“我爱舞女泪”!
2007年02月05日 12点02分
6
level 13
好好的 "自己人" 不当, 否定自己在先, 谁帮得了他 ??
2007年02月06日 01点02分
8