vb菱形字符怎么打印出来呢?
1个回答
展开全部
Public Function Diamond(ByVal num As Integer) As String
Dim i, j As Integer, st As String = ""
Dim m As Integer
If (num Mod 2 = 0) Then
Return ""
End If
'输出上三角形
For i = 1 To (num + 1) \ 2
For j = 1 To (num + 1) / 2 - i
st = st & " "
Next
For j = 1 To 2 * i - 1
st = st & Chr(64 + i)
Next
st = st & vbCrLf
Next
m = 64 + i
'输出下三角形
For i = 1 To (num - 1) \ 2
For j = 1 To i
st = st & " "
Next
For j = 1 To num - 2 * i
st = st & Chr(m - i - 1)
Next
st = st & vbCrLf
Next
Return st
End Function
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim str As String = ""
str = Diamond(11)
TextBox1.Text = str
End Sub
Dim i, j As Integer, st As String = ""
Dim m As Integer
If (num Mod 2 = 0) Then
Return ""
End If
'输出上三角形
For i = 1 To (num + 1) \ 2
For j = 1 To (num + 1) / 2 - i
st = st & " "
Next
For j = 1 To 2 * i - 1
st = st & Chr(64 + i)
Next
st = st & vbCrLf
Next
m = 64 + i
'输出下三角形
For i = 1 To (num - 1) \ 2
For j = 1 To i
st = st & " "
Next
For j = 1 To num - 2 * i
st = st & Chr(m - i - 1)
Next
st = st & vbCrLf
Next
Return st
End Function
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim str As String = ""
str = Diamond(11)
TextBox1.Text = str
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询