狂菜的问题....

Question

Dim a as String
Dim b as String
Dim I As Longa=CStr(103)
For I=1 To Len(a)
    b=Mid(a,I,1)+b
Next IMsgBox b

Answer 1

回复人： gaofi() (  ) 信誉：100  2002-04-14 20:32:00  得分:0  
 
 
  呵呵,我说103你就给我103呀,但还是谢谢啦
====================================================================
？？？
运行结果是“301”！
你运行看看！

Answer 2

Private Sub Form_Load()
    Text1.Text = "123456789"
    Text2.Text = ""
End SubPrivate Sub Command1_Click()
Dim i As Integer
    For i = Len(Text1.Text) To 1 Step -1
        Text2.Text = Text2.Text & Mid(Text1.Text, i, 1)
    Next i
End Sub

Answer 3

private sub command1_click()
Dim a as String
Dim b as String
Dim I As Longa=CStr(text1.text)'在TEXT中输入你要转的数字
For I=1 To Len(a)
    b=Mid(a,I,1)+b
Next Itext2.text=bend sub

Answer 4

Private Sub Form_Load()
    Text1.Text = "123456789"
End SubPrivate Sub Command1_Click()
Dim i As Integer
    Text2.Text = ""
    For i = Len(Text1.Text) To 1 Step -1
        Text2.Text = Text2.Text & Mid(Text1.Text, i, 1)
    Next i
End Sub

Answer 5

本来“a=CStr(103)”也只是举个例子

Answer 6

if val(text1.text)=103 thentext2.text=str(301)end if绝对真确！！！！！！！！！！！！！！！

Answer 7

To gogogovb(没故事的男孩)：太有创意了！

Answer 8

To bestofbest(咖啡)：
这是最通用的！
而且还可以转换字符
虽然这道题也可以用加减乘除来算，但比较嘛烦

Answer 9

哦！
Private Sub Command1_Click()
    text2.text=StrReverse(CStr(text1.text))'在TEXT中输入你要转的数字
    
End Sub

Answer 10

MSDN:
StrReverse函数
      描述返回一个字符串，其中一个指定子字符串的字符顺序是反向的。语法StrReverse(string1)参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长度为零的字符串("")，则返回一个长度为零的字符串。如果string1为Null，则产生一个错误。

Answer 11

zyl910(910：分儿，我来了！) ：
   为什么你的橙色的星星，我的是两个向上的三角形
上次看到了这样的帖子的解答，但是突然到了今天就忘记了
所以想问问

Answer 12

Dim a as integer '假定a是你所要的数
Dim b as String
Dim I As Long
dim c as stringb=Str(a)
For I=1 To Len(a)
    c=Mid(b,I,1)+c
Next IMsgBox c

Answer 13

Private Sub Command1_Click()
    Text2.Text = StrReverse(CStr(Text1.Text)) '在TEXT中输入你要转的数字
    '对VB5.0不可以 对 VB6.0可以
End Sub

Answer 14

或者
dim a as string 
if a<>"" then
a=StrReverse(a)
else msgbox(…………)
end if

Answer 15

用户等级说明  Top 
    1、专家分小于等于1000分的都算初级用户
        1.1、一级用户 专家分小于等于100分 
        1.2、二级用户 专家分小于等于500分，大于100分 
        1.3、三级用户 专家分小于等于1000分，大于500分 
    2、专家分大于1000分的算中级用户
        2.1、四级用户 专家分小于等于2000分，大于1000分 
        2.2、五级用户 专家分小于等于5000分，大于2000分 
        2.3、一星用户 专家分小于等于10000分，大于5000分 
        2.3、二星用户 专家分大于10000分 
    3、被授予一定称号的会员算是高级用户
        3.1、网友专栏作家 （文档中心网友专栏作家）
        3.2、名家专栏作家 
        3.3、微软专家
        3.4、csdn管理员

Answer 16

if val(text1.text)=103 thentext2.text=str(301)end if

Answer 17

还是这个方法好啊回复人： zyl910(910：分儿，我来了！) (  ) 信誉：110  
Private Sub Command1_Click()
    text2.text=StrReverse(CStr(text1.text))'在TEXT中输入你要转的数字
    
End Sub 
 
 

Answer 18

zyl910(910：分儿，我来了！):
调查：现在有多少人在用VB5？我在用

Answer 19

To 505(五五)：只装了VB5吗？

Answer 20

To zyl910(910：分儿，我来了！):
真的只装了VB5。