求问VB大神，以下代码有什么问题吗？
答案:3 悬赏:10 手机版
解决时间 2021-11-16 07:32
- 提问者网友：锁深秋
- 2021-11-15 21:52
求问VB大神，以下代码有什么问题吗？
最佳答案
- 五星知识达人网友：动情书生
- 2021-11-15 22:23
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Label1.Caption = Label1.Caption & vbCrLf
For i = 1 To 9
For j = 1 To 10 - i
Label1.Caption = Label1.Caption & " "
Next j
For j = 1 To 2 * i - 1
Label1.Caption = Label1.Caption & Chr(48 + i)
Next j
Label1.Caption = Label1.Caption & vbCrLf
Next i
End Sub
Dim i As Integer, j As Integer
Label1.Caption = Label1.Caption & vbCrLf
For i = 1 To 9
For j = 1 To 10 - i
Label1.Caption = Label1.Caption & " "
Next j
For j = 1 To 2 * i - 1
Label1.Caption = Label1.Caption & Chr(48 + i)
Next j
Label1.Caption = Label1.Caption & vbCrLf
Next i
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯