华硕现在主要有4大系列， PRIME大师系列是其中最入门的一个系列，其他的是ROG玩家国度系列，然后是TUF电竞特工系列和ROG STRIX猛禽系列。这四个系列定位各不一样，ROG玩家国度系列定位的旗舰高端玩家，对拓展和超频有着极高在追求的用户帮助更大。TUF系列主打的是极致稳定，用料和设计都是为了稳定，装甲厚实，五年保修使其最大的亮点。而ROG STRIX猛禽系列是面对年轻专业电竞玩家，个性化多一些，其主打是高性能炫彩光效，当然大家对这个系列的显卡可能更熟悉一些。在VB里是素数的意思，在判断一个数是否为素数的时候会用到~ '定义一个判断x是否为素数的函数，判断x是否为素数的方法是：如果x不能被从2到Int(Sqr(x))的数整除，那么这个数就是素数'这里的Prime是一个布尔型变量，只不过没有定义。可以加个Dim prime As BooleanPublic Function prime(x As Integer)k = Int(Sqr(x) + 0.5)For i = 2 To k If x Mod i = 0 Then '如果x能被这其中的一个数整除,x就不是素数prime = False '所以Prime为假Exit Function '如果一个数不是素数就退出Function过程 End IfNextprime = ture '如果x都不能被被从2到Int(Sqr(x))的数整除，那么这个数就是素数，即Prime为真 End Function 问题是：1、函数名已经为Prime了，变量名怎么还可以是Prime？这样引用函数的时候会出错的，建议把Prime改为IsPrime 2、这个函数不完善，比如2是素数，但引用这个函数判断2的结果是2不是一个素数...给你一个能正确判断一个数是否为素数的代码。Private Sub Command1_Click() Dim n%, IsPrime As Boolean IsPrime = True n = Val(InputBox("请输入n的值")) If n = 1 Or (n <>2 And n Mod 2 = 0) Then '1和偶数（除2以外）都不是素数 IsPrime = False ElseIf n = 2 Then '偶数的特例：2是素数 IsPrime = True Else '判断奇数是不是素数 k = 3 Do Until k >Sqr(n) Or Not IsPrime If n Mod k = 0 Then IsPrime = False Else k = k + 2 End If Loop End If Print n &IIf(IsPrime, "是素数", "不是素数")End Sub在VB里是素数的意思，在判断一个数是否为素数的时候会用到~
'定义一个判断x是否为素数的函数，判断x是否为素数的方法是：如果x不能被从2到Int(Sqr(x))的数整除，那么这个数就是素数
'这里的Prime是一个布尔型变量，只不过没有定义。可以加个Dim prime As Boolean
Public Function prime(x As Integer)
k = Int(Sqr(x) + 0.5)
For i = 2 To k
If x Mod i = 0 Then '如果x能被这其中的一个数整除,x就不是素数
prime = False '所以Prime为假
Exit Function '如果一个数不是素数就退出Function过程
End If
Next
prime = ture '如果x都不能被被从2到Int(Sqr(x))的数整除，那么这个数就是素数，即Prime为真
End Function
问题是：
1、函数名已经为Prime了，变量名怎么还可以是Prime？这样引用函数的时候会出错的，建议把Prime改为IsPrime
2、这个函数不完善，比如2是素数，但引用这个函数判断2的结果是2不是一个素数...给你一个能正确判断一个数是否为素数的代码。
Private Sub Command1_Click()
Dim n%, IsPrime As Boolean
IsPrime = True
n = Val(InputBox("请输入n的值"))
If n = 1 Or (n <>2 And n Mod 2 = 0) Then '1和偶数（除2以外）都不是素数
IsPrime = False
ElseIf n = 2 Then '偶数的特例：2是素数
IsPrime = True
Else '判断奇数是不是素数
k = 3
Do Until k >Sqr(n) Or Not IsPrime
If n Mod k = 0 Then
IsPrime = False
Else
k = k + 2
End If
Loop
End If
Print n &IIf(IsPrime, "是素数", "不是素数")
End Sub
