sUrl = txtInfo.Text
iInfoLen = Len(sUrl)
For i = 1 To iInfoLen
sUrl = Mid(sUrl, iInfoLen, 1) + "."
MsgBox sUrl
Next i这是我自己想的,是错的
iInfoLen = Len(sUrl)
For i = 1 To iInfoLen
sUrl = Mid(sUrl, iInfoLen, 1) + "."
MsgBox sUrl
Next i这是我自己想的,是错的
解决方案 »
- Cad VBA 菜单单击如何调用sub过程
- 奇怪的求和问题,请帮忙
- vsflexgrid8.0中,主表子表连接的记录集怎么无法更新?
- 找VB兼职程序员一位
- 【共享】职业之路(一)
- 很抱歉请问一下能够列出所有窗口类名的软件在哪儿下载得到,还有请问WINDOWS运行框里的输入框的类名是什么 。
- 关于鼠标的问题!!
- :那位大虾能给我介绍一下bitblt的应用过程,我没有(光区,没msdn)大菜鸟
- vb6打包时一般需要哪几个dll文件(我是第一次打包,希望各位大侠能说的详细一点,最好能给我介绍一个较好的打包工具)
- 求助:关于VB中的绘图
- access中怎样复制两表相同的内容
- 怎么给datagrid绑定带有表名的字段啊!
iInfoLen = Len(sUrl)
nUrl=""
For i = 1 To iInfoLen-1
nUrl = nUrl & Mid(sUrl, i, 1) + "."
Next i MsgBox nUrl