在VB 中倒三角形怎么编写程序 在VB 中倒三角形怎么编写程序 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Option ExplicitPrivate Sub Form_Load() With Label1 .Caption = "▼" .AutoSize = True .Font.Bold = True .Font.Size = 256 .Refresh End With 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输出:********* ******* ***** *** * 很感谢你!Chen8013 还有简单代码 简单的?就这样吧:Sub Out() Dim i% For i = 9 To 1 Step -2 Debug.Print String((9 - i) \ 2, " ") & String(i, "*"); NextEnd Sub这样行了吧 ^_^ Chen8013 你知道怎么把输出:放在中间吗 ********* ******* ***** *** * Chen8013 你知道怎么把输出:放在中间吗 ********* ******* ***** *** * 借用 Chen8013 的代码Sub Out() Dim i% For i = 9 To 1 Step -2 Debug.Print String(( 30 - i) \ 2, " ") & String(i, "*"); NextEnd Sub Chen8013 你知道怎么把图形输出:放在窗体中间吗 ********* ******* ***** *** * Chen8013 你知道怎么把图形输出:放在窗体中间吗 ********* ******* ***** *** * Dim i% For i = 9 To 1 Step -2 Print Space((30 - i) \ 2) & String(i, "*") Next这样不也可以吗?哈哈 多字段连接查询 求组,汉字字节问题? 为什么打开多个mdi子窗体时,一个最大化会导致所有最大化,一个窗口还原,也会导致所有的还原? 怎样vb打开和读取二进制文件 请教各位高手一个很急的问题!!! 怎样动态装载form1中的控件 大图片旋转占内存怎么办 求救vb中横向打印问题 请问各位能不能从A窗体调用B窗体中定义的函数? 如何去掉Webbrowser控件的垂直滚动条? 文本框属性,在线等待! 我初来报道..想学习VB...
With Label1
.Caption = "▼"
.AutoSize = True
.Font.Bold = True
.Font.Size = 256
.Refresh
End With
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输出:
*********
*******
*****
***
*
For i = 9 To 1 Step -2
Debug.Print String((9 - i) \ 2, " ") & String(i, "*");
NextEnd Sub这样行了吧 ^_^
*********
*******
*****
***
*
*********
*******
*****
***
*
For i = 9 To 1 Step -2
Debug.Print String(( 30 - i) \ 2, " ") & String(i, "*");
NextEnd Sub
*********
*******
*****
***
*
*********
*******
*****
***
*
For i = 9 To 1 Step -2
Print Space((30 - i) \ 2) & String(i, "*")
Next这样不也可以吗?哈哈