DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
For c = -273 To 1000000
DoEvents
f = c * 9 / 5 + 32
If c <> 0 Then
ratio = f / c
If ratio = Int(ratio) Then
Text1.Text = Text1.Text & c & Str(f) & Str(ratio) & crlf
End If
End If
Next
Text1.Text = Text1.Text & " done"
End Sub
finds
-40°C = -40°F; multiple is 1
10°C = 50°F; multiple is 5
160°C = 320°F; multiple is 2
Going to a million degrees Celsius was overkill. At 10000°C the ratio of Fahrenheit to Celsius is already 1.8032 and asymptotically approaching 1.8, so no more integral multiples would be possible.
|
|
Posted by Charlie
on 2016-06-21 15:23:03 |
No Subject
