2012年11月25日 星期日

VB101正副選手考3_趣味的數字問題2

請看第一個式子如下：
當時筆者是將上式寫在一面黑板上，隨後筆者心血來潮，動手把某些數字擦掉，使其成為下式：
此時筆者身旁剛好有一位數學同好，筆者問他：「數字內應該填什麼呢？」，他頗認真的解了起來，解法很不錯。大概看過他所使用解法後，我也獲得了一些想法。而這件事過了幾天後，筆者也自問：「空格裡面的數字，除了原本等號左邊的132與等號右邊的17寫入可以滿足等式之外，是否還可以填上其他不同的數字呢？」
請將解答輸出於out2.txt，若無其它解，則寫「無」。
張貼者： 於

3 則留言:

  1. 匿名2012年11月25日 下午1:56

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\out.txt" For Output As #1
    For i = 100 To 999
    If Len(i ^ 2) = 5 Then If Right(i ^ 2, 3) = "424" And i <> 132 Then Print #1, i: havedo = True
    Next
    If havedo = False Then Print #1, "無"
    Close #1
    End
    End Sub

    回覆刪除
  2. 匿名2013年12月16日 晚上7:48

    Dim t As Boolean
    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\out.txt" For Output As #2
    For i = 100 To 999
    t = False
    If Val(Right(i ^ 2, 3)) = 424 And Len(i ^ 2) = 5 And i <> 132 Then Print #2, i & " " & i ^ 2: t = True
    Next i
    If t = False Then Print #2, "無"
    Close #2
    End
    End Sub

    回覆刪除
  3. 匿名2017年9月5日 上午9:03

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    FileOpen(2, "out.txt", 2)
    For i = 1 To 99
    Dim n As String = CStr(i) & "424"
    If Val(n) ^ 0.5 Mod 1 = 0 Then
    PrintLine(2, StrDup(3 - CStr(Val(n) ^ 0.5).Length, "0") & Val(n) ^ 0.5)
    End If
    Next
    End
    End Sub

    回覆刪除

訂閱： 張貼留言 (Atom)