正文
vb.net判断质数个数 vb判断质数程序
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB编程判断质数
楼上回答的不错vb.net判断质数个数，不过没有vb.net判断质数个数你要的180=2^2*2^2*5的输出vb.net判断质数个数，呵呵，这个提示挺有意思的，我没做过，心里有点痒痒。一会我去职称考试，还有半个小时时间，帮你试一试吧，不然我老合计这个。。。
dim iInput as long, iVal as long
dim iPos as long
dim sResult as string, iPower as long
iInput=abs(val(inputbox("请输入一个正整数")))
iVal=iInput
iPos=2
iPower=0
sResult=""
do while iPosiVal or (iPos=iVal and not iInput=iVal)
if iVal Mod iPos=0 then
if iPower=0 then
if sResult"" then sResult=sResult "*"
sResult=sResult iPos
end if
iPower=iPower+1 '记录这是几次方
iVal=iVal\iPos
else
if iPower1 then sResult=sResult "^" cstr(iPower) '1次方以上要记录^n
iPower=0
iPos=iPos+1
end if
loop
if sResult="" then
Picture1.print "这个数是质数"
else
sResult=iInput "=" sResult
if iPower1 then sResult=sResult "^" cstr(iPower)
if iVal1 then sResult=sResult "*" iVal
Picture1.print sResult
end if
'把这些代码粘贴到一个事件里使用，例如一个按钮的Click事件里。
相关问答
Q1: 质数判断函数vb.net
Sub IsPrimenum(byval a As Integer)
Dim b As Integer
For b = 2 To (a - 1)
If a Mod b = 0 Then
MsgBox( "这不是质数")
Else
MsgBox( "这是质数")
End If
Next
End Sub
Q2: 显示100以内所有素数 VB.net语言
‘这个是可以选择范围vb.net判断质数个数的查找
Public Class Form1
'一个大于1vb.net判断质数个数的自然数，除vb.net判断质数个数了1和它本身外，不能被整除以其他自然数（质数），换句话说就是该数除了1和它本身以外不再有其他vb.net判断质数个数的因数
' 章鱼哥 3107073263
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PD As Boolean = True
TextBox1.Clear() '首先清空文本框，这里面将放置符合条件的素数
If NumericUpDown1.Value NumericUpDown2.Value Then '从小到大
For i = NumericUpDown1.Value To NumericUpDown2.Value '循坏判断所有数
For j = 2 To i - 1 '内循环是除了1和它本身的
If i Mod j = 0 Then '判断是否能被除了1和自身以为的 比自身小的数整除
PD = False '如果能被整除，将PD 设置为False
Exit For '退出里层For 循环
Else
PD = True
End If
Next
If PD Then '如果PD为True ，则为素数
TextBox1.Text = i " "
End If
Next
End If
End Sub
End Class
关于vb.net判断质数个数和vb判断质数程序的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
