现实递增，这样好像不行，请高手帮忙，谢谢啊，急！！！！！！！！！！！！！

Question

比如
在VB里，我设了一个字符串 DIM  A AS String 
                        A="00000001"
                     A=A+1
现实递增，这样好像不行，请高手帮忙，谢谢啊，急！！！！！！！！！！！！！

Answer 1

Dim A As String, l As Integer
  A = "00000001"
  l = Len(A)
  A = Val(A) + 1
  A = Right(String(l, "0") & A, l)

Answer 2

完整點:
Private Sub Command1_Click()
 Dim A As String
  A = "00000001"
  A = ADD_a(A, 1)     'A = A + 1
  A = ADD_a(A, 100)     'A = A + 100
End Sub
Sub ADD_a(A As String, i As Long)
 Dim l As Integer
  l = Len(A)
  A = Val(A) + i
  A = Right(String(l, "0") & A, l)
  
End Sub

Answer 3

[code=VB
Private Sub Form_Load()
   Dim A As String
   A = "0000000"
   Dim i As Integer
   For i = 0 To 5
       A = Format(Val(A) + 1, "0000000")
       Debug.Print A
   NextEnd Sub[/code]

Answer 4

Private Sub Form_Load()
  Dim A As String
  A = "0000000"
  Dim i As Integer
  For i = 0 To 5
  A = Format(Val(A) + 1, "0000000")
  Debug.Print A
  NextEnd Sub

Answer 5

For i = 0 To 10
  Debug.Print Format(i, "0000000")
Next

Answer 6

Private Sub Form_Load()
  Dim A As String
  A = "0000000"
  Dim i As Integer
  For i = 0 To 5
  A = Format(Val(A) + 1, "0000000")
  Debug.Print A
  Next

Answer 7

Private Sub Command1_Click()
    Dim A As Variant
    Dim i As Long    A = "00000001"
    For i = 0 To 10
        Debug.Print A
        A = A + 1
        A = Format(A, "00000000")
    Next
End Sub

Answer 8

如果A里面全是数字，将其转换为INT后再加一，然后按格式转换成STRING即可

Answer 9

楼上各位的代码都可参考．看来关键就是：按你的需求是否需要封装成函数（一般应该需要吧），封装时那个输出字符串的长度你打算怎么控制，是通过给出的"00000001"参数由函数自己算长度，还是通过给个 i As Long参数来控制

Answer 10

DIM A AS String  A="00000001"
Format(CInt (A) + 1, "00000000")

Answer 11

connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=bs_tjxt_wj;Data Source=20100413-1548"
conn.Open (connstring)
str0 = "select *from wc_tjxt.dbo.tj_tjdjb where DJRQ= '" & Trim(Text1.Text) & "' "
rs.Open str0, conn, 1, 3
rs.MoveFirst
conn.Execute "insert into wc_tjxt.dbo.tj_tjxj 怎么样把指针对应的那条记录插入到表里"
谢谢各位高手啊！！！！！！

Answer 12

connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=bs_tjxt_wj;Data Source=20100413-1548"
conn.Open (connstring)
str0 = "select *from wc_tjxt.dbo.tj_tjdjb where DJRQ= '" & Trim(Text1.Text) & "' "
rs.Open str0, conn, 1, 3
rs.MoveFirst
conn.Execute "insert into wc_tjxt.dbo.tj_tjxj 怎么样把指针对应的那条记录插入到表里"
谢谢各位高手啊！！！！！！

Answer 13

楼主提的问题显然是对VB的类型自动转换机制过分依赖造成的，这种转换机制虽然方便，但极不严谨，表面上看起来你方便了，但VB的效率却下降了．一个成熟的程序员一般不会这样做，而会将数据类型定义的清清楚楚，这样一旦由类型造成的错误很快就能查找出来，而且当你转向C语言的时候，这个不好的习惯会让你吃尽苦头．