vb语言中每行显示数字10个但是为什么做出来第一行总是9个

如题所述

举报该问题

推荐答案 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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://55.wendadaohang.com/zd/e48FG8F484IcGcII8c.html

第1个回答 2015-12-04

有没有在前面加 Randomize ？追问

没有，那个需要加么，看书上的例子都没有啊

第2个回答 2015-12-04

求楼主贴代码，具体问题具体分析追问

问题是这个

相似回答

请问有谁知道怎样在VB窗口中实现每10个数字换行拜托了各位谢谢_百度...答：Dim i As Long For i = 1 To 100 Print i, If i Mod 10 = 0 Then Print Next i mod是取余数，如果和10取余数为0，说明可以被10整除，那么换行。另附：如果循环变量不是刚好的话，可以在判断里面加语句： Dim i As Long For i = 0 To 100 Print i, If (i + 1) Mod 10 = 0...

...点击窗体中的按钮生,打印出1000以内的质数,每行打印10个数字...答：Private Sub Command1_Click()Cls Dim a As Integer, b As Integer a = 0 For b = 2 To 1000 '我们知道，质数是在自然数中，除了1和自身外，没法被其他自然数整除的数（就是除以其他自然数的余数都不为0），所以1不是，从2开始取数 If a = 10 Then '当打印满10个后 Print Tab...

用VB语言编写输出1~100每行输出10个数,请问怎么写?答：应该是这样(对VB不杂熟悉，但方式是这样的)set i=1for i to 101 step 1if i mod 10 =0 then'这里输出 i 并换行else'直接输出 iend ifnext

...存放在数组x中,输出出现3次的数,每行输出10个数答：)Dim Nrep(100) As Integer Dim a As Integer Randomize For i = 1 To 100 a = Int(Rnd * 100 + 1)Nrep(a) = Nrep(a) + 1 Debug.Print a;Next Debug.Print For i = 1 To 100 If Nrep(i) = 3 Then Print i;Next i Print End Sub BTW，楼上求得是出现4次的结果。

用vb生成1--100之间的随机数一共一百个,每行显示10个数字,答：For i = 1 To 100 Randomize Print Int(Rnd * 99 + 1);If i Mod 10 = 0 Then Print Next

大家正在搜

vb中判断是否是数字字符串 vb是面向什么的语言 vb判断字符是否为数字 vb语言和c语言的区别 VB是什么语言 vb判断输入的是不是数字 vb语言基础常见语句 vb数字转字符 vb输入框中只接受数字

vb中,当输出结果是几十个时,怎么十个一行输出？

vb中,当输出结果是几十个时,怎么十个一行输出

用VB语言编写输出1~100每行输出10个数，请问怎么写？

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

vb中怎么弄首行10个数,次行9个数递减的条件啊

在vb中如何让print命令显示出的数十个一行的排列

vb编程怎么在vb环境中一行显示随机产生的十个数

vb中假如有k个数，想要每一行打10个，该怎样写代码？