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

如题所述

下面是简单实现,需要带入参数是大于等于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

温馨提示:内容为网友见解,仅供参考
第1个回答  2014-12-16
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
相似回答