vb菱形字符怎么打印出来呢?

 我来答
sbj518
2016-01-11 · TA获得超过4.4万个赞
知道大有可为答主
回答量:1.1万
采纳率:81%
帮助的人:5268万
展开全部
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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式