你的代码修改下好像只能打印一竖条的*号吧,print是按行打印的。Private Sub Command1_Click()n = ""For j = 1 To 4n = n & "*"Print Tab(12 - j); nn = n & "*"Nextn = Replace(n, "**", "", , 1)For j = 1 To 4n = Replace(n, "*", "", , 1)Print Tab(8 + j); nn = Replace(n, "*", "", , 1)NextEnd Sub如果不能用这个函数,应该会对你有启发不认识这个函数自行百度... |