درخواست سورس كد vb 6(اماتوري هست .خواهشا كمك كنيد)

[123456y]

1=برنامه اي كه عددي 3 رقمي را دريافت و مجموع ارقامش را جمع كند

2=برنامه اي كه عددي را دريافت و اول بودنش را مشخص كند(همراه با پيغامي)

دعاتون ميكنم/لطفا كمك كنيد

[masoud.t]

1=برنامه اي كه عددي 3 رقمي را دريافت و مجموع ارقامش را جمع كند

2=برنامه اي كه عددي را دريافت و اول بودنش را مشخص كند(همراه با پيغامي)

دعاتون ميكنم/لطفا كمك كنيد

2 تا دکمه بزار کدهای زیر رو توش کپی کن.

کد: انتخاب همه

Private Sub Command1_Click()
Dim n As Integer, i As Integer, w As Integer
n = InputBox("enter number")
For i = 1 To n
If (n Mod i) = 0 Then w = w + 1
Next i
If w = 2 Then Print "aval ast" Else Print "aval nist"
End Sub

Private Sub Command2_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, x As Integer
a = InputBox("Enter Number")
b = a \ 100
c = a Mod 100
d = c \ 10
e = c Mod 10
x = b + d + e
Print x

End Sub

[mtu]

سلام دوستان.
يه سورس كد ايتادمون بهمون داده كه اگه نتونم ارلعه بدم منو مشروط ميكنه!
خواهشا كمكم كنيد
به زبان وي بي 6
برنامه اي بنويسيد با دريافت يك عدد، مجموع ارقام ان عدد را جمع كند،اگر مجموع ارقام عدد مورد نظر تك رقمي شد،ان رو چاپ كرده ولي اگر مجموع ارقام عدد 1 رقمي نشد ان را تا موقعي كه 1 رقمي شود به طور پياپي جمع كرده و چاپ كند.

تكرار ميكنم خواهشا كمك كنيد

[mtu]

خواهشا سریعترجواب بدین

[Milo]

به نظرم میشه یه چیزی تو همین مایه ها :

کد: انتخاب همه

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As Integer
        Dim t As Integer
        Dim jam As Integer
        Dim switch As Boolean
        s = TextBox1.Text
        While (s >= 0)
            t = s Mod 10
            s = s / 10
            jam = t + jam
            If jam = 1 Then
                MessageBox.Show(jam)
                switch = 1
 Exit While
            End If
        End While
        If switch = False Then
            MessageBox.Show(jam)
        End If
    End Sub
End Class

البته باید کد هاش رو خودتون اصلاح کنید چون من اصلا vb یادم نبود این با vb.net نوشتم ولی پایه کار همینه . موفق باشید

[fanoos]

به به معلومه که کار این دوست عزیزمون حرف نداره.
انشا الله هر جا که هست موفق باشه.
3 روز دیگه امتحان ویژوال بیسیک دارم .
معلممون خودش 2 تا از سوالات عملی رو بهمون گفت!!!
برای شما که استاد هستی فکر کنم هرکدومش رو تو کمتر از 3 دقیقه بنویسی.
دوست عزیز اگه سورس کد این دو سوال رو بهم بدی سر نماز یه دعای حسابی از من و بقیه ی بچه ها داری!

1.برنامه ای بنویسید که حاصلn جمله ی اول سری زیر را محاسبه کند.
....!F=x - x^3/3! + x^5/5! - x^7/7

2. برنامه ای بنویسید که دو عدد صحیح مثبت ( mو( n را از ورودی خوانده و با روش جمع n^m (n به توان m) نمایش دهد.

خواهشا سورس این دو تا برنامه رو به زبان وی بی 6 اگه بدی یه دنیا ممنونتم.

[fanoos]

سوال دومی رو یکی از بچه ها گفت من بلدم،لازم نیست شما رحمت سوال 2 رو بکشی.
ولی سوال 1 رو حتی صورت سوال رو هم کسی نمیفهمه.!
به دادمون برس