VB学习资料(13)

VB入门必备,初学者也能看懂,这篇主要是VB入门基础,但却对你深入学习理解VB有很大的帮助,10个财富值,你不亏。

r = u Mod v u = v

v = r

Loop Until r = 0

Print "最大公约数："; u

Print "最小公倍数："; m * n / u End Sub 或

r = u Mod v

Do While r<>0

u = v v = r

r = u Mod v

Loop

Print "最大公约数："; v

3．判素数（质数）

【例】判n是否为素数。

Private Sub Command1_Click() Dim n As Integer, i As Integer n = Val(InputBox("输入正整数")) For i = 2 To n - 1

If n Mod i = 0 Then Exit For Next i

If i > n - 1 Then Print n; "是质数" Else

Print n; "不是质数" End If End Sub

例 求100～200之间素数，并写入顺序文件。 Private Sub Command1_Click()

Open “shusu.dat” For Output As #1

For n= 101 To 200 step 2

S=1 ‘是

For i = 2 To Int(Sqr(n))

If n Mod i = 0 Then

S=0 ‘不是 Exit For

End If