vb程序-三角形類問題模板-

1、1.等腰正三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""k = 20For i = 1 To 9s = Space(kFor j = 1 To 2 * i - 1s &= "*"Next jLabel1.Text &= s & vbCrL

2、fk = k - 1Next iEnd SubEnd Class2.作業(yè)等腰三角形(多加一行空格Dim i As Integer, j As Integer, s As String, k%Label2.Text = ""k = 20For i = 1 To 6s = Space(kFor j = 1 To 2 * i - 1s &= "*"Next jLabel2.Text &= s & vbCrLf & vbCrLfk = k - 1Next iPrivate Sub Button1_Click(ByVal sende

3、r As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""k = 20For i = 1 To 9s = Space(kFor j = i To 2 * i - 1s &= "*"Next jLabel1.Text &= s & vbCrLfk = k - 1Next iEnd SubEnd Class4.倒正三角形Privat

4、e Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""k = 20For i = 1 To 9s = Space(kFor j = 2 * i - 1 To 17s &= "*"Next jLabel1.Text &= s & vbCrLfk = k + 1Nex

5、t iEnd SubEnd ClassPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""k = 20For i = 1 To 9s = Space(kFor j = i To 9s &= "*"Next jLabel1.Text &= s & vb

6、CrLfk = k + 1Next iEnd SubEnd Class6.上三角九九乘法表(頂角向左Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""For i = 1 To 9s = Space(i - 1 * 8For j = i To 9 '字符串左對齊,在右邊以空格填充以達到

7、總長度為8s &= (i & "x" & j & "=" & i * j.PadRight(8Next jLabel1.Text &= s & vbCrLfNext iEnd SubEnd Class7.下三角九九乘法表(頂角向右Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""For i = 1 To 9s = ""For j = 1 To i '字符串左對齊,在右邊以空格填充以達到總長度為8s &= (i & "x&