用vb编程设计如图所示的钻石图案,很急!交作业!求正确代码,且能尽快在线答疑的!
Cmokyal?
2024-11-29 08:02:24
最佳回答
你的代码修改下好像只能打印一竖条的*号吧,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如果不能用这个函数,应该会对你有启发不认识这个函数自行百度 20210311