计算机作业

今天上机我做了一个有关数字判断的问题，就是判断哪个数是不是素数。首先，要先绘制一个Lable，并且把它的Caption改成请您属兔一个正整数，我来帮你分析它是不是一个素数。然后插入一个空白的Text，并且清空里面的内容。载加上一个Lable。还有一个Command.

代码是：

Dim  M  As Integer

 Dim  N  As Integer

 Dim  flag As Boolean

M=Int (Val( Text1.text))

N =M-1

Flag=False

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

还有一种是通过在文本里面显现答案。就是要插入一个Printcaption.至于代码，插入即可，并且屏蔽掉没有用的。今天的课程让我知道了原来自己做程序是那么有趣。。。