用vb打印三角形
用For循环打印一个等腰三角形，效果如下
*
***
*****，
我编写的是;
for i=1 to 3
for j = 1 to 2*i -1
print "*";
next j
print
next i
想请改进一下达到上面的目的
＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
For i = 1 To 3
Print Space(3 - i); '加这一行
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
End Sub
如何用VB实现等腰三角形输出呢?
1、首先处理整个大框，定义一个8行8列的二维数组。2、遍历数组，输出每个数。3、根据杨辉三角特点，每行的第一列和最后一列均为1。4、其他元素的值是其正上方与左上方元素的和。5、打印出来，运行，控制台显示结果。6、最后进行输出时进行处理，实现等腰输出。
用vb打印三角形
加一行就行。加完代码是：＝＝＝ Private Sub Command1_Click()For i = 1 To 3 Print Space(3 - i); '加这一行 For j = 1 To 2 * i - 1 Print "*";Next j Print Next i End Sub
vb怎样打出“*”号倒三角形来?
可以参考下面的代码：Private Sub Command1_Click()Dim i As Long, j As Long Dim strTemp As String, strXing As String For i = 0 To 3 strXing = ""For j = 1 To (7 - Abs(i) * 2)strXing = strXing & "*"Next strTemp = Space(Abs(i)) & strXing & Space(Abs(i))Pr...
VB问题在窗体上输出一个三角形,代码已经有了 求代码的详细解释 最好是...
str = String(2 * (LineNum - i), " ") ’String函数在这一句的意思是产生多少个空格，此句用来将第一行的空格随着LineNum的变大而减小。金字塔三角型产生于这一句。For k = 1 To 2 * i - 1 ‘以下是主循环 str = str & "*" & " " ’这一行根据用户输入的数字大小，产生...
vb在窗体上输出正三角形。用循环的方式怎么做?
Private Sub Form_Activate()For i = 1 To 8 Print Spc(8 - i); String(i * 2 - 1, "*")Next End Sub
vb程序设计输出倒序三角形
很简单，看代码：Private Sub Form1_l Load Dim a As Integer Dim b As Integer a=Val（Inputbox（“请输入行数”,‘’倒序三角形‘’））For i =1 To a Print Tab（i+8）;For j=1 To 11-2*i Print “*”;Next j Print Next i End Sub ...
vb输出倒三角形
For i = 4 To 1 Step -1 Print Space(4 - i); String(i + i - 1, "*")Next i
VB输出三角形!!高手帮帮忙啊
dim R as string,i as integer for i = 1 to 4 R=Space(4-i)for j = 1 to 2*i-1 if j mod 2=1 then R=R+"*"else R=R+"$"end if next j print R next i
vb 如何用循环输出以下三角形
' 杨辉三角形 Dim i As Integer Dim j As Integer Dim n As Integer n = 5 Cls For i = 1 To n Print String(i - 1, " ");For j = 1 To (n + 1) - i Print CStr(i); " ";Next j Print Next i End Sub Private Sub Command2_Click()'比较输入最大值 Dim x...
vb 如何平行输出两个三角形
Private Sub Command1_Click()n = 5 '这里的数值自己定义，定义多少就输出多少行 For i = 1 To n Print Tab(i); String((n - i) * 2 + 1, "*"); Space(1); String(i * 2 - 1, "*")'*只能隔行1,3,5个这样格式输出，space(1)中间的1可以改成任何整数，表示两个三角形间隔...
