用VB打印菱形