作业帮 > 综合 > 作业

vb如何用二重循环打出如下图形 1 12 123 1234 12345

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/22 18:17:03
vb如何用二重循环打出如下图形 1 12 123 1234 12345
其实是1换行12换行123换行1234换行12345
vb如何用二重循环打出如下图形 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 Su