简单问题，送大分！！！！！！！！！！！！

Question

Dim Temp As String
Dim i As Integer
Temp=a        '做备份
i=Instr(Temp,",")       '求出第一个,的位置
b=Left(Temp,i-1)        '取，前的部分赋给b
Temp=Right(Temp,Len(Temp)-i)   '把，后的部分重新赋给Temp
i=Instr(Temp,",")       '再求第一个,的位置
c=Left(Temp,i-1)        '取，前的部分赋给c
d=Right(Temp,Len(Temp)-i)     '取，后的部分赋给d    

Answer 1

你太懒了吧! 用个for不就行了.

Answer 2

有一个函数split你用一用，保你满意

Answer 3

dim b
b=split(a,",")这时
b(0)="wo"
b(1)="shi"
b(2)="ni"