vb问题主要是学习数组方面

来源：百度知道 编辑：UC知道 时间：2024/06/07 01:59:58
text1=01,03,09,15,18,25,29,30,45,50,60
text2=03,10,11,18
点了COMMAND之后，拿TEXT2中的数和TEXT1中的进行对比，要一个个，用数组方式，
如03和TEXT1中的数进行对比，发现其中有03
text3=03

10和TEXT1中的数进行对比，对TEXT1中所有的数进行了对比，没有在其中找到10就进行下一个数的对比
11和TEXT1中的数进行对比，对TEXT1中所有的数进行了对比，没有在其中找到11就进行下一个数的对比
18和TEXT1中的数进行对比，对TEXT1中所有的数进行了对比，发现其中有18，
TEXT3=03，18

a = Split(Text1, ",")
b = Split(Text2, ",")
For i = LBound(b) To UBound(b)
For j = LBound(a) To UBound(a)
If b(i) = a(j) Then Text3 = Text3 & b(i) & " "
Next j
Next i

先把TEXT1和TEXT2给转成数组textA(0 to 10) textB(0 to 3)。然后再：

private sub command_click()

dim i,j as integer
text3.text=""
for i=0 to 3

for j=0 to 10

if textB(i)=textA(j) then text3.text=text3.text & cstr(textB(i)) & ","

next j

next i
if text3.text<> "" then text3.text= left(text3.text,Len(text3.text)-1) ' 这是为了去掉最后一个 , 号
end sub