vb语言中每行显示数字10个但是为什么做出来第一行总是9个 20
2015-12-04
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询