33问答网
所有问题
用VB编写一个无参数Sub过程Triangle,在窗体上输出用“*”组成的如下图所示的三角形图案。
*
* * *
* * * * *
* * * * * * *
* * * * * * * * *
举报该问题
其他回答
第1个回答 2009-05-27
Private Sub Command1_Click()
Call Triangle(6)
End Sub
Private Sub Triangle(N As Integer)
Dim i As Integer
Me.Cls
For i = 1 To N
Print Tab(N - i + 1); String(2 * i - 1, "*")
Next
End Sub本回答被提问者采纳
相似回答
VB
编程
编写一个无参数sub过程Triangle
答:
'产生任意行
三角
星
Sub
Triangle(Rows)Dim i As Integer, j As Integer For i = 1 To Rows Print Space(Rows - i + 1);For j = 1 To i * 2 - 1 Print "*";Next Print Next End Sub '可以用一个按钮来调用
Triangle过程
Private Sub Command1_Click()Triangle 10 '产生10行 '...
vb
题:利用
过程
判断能否
组成三角形,
如果可以组成求三角形面积。用过程...
答:
Private
Sub
Command1_Click() Cls Randomize (Timer) Dim b(2) As Integer, p As Single For i = 0 To 2 b(i) = InputBox("No_" & i + 1 & "=", "分别输入
三角形
三条边的长", Int(Rnd(i + 1) * 90 + 10)) Print Chr(97 + i); "="; b(i) Next ...
输入整数n,显示出具有n行的杨辉
三角形
。
VB
编程,跪求。
答:
Private
Sub
Form_Click() N = InputBox("", "", 5) ReDim a(N + 1, N + 1), b(N + 1, N + 1) Cls k = 8 For I = 1 To N Print String((N - I) * k / 2 + 1, " "); For J = 1 To I a(I, 1) = 1 a(I, I) = 1 ...
大家正在搜
编写一个程序的流程
编写如下两个事件过程
如何编写一个程序
编写一个程序的步骤
编写如下事件过程
脚本编写的一般过程
指南的编写过程
编写一个程序
简述java程序的执行过程