چند برنامه به زبان vb.net

[sinaeslami]

با سلام
اگه میشه دوستان غلطهای من رو بگیرن و برام توضیح بدن
یکشنبه امتحان دارم ممنون میشم که کمکم کنین

1- برنامه ای بنویسید که عدد n را از ورودی گرفته و سری زیر را محاسبه کند.

private sub textbox6_textchanged(byval sender as system.object,byval e as system.event args)
handles textbox6.text changed
dim i as integer
dim s as double
s=0
if textbox6.text<>'  ' then
for i=1 to val (textbox6.text)
s+=1/((2*i)-1)
next
textbox1.text=s to string
end if
end sub

2- برنامه ای بنویسید که عدد دلخواه n را از ورودی گرفته و فاکتوریل آن را نمایش دهد.

private sub button1.click
dim n,i,sum as integer
sum=1
n=textbox1.text
for i=1 to n
sum=sum+i
next
end sub
end class
text box2.text.text=sum

3-برنامه ای بنویسید که عدد دلخواه n را از ورودی گرفته و شکل زیر را رسم کند.

dim i,j,n as integer
n=text1.text
for i=1 to n
for j=1 to i
text2.text="*"
next j
text2.text=vbcnlf
next i

dim i,j,n as integer
n=text1.text=0
for i=1 to n
for j=1 to n-i
text2.text+=" "
next j
for j=1 to i
text2.text+="*"
next j
text2.text+=vbcnlf
next i