Question

VB编程题，在文本框Text1中输入一个正整数，单击Command1，在Text2中显示一系列数字，规律如下图所示。





Answer 1

下面是简单实现，需要带入参数是大于等于1的正数（自己防呆)

Private Sub Command1_Click() '调用实例
  Dim str As String
 MsgBox return_str(5)
End Sub
Private Function return_str(number As Integer) As String '通用函数
 Dim str As String
 For i = 1 To number
   Dim str_temp As String
   str_temp = ""
  ' MsgBox str_temp
   For j = 1 To i
      str_temp = str_temp & CStr(i)
   Next
  
   str = str & str_temp
 Next
 return_str = str
End Function

Answer 2

Private Sub Command1_Click()
Dim n As Long
Dim s As String
Dim i As Long
Dim j As Long
s = ""
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To i
s = s & i
Next
Next
Text2.Text = s
End Sub