UC知道一个简单的VB编程
来源：百度知道 编辑：UC知道 时间：2024/05/21 16:34:18
编写程序使得输出的结果如下
* * * * * * * * * * * * * #
* * * * * * * * * * * * # #
* * * * * * * * * * * # # #
* * * * * * * * * * # # # #
* * * * * * * * * # # # # #
* * * * * * * # # # # # #
* * * * * * # # # # # # #
* * * * * # # # # # # # #
* * * * # # # # # # # # #
* * * # # # # # # # # # #
* * # # # # # # # # # # # #
* # # # # # # # # # # # # # #
* * * * * * * * * * * * * #
* * * * * * * * * * * * # #
* * * * * * * * * * * # # #
* * * * * * * * * * # # # #
* * * * * * * * * # # # # #
* * * * * * * # # # # # #
* * * * * * # # # # # # #
* * * * * # # # # # # # #
* * * * # # # # # # # # #
* * * # # # # # # # # # #
* * # # # # # # # # # # # #
* # # # # # # # # # # # # # #
话说这种题目是最考验和锻炼编程初学者算法能力的 ，代码不难但是需要自己的理解，否则对自己丝毫没有帮助
给你个地址，类似与你的问题，我在那里有详细的解答
http://zhidao.baidu.com/question/121976579.html
希望你看过后能过解决自己的问题，要是实在不会，呼我
dim sss
for i=1 to 13 step 1
ddd=""
fff=""
for j=14-i to 1 step -1
ddd=ddd & "*"
next
for k=1 to 14-i step 1
fff=fff&"#"
next
print ddd&fff
next
Option Explicit
Private Sub Command1_Click()
Me.Print " * * * * * * * * * * * * * #"
Me.Print " * * * * * * * * * * * * # #"
Me.Print " * * * * * * * * * * * # # #"
Me.Print " * * * * * * * * * * # # # #"
Me.Print " * * * * * * * * * # # # # #"
Me.Print " * * * * * * * # # # # # #"
M