dim A as Integer, B as Integer
 
A=Text1.Text
Select Case A   
    Case 1
        b=10
    Case 2
        b=12
    Case 3
        b=11
    Case Else   
        b=100
End Select


Kalau soal seperti ini biasanya dari Help atau MSDN udah jelas kok, nggak perlu nanya 
ke milis
  ----- Original Message ----- 
  From: [EMAIL PROTECTED] 
  To: [EMAIL PROTECTED] 
  Sent: Senin, 09 Oktober, 2000 0:17
  Subject: [MIKRODATA] Perintah case pada Visual Basic


  Rekan-rekan Mikrodata untuk perintah case pada visual basic contohnya
  bagaimana?

  Misalkan 
  Jika a = 1 maka b = 10
  Jika a = 2 maka b = 12
  Jika a = 3 maka b = 11

  Atas informasi dan penjelasannya saya ucapkan banyak terima kasih.
  dani

Kirim email ke