计算器代码修正
初学者,参照例子学做一个计算器程序,运行错误,帮忙修正,谢谢。
计算器.rar
(76.69 KB)
Private Sub cmd1_Click(Index As Integer) Dim AA As Integer AA = Index Select Case AA Case 0 '单击数字键0 Case 1 '单击数字键1 Case 2 '单击数字键2 Case 3 '单击数字键3 Case 4 '单击数字键4 Case 5 '单击数字键5 Case 6 '单击数字键6 Case 7 '单击数字键7 Case 8 '单击数字键8 Case 9 '单击数字键9 End Select Text1.Text = Text1.Text & CStr(AA) End Sub
[此贴子已经被作者于2017-9-29 15:22编辑过]