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 这个变量是怎么回事 什么叫做标志变量?
求解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 ...