Question

VB编写"爱心"用符号“*”

Answer 1

Private Sub form_Click()
Print Tab(10); "**";
Print Tab(20); "**",

Print Tab(6); "*";
Print Tab(14); "*";
Print Tab(18); "*";
Print Tab(25); "*",

Print Tab(4); "*";
Print Tab(15); "*";
Print Tab(17); "*";
Print Tab(27); "*",

Print Tab(3); "*";
Print Tab(16); "*";
Print Tab(28); "*",

Print Tab(3); "*";
Print Tab(28); "*",

Print Tab(4); "*";
Print Tab(27); "*",
Print Tab(5); "*";
Print Tab(26); "*",
Print Tab(7); "*";
Print Tab(24); "*",
Print Tab(9); "*";
Print Tab(22); "*",
Print Tab(11); "*";
Print Tab(20); "*",
Print Tab(13); "*";
Print Tab(17); "*",
Print Tab(15); "*",
End Sub

'单击窗口看运行效果  看在我这么辛苦的份上 采纳吧