vb中怎样绘制三角形(要倒过来)

vb画三角形~

按四个的顺序画的

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer

ScaleMode = 3
For i = 1 To 5
CurrentX = (5 - i) * Me.TextWidth("1") / 2
For j = i To 1 Step -1
Print CStr(j);
Next j
Print
Next i

End Sub

Private Sub Command2_Click()
Dim i As Integer
Dim j As Integer

ScaleMode = 3
For i = 1 To 5
For j = 1 To i
Print CStr(j);
Next j
Print
Next i

End Sub


Private Sub Command3_Click()
Dim i As Integer
Dim j As Integer

ScaleMode = 3
For i = 5 To 1 Step -1
Print Space$(5 - i);
For j = 1 To i
Print CStr(j);
Next j
Print
Next i

End Sub


Private Sub Command4_Click()
Dim i As Integer
Dim j As Integer

ScaleMode = 3
For i = 5 To 1 Step -1
CurrentX = (5 - i) * Me.TextWidth("1") / 2
For j = i To 1 Step -1
Print CStr(j);
Next j
Print
Next i

End Sub

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
Picture1.Cls
Dim w As Integer, h As Integer, x As Integer, y As Integer
Randomize
w = Picture1.Width
h = Picture1.Height
x = Rnd * (w + 1)
y = Rnd * (h + 1)
Picture1.CurrentX = x
Picture1.CurrentY = y

Picture1.DrawWidth = 5
Picture1.ForeColor = vbRed
Picture1.Print "起点"
Picture1.PSet (x, y)
Picture1.DrawWidth = 1
Picture1.ForeColor = 0

LineTo Picture1.hdc, Rnd * (w + 1) / Screen.TwipsPerPixelX, Rnd * (h + 1) / Screen.TwipsPerPixelY
LineTo Picture1.hdc, Rnd * (w + 1) / Screen.TwipsPerPixelX, Rnd * (h + 1) / Screen.TwipsPerPixelY
LineTo Picture1.hdc, x / Screen.TwipsPerPixelX, y / Screen.TwipsPerPixelY
End Sub

可以这样吧：
Private Sub Command1_Click()
Dim i As Integer, k As Integer
For i = 1 To 5
Print Tab(5 + i);
For k = 10 - 2 * i + 1 To 1 Step -1
Print "*";
Next
Print
Next
End Sub

---

东市区17555473708： vb的倒三角怎么做 - ？
奚农卫萌： Private Sub Command1_Click() n = Val(InputBox(＂N=＂)) Print ＂N=＂; n For i = 1 To n Print Spc(i); String(2 * (n - i) + 1, ＂*＂) Next i End Sub

东市区17555473708： vb编写倒直角三角形 - ？
奚农卫萌： Private Sub Form_Click() Dim n As Integer Dim i As Integer n = Val(InputBox(＂请输入倒三角形的行数＂)) For i = n To 0 Step -1 Print spacex(i) Next i End Sub Function spacex(ByVal n As Integer) As String Dim i As Integer Dim Temp As String For i = 1 To n Temp = Temp & ＂*＂ Next i spacex = Temp End Function

东市区17555473708： 如何用vb画倒三角 - ？
奚农卫萌： Option Explicit Dim a(21, 21) As Long Dim b(21) As String Dim bb(21) As String Dim i As Byte Dim j As BytePrivate Sub Form_Load() a(0, 0) = 1 For i = 1 To 20For j = 1 To 20a(i, j) = a(i - 1, j - 1) + a(i - 1, j)If a(i, j) <> 0 Thenb(j) = b(j - 1) & ＂ ＂...

东市区17555473708： 如何用VB编写一个由＂*＂组成的倒三角形 ********* ******* ***** *** * - ？
奚农卫萌： Private Sub Command1_Click() For i = 5 To 1 Step -1 Print Space(10 -i); For j = 2 * i - 1 To 1 Step -1 Print ＂*＂; Next j Print Next i End Sub

东市区17555473708： 谁能用vb编出一个倒三角型拜托了各位 谢谢 - ？
奚农卫萌： Private Sub Command1_Click() n = 3 '层数 For i = 1 To n Print Tab(i); '前边空格数 For j = 1 To 2 * (n + 1 - i) - 1 '第j层*的个数 Print ＂*＂; Next j Print Next i End Sub

东市区17555473708： 在VB中,怎么用循环语句for打印出一个倒正三边形,如:*********** ********* ******* ***** *** * - ？
奚农卫萌： 应该是想要一个倒立的等腰三角形吧:Sub Command1_Click()Dim i As IntegerFor i = 1 To 11 Step 2For m = 11 To i Step -1Debug.Print ＂*＂;NextPrint Chr(10) & Space(1 + i \ 2);Next End Sub

东市区17555473708： 请问这VB的题怎么编写>.完成倒三角形的输出,要求输入N,输出N行倒三角形. - ？
奚农卫萌： Private Sub Form_Click() n = Val(InputBox(＂n=? ＂, ＂＂)) For i = n To 1 Step -1 For j = 1 To i Print ＂*＂; Next j Print Next i End Sub

东市区17555473708： vb编程 For结构的*排列倒三角形怎么弄啊 用循环语句编写程序,当单击“产生随机数”按钮后,将自动产生一个1~10之间的随机整数n,当单击“绘出图形... - ？
奚农卫萌：[答案] rem 三角形 Private Sub Command2_Click() Dim i As Integer Dim j As Integer For i = 1 To Val(Text1.Text) Print ＂*＂; For j = 1 To i Print ＂*＂; Next j Print Next i End Sub rem 倒三角: Private Sub Command3_Click() Dim i As Integer Dim j As Integer ...

东市区17555473708： 用vb编写*正,倒三角 * * * * * * * * * * * * * * * * * * * * * * * * * 再将其上下倒转 - ？
奚农卫萌： Private Sub command1_Click() form1.Cls Call zheng Call dao End Sub Private Sub command2_Click() form1.Cls Call dao Call zheng End Sub Private Sub zheng() Dim i As Integer, j As Integer For i = 0 To 6 Print Space(6 - i); For j = 1 To i * 2 + 1 ...

东市区17555473708： 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