永发信息网

用VB双重循环输出下列图形* *** ***** ******* ***** *** *

答案:2  悬赏:10  手机版
解决时间 2021-04-03 06:29
用VB双重循环输出下列图形* *** ***** ******* ***** *** *
最佳答案
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = -3 To 3
Print Tab(Abs(i) + 1);
For j = 1 To 7 - 2 * Abs(i)
Print "*";
Next j
Print
Next i
End Sub

全部回答
是不是棱形的? Private Sub form_Click()
Dim I As Integer, J As Integer
For I = 1 To 4
For J = 1 To 4 - I
Print " ";
Next
For J = 1 To 2 * I - 1
Print "*";
Next
Print
NextFor I = 3 To 1 Step -1
For J = 1 To 4 - I
Print " ";
Next
For J = 1 To 2 * I - 1
Print "*";
Next
Print
NextEnd Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
请问你有俄罗斯的0SV96 的资料吗
一个人指着手指说了很多十字打一个成语
通电话时显示的:0.1:55是表示多少时间呢?
有用过京球电池的吗?比超威和天能电池好吗?
(1+0.35+0.47)x(0.35+0.47+0.52)-(1+0.35+0.4
但现代学者胡适说应在一处不疑 你怎么看
五六岁儿童喜欢什么玩具
摩登仙履奇缘高清完整版电影
大衣柜的门朝东好吗
80/x-2-40/60=80/3x方程
集团诈骗总额达到600万,集团法人怎么判刑?
睡在电褥子上,打开开关,摸墙面有触电的感觉
“水尝无华相荡乃成涟漪”出自哪里
我是安卓的手机,但是特别想用苹果的输入法,
因特尔 酷睿i3 2310m可以更换成哪些cpu?
推荐资讯
+(+7)化简
R分子的质量为ag,相对分子质量为M,则M与a的比
天下3端游的霓虹彩有啥用处呢?
哪怕世界上所有人都排斥你 讨厌你 只要有一个
什么是征求平行志愿?
make me happy是什么意思
itools工具可以越狱吗
有时候,与其多心不如少根筋.没心没肺,才能
《___》的作者是______,印象最深的人物是____
前滩过了犹还在,后比前滩过更难,但看鱼舟上
稀饭跟菜苔可以一起煮吗
下面各式中属于方程的是A.x-7=54÷6B.3.5×2=
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?