计算器代码修正 - 编程论坛

#2

风吹过b2017-09-28 21:35

看一下，没兴趣去改。
1、所有按钮的 index 属性一律删掉。
你是复制按钮，有一个提示，是否创建控件数组，你可能没注意，直接选择了是。然后去改了控件名，没有删index 属性了。

2、自己命名的控件，变量名，过程名，函数名，窗体名，模块名等等标识符，都不能与 VB6 的关键字重名。
并且这个名字在相同的作用域中互相之间也不能重名。

你对照这二点去改吧，标识符不会起，你可以使用中文来命名。
控件有约定成俗的命名规则。如加号按钮，可以命名为：Cmd_Add

#3

ZHRXJR2017-09-29 15:19

的确，按钮不是一个控件数组，不知道index有什么意义，并且按钮控件的名称也不是规范的名称，有的使用VB的保留名称，大忌！！！
最好使用按钮数组控件，例如：

程序代码：

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编辑过]

#4

ss7e00022017-10-21 14:57

按钮使用控件数组即可
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Index
End Sub