Private Sub Command1_Click(Index As Integer) Dim sayi1, sayi2, sonuc As Double sayi1 = Val(Text1.Text) sayi2 = Val(Text2.Text) Select Case Index Case 0 sonuc = sayi1 + sayi2 Case 1 sonuc = sayi1 - sayi2 Case 2 sonuc = sayi1 * sayi2 Case 3 sonuc = sayi1 / sayi2 Case 4 sonuc = sayi1 ^ sa

Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir.

Baslık	Kategori	Hit
Değişkenlerin Faaliyet Alanı	VISUAL BASIC	175
SQl Bölüm 1 (Select Deyimi)	VISUAL BASIC	682
Msflexgrid nesnesinin kullanımı	VISUAL BASIC	284
Text kutusunu formun boyutuna göre otmatik boyutlandırma	VISUAL BASIC	115
StatusBar – Durum Çubuğu	VISUAL BASIC	164