计算器源代码

提示：
这里包括了
IF 函数
GOTO函数
FOR 函数
select函数
等
学习的方法：
1.分解掉他
2.读懂他
3.自己写
以上三步完成基本对编程语言有了自己的理解
有问题可以到工会群来问！！

1. VERSION 5.00
   
2. Begin VB.Form Form1
   
3. BorderStyle = 1 'Fixed Single
   
4. Caption = "计算器"
   
5. ClientHeight = 5055
   
6. ClientLeft = 45
   
7. ClientTop = 375
   
8. ClientWidth = 5700
   
9. Icon = "Form1.frx":0000
   
10. LinkTopic = "Form1"
    
11. MaxButton = 0 'False
    
12. MinButton = 0 'False
    
13. ScaleHeight = 5055
    
14. ScaleWidth = 5700
    
15. StartUpPosition = 3 '窗口缺省
    
16. Begin VB.CommandButton Command22
    
17. Caption = "阶乘"
    
18. Height = 615
    
19. Left = 4320
    
20. TabIndex = 24
    
21. Top = 3840
    
22. Width = 855
    
23. End
    
24. Begin VB.CommandButton Command21
    
25. Caption = "次方"
    
26. Height = 615
    
27. Left = 3480
    
28. TabIndex = 23
    
29. Top = 3840
    
30. Width = 855
    
31. End
    
32. Begin VB.Timer Timer1
    
33. Interval = 1000
    
34. Left = 360
    
35. Top = 4560
    
36. End
    
37. Begin VB.CommandButton Command20
    
38. Caption = "="
    
39. Height = 735
    
40. Left = 2760
    
41. TabIndex = 20
    
42. Top = 3000
    
43. Width = 975
    
44. End
    
45. Begin VB.CommandButton Command19
    
46. Caption = "-"
    
47. Height = 735
    
48. Left = 840
    
49. TabIndex = 19
    
50. Top = 3000
    
51. Width = 975
    
52. End
    
53. Begin VB.CommandButton Command18
    
54. Caption = "M"
    
55. Height = 735
    
56. Left = 3720
    
57. TabIndex = 18
    
58. Top = 3000
    
59. Width = 975
    
60. End
    
61. Begin VB.CommandButton Command17
    
62. Caption = "M+"
    
63. Height = 735
    
64. Left = 3720
    
65. TabIndex = 17
    
66. Top = 2280
    
67. Width = 975
    
68. End
    
69. Begin VB.CommandButton Command16
    
70. Caption = "AC"
    
71. Height = 735
    
72. Left = 3720
    
73. TabIndex = 16
    
74. Top = 1560
    
75. Width = 975
    
76. End
    
77. Begin VB.CommandButton Command15
    
78. Caption = "←"
    
79. Height = 735
    
80. Left = 3720
    
81. TabIndex = 15
    
82. Top = 840
    
83. Width = 975
    
84. End
    
85. Begin VB.CommandButton Command14
    
86. Caption = "0"
    
87. Height = 735
    
88. Left = 1800
    
89. TabIndex = 14
    
90. Top = 3000
    
91. Width = 975
    
92. End
    
93. Begin VB.CommandButton Command13
    
94. Caption = "/"
    
95. Height = 615
    
96. Left = 2640
    
97. TabIndex = 13
    
98. Top = 3840
    
99. Width = 855
    
100. End
     
101. Begin VB.CommandButton Command12
     
102. Caption = "x"
     
103. Height = 615
     
104. Left = 1920
     
105. TabIndex = 12
     
106. Top = 3840
     
107. Width = 735
     
108. End
     
109. Begin VB.CommandButton Command11
     
110. Caption = "-"
     
111. Height = 615
     
112. Left = 1080
     
113. TabIndex = 11
     
114. Top = 3840
     
115. Width = 855
     
116. End
     
117. Begin VB.CommandButton Command10
     
118. Caption = "+"
     
119. Height = 615
     
120. Left = 240
     
121. TabIndex = 10
     
122. Top = 3840
     
123. Width = 855
     
124. End
     
125. Begin VB.CommandButton Command9
     
126. Caption = "9"
     
127. Height = 735
     
128. Left = 2760
     
129. TabIndex = 9
     
130. Top = 2280
     
131. Width = 975
     
132. End
     
133. Begin VB.CommandButton Command8
     
134. Caption = "8"
     
135. Height = 735
     
136. Left = 1800
     
137. TabIndex = 8
     
138. Top = 2280
     
139. Width = 975
     
140. End
     
141. Begin VB.CommandButton Command7
     
142. Caption = "7"
     
143. Height = 735
     
144. Left = 840
     
145. TabIndex = 7
     
146. Top = 2280
     
147. Width = 975
     
148. End
     
149. Begin VB.CommandButton Command6
     
150. Caption = "6"
     
151. Height = 735
     
152. Left = 2760
     
153. TabIndex = 6
     
154. Top = 1560
     
155. Width = 975
     
156. End
     
157. Begin VB.CommandButton Command5
     
158. Caption = "5"
     
159. Height = 735
     
160. Left = 1800
     
161. TabIndex = 5
     
162. Top = 1560
     
163. Width = 975
     
164. End
     
165. Begin VB.CommandButton Command4
     
166. Caption = "4"
     
167. Height = 735
     
168. Left = 840
     
169. TabIndex = 4
     
170. Top = 1560
     
171. Width = 975
     
172. End
     
173. Begin VB.CommandButton Command3
     
174. Caption = "3"
     
175. Height = 735
     
176. Left = 2760
     
177. TabIndex = 3
     
178. Top = 840
     
179. Width = 975
     
180. End
     
181. Begin VB.CommandButton Command2
     
182. Caption = "2"
     
183. Height = 735
     
184. Left = 1800
     
185. TabIndex = 2
     
186. Top = 840
     
187. Width = 975
     
188. End
     
189. Begin VB.CommandButton Command1
     
190. Caption = "1"
     
191. Height = 735
     
192. Left = 840
     
193. TabIndex = 1
     
194. Top = 840
     
195. Width = 975
     
196. End
     
197. Begin VB.TextBox Text1
     
198. Height = 615
     
199. Left = 840
     
200. TabIndex = 0
     
201. Top = 120
     
202. Width = 4815
     
203. End
     
204. Begin VB.Label Label2
     
205. Caption = "时间："
     
206. Height = 495
     
207. Left = 1320
     
208. TabIndex = 22
     
209. Top = 4560
     
210. Width = 2775
     
211. End
     
212. Begin VB.Label Label1
     
213. Caption = "M"
     
214. Height = 375
     
215. Left = 120
     
216. TabIndex = 21
     
217. Top = 240
     
218. Width = 495
     
219. End
     
220. End
     
221. Attribute VB_Name = "Form1"
     
222. Attribute VB_GlobalNameSpace = False
     
223. Attribute VB_Creatable = False
     
224. Attribute VB_PredeclaredId = True
     
225. Attribute VB_Exposed = False
     
226. Dim a, b As Long
     
227. Dim c As String
     
228. Dim M
     
229. Private Sub Command1_Click()
     
230. run (1)
     
231. End Sub
     
232. Private Sub Command10_Click()
     
233. qi ("+")
     
234. End Sub
     
235. Private Sub Command11_Click()
     
236. qi ("-")
     
237. End Sub
     
238. Private Sub Command12_Click()
     
239. qi ("x")
     
240. End Sub
     
241. Private Sub Command13_Click()
     
242. qi ("/")
     
243. End Sub
     
244. Private Sub Command14_Click()
     
245. run (0)
     
246. End Sub
     
247. Private Sub Command15_Click()
     
248. Text1.SetFocus
     
249. SendKeys Chr(8)
     
250. End Sub
     
251. Private Sub Command16_Click()
     
252. On Error Resume Next
     
253. Text1.Text = ""
     
254. a = "0"
     
255. b = "0"
     
256. c = ""
     
257. End Sub
     
258. Private Sub Command17_Click()
     
259. Label1.Visible = True
     
260. M = Text1.Text
     
261. End Sub
     
262. Private Sub Command18_Click()
     
263. Text1.Text = M
     
264. End Sub
     
265. 
     
266. Private Sub Command19_Click()
     
267. On Error Resume Next
     
268. Text1.Text = 0 - Text1.Text
     
269. End Sub
     
270. 
     
271. Private Sub Command2_Click()
     
272. run (2)
     
273. End Sub
     
274. 
     
275. Private Sub Command20_Click()
     
276. b = Text1.Text
     
277. Select Case c
     
278. Case "+"
     
279. Text1.Text = a + b
     
280. Case "-"
     
281. Text1.Text = a - b
     
282. Case "x"
     
283. Text1.Text = a * b
     
284. Case "/"
     
285. Text1.Text = a / b
     
286. Case Else
     
287. MsgBox "还没选择计算方式呢！"
     
288. Exit Sub
     
289. End Select
     
290. End Sub
     
291. 
     
292. Private Sub Command21_Click()
     
293. d = InputBox("请输入要的次方")
     
294. Text1.Text = Text1.Text ^ d
     
295. End Sub
     
296. 
     
297. Private Sub Command22_Click()
     
298. Dim s
     
299. s = 1
     
300. For i = 1 To Text1.Text
     
301. s = s * i
     
302. Next i
     
303. Text1.Text = s
     
304. End Sub
     
305. Private Sub Command3_Click()
     
306. run (3)
     
307. End Sub
     
308. Private Sub Command4_Click()
     
309. run (4)
     
310. End Sub
     
311. Private Sub Command5_Click()
     
312. run (5)
     
313. End Sub
     
314. Private Sub Command6_Click()
     
315. run (6)
     
316. End Sub
     
317. Private Sub Command7_Click()
     
318. run (7)
     
319. End Sub
     
320. Private Sub Command8_Click()
     
321. run (8)
     
322. End Sub
     
323. Private Sub Command9_Click()
     
324. run (9)
     
325. End Sub
     
326. Private Sub Form_Load()
     
327. Label1.Visible = False
     
328. End Sub
     
329. Public Sub run(k As String)
     
330. Text1.SetFocus
     
331. SendKeys k
     
332. End Sub
     
333. Public Sub qi(o As String)
     
334. a = Text1.Text
     
335. c = o
     
336. Text1.Text = ""
     
337. End Sub
     
338. Private Sub Text1_Change()
     
339. If Text1.Text = "zater" Then
     
340. Text1.Text = a & " " & b & " " & c & " " & M
     
341. End If
     
342. End Sub
     
343. Private Sub Timer1_Timer()
     
344. Label2.Caption = "时间：" & Date & " " & Time
     
345. End Sub
     

复制代码

VB6调试通过




软件源代码

1. Dim a, b As Long
   
2. Dim c As String
   
3. Dim M
   
4. Private Sub Command1_Click()
   
5. run (1)
   
6. End Sub
   
7. Private Sub Command10_Click()
   
8. qi ("+")
   
9. End Sub
   
10. Private Sub Command11_Click()
    
11. qi ("-")
    
12. End Sub
    
13. Private Sub Command12_Click()
    
14. qi ("x")
    
15. End Sub
    
16. Private Sub Command13_Click()
    
17. qi ("/")
    
18. End Sub
    
19. Private Sub Command14_Click()
    
20. run (0)
    
21. End Sub
    
22. Private Sub Command15_Click()
    
23. Text1.SetFocus
    
24. SendKeys Chr(8)
    
25. End Sub
    
26. Private Sub Command16_Click()
    
27. On Error Resume Next
    
28. Text1.Text = ""
    
29. a = "0"
    
30. b = "0"
    
31. c = ""
    
32. End Sub
    
33. Private Sub Command17_Click()
    
34. Label1.Visible = True
    
35. M = Text1.Text
    
36. End Sub
    
37. Private Sub Command18_Click()
    
38. Text1.Text = M
    
39. End Sub
    
40. 
    
41. Private Sub Command19_Click()
    
42. On Error Resume Next
    
43. Text1.Text = 0 - Text1.Text
    
44. End Sub
    
45. 
    
46. Private Sub Command2_Click()
    
47. run (2)
    
48. End Sub
    
49. 
    
50. Private Sub Command20_Click()
    
51. b = Text1.Text
    
52. Select Case c
    
53. Case "+"
    
54. Text1.Text = a + b
    
55. Case "-"
    
56. Text1.Text = a - b
    
57. Case "x"
    
58. Text1.Text = a * b
    
59. Case "/"
    
60. Text1.Text = a / b
    
61. Case Else
    
62. MsgBox "还没选择计算方式呢！"
    
63. Exit Sub
    
64. End Select
    
65. End Sub
    
66. 
    
67. Private Sub Command21_Click()
    
68. d = InputBox("请输入要的次方")
    
69. Text1.Text = Text1.Text ^ d
    
70. End Sub
    
71. 
    
72. Private Sub Command22_Click()
    
73. Dim s
    
74. s = 1
    
75. For i = 1 To Text1.Text
    
76. s = s * i
    
77. Next i
    
78. Text1.Text = s
    
79. End Sub
    
80. Private Sub Command3_Click()
    
81. run (3)
    
82. End Sub
    
83. Private Sub Command4_Click()
    
84. run (4)
    
85. End Sub
    
86. Private Sub Command5_Click()
    
87. run (5)
    
88. End Sub
    
89. Private Sub Command6_Click()
    
90. run (6)
    
91. End Sub
    
92. Private Sub Command7_Click()
    
93. run (7)
    
94. End Sub
    
95. Private Sub Command8_Click()
    
96. run (8)
    
97. End Sub
    
98. Private Sub Command9_Click()
    
99. run (9)
    
100. End Sub
     
101. Private Sub Form_Load()
     
102. Label1.Visible = False
     
103. End Sub
     
104. Public Sub run(k As String)
     
105. Text1.SetFocus
     
106. SendKeys k
     
107. End Sub
     
108. Public Sub qi(o As String)
     
109. a = Text1.Text
     
110. c = o
     
111. Text1.Text = ""
     
112. End Sub
     
113. Private Sub Text1_Change()
     
114. If Text1.Text = "zater" Then
     
115. Text1.Text = a & " " & b & " " & c & " " & M
     
116. End If
     
117. End Sub
     
118. Private Sub Timer1_Timer()
     
119. Label2.Caption = "时间：" & Date & " " & Time
     
120. End Sub
     

复制代码

下载

软件编译完后在https://www.ampc8.com/thread-1591-1-1.html

看看先~计算机

来看看学习下，好像有点复杂，慢慢消化吧！感谢分享！

VB写的啊？我连C的数据结构都还学得好痛苦了

支持楼主的分享精神  

呵呵没事逛逛啊看有没有好东西下载一下用一下啊

支持一下楼主

谢谢奉献  开源伟大 谢谢

select函数还不是怎么熟悉啊   来看看