多语言展示
当前在线:713今日阅读:138今日分享:33

判断一个数是否为素数的vb代码实现

在数学上我们经常会遇到判断一个数是否为素数的情况,那么如何利用vb代码进行实现呢?现在就分享具体的过程和截图,供大家参考。
工具/原料

vb6

方法/步骤
1

首先启动vb6,新建一个标准exe文件,调整窗体的大小。

2

选择窗体,设置属性中font属性值,字体为田英章毛笔楷书,字号为一号。

3

双击窗体进行代码编写区域,设置过程为click,对象为窗体form1.

4

接着输入代码内容:代码如下Dim s As Integern = InputBox('请输入n的值', '提示', vbYesNo)For i = 1 To n - 1If (i Mod 2 = 0) Thens = s + 1End IfNext iIf (s > 0) ThenPrint n & '不是素数'ElsePrint n & '是素数'End If

5

点击启动按钮进行编译调试,根据错误提示修改,直至无误为止。

6

点击窗体会弹出提示对话框,输入要判断素数的数值,点击确定按钮,这个时候自动进行判断并给出结果。

7

执行文件-保存工程命令,按照提示依次保存窗体和工程即可。

推荐信息