vb 2345（推广）源代码

1. VERSION 5.00
   
2. Begin VB.Form Form1
   
3. Caption = "2345积分计算"
   
4. ClientHeight = 3765
   
5. ClientLeft = 5400
   
6. ClientTop = 3225
   
7. ClientWidth = 5895
   
8. LinkTopic = "Form1"
   
9. ScaleHeight = 3765
   
10. ScaleWidth = 5895
    
11. Begin VB.CommandButton Command2
    
12. Caption = "原理"
    
13. Height = 735
    
14. Left = 3240
    
15. TabIndex = 4
    
16. Top = 2520
    
17. Width = 1935
    
18. End
    
19. Begin VB.TextBox Text1
    
20. Height = 735
    
21. Left = 1320
    
22. TabIndex = 1
    
23. Text = "请输入人数"
    
24. Top = 240
    
25. Width = 3615
    
26. End
    
27. Begin VB.CommandButton Command1
    
28. Caption = "确定"
    
29. Height = 735
    
30. Left = 360
    
31. TabIndex = 0
    
32. Top = 2520
    
33. Width = 2295
    
34. End
    
35. Begin VB.Label Label2
    
36. Height = 735
    
37. Left = 1320
    
38. TabIndex = 3
    
39. Top = 1320
    
40. Width = 3615
    
41. End
    
42. Begin VB.Label Label1
    
43. Caption = "积分"
    
44. Height = 255
    
45. Left = 360
    
46. TabIndex = 2
    
47. Top = 1560
    
48. Width = 735
    
49. End
    
50. End
    
51. Attribute VB_Name = "Form1"
    
52. Attribute VB_GlobalNameSpace = False
    
53. Attribute VB_Creatable = False
    
54. Attribute VB_PredeclaredId = True
    
55. Attribute VB_Exposed = False
    
56. Dim a, b As Long
    
57. Private Sub Command1_Click()
    
58. On Error GoTo err1:
    
59. a = Val(Text1.Text)
    
60. If a >= 1 And a <= 3 Then
    
61. b = 30 * a
    
62. End If
    
63. If a >= 4 And a <= 500 Then
    
64. b = 60 * a
    
65. End If
    
66. If a >= 501 And a <= 5000 Then
    
67. b = 30000 + (a - 500) * 30
    
68. End If
    
69. If a >= 5001 Then
    
70. b = 16500
    
71. End If
    
72. Label2.Caption = b
    
73. Exit Sub
    
74. err1:
    
75. MsgBox "输入数字错误"
    
76. End Sub
    
77. 
    
78. Private Sub Command2_Click()
    
79. Me.Hide
    
80. Form2.Show
    
81. End Sub
    
82. 
    
83. Private Sub Text1_Click()
    
84. Text1.Text = ""
    
85. End Sub
    
86. 
    
87. Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    
88. If KeyCode >= 48 And KeyCode <= 57 Then
    
89. Else
    
90. MsgBox "输入错误"
    
91. End If
    
92. 
    
93. End Sub
    

复制代码

看下 什么情况

这是什么 AU3

多谢楼主开源精神

vbs的？看看代码怎么写的学习下！感谢分享！

    已经过时的吧，现在都1.7了，不知道还能用吗。

过来看看。 学习一下。。

谢谢iang,kan kan

WHAT？？

传说的静默吗？