Notes

Klavyeden girilen kelimenin sadece ilk harfini büyük harfe çeviren programı yazınız.


<script language="vbscript" runat="server">
Sub page_load(ByVal obj As Object, ByVal e As EventArgs)
Dim kelime, kelime2 As String
kelime = InputBox("Kelimeyi Giriniz")
kelime2 = UCase(Mid(kelime, 1, 1)) & Mid(kelime, 2, Len(kelime)-1)
Response.Write(kelime2)

End Sub

</script>
*************************************************************************
Klavyeden girilen sayının tek veya çift olduğunu ekrana yazdıran program.

<script language="vbscript" runat="server">
Sub page_load(ByVal obj As Object, ByVal e As EventArgs)
Dim sayi As Integer
sayi = InputBox("Sayıyı giriniz")
If sayi Mod 2 = 0 Then
Response.Write("Girilen sayı çifttir")
Else
Response.Write("Girilen sayı tektir")
End If






End Sub

</script>
*************************************************************************
Alış ve satış fiyatı klavyeden girilen kar'mı zararmı edildiğini bulan programı yazınız.

<script language="vbscript" runat="server">
Sub page_load(ByVal obj As Object, ByVal e As EventArgs)
Dim alis, satis As Integer
alis = InputBox("Alış Fiyatını Giriniz")
satis = InputBox("Satış Fiyatını giriniz")
If satis > alis Then
Response.Write("Kar")
Else
Response.Write("Zarar")
End If




End Sub
</script>
*************************************************************************
Klavyeden girilen sayıları 0 girilinceye kadar toplayan sıfır girdiğinde programdan çıkan programı yazınız.

<script language="vbscript" runat="server">
Sub page_load(ByVal obj As Object, ByVal e As EventArgs)
Dim sayi, toplam As Integer
toplam = 0
Do
sayi = InputBox("Sayıyı Giriniz")
toplam = toplam + sayi
Loop Until sayi = 0
Response.Write("Sonuç=" & toplam)
End Sub
</script>
*************************************************************************
Dizinin ilk 2 elemanı 1 olan sonraki elemanları ise kendisinden önceki iki elemanın toplamı olan dizinin ilk 20 elemanını ekrana yazdıran programı yazınız.

<script language="vbscript" runat="server">
Sub page_load(ByVal obj As Object, ByVal e As EventArgs)
Dim ad(19), i As Integer
ad(0) = 1
ad(1) = 1
For i = 2 To 19
ad(i) = ad(i - 1) + ad(i - 2)
Next
For i = 0 To 19
Response.Write(ad(i) & "<br>")
Next


End Sub
</script>
*************************************************************************
klavyeden girilen sayı kalansız bölen sayıları ekrana yazan programı yazınız.

<script language="vbscript" runat="server">
Sub page_load(ByVal obj As Object, ByVal e As EventArgs)
Dim sayi, i As Integer
sayi = InputBox("Sayıyı Giriniz")
For i = 1 To sayi
If sayi Mod i = 0 Then
Response.Write(i & "<br>")
End If


Next
End Sub
</script>
*************************************************************************
ALT PROGRAMLAR:


ÖRNEK:
Klavyeden girilen sayının karesini alt programda hesaplayıp ekrana yazan programı yapınız.


<script language="vbscript" runat="server">
Sub kare(ByVal x As Integer)
Dim sonuc As Integer
sonuc = x * x
Response.Write(sonuc)
End Sub

Sub page_load(ByVal obj As Object, ByVal e As EventArgs)
Dim sayi As Integer
sayi = InputBox("Sayıyı giriniz")
kare(sayi)



End Sub
</script>
*************************************************************************
1'den 10 a kadar olan sayıların karesini hesaplayıp ekrana yazan programı alt program kullanarak yazınız.

<script language="vbscript" runat="server">
Sub kare(ByVal x As Integer)
Dim sonuc As Integer
sonuc = x * x
Response.Write(sonuc & "<br>")
End Sub

Sub page_load(ByVal obj As Object, ByVal e As EventArgs)
Dim i As Integer
For i = 1 to 10
kare(i)
Next

End Sub
</script>
*************************************************************************
Ana programda klavyeden girilen iki sayının toplamını alt programda bulan programı yazınız.


<script language="vbscript" runat="server">
Sub kare(ByVal x As Integer, ByVal y As Integer)
Dim toplam As Integer
toplam = x + y
Response.Write(toplam)

End Sub

Sub page_load(ByVal obj As Object, ByVal e As EventArgs)
Dim sayi, sayi1 As Integer
sayi = InputBox("Sayıyı Giriniz")
sayi1 = InputBox("Sayıyı giriniz")
kare(sayi,sayi1)

End Sub
</script>
*************************************************************************Ana programda klavyeden girilen kelimeyi klavyeden girilen sayı kadar alt programda ekrana yazan programı yazınız.



<script language="vbscript" runat="server">
Sub kare(ByVal x As String, ByVal y As Integer)
Dim i As Integer
For i = 1 to y
Response.Write(x & "<br>")
Next
End Sub

Sub page_load(ByVal obj As Object, ByVal e As EventArgs)
Dim sayi As Integer
Dim kelime As String
kelime = InputBox("Kelimeyi Giriniz")
sayi = InputBox("Sayıyı giriniz")
kare(kelime, sayi)

End Sub
</script>
*************************************************************************