dim vin
dim i as integer
dim j as integer
vin=mscom.input
j=mscom.inputcount
for i=0 to j-1
textbox=textbox+" "+str(hex(vin(i)))
next i
dim i as integer
dim j as integer
vin=mscom.input
j=mscom.inputcount
for i=0 to j-1
textbox=textbox+" "+str(hex(vin(i)))
next i
你,你,你,比我还懒,哈哈