中易网

vb 打出倒三角效果 vb For i = 4 To 1 Step -1 为什么可以使行数倒着打啊?

答案:2  悬赏:40  
解决时间 2021-03-06 09:54
vb 打出倒三角效果 vb For i = 4 To 1 Step -1 为什么可以使行数倒着打啊?
最佳答案
Option Explicit

Private Sub Command1_Click()
Dim r As Integer, p As Integer, cs As String
Dim i As Integer, j As Integer
r = 9 '要打印的行数
cs = "*" '要打印的字符

For i = 1 To r

For j = r - i To 1 Step -1
cs = cs & "**"
Next j

Print Space(i) & cs
cs = ""
Print
Next i

End Sub
全部回答
你好! 初值是4,终值是1,步长为负壹,循环变量取初值,每循环一次循环变量减1 如有疑问,请追问。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
如何通过几台计算机组网模式来提高计算机性能
喝过狗舔过的水会得狂犬病吗
天天饺子馆地址在什么地方,想过去办事
我几乎天天做噩梦,朋友说我恐怖片看多了。我
昨天和女盆友聊微信,她发了一条语音,说话很
我喜欢的人喜欢我我闺蜜又喜欢他
下字上面加一点是什么字
错误代码118的问题
怎么样的模特可以到时装周走秀
薄荷的种植方法,求教。柠檬薄荷
我想了解尼康百微用什么好,性价比。
九洲万亩田粗粮馆我想知道这个在什么地方
汉川小额贷款
立井街北三巷在哪里啊,我有事要去这个地方
南京有游戏公司吗
推荐资讯
所得税汇算清缴问题~支付给职工的一次性补偿
廊坊市的私家车抵押登记能做到个人名下吗
小桔灯作文阅读学校在哪里啊,我有事要去这个
鱼香大排档地址在哪,我要去那里办事
openid qq应用在登录状态下是如何获取用户ope
老哥们,求助,小法是要雷霆还是冥火
著名软件公司软件研发工作实习的要求?
wow7.0奥术毁灭者 追随者怎么获得
你好 加工中心 换刀时停电 如何开机后不回原
太平汽修怎么去啊,有知道地址的么
油箱意外破裂保险公司赔偿吗?有车损险
初级教师资格证换高级教师资格证问题?
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?