Question

vb 如何用循环输出以下三角形

1 1 1 1 1
2 2 2 2
3 3 3
4 4
5
这个又怎么做啊?
当单击窗体时，使用InputBox函数输入x，y，z三个整数，然后按从大到小的次序显示

Answer 1

Private Sub Command1_Click()
' 杨辉三角形

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 As Long
Dim y As Long
Dim z As Long

x = Val(InputBox("请输入 x :"))
y = Val(InputBox("请输入 y :"))
z = Val(InputBox("请输入 z :"))

Cls

If x > y And x > z Then

If y > z Then

Print x, y, z
Else
Print x, z, y
End If

ElseIf y > x And y > z Then

If x > z Then

Print y, x, z
Else
Print y, z, x
End If

Else

If x > y Then

Print z, x, y
Else
Print z, y, x
End If

End If

End Sub

Private Sub Form_Click()
Command2_Click
End Sub

Answer 2

for i = 1 to 5
print string(i-1," ");
for j = 1 to i
print cstr(i);
next j
print
next i

分太少了，后面的不管了。。。