关闭

分析是不是素数

80人阅读 评论(0) 收藏 举报

Private Sub Command1_Click()

Dim M As Integer

Dim N As Integer

Dim flag As Boolean

M=Int(Val(Text1.Text))

N=M-1

flog=False   '为true时,表示M可以被比他小的整数整除'

While N>=2

If M Mod N=0 Then

Flag=True

End If

N=N-1

Wend

If flag =True Then

Print   "你是不是素数"

Else Print   "你是素数"

End If

End Sub

     这节课求的是:请你输入一个正整数,我来帮你分析他是不是素数。在前几节课的基础上,这节课设计起来就不是那么难了,而且也有一点理解实验步骤的原因了。但是还是有好多不懂,不过再问了学长、学姐后就清楚了。他们都很尽职,给我讲解的很详细,在听了他们的讲解后一切问题都会幡然醒悟。不过让我自己设计VB程序依然是个严重的问题,这对我来说应该是一个巨大的挑战!不过,我会坚持下去的。

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:4899次
    • 积分:161
    • 等级:
    • 排名:千里之外
    • 原创:14篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章存档