高考问答天佑会恶心死人的:vb的问题
来源：百度文库 编辑：高考问答 时间：2024/04/30 04:17:17
option Base 1
Private Sub Form_Click()
Dim A(12) As Integer,V As Variant
Dim I As Integer,Js As Integer
Js=14
For I=1 to 12
A(I)= Js
Js=Js+7
Next I
Js=0
For Each V In A
Js=Js+1
Print V
If Js Mod 6=0 Then Print
Next V
print
End Sub
这段代码是要找出12个能被7整除的两位数，并分两行输出。可是我不太明白，前面已经有过一段关于Js的代码代表被除数，怎么后面又来一个Js=0??这是咋回事阿？？？？
Private Sub Form_Click()
Dim A(12) As Integer,V As Variant
Dim I As Integer,Js As Integer
Js=14
For I=1 to 12
A(I)= Js
Js=Js+7
Next I
Js=0
For Each V In A
Js=Js+1
Print V
If Js Mod 6=0 Then Print
Next V
End Sub
这段代码是要找出12个能被7整除的两位数，并分两行输出。可是我不太明白，前面已经有过一段关于Js的代码代表被除数，怎么后面又来一个Js=0??这是咋回事阿？？？？
事实上经
Js=14
For I=1 to 12
A(I)= Js
Js=Js+7
Next I
循环后,Js = 98,按第二循环是要控制打印到窗体的位置,它是按6个一组空一行规则打印的.假如不将Js的值更改,打印的6个一组规则被打乱.
而且第二循环中Js的值为0,42,84,126等效果一样.