怎么用VB打出这个三角

来源:百度知道 编辑:UC知道 时间:2024/06/24 13:07:31
格式是这样子的 V
V V
V V
V V
V V
V V V V V V
都不对啊..

Text1.MultiLine = True
Text1.Alignment = 2
Text1.Text = "V" & vbCrLf
For i = 0 To 4
If i <> 4 Then
Text1.Text = Text1.Text & "V" & Space(i) & "V" & vbCrLf
Else
Text1.Text = Text1.Text & String(i+2, "V")
End If
Next i

把输入法调成职能ABC 然后按V就行了~

这不是三角啊,用图片上传