放置一个command1,一个text1,不用再做其它设定,程序会自行设定各个参数,代码如下:
Private Sub Command1_Click()
Dim N As Long, I As Long, J As Long
If IsNumeric(Text1.Text) Then
N = CLng(Text1.Text)
If N Mod 2 = 0 And N >= 6 Then
For I = 2 To N \ 2
If I = 2 Or Pd(I) Then
J = N - I
If Pd(J) Then
Label1.Caption = "结果: " & N & "=" & I & "+" & J & "符合!"
Exit Sub
End If
End If
Next
Label1.Caption = "结果: 不符合!"
Else
Text1.Text = "请输入大于或等于6的偶数!"
End If
Else
Text1.Text = "请输入数字!"
End If
End Sub
Private Sub Form_Click()
Cls
Print "双击退出"
Text1.Visible = True
Label1.Visible = True
Command1.Visible = True
End Sub
Private Sub Form_DblClick()
End
End Sub
Private Sub Form_Load()
Form1.Caption = "哥德巴赫猜想"
Form1.Width = 5000
Form1.Height = 5000
Form1.Show
Form1.AutoRedraw = True
Text1.Text = "在此输入一个大于等于6的偶数"
Text1.ForeColor = &H808080
Text1.Top = 500
Text1.Left = 200
Text1.Width = 3000
Text1.Height = 300
Text1.Visible = False
Label1.Caption = ""
Label1.Top = 1000
Label1.Left = 200
Label1.Width = 3000
Label1.Height = 300
Label1.Visible = False
Command1.Caption = "验证"
Command1.Top = 2000
Command1.Left = 200
Command1.Width = 800
Command1.Height = 300
Command1.Visible = False
Print "1942年德国数学家哥德巴赫给数学家欧拉的一封信中,"
Print "提出了把一个整数表示成两个素数之和的推测,"
Print "即一个充分大的偶数(大于等于6),"
Print "总可以分解为两个素数之和,"
Print "编写Visual Basic程序来验证这一猜想"
Print "单击开始."
End Sub
Private Sub Text1_GotFocus()
Text1.Text = ""
Text1.ForeColor = &H0
Command1.Visible = True
End Sub
Function Pd(a As Long) As Boolean
Dim b As Long
For b = 2 To a - 1
DoEvents
If a Mod b = 0 Then
Pd = False
Exit For
Else
Pd = True
End If
Next
End Function
'已经运行过.
编写VB程序验证歌德巴赫猜想:一个大于等于6的偶数可以表示为两个素数之和.
编写VB程序验证歌德巴赫猜想:一个大于等于6的偶数可以表示为两个素数之和.
其他人气:795 ℃时间:2020-01-04 01:03:40
优质解答
我来回答
类似推荐
猜你喜欢
- 1连词成句Australia,much,know,you,do,how,about
- 2保险丝是用电阻较-----熔点----- 的合金制成的.当电路中有过大的-------时 保险丝产生足够的热量而起到--
- 3灯泡发亮是化学变化还是物理变化
- 4怎么求函数的单调区间 (别用导数)
- 5半径为r的均匀带电球面1,带电量为q1,与其同心的球面2,半径为R,带电量为q2,则两球面间的电势差为
- 6字母a发短音的单词有哪些
- 7已知关于x的方程mx2-(m2+2)x+2m=0. (1)求证:当m取非零实数时,此方程必有实数根; (2)若此方程有两个整数根,求m的值.
- 8破折号的所有作用
- 9一块长方形草坪如果长增加8米或宽增加6米它的面积都比原来增加48平方米这块草坪原来的面积是多少平方米吗
- 10关于交友的英语作文