24h購物| | PChome| 登入
2008-04-08 14:50:38| 人氣71| 回應0 | 上一篇 | 下一篇

VB

推薦 0 收藏 0 轉貼0 訂閱站台

Dim A(5), B(5), C(5) As Integer



Private Sub Combo1_Click()
Text1.Text = A(Combo1.ListIndex)
Text2.Text = B(Combo1.ListIndex)
Text3.Text = B(Combo1.ListIndex) * C(Combo1.ListIndex)
End Sub


End Sub

Private Sub Form_Load()
A(0) = ”國”
A(1) = ”英”
A(2) = ”數”
B(0) = 4
B(1) = 3
B(2) = 3
C(0) = 600
C(1) = 500
C(2) = 500
End Sub

我要檢舉
台長： 柑橘ˇˇ

您可能對以下文章有興趣

人氣(71) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: ~ Ｖ Ｂ ~ |
此分類下一篇:VB
此分類上一篇:vb

我要回應
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文