如下图所示,是一个类似购物的程序,试着回答有哪些变量和变量的类型。 程序代码如下: Private Sub Command1_Click() Dim dj!, n%, p$, s! dj = Val(Text1.Text) n = Val(Text2.Text) Select Case Combo1.Text Case "钻石卡" p = "7折" k = 0.7 Case "金卡" p = "8折" k = 0.8 Case "银卡" p = "9折" k = 0.9 End Select Text3.Text = p s = dj * n * k Text4.Text = s End Sub Private Sub Form_Load() Combo1.AddItem "钻石卡" Combo1.AddItem "金卡" Combo1.AddItem "银卡" End Sub