UC知道VB语句.谁能帮忙解释下,谢谢.
来源：百度知道 编辑：UC知道 时间：2024/06/03 15:25:47
Dim a As Integer, s As Integer, n As Integer
s = 0
n = 0
For a = 1 To 100
s = s + a
n = n + 1
→Print Tab((n Mod 7) * 7 + (7 - Len(Str$(s)))); s;
Next a
其中箭头指向的句子,是为了整齐地每行输出7个数.
我不懂这个句子的奥妙所在,我用if条件句"if n<=7....else.."也能每行输出7个数,但是由于数字长度,很不整齐.
望大虾指点迷津~!鲜那个Q啊~!
我取的代码的一段,最重要的是箭头指的那一句~!谢谢!
s = 0
n = 0
For a = 1 To 100
s = s + a
n = n + 1
→Print Tab((n Mod 7) * 7 + (7 - Len(Str$(s)))); s;
Next a
其中箭头指向的句子,是为了整齐地每行输出7个数.
我不懂这个句子的奥妙所在,我用if条件句"if n<=7....else.."也能每行输出7个数,但是由于数字长度,很不整齐.
望大虾指点迷津~!鲜那个Q啊~!
我取的代码的一段,最重要的是箭头指的那一句~!谢谢!
tab在print语句里起定位作用，试试下面的代码
比你提供的代码要好懂一些吧
Private Sub Form_Click()
Dim a As Integer, s As Integer, n As Integer
s = 0
n = 0
For a = 1 To 100
s = s + a
Print Tab((a Mod 7) * 7 + 1); Format(s, "@@@@@@@");
Next a
End Sub
定义为数字，分别为S、N
S等于0
N等于0
之后要求在1-100之间
S就等于S+A
N等于N+1
之后写在模块中，再乘以7倍的数(7 - Len(Str$(s)))); s; 不知道啦
但是开头也许应该：
dim as s,b integer
这样的
并且，中间很多错误
好像中间要加一个结束语句：END SUB
大致是这样的···
Len(Str$(s))这句就是判断数字是一位数还是两位数，这样就可以整齐的排列了。