11问答网
所有问题
当前搜索:
vb求1到100之间的素数
...
vb
,在这里请教一个用 循环做的
求1到100
内
的素数
和,我不理解算法...
答:
素数
也就是大于1且只有1和它本身能整除的整数。Private Sub Command1_Click()Dim i As Integer, j As Integer Dim sum As Integer, f As Boolean For i = 2 To
100
For j = 2 To i - 1 If i Mod j = 0 And i <> 2 Then f = True Exit For End If Next If Not f Then ...
VB 求
数组里
的素数
答:
= 0 Then yes = False: Exit For Next i If yes Then num = num +
1
b(num) = a(k) '放入B数组 ---B数组也会下标越界的 End If Next k Print: Print "其中
的素数
是:"For i = 1 To num Print b(i);If i Mod 10 = 0 Then Print Next i End Sub ...
vb求1到
300
之间的素数
?
答:
Dim n As Integer, sum As Integer, j As Integer TextBox
1
.Text = ""TextBox1.Text = TextBox1.Text & "所求
的素数
为:" & vbCrLf For i = 2 To 300 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j > i - 1 Then n = n + 1 sum = sum + i...
新概念
VB
中
100
内所有
质数
两种方法
答:
Private Sub Form_Load()Show '第
一
种方法,因为1既不是
素数
也不是合数,所以不能放在里 Dim s%(1 To 99), f As Boolean, k For i = 2 To
100
f = False For j = 2 To Sqr(i)If i Mod j = 0 Then f = True: Exit For Next j If Not f Then If k Mod 10 = 0 Then ...
...
一
对孪生
素数
。编写程序找出1~
100之间
所有的孪生素数。
答:
Option ExplicitPrivate Sub Command1_Click()Dim i As Long For i = 3 To 100 Step 2 '判断3-
100的
数是否为
素数
,因双数肯定不是素数,故步长为2 If panduan(i) Then '如果当前i为素数 If panduan(i + 2) Then '判断比i大2的数是否为素数 Print i, i + 2 '输出孪生素...
用
vb求1到100素数
和的代码看不懂?请高手指点,谢谢
答:
x起到了计数器的作用,判断2到i-2之间不能被i整除的数的个数,如果是i-2个就说明2到i-2
之间的
数都不能被i整除,即i是
素数
了。很简单理解的
用
VB
编写一个程序,找出1~1000范围内的所有
素数
,并将这些素数显示在窗体...
答:
正确如下:Private Sub Command
1
_Click()For n = 2 To 1000 For i = 2 To Int(Sqr(n))If n Mod i = 0 Then Exit For End if Next I If i > Int(Sqr(n)) Then Print n;Next n End Sub 说明:1、Next i前一行加 End if是为了与前面的if构成完整的if...end if 语句,从而...
VB
:
求100
以内所有
素数
,输出到窗体上,每行输出5个
答:
check = False '返回false Exit Function '退出本过程 End If Next j check = True '循环结束没有退出过程,说明i不能整除从2到i平方根的所有数,也就是说i是
素数
,返回true End Function Private Sub Command1_Click()Dim k As Integer, n As Integer For k = 1 To
100
If n Mod 5 = 0...
求用
VB
, for next 语句写一个
1到100之间的质数
的和
答:
Private Sub Form_click()Cls Dim sum As Integer Dim n As Integer For I = 1 To
100
If Pd(I) = True Then sum = sum + I n = n + 1 Print I;x = x + 1 If x Mod 10 = 0 Then Print End If Next Print Print "
素数
的和为:" & sum Print "共有" & n & "个"E...
VB
:求出
100
以内所有
素数
的和,并将结果输出到窗体上,并存入所给变量SUM...
答:
Private Sub Command1_Click()Dim i As Integer Dim sum As Integer For i = 1 To
100
If Prime(i) Then sum = sum + i End If Next Print "100以内所有
素数
的和是" & sum End Sub Private Function Prime(ByVal n As Integer) As Boolean Dim i As Integer If n < 2 Then Prime...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
VB在随机数中取素数
实现输出100以内质数的功能
vb求最大值和最小值
vb判断11111是不是素数