ممكن تعلموني طريقة

السلام عليكم

السؤال مش واضح

يعنى ضرب القيمة الموجودة فى InputBox + رقم 6 مش محتاجة FOR

الكود

  Dim i As Integer
        i = InputBox("", "")
        MessageBox.Show(i * 6)

هذا هو الكود

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim X, I As Integer
        Dim Result As Long
        Result = 1
        I = InputBox("Enter a N Number = 1*2*3*4*...*N")
        For X = 1 To I
            Result = Result * X
        Next
        MsgBox(Result)
    End Sub

:rolleyes:

لما نضع الرقم في InputBox أي رقم

يطلع msgbox فيه 6*5*4*3*2*1=270

في هذا المسج نستخدم حلقة fornext

شكراً

vnet

هل رأيت الكود الذي وضعته هل هذا ما تريد ام لا ؟؟

المرجو التوضيح

لك خالص الشكر أخي crazy-man

وبالتوفيق

vbnet