大家看看这个简单的程序错哪了？

显示全部楼层 · 2012-12-21 17:44:57

你的代码逻辑并非判断是否素数，而是判断a除以b是否余0的判断，也就是说你的代码其实只是msgbox弹出判断素数的中间结果，要实现判断素数的逻辑可以如下修改：Private Sub Command1_Click()Dim a As Integer, b As IntegerDim isSushu As BooleanisSushu=Truea = Text1.TextFor b = 2 To a - 1If a Mod b = 0 ThenisSushu=Falseexit forEnd IfNext b If isSushu=False thenmsgbox "bushi"elsems...

千问 · 2012-12-21 17:44:57

别听楼上胡说误人子弟啊If a Mod b = 0 Then 这种写法是没有问题的，这是vb的用法程序没有问题，运行结果也没有问题a = Text1.TextFor b = 2 To a - 1
If a Mod b = 0 Then
MsgBox "bushi"
Else
...

千问 · 2012-12-21 17:44:57

dim声明方式？php还是？If a Mod b = 0 Then明显这句话有问题这种写法是赋值不是判断...

千问 · 2012-12-21 17:44:57

If a Mod b = 0 Then 这里是不是要用 == 你写成赋值号了? ..VB的语法不太懂我觉得应该是这样 ..赋值语句的话默认为真 .....

大家看看 这个简单的程序错哪了？

大家看看这个简单的程序错哪了？