杭州交通信息网金胜维:真的没人打下面那个180分的题吗？这里再补200分
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/05 08:12:20
楼上的全注意了，正确答案来了,分数我要了
此代码只需添加两个 command按钮到窗体既可
Private Sub Command1_Click() '求素数
Form1.AutoRedraw = True
Dim a, b As Integer
Dim n As Integer
n = InputBox("请输入一个正整数")
For a = 3 To n
b = 2
Do Until a Mod b = 0
b = b + 1
If b = a Then
Print a & " 是素数"
Exit Do
End If
Loop
Next a
End Sub
Private Sub Command2_Click() '求完全数
Form1.AutoRedraw = True
Dim a, b, c, n As Integer
Dim n As Integer
n = InputBox("请输入一个正整数")
For a = 2 To n
c = 0
For b = 1 To a - 1
If a Mod b = 0 Then
c = c + b
End If
Next
If a = c Then
Print a & " 是完全数"
End If
Next
End Sub
在窗体上放一个textbox名字是txt
放两个按钮，一个名字叫cmd1，另一个cmd2
添加代码
'素数
Private Sub cmd1_Click()
For i = 2 To Int(txt.Text)
For j = 2 To j <= Sqr(i)
If ((i Mod j) = 0) Then
Exit For
End If
Next j
If (j > Sqr(i)) Then Print (i)
Next i
End Sub
'完全数
Private Sub cmd2_Click()
Dim sum As Integer
sum = 1
For i = 2 To Int(txt.Text)
For j = 2 To i / 2
If (i Mod j = 0) Then sum = sum + j
Next
If (sum = i) Then Print (i)
sum = 1
Next
绝对可用，需要的话，我把代码发给你
End Sub
在窗体上放一个textbox名字是txt
放两个按钮，一个名字叫cmd1，另一个cmd2
添加代码
'素数
Private Sub cmd1_Click()
For i = 2 To Int(txt.Text)
For j = 2 To j <= Sqr(i)
If ((i Mod j) = 0) Then
Exit For
End If
Next j
If (j > Sqr(i)) Then Print (i)
Next i
End Sub
'完全数
Private Sub cmd2_Click()
Dim sum As Integer
sum = 1
For i = 2 To Int(txt.Text)
For j = 2 To i / 2
If (i Mod j = 0) Then sum = sum + j
Next
If (sum = i) Then Print (i)
sum = 1
Next
End Sub
在窗体上放一个textbox名字是txt
放两个按钮，一个名字叫cmd1，另一个cmd2
添加代码
'素数
Private Sub cmd1_Click()
For i = 2 To Int(txt.Text)
For j = 2 To j <= Sqr(i)
If ((i Mod j) = 0) Then
Exit For
End If
Next j
If (j > Sqr(i)) Then Print (i)
Next i
End Sub
'完全数
Private Sub cmd2_Click()
Dim sum As Integer
sum = 1
For i = 2 To Int(txt.Text)
For j = 2 To i / 2
If (i Mod j = 0) Then sum = sum + j
Next
If (sum = i) Then Print (i)
sum = 1
Next
绝对可用，需要的话，我把代码发给你
End Sub
在窗体上放一个textbox名字是txt
放两个按钮，一个名字叫cmd1，另一个cmd2
添加代码
'素数
Private Sub cmd1_Click()
For i = 2 To Int(txt.Text)
For j = 2 To j <= Sqr(i)
If ((i Mod j) = 0) Then
Exit For
End If
Next j
If (j > Sqr(i)) Then Print (i)
Next i
End Sub
'完全数
Private Sub cmd2_Click()
Dim sum As Integer
sum = 1
For i = 2 To Int(txt.Text)
For j = 2 To i / 2
If (i Mod j = 0) Then sum = sum + j
Next
If (sum = i) Then Print (i)
sum = 1
Next
绝对可用，需要的话，我把代码发给你
End Sub
选我吧！！！
在窗体上放一个textbox名字是txt
放两个按钮，一个名字叫cmd1，另一个cmd2
添加代码
'素数
Private Sub cmd1_Click()
For i = 2 To Int(txt.Text)
For j = 2 To j <= Sqr(i)
If ((i Mod j) = 0) Then
Exit For
End If
Next j
If (j > Sqr(i)) Then Print (i)
Next i
End Sub
'完全数
Private Sub cmd2_Click()
Dim sum As Integer
sum = 1
For i = 2 To Int(txt.Text)
For j = 2 To i / 2
If (i Mod j = 0) Then sum = sum + j
Next
If (sum = i) Then Print (i)
sum = 1
Next
End Sub
回答者：匿名 1-3 14:01
--------------------------------------------------------------------------------
在窗体上放一个textbox名字是txt
放两个按钮，一个名字叫cmd1，另一个cmd2
添加代码
'素数
Private Sub cmd1_Click()
For i = 2 To Int(txt.Text)
For j = 2 To j <= Sqr(i)
If ((i Mod j) = 0) Then
Exit For
End If
Next j
If (j > Sqr(i)) Then Print (i)
Next i
End Sub
'完全数
Private Sub cmd2_Click()
Dim sum As Integer
sum = 1
For i = 2 To Int(txt.Text)
For j = 2 To i / 2
If (i Mod j = 0) Then sum = sum + j
Next
If (sum = i) Then Print (i)
sum = 1
Next
绝对可用，需要的话，我把代码发给你
End Sub
回答者：wutianyao - 试用期 一级 1-3 14:15
--------------------------------------------------------------------------------
在窗体上放一个textbox名字是txt
放两个按钮，一个名字叫cmd1，另一个cmd2
添加代码
'素数
Private Sub cmd1_Click()
For i = 2 To Int(txt.Text)
For j = 2 To j <= Sqr(i)
If ((i Mod j) = 0) Then
Exit For
End If
Next j
If (j > Sqr(i)) Then Print (i)
Next i
End Sub
'完全数
Private Sub cmd2_Click()
Dim sum As Integer
sum = 1
For i = 2 To Int(txt.Text)
For j = 2 To i / 2
If (i Mod j = 0) Then sum = sum + j
Next
If (sum = i) Then Print (i)
sum = 1
Next
End Sub