vb题怎么用函数过程做
答案:1 悬赏:60
解决时间 2021-01-28 16:50
- 提问者网友：欲劫无渡
- 2021-01-28 01:29
vb题怎么用函数过程做
最佳答案
- 二级知识专家网友：鱼芗
- 2021-01-28 02:40
Private Sub Command1_Click()
Dim a As Integer
a = Text1
If odd(a) And prime(a) Then
Label1.Caption = a & "既是奇数，又是素数"
End If
End Sub
Private Sub Form_Load()
Text1 = ""
Label1.Caption = ""
End Sub
Function odd(n As Integer)
odd = n Mod 2 = 1
End Function
Function prime(n As Integer) As Boolean
prime = False
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit Function
Next i
prime = n > 1
End Function
Dim a As Integer
a = Text1
If odd(a) And prime(a) Then
Label1.Caption = a & "既是奇数，又是素数"
End If
End Sub
Private Sub Form_Load()
Text1 = ""
Label1.Caption = ""
End Sub
Function odd(n As Integer)
odd = n Mod 2 = 1
End Function
Function prime(n As Integer) As Boolean
prime = False
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit Function
Next i
prime = n > 1
End Function
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯