vb for 多重循环!解说下面的代码

Private Sub Form_Click()
Dim b As Integer
Dim k As Integer
Dim a As Integer
Dim v As Boolean

For b = 100 To 300
For a = 2 To Int(Sqr(b))
If b Mod a <> 0 Then
v = True
Else
v = False
Exit For

End If
Next a

If v = True Then
If k Mod 5 = 0 Then Print 'mod函数: 就是整除的意思
Print b,
k = k + 1
End If
Next b
Print
Print "您循环的个数是" & k

End Sub
问题1 For a = 2 To Int(Sqr(b)) '其中的Int(Sqr(b)) 是怎么回事,我知道int的意思?
问题2 If b Mod a <> 0 Then '这里是不是就是 假如B整除A不等于0的意思?我不明白的是 mod 是怎么回事?
问题3 Dim v As Boolean 这个变量是怎么回事 什么叫做标志变量?

1、sqr(b)函数返回的是b的正平方根。由于此循环是为确定b是否存在因子,而因子是成对的(例如10=2x5),所以既然试过了小的那个(2)就不用再试大的那个(5)了,因此只试到不大于10的平方根那个整数就可以了,为的是减少内层循环次数以加快速度。
2、mod称作取模运算,b mod a 的结果是用b除以a的余数,if b mod a
<> 0 then 意思是当b不能被a整除时(余数非0)。
3、dim v as boolean 声明了一个二值型变量,其取值可为真(true)或者假(false)。在此程序中v用来记录b是否是合数,v为true表示b为合数,v为false表示b为素数,起的是个标志的作用,因此称为标志变量。
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-08-31
问题1: sqr(b)是求平方根函数, 如sqr(100)=10
问题2: MOD 是求余数的意思,如 5 mod 2 = 1,如果它=0就意味着整除了
问题3: boolean 是一个逻辑变量,它的值只有true 或者 false ,可以作为判断时的一个标志,所以可以叫做标志变量

求解VB的for,do,多重循环结构题
编写程序以解决VB的for,do,多重循环结构问题。首先定义一个函数,其操作步骤如下:1. 使用for循环从1到9,打印两个空格加上星号,星号的数量等于当前循环的索引值。2. 使用do循环检查一个数是否为0,若非0则将当前数添加到列表中。3. 创建一个函数用于判断一个数是否为素数。从2循环到这个数的平...

vb for循环的详细分析,解说下面代码的循环顺序,越详细越好
它是这样循环的:a=1 -> b=3 -> b=4 -> a=2 -> b=3 -> b=4 二级for循环时,先运行第一级的第一种情况,然后运行第二级循环,第二级循环完后,再运行第一级的第二种情况,然后再运行第二级循环,第二级循环完后,继续看第一级的情况,直至第一级情况循环完毕 ...

高手讲解下vb里FOR循环的双重循环是怎么回事儿
一是:一旦进入内循环,要把内循环做完才能持行外循环代码,除非你是用exit for 强制退出 二是:外循环做一次,内循环要做完,强制性退出的除外 for i=1 to 10 for j=1 to 10 ?i*j next next 内循环执行100次

关于VB中for循环的问题
代码中有三层FOR循环,其次数并非简单的累乘。我们逐层分析,以i为循环变量时,每次循环的次数如下:当i为1时,j从1循环至1,k从1循环至3,此层循环3次。当i为2时,j从1循环至2,k从1循环至3,以及k从2循环至3,此层循环5次。当i为3时,j从1循环至3,k从1循环至3,k从2循环至3,以...

VB FOR 循环
FOR i=1TO4 X=4 FOR j=1TO2 X=X+6 next next 每次执行完了 j=1 to 2 循环后,都会将 x 还原为 4 所以 i=1 to 4 的前3个循环没有看的必要了 最后一次时 i=4 x=4 ,for j=1 to 2 所以 x=x+6 执行2次,那么 x=4+2*6=16 所以最终结果为 x=16 ...

VB的FOR循环嵌套 请各位帮个忙 解释一下运算过程
For k = 1 To 2'k的初始值为1 '从这句直到next k之间的语句执行2遍,每次k的值增加1 x = x + 6'设置x为x+6 Next k Next j Next i Print x '输出x 这个例子可以帮助理解for dim a as long,b as long for a=1 to 5 for b=0 to 2 msgbox "a="& a &" ; b="& b...

VB的for循环该怎么写?
1、首先,我们输入For关键字。2、然后我们定义一个循环变量。3、然后我们写入【1 to 10】。4、然后我峨眉呢输入【Next i】结束。5、然后我们就可以在这里输入每次执行的语句。6、最后运行就可以看到这个结果了。

VB代码如下,求循环次数,求解!
For第1次循环:Do第1次循环:x=x-2=10-2=8 y=y+2=0+2=2 Do第2次循环:x=x-2=8-2=6 y=y+2=2+2=4 Do第3次循环:x=x-2=6-2=4 y=y+2=4+2=6 因为y>5,退出Do循环 For第2次循环:Do第1次循环:x=x-2=4-2=2 y=y+2=6+2=8 因为y>5,退出Do循环 For第3次...

VB 嵌套For循环的问题
For k1 = 0 To 4 Y = 20 '因为下面存在Y = 10,所以这一句是没有作用的 For k2 = 0 To 3 Y = 10 'Y = 10 表示Y重新赋值,所以无论For k2 = 0 To 3循环多少次Y结果都是一样的 For k3 = 0 To 2 Y = Y + 10 '因为Y = 10 , For k3 = 0 To 2 表示循环...

求解VB的for,do,多重循环结构题
Print Next i End Sub Private Sub Command1_Click()i = 1 Do While i <= 300 If i Mod 7 <> 0 Then List1.AddItem i Loop End Sub Private Sub Command1_Click()x = Val(Text1.Text)yes = True For i = 2 To Sqr(x)If x Mod i = 0 Then yes = False: Exit For Next ...

相似回答
大家正在搜