UC知道VB简单图形
来源：百度知道 编辑：UC知道 时间：2024/06/01 10:53:31
Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim s As String
cls
For i = 1 To 5
s = s & Space(5 - i)
For j = 1 To i
s = s & j
Next j
For j = (i - 1) To 1 Step -1
s = s & j
Next j
Print s
s = ""
Next i
End Sub
帮我解释每一句的意思 好吗
我看不懂 叫别人帮我做的
以下是 执行 —— 单击后的效果
Dim i As Integer, j As Integer
Dim s As String
cls
For i = 1 To 5
s = s & Space(5 - i)
For j = 1 To i
s = s & j
Next j
For j = (i - 1) To 1 Step -1
s = s & j
Next j
Print s
s = ""
Next i
End Sub
帮我解释每一句的意思 好吗
我看不懂 叫别人帮我做的
以下是 执行 —— 单击后的效果
Private Sub Form_Click() '窗体单击事件
Dim i As Integer, j As Integer '定义整形变量 i, j
Dim s As String '定义字符串变量s
cls '将窗体上客户区显示内容清除
For i = 1 To 5 '外层循环,循环次数是行数 5
s = s & Space(5 - i) '最左边加空格 第1行4个第2行3个第3行2个第4行1个
For j = 1 To i '内层循环,循环次数为每行显示数字数左边的部分
s = s & j '将数字添加到字符串 s
Next j '内层循环结束
For j = (i - 1) To 1 Step -1 '每行字符串右半部分第2行1第3行21第4行321'第5行4321
s = s & j '将数字添加到字符串 s
Next j '内层循环结束
Print s '在窗体打印 字符串 s
s = "" '将字符串 s 清空
Next i '外层循环结束
End Sub