Question

VB中如何让label中一行显示十个数字

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Private Sub Command1_Click()

  Label1.Caption = ""

  n = CLng(InputBox("请输入一个100以内的正整数"))

  For i = 1 To n

    Label1.Caption = Label1.Caption & Format(i, "@@@@")    '让数字对齐

    If i Mod 10 = 0 Then Label1.Caption = Label1.Caption & vbCrLf    '每行显示10个

  Next i

End Sub

Answer 2

你要怎么显示，数字从何而来。

追问

我会啦 谢谢回答

追答

　　vb6 新建一工程，窗体上添加一按钮，一个label控件即可。

 

　　进入 代码区，删除所有代码后，粘贴以下代码即可。

Private Sub Command1_Click()
Dim K As String
Dim J As Long, I As Long
Label1.Caption = ""
K = "12957813540269872457816498132256412598745133"
J = Len(K)
If J Mod 10 > 0 Then
   J = J Mod 10
Else
    J = J Mod 10 - 1
End If
For I = 0 To J
    Label1.Caption = Label1.Caption & Mid(K, I * 10 + 1, 10) & vbCrLf
Next I
End Sub

　　运行效果图如下：

追问

好的 谢谢