A:稀硫酸,液氧
B:澄清石灰水,二氧化碳
C:石灰石,汽水
D:冰水混合物,氧化铁
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a =5
b = Val(Text1.Text)
b = a + b
label1.Caption = Str(b)
End Sub