一早看到這個題目,嗯....有趣..... 正好為混沌的腦袋激盪一下! 花了2分鐘寫了一支程式 電腦算了5分鐘 結果答案是: 41268-7935=33333 41286-7953=33333 以下是程式碼 --------------------------------------------------------- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Clear() Dim a As Int32 = 0 Dim b As Int32 = 1000 For i As Int32 = 34333 To 99999 Application.DoEvents() Me.Text = String.Format("{0}", i) For j As Int32 = 1000 To 9999 If checkvalue(i, j) Then a = i - j If a = 33333 Then ListBox1.Items.Add(String.Format("{0} - {1} = {2} ", i, j, a)) End If End If Next Next End Sub Private Function checkvalue(ByVal x As Int32, ByVal y As Int32) As Boolean Dim a As String = x.ToString + y.ToString If a.IndexOf("0") < 0 Then For i As Integer = 1 To 9 If a.IndexOf(i.ToString) < 0 Then Return False Exit For End If Next Return True Else Return False End If End Function ------------------------------------------------------------------
位訪客
一早看到這個題目,嗯....有趣.....
回覆刪除正好為混沌的腦袋激盪一下!
花了2分鐘寫了一支程式
電腦算了5分鐘
結果答案是:
41268-7935=33333
41286-7953=33333
以下是程式碼
---------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
Dim a As Int32 = 0
Dim b As Int32 = 1000
For i As Int32 = 34333 To 99999
Application.DoEvents()
Me.Text = String.Format("{0}", i)
For j As Int32 = 1000 To 9999
If checkvalue(i, j) Then
a = i - j
If a = 33333 Then
ListBox1.Items.Add(String.Format("{0} - {1} = {2} ", i, j, a))
End If
End If
Next
Next
End Sub
Private Function checkvalue(ByVal x As Int32, ByVal y As Int32) As Boolean
Dim a As String = x.ToString + y.ToString
If a.IndexOf("0") < 0 Then
For i As Integer = 1 To 9
If a.IndexOf(i.ToString) < 0 Then
Return False
Exit For
End If
Next
Return True
Else
Return False
End If
End Function
------------------------------------------------------------------
[版主回覆09/05/2009 00:49:02]哇哇哇.....
雖然是程式算的..
不過程式卻是你花時間寫的
好啦...
算你過關唷...