vb如何用二重循环打出如下图形 1 12 123 1234 12345其实是1换行12换行123换行1234换行12345

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 12:11:12
vb如何用二重循环打出如下图形 1 12 123 1234 12345其实是1换行12换行123换行1234换行12345

vb如何用二重循环打出如下图形 1 12 123 1234 12345其实是1换行12换行123换行1234换行12345
vb如何用二重循环打出如下图形 1 12 123 1234 12345
其实是1换行12换行123换行1234换行12345

vb如何用二重循环打出如下图形 1 12 123 1234 12345其实是1换行12换行123换行1234换行12345
Function GetStr(ByVal i As Integer) As String '取得字符串
If i = 1 Then
GetStr = 1
Else
GetStr = GetStr(i - 1) & i
End If
End Function
Private Sub Command1_Click() '调用输出
Me.AutoRedraw = True
Dim n As Integer
n = Val(InputBox("请输入一个大于0的数值", "输入"))
If n > 0 Then
For i = 1 To n
Print GetStr(i)
Next
Else
MsgBox "输入的数值无效"
End If
End Sub