放置一個(gè)command1,一個(gè)text1,不用再做其它設(shè)定,程序會自行設(shè)定各個(gè)參數(shù),代碼如下：
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 = "結(jié)果: " & N & "=" & I & "+" & J & "符合!"
Exit Sub
End If
End If
Next
Label1.Caption = "結(jié)果: 不符合!"
Else
Text1.Text = "請輸入大于或等于6的偶數(shù)!"
End If
Else
Text1.Text = "請輸入數(shù)字!"
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 = "在此輸入一個(gè)大于等于6的偶數(shù)"
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 = "驗(yàn)證"
Command1.Top = 2000
Command1.Left = 200
Command1.Width = 800
Command1.Height = 300
Command1.Visible = False
Print "1942年德國數(shù)學(xué)家哥德巴赫給數(shù)學(xué)家歐拉的一封信中,"
Print "提出了把一個(gè)整數(shù)表示成兩個(gè)素?cái)?shù)之和的推測,"
Print "即一個(gè)充分大的偶數(shù)（大于等于6）,"
Print "總可以分解為兩個(gè)素?cái)?shù)之和,"
Print "編寫Visual Basic程序來驗(yàn)證這一猜想"
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
'已經(jīng)運(yùn)行過.