【第三个更新版本】[windows系列]叙拉古猜想验证v1.2 SP2

Nero

程序 程序名称 XULAGU__Win32 平台 Windows XP 或以上版本 系统/软件要求 安装Microsoft .NET Framework 3.5 或以上版本 版本号 1.2.1.0    （1.2 SP2） 类型 数学 作者 991es82es 大小(K) 17.2 更新日期 2010-03-06 描述 这是一个windows验证叙拉古猜想的程序。成功了后输出提示。 已知缺陷 需要安装Microsoft .NET Framework 3.5 或以上版本 评分 - 源代码 不包含

v1.2更新：

1、增加错误处理
2、美化输入体验
3、更正了版本信息错误的BUG
4、不再需要安装

===========================
v1.2 SP1更新：
增强了错误处理
进一步加强用户体验
===========================
v1.2 SP2更新：
美化界面，界面更加友善
增加提示框；增加验证次数显示框
进一步加大了验证数字的范围（64位整数）

Nero

附上源代码【VB.NET  2008】

1. Imports System.Math
   
2. 
   
3. Public Class Form1
   
4. 
   
5. Private Sub form1_closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
   
6. Timer2.Enabled = True
   
7. e.Cancel = True
   
8. End Sub
   
9. 
   
10. 
    
11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
12. Me.Opacity = 0
    
13. Timer1.Enabled = True
    
14. End Sub
    
15. 
    
16. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
17. Me.Opacity += 1 / 50
    
18. If Me.Opacity = 1 Then Timer1.Enabled = False
    
19. End Sub
    
20. 
    
21. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    
22. Me.Opacity -= 1 / 50
    
23. If Me.Opacity = 0 Then End
    
24. End Sub
    
25. 
    
26. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
27. Dim result As Long, n As Integer = 0, send As Long
    
28. Dim 数字类型 As String
    
29. Try
    
30. result = Convert.ToInt32(TextBox1.Text)
    
31. Catch
    
32. End Try
    
33. If result <> 0 Then
    
34. TextBox2.Text = "开始验证" & vbCrLf & "初始数据 = " & result
    
35. If result <> 1 Then
    
36. Do While result <> 1
    
37. send = result
    
38. If result Mod 2 = 1 Then
    
39. result = result * 3 + 1
    
40. 数字类型 = "奇数"
    
41. Else
    
42. result = result / 2
    
43. 数字类型 = "偶数"
    
44. End If
    
45. n += 1
    
46. TextBox2.Text += vbCrLf & "进行第 " & Convert.ToString(n) & " 次运算" & vbCrLf & "数字" & Convert.ToString(send) & "为" & 数字类型 & vbCrLf & "进行运算："
    
47. If 数字类型 = "奇数" Then
    
48. TextBox2.Text += Convert.ToString(send) & " * 3 + 1 = " & Convert.ToString(result)
    
49. Else
    
50. TextBox2.Text += Convert.ToString(send) & " / 2 = " & Convert.ToString(result)
    
51. End If
    
52. Loop
    
53. Else
    
54. TextBox2.Text += "result = 1"
    
55. End If
    
56. TextBox2.Text += vbCrLf + "验证完毕！"
    
57. Else
    
58. MsgBox("输入数据有误!", 128, "错误")
    
59. End If
    
60. End Sub
    
61. 
    
62. 
    
63. Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
    
64. TextBox1.Text = ""
    
65. TextBox1.ForeColor = Color.Black
    
66. End Sub
    
67. End Class

复制代码

Nero

嗯嗯，代码没有出现“不良信息”“违规词语”“**”的情况，不错

yzhang37

我看不懂VB.NET，只会用Visual Basic 6.0

yzhang37

输入-1，结果死机了

yzhang37

还是我这个好
【程序】[windows系列]叙拉古猜想验证(Visual Basic 6.0版本)]

Nero

已经修正几乎全部错误了

Nero

再次更新，近乎完美了，下周发布final版本

[Boeing 617]

还是我的那个最好!

imath

?->x
lbl 0
if x=1
then goto 1
ifend
if int x/2不等于x/2
then (x+1)/2 -> x
goto 0
ifend
if int x/2 =x/2
then x/2 -> x
goto 0
ifend
lbl 1
"x=1" △

大概就是这种代码，我用电脑打的，绝对是原创。

yzhang37

很好