各位VB高手，请帮小弟一个忙

有朋友问我以下问题，但我不懂VB，请各位老大帮忙，谢谢！
原文如下：

1，下面ｐｒｏｇｒａｍ里，如何才能在1个ｂｏｘ里（我用的是ｌｉｓｔｂｏｘ）输出ｘ和ｙ的值在一条线，如：
ｘ（１）    ｙ（１）
                                                                          ｘ（２）    ｙ（２）
                                                                                                                                        ………          ………
                                                                                                                                         ………         ………
例如ｐｒｏｇｒａｍ：  
  Ｐｕｂｌｉｃ ｓｕｂ ｃｏｍｍａｎｄ１－Ｃｌｉｃｋ（）
Ｄｉｍ Ｘ（１９） Ａｓ Ｓｉｎｇｌｅ
Ｆｏｒ ｂ＝０ Ｔｏ １９
Ｘ（ｂ）＝ｂ×２
Ｙ（ｂ）＝ｂ×３
Ｌｉｓｔ１。Ｌｉｓｔ（ｂ）＝Ｘ（ｂ）：Ｙ（ｂ）（在此Ｙ（ｂ）走不通！
Ｎｅｘｔ ｂ
Ｅｎｄ  Ｓｕｂ
２，如何将以上Ｌｉｓｔ１Ｂｏｘ的ｘ（ｂ）ｙ（ｂ）值通过一个
ｂｕｔｔｏｎ ｃｌｉｃｋ 打印到打印机。

3，如何将下例ｐｒｏｇｒａｍ的图型放进一个2×2的方框里（如
ｉｍａｇｅＢｏｘ）。如何再ｄｅｓｉｇｎ一个 ｂｕｔｔｏｎ当
ｃｌｉｃｋ，自动打印ｉｍａｇｅｂｏｘ里的图到打印机１：１。
ｐｒｉｖａｔｅ  ｓｕｂ  ｆｏｒｍ－ｐａｉｎｔ（）
ｓｃａｌｅ （０，０）－（１３，１１）
ｌｉｎｅ（１，１）－（４，４）
ｅｎｄ ｓｕｂ

6 个解决方案

#1

help me

#2

1. list1.additem (x(b) & "  " & y(b))

#3

奇怪，上面的
ｘ（１）    ｙ（１）
ｘ（２）    ｙ（２）
………      ………
………      ………

怎么搞的乱七八糟了

#4

 我帮你解决!把你的代码和要求发个EMAIL给我! [e-mail]

#5

uguess(uguess):
我朋友给我的代码就全在上面了，谢谢你.

#6

use 
form.print