全部
登录/注册
在VB 中倒三角形怎么编写程序
...全文
写回复
17 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lyjun_311
Dim i%
For i = 9 To 1 Step -2
Print Space((30 - i) \ 2) & String(i, "*")
Next
这样不也可以吗?哈哈
回复赞
xtvbl2008
[Quote=引用 9 楼qiu5208 的回复:]
窃取某斑猪的故事:
有一天我遇见了上帝,上帝说可以满足我一个愿望。
我说了一个愿望:把日本岛沉掉。
上帝皱了皱眉头说:这个难度太大,你换别的!
我又说:帮我把攀辉朋友的倒三角形程序编出来。
上帝擦了擦额头上的汗,说:日本在哪儿,你把地球仪拿过来。。。。
[/Quote]
哈哈
回复赞
caprason
地球太危险……偶还是回火星去吧
回复赞
cdcjk
Chen8013 你知道怎么把图形输出:放在窗体中间吗
*********
*******
*****
***
*
回复赞
cdcjk
Chen8013 你知道怎么把图形输出:放在窗体中间吗
*********
*******
*****
***
*
回复赞
cdcjk
Chen8013 你知道怎么把输出:放在中间吗
*********
*******
*****
***
*
回复赞
智能卡_Snooper社区成员
借用 Chen8013 的代码
Sub Out()
Dim i%
For i = 9 To 1 Step -2
Debug.Print String(( 30 - i) \ 2, " ") & String(i, "*");
Next
End Sub
回复赞
qiu5208社区成员
窃取某斑猪的故事:
有一天我遇见了上帝,上帝说可以满足我一个愿望。
我说了一个愿望:把日本岛沉掉。
上帝皱了皱眉头说:这个难度太大,你换别的!
我又说:帮我把攀辉朋友的倒三角形程序编出来。
上帝擦了擦额头上的汗,说:日本在哪儿,你把地球仪拿过来。。。。
回复赞
cdcjk
Chen8013 你知道怎么把输出:放在中间吗
*********
*******
*****
***
*
回复赞
嗷嗷叫的老马
晕一下.
回复赞
舉杯邀明月
[Quote=引用 7 楼cdcjk 的回复:]
Chen8013 你知道怎么把输出:放在中间吗
*********
*******
*****
***
*
[/Quote]
中间?
请问:你的“中间”的定义是什么?看来鄙人才疏学浅,这个问题无法给你解决。
回复赞
cdcjk
很感谢你!Chen8013 还有简单代码
回复赞
qiu5208社区成员
BS LZ
回复赞
舉杯邀明月
简单的?就这样吧:
Sub Out()
Dim i%
For i = 9 To 1 Step -2
Debug.Print String((9 - i) \ 2, " ") & String(i, "*");
Next
End Sub
这样行了吧 ^_^
回复赞
舉杯邀明月
参考这样的代码:
Sub Out()
Dim i%, j%
For i = 9 To 1 Step -2
Debug.Print String((9 - i) \ 2, " ");
For j = 1 To i
Debug.Print "*";
Next
Debug.Print
Next
End Sub
输出:
*********
*******
*****
***
*
回复赞
cdcjk
我的意思是用************号编的倒三角形
回复赞
东方之珠
Option Explicit
Private Sub Form_Load()
With Label1
.Caption = ""
.AutoSize = True
.Font.Bold = True
.Font.Size = 256
.Refresh
End With
End Sub
回复赞