.:: ترفنــــــدهای خفن،آموزش و غیره ::.

کد شماره ی 1:

چگونه می توان فاکتوریل یک عدد را در ویژوال بیسیک 6 محاسبه کرد؟

جواب :

ابتدا یک دکمه و دو عدد تکس باکس به فرمتون اضافه کنین و کد زیر رو قرار بدین

j = Int(Val(Trim(Text1.Text)))

If j <= 0 Then

Result = 1

For i = j To 2 Step -1

Result = Result * j

j = j - 1

Next

Text2.Text = Str(Result)

Endif

کد شماره ی 2 :

جواب :

ابتدا یک دکمه و یک تکس باکس به فرمتون اضافه کنین و کد زیر رو قرار بدین :

Private Sub Command1_Click ()

Dim i as Integer

i = Len(Trim(Text1.Text))

If i > 0 Then

Text1.Text = Mid (Text1.Text,1,i - 1)

Endif