UC知道vb编程求助
来源：百度知道 编辑：UC知道 时间：2024/05/21 18:53:42
编译函数过程IsH（n），对于已知正整数n，判断该书是否是回文数，函数的返回值类型为布尔型，主调程序每输入一个数，调用IsH函数过程，然后在图形框显示输入的数，对于是回文数显示“*”
编一函数过程IsZ(n),对于已知正整数N，判断该书是否是质数，函数的返回值类型为布尔型。主调程序每输入一个数，调用IsZ函数过程，然后在图形框显示输入的数，对于是指数显示是“*”。
请问大家这两道道题怎么做啊！完全没有思路哦！都不懂
编一函数过程IsZ(n),对于已知正整数N，判断该书是否是质数，函数的返回值类型为布尔型。主调程序每输入一个数，调用IsZ函数过程，然后在图形框显示输入的数，对于是指数显示是“*”。
请问大家这两道道题怎么做啊！完全没有思路哦！都不懂
Function IsH(n As Long) As Boolean
IsH = False
If StrReverse(CStr(n)) = CStr(n) Then IsH = True
If n < 10 Then IsH = False
End Function
Function IsZ(n As Long) As Boolean
IsZ = True
Dim i%
For i = 2 To Sqr(n)
If n Mod i = 0 Then
IsZ = False
Exit For
End If
Next
If n = 0 Or n = 1 Then IsZ = False
End Function
Private Sub Command1_Click()
Dim n As Long
n = Val(InputBox("请输入一个正整数!!"))
Picture1.Print n;
Picture1.Print IIf(IsH(n), "*", "")
End Sub
Private Sub Command2_Click()
Dim n As Long
n = Val(InputBox("请输入一个正整数!!"))
Picture1.Print n;
Picture1.Print IIf(IsZ(n), "*", "")
End Sub