vb代码求注释呀,有个地方看不明白,求大神指点

Private Sub Command1_Click()
Dim a, b, c, d, e, f, g As Integer
For a = 51 To 100
For b = 2 To a - 1
If a Mod b = 0 Then
Exit For
End If
Next b
If a = b Then
Print a
End If
Next a
End Sub

就是一点那个东西就自动生成50到100的素数。倒数第五行的那个a=b求解释。求详细解释,因为我是个小白,我想了好长时间也想不通啊。。。

素数:除了1和它本身,不能被任何数整除的数。
For b = 2 To a - 1
If a Mod b = 0 Then
Exit For
End If
Next b
这段代码,从2到a-1依次与a进行取余运算,只有当这所有取余结果都不为零(即不能整除)时,可判断a为素数。
而这时,b刚好和a的值相等。 如果中途有任何一个数取余为零,立即中止判断(根据定义,只要有一个数能被整除,它就不是素数,没有必要再判断下去),这时退出循环,必然会使得b小于a,
温馨提示:内容为网友见解,仅供参考
第1个回答  2012-06-06
Dim a, b, c, d, e, f, g As Integer 改为
Dim aAs Integer, bAs Integer, cAs Integer, dAs Integer, eAs Integer, fAs Integer, g As Integer
最开始的申明如果不改的话,那么就只有 g 是整型 ,其它是变型..

a=b :a是51-100 中的任意数...b 是2-99的素数,为什么说素数,因为
For b = 2 To a - 1
If a Mod b = 0 Then
Exit For
End If
Next b
这里就是求素数的方法,,这里得出的数都是素数..
a=b就说明当b中有a那么就写出工,,那么a也自然是素数了..
第2个回答  2012-06-05
if a=b 就说明 a 是一个素数,因为之前b从2到a-1都没有被a整除直到a=b,这种情况说明此时a为素数。

vb代码求注释呀,有个地方看不明白,求大神指点
For b = 2 To a - 1 If a Mod b = 0 Then Exit For End If Next b 这段代码,从2到a-1依次与a进行取余运算,只有当这所有取余结果都不为零(即不能整除)时,可判断a为素数。而这时,b刚好和a的值相等。 如果中途有任何一个数取余为零,立即中止判断(根据定义,只要有一个数能...

VB代码看不明白,新手求注释。
在VB中,对于对象的属性的设置(修改),采用如下的格式:对象名.对象属性 = 属性值 你的这段代码,有一个特点就是都是设置(修改)控件对象的文本的一些修饰属性:FontBold --- 文字的粗体属性 FontItalic --- 文字的倾斜属性 FontUnderline --- 文字的下划线属性 这些属性的属性值都采用逻辑(布...

vb中关于msflexgrid控件显示查找到的数据库内容的问题,求大神指点
1、就是你每次查找时 修改sql语句的条件,比如你之前的条件是 ".. where errCode = 5"--这里是查询1条记录 你后面重新查找时就将 条件改为 ".. where errCode in (5,6,7)"--这样就可以查出多条记录 2、利用ADO对象操作数据库(具体怎么操作,你可以找些资料,有问题到时候再分析)这样你每次...

vb小白求解释一段代码 各位高人求指教!!!
1首先 介绍一下FindMin 函数 参数是一个整形数组 Start = LBound 表示数组的下界 Finish = UBound 表示数组的上界 这两个主要是做循环用 Min = a 是初始化Min变量为数组第一个元素 For i = Start To Finish 'If a(i) < Min Then Min = a(i)Next i 这个代表遍历数组a 每一次循环 ...

不知道这个错在哪?vb找鞍点。求大神指点。 另外求下标越界的各种解决...
你把代码贴上来,才方便查。for j=2 to 5 的上一行,应该是 vpoint = 1

Vb问题 求大神指点
Hide 是隐藏窗体 6、D 身份证 6位地区码+8位出生日期+3位流水+1位校验码 ①身份证位数比较长 ②校验码可能出现X 8、A ①变量名不能包含+ - * \/ !@ # ¥ ?小数点 等字符,且长度不能超过255 所以 B 是错误的 ②变量必须是以字母、汉字开头并且以字母、汉字、数字、下划线组成的字符串...

VB 求大神指点,怎么才能让文本框1和2做加法乘除法,分别在文本框3456中...
'Command1是“确定”按钮 Private Sub Command1_Click()Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text))Text4.Text = Str(Val(Text1.Text) - Val(Text2.Text))Text5.Text = Str(Val(Text1.Text) * Val(Text2.Text))If Val(Text2.Text) <> 0 Then Text6.Text = Str(Val...

VB或语句的写法,或者、或者条件的。求大神指导。
<> "" Then 或者 If Dir(xt & "\\abc\\abc.exe") <> "" Or Dir(xt & "\\WINDOWS\\123\\nul") <> "" Then 意思就是你得让VB知道123是文件夹名而不是文件名!否则的话它按文件名去找123自然找不到!我写的第二种方法是个偏门方法,但也很好用,你不用追究为什么,能用就行。

...子字符串在主字符串出现的所有位置。求大神指点
假如为‘’cabbage‘’ 和‘’bag‘’ 用instr(cabbage,bag)可显示结果为4。。。

VB数据库,对两个数据库中的两个字段求乘积!坐等!
1. ACCESS表建立在意个表数据库就行了 2. 建立表的时候金额数据类型的就设置默认值是0就好了,是空值不方便计算 如果你 一定要那么建立,办法肯定是有的,也不是很难。给两个思路:方法一 你上面ADO代码不成问题就直接改一句SQL语句就好了(假如你的连接字符串是连接projectinfo.mdb的)Dim sql...

相似回答