VB判断是否为素数

sum = sum + I ‘能被整除，说明是因子，并求和
s = s + Str(i) + “+” ‘是因子，连接成字符串形式，例
6=1+2+……
End If
Next i
If 条件 Then
‘如果因子之和=这个数，说明是完数
s=left(s,len(s)-1)
‘将s字符串的最后一个”+”去掉
输出s
‘是完数输出
Elseif cj>70 then Text2=“D”
Elseif cj<80 then Text2=“C”
Elseif cj<90 then Text2=“B”
Else Text2=“A”
endif
5-1-1
Private Sub Form_Click()
Dim i%, j%, k%
For i = 1 To 9
s2 = ……
‘ 注意s2=s + s2 和s2=s2+s有何区别？
End If
Next i
Text2 = ……
End Sub ‘如果循环改成For i = Len(s1) to 1 setp -1该如何编程？
5-6
Private Sub Command1_Click()
Dim i%, j%, sum!, sub1!
在标签里输出多行值：Label1.Caption = ""
For i = 1 To 3
Label1.Caption = Label1.Caption & Str(i) & vbCrLf
Next i 在文本框里输出多行值：’参见P116例4-21（需将文本框的
MultiLine属性设为True，将ScrollBars属性设为2） For……
If Not IsNumeric(Text1) Then ‘判断Text1是否是数值型数据（if 块开始） MsgBox “error1” : Text1.Text = “” : Text1.SetFocus
‘条件满足，出错信息，清空文本框并得到焦点
ElseIf y < 1000 Or y > 2010 Then ‘判断text1里的内容是否满足数 据要求。这是多分支语句
5-4
Private Sub Form_Click()
Dim k As Integer, sum%, n%
n = Val(Text1.Text)
Do While sum < n sum = ……‘sum变量用来存放+2*2+3*3+……的和 k = …… ‘K值+1，实现由1变到2，……变到k Loop Print k – 1 ‘跳出循环体后K值减1，因为在循环体内 K多累加一次
End Sub
5-5
Private Sub Command1_Click()
Dim s1 As String, s2 As String, s As String
Dim i As Integer
s1 = Text1
For i = 1 To Len(s1)
s = ……
‘在s1中依次取第i个字符
If s >= "A" And s <= "Z" Then
Next i ‘注意：next i、next j、next k位置不能写反（嵌套，看教材P368，5. 循环嵌套时，内外循环交叉，或内外循环使用了同名循环控制变量）
End Sub
5-1-2
Private Sub Form_Click()
Dim i%, a%, b%, c%
For i = 100 To 999 ‘i控制一个三位数
For n= 1 To 1000
‘ 求1000内的完数，所以循环从1到1000
sum = 0
‘循环结束后将上一次的因子之和清零
s=str(n)+”=”
‘给s变量赋初值，例6=
For i =1 To CInt(n/ 2)
If n Mod i= 0 Then ‘判断1000之内的数是否能被它的一半的
数整除
Text1.text=text1.text & 表达式 & vbCrlf next…… 在窗体里输出多行值：
For…… Form1.Print 表达式 ‘注意表达式后无“；”或“，”
next…… 或多个 Form1.Print 表达式 在图像框里输出多行值：
For…… Picture1.Print 表达式 ‘注意表达式后无“；”或“，”
End Sub
If cj>=90 then score=“A”
Elseif cj>=80 then score=“B”
Elseif cj>=70 then score=“C”
Elseif cj>=60 then score=“D”
Else score=“E”
Endif text2=score
If cj<60 then Text2=“E”
next…… 或多个Picture1.Print 表达式
本章节及以前需要记忆的程序
1.P100数据校验例题（keypress事件过程和click 事件过程的代码）
2.P109例4-13 用辗转相除法求最大公约数 （背）
3.P114例4-18 求近似值的算法 4.P115例4-19 判断素数（背）
‘控制百位数 百位数从1开始
For j=0 to 9
‘控制十位数 十位数从0开始
For k=0 to 9 ‘控制个位数 个位数从0开始
If 条件 then
Print 表达式
End If
‘endif要放在next k里面（嵌套，看教
材P368，6.循环结构与其他控制结构间相互交叉）
Next k
Next j
2. 做循环题目时，设计好界面和输入完代码时，一 定要先保存，后运行，防止死循环，处理不当需 重新设计界面和输入代码。
3. 出现死循环后，同时按下Ctrl+Break键终止循环。 4. 当循环终值已知时，即可用For循环，也可用Do
循环，但终值未知时，一定用Do循环。 5. 看教材P367，3.For循环语句使用问题，初值、终
值、步长在循环体内发生变化，不会影响程序的 执行次数；但控制变量在循环体内重新赋值，循 环次数有可能发生变化。 6. 关于二维图形输出问题，看教材P369，7. 关于二 维图形输出问题 7. 图像框输出时，使用Picture1.Print 表达式， Picture1是图像对象名称，Print是方法。
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
是回车的Ascii码值
‘程序的第一句一定是它，13
If Not IsNumeric(text1.text) Then Msgbox “数据非法，重输”
Text1.text=””
If a = 0 And b = 0 Then MsgBox "方程无意义"
ElseIf a = 0 And b <> 0 Then
Text4 = Str(-c / b) : Text5 = Str(-c / b)
Else If b ^ 2 - 4 * a * c > 0 Then
'有两个实根
……
ElseIf b ^ 2 - 4 * a * c = 0 Then '有两个相等的根
Else
……
End If 判断季度(用If或用select case) 判断天数(用If或用select case)28天和29天放在这里判断
endif
End if
’（if块结束）‘注意红色文字的位置。
方程三个系数a、b、c是否为数值型数据分别在三个文 本框的KeyPress事件里编写，参考教材P100.
Text1.SetFocus ‘数据错误，第一个文本框得到焦点
Else
Text2.SetFocus ‘数据正确，第二个文本框得到焦点
Endif
Endif
End sub
Private Sub Command1_Click()
a = Val(Text1) : b = Val(Text2) : c = Val(Text3)
For i = 1 To 50
For j = 1 To 50
sum = Sqr(i + j)
sub1 = Sqr(Abs(i - j))
‘建议写成此式，加
Abs（）函数，保证开方>0
If 条件 Then
‘这里的条件最好再并上
i<j
输出
End If
Next j
Next i
End Sub
1. 常见错误及难点分析
MsgBox “error1” ……
Else
‘条件不满足（Text1为数值型数据的情况）
if Not IsNumeric(text2) then ‘判断Text2是否是数值型数据
（参考text1的判方法）
……
else ‘下面判断是否为闰年
If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then Text3.text=”闰年”
……
Else
'b ^ 2 - 4 * a * c <0 有虚根
Text4 = Format(-b / (2 * a), "00.00") & "+" & _Format(Sqr(Abs(b ^ 2 -4 * a * c)) / (2 * a), "00.00") & "i"