什么是硬编程

硬编程定义变量
Dim optiontag, a1, k
'数字0
Private Sub cmd0_Click()
txt1 = txt1 & 0
End Sub
'数字1
Private Sub cmd1_Click()
txt1 = txt1 & 1
End Sub
'数字2
Private Sub cmd2_Click()
txt1 = txt1 & 2
End Sub
'数字3
Private Sub cmd3_Click()
txt1 = txt1 & 3
End Sub
'数字4
Private Sub cmd4_Click()
txt1 = txt1 & 4
End Sub
'数字5
Private Sub cmd5_Click()
txt1 = txt1 & 5
End Sub
'数字6
Private Sub cmd6_Click()
txt1 = txt1 & 6
End Sub
'数字7
Private Sub cmd7_Click()
txt1 = txt1 & 7
End Sub
'数字8
Private Sub cmd8_Click()
txt1 = txt1 & 8
End Sub
'数字9
Private Sub cmd9_Click()
txt1 = txt1 & 9
End Sub
'+号
Private Sub cmdadd_Click()
a1 = txt1
txt1 = ""
optiontag = 1
End Sub
'*号