程式問題VB

Question

我的程式哪裡不對
Dim source As String, des As String
Dim strlen As Integer, I As Integer
Dim data(80) As Integer, a As Integer
Private Sub CommandButton1_Click()
sourse = a1
strlen = Len(sourse)
For I = 1 To strlen Step 1
data(I) = Asc(Mid(sourse, I, 1))
Next
For a = 1 To strlen Step 1
des = des & Chr(data(a) + 1)
Next
a2 = des
End Sub
________________________
原題
範例a1=abcd
a2=bcde

a1昰輸入值

可以告訴我哪裡有錯嗎

Answer 1

你想要表達的是??
把a1的值往後移一位嗎??
也就是說，如果a1=cde，a2=def嗎??
那你的程式碼中，沒有a1的值呀…
你只有打“source = a1”
但a1的值是多少呢??
還有，你的兩個迴圈是可以合併的喔…
程式碼如下：
for i = 1 to len(source)
des = des & chr(asc(mid(source,i,1)))
next i
a2 = des

2005-08-30 20:53:05 補充：
a1是輸入值?
那我怎麼沒有看見在哪裡輸入呢??
而且也沒有看見輸出…
所以你的程式本身沒有錯…
但是會看不見值…
因為值在哪，我也沒看見呀…

Answer 2

程式中不需要陣列，可改寫如下：
dim src as string,tag as string,i as integer

src="abcd"
for i=1 to len(src)
tag=tag & chr(asc(mid(src,i,1))+1)
next
debug.print tag