Dersizle Forumlarý

Girilen 10 adet sayýnýn tek ve çift olanlarýnýn toplamýný ayrý ayrý yazan programý yazýnýz.

10 adet degilde tek adetlisini yazim 10 sayiliyida burdan bakarak sen çöz artik

Dim n as integer
Cls
n=val(Text1)
if n= int (a/2)*2 then print "Girilen Sayi Çift Sayidir" Else
"Girilen Sayi Tek Sayidir"
End Sub.

saol yaa

Abi ya giriþ diyorsunuz ama ben hiç bir þey anlamadým ne zaman baþlýyo dersler??????

sadece bir soru sorulmuþ ve cevaplanmýþ bir ders nitelikli deðil...

slm beným programalr dýlerýný öðrenmeye ihtiyacým var fakat hiç biþey bilmýyorum daha basýte ýndýrgenerek anlatýlabýlnýrmý örneðin visual basic
herkese kolay gelsin

Programlama Dillerini öðrenmen hayatýnýn yarý dönemini bu dillere adaman demektir.. Ama programlama dili öðrenmek istiyorum dersen o ayrý konu.. Visual Basic öðrenme derim.. Mantýðý anlaman açýsýndan Visual C# ile baþlayabilirsin.. Visual C# Amatör programcýlarýn iþini görür.. Visual C# Visual basic'e yapý olarak benzer ikiside olay güdümlü nesne yönetimine dayalý dillerdir.. Profesyonel programcýlýk ile uðraþýcaksan C++ veya Delphi þart.

Dim s As Integer
Dim s2 As Integer
Private Sub Command1_Click()
s = Text1.Text
Select Case s
Case Is = 1, 3, 5, 7, 9
MsgBox "teksayý"
Case Is = 0, 2, 4, 6, 8
MsgBox "Çift Sayý"
End Select
List1.AddItem Text1.Text
End Sub

Private Sub Command2_Click()
List1.List = ""
End Sub


Selametle..