求简单vb程序

来源：百度知道 编辑：UC知道 时间：2024/06/08 00:52:54
1、 打印下列图形。当N=5时。
1
23
456
7890
12345

2、打印下列图形。当N=5时。
12345
23451
34512
45123
51234
第一题呢？

'第一题
Option Explicit

Private Sub Form_Load()
Dim N As Integer, St As String
Dim I As Integer, J As Integer, M As Integer
Form1.AutoRedraw = True
Cls
N = 5
St = InputBox("一个数字", "输入", N)
If St = "" Then Exit Sub
If Val(St) <> 5 Then Exit Sub
M = 0
For I = 1 To N
For J = 1 To I
M = (M + 1) Mod 10
Print Trim(Str(M));
Next
Print
Next
End Sub

'第二题
Option Explicit

Private Sub Form_Load()
Dim N As Integer, St As String
Dim I As Integer, J As Integer, M As Integer
Form1.AutoRedraw = True
Cls
N = 5
St = InputBox("一个数字", "输入", N)
If St = "" Then Exit Sub
If Val(St) <> 5 Then Exit Sub
For I = 1 To N
For J = I To I + 4
Print Trim(Str(((J - 1) Mod 5)) + 1);
Next
Print
Next