مرجع حل مشکلات پیرامون برنامه نویسی ویژوال بیسیک

[ravegoat]

با سلام!

دوست عزیز aghaa_rezaa ، ورود شما رو به این انجمن تبریک می گم.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
سورس هایی که شما این جا قرار دادید کامل نیستند.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید من برای شما کد هاشو قرار می دم.

سوال اول:

Module Program
    Dim power As Integer
    Sub Main()
    Console.Write(" 2 ^ ")
    power = Console.ReadLine()
    power = 2 ^ power
    For i As Integer = 1 To power
        Console.Write("*")
    Next
    Console.WriteLine("")
    Console.Write("Press any key to exit...")
    Console.Read()
    End Sub
End Module

سوال دوم:

        Try
         Label1.Text = ""
          For i As Integer = 1 To CInt(TextBox1.Text)
             Label1.Text += "*"
          Next
Catch
End Try

سوال سوم:

Module Program
    Dim name(1) As String
    Dim course(3) As Long
    Dim zarib(3) As Integer
    Sub Main()
        For i As Integer = 0 To 1
            Console.Clear
            Console.WriteLine("Name" + CStr(i + 1) + " :")
            name(i) = Console.ReadLine
            For j As Integer = 0 To 2
                Console.WriteLine("Course" + CStr(j + 1) + " :")
                course(j) = Console.ReadLine
                Console.WriteLine("Zarib" + CStr(j + 1) + " :")
                zarib(j) = Console.ReadLine
                course(j)*=zarib(j)
            Next
            Console.Clear
            For k As Integer = 0 To 2
                course(3)+= course(k)
                zarib(3)+= zarib(k)
            Next
            Console.WriteLine(name(i) + " Average = " + CStr(course(3) / zarib(3)))
            Console.WriteLine(ControlChars.NewLine)
            Console.WriteLine("Press Enter to Continue...")
            Console.ReadLine()
            Console.WriteLine("")
        Next
    End Sub
End Module