بدست آوردن توان یک عدد
سلام ب همه.
تابع Pow مقدار توان عدد ورودی اول را بر اساس ورودی دوم بر می گرداند:
Dim xNumn, yNum As Double
Console.Write("{0}", vbTab)
Select Case Words.Length
Case = 3
xNumn = Val(Words(1))
yNum = Val(Words(2))
Console.WriteLine("Computing: {0} ^ {1} ► {2}", xNumn, yNum, Pow(xNumn, yNum))
Case Else
Console.WriteLine("{2}{0}{1}{3}", vbNewLine, vbTab, "Computing Error!", "Need 2 Numbers for Computing.")
End Select
همچنین این محاسبه را می توان با کاراکتر ^ هم بدست آورد:
Console.WriteLine("Computing: {0} ^ {1} ► {2}", xNumn, yNum, xNumn ^ yNum)
Untitled.png
در این برنامه که یک Console Application هست با استفاده از کلمه دستوری Power یا حرف P و نوشتن دو عدد با فاصله از هم، براساس عدد دوم، توان عدد اول بدست می آید.
Imports System.Math
Module Module1
Sub Main()
Dim Words() As String = {""}
Do Until Words(0).ToLower = "quit"
Console.Write("Math:>")
Words = Console.ReadLine.Split(Space(1))
Select Case Words(0).ToLower
Case "p", "power"
Dim xNumn, yNum As Double
Console.Write("{0}", vbTab)
Select Case Words.Length
Case = 3
xNumn = Val(Words(1))
yNum = Val(Words(2))
Console.WriteLine("Computing: {0} ^ {1} ► {2}", xNumn, yNum, Pow(xNumn, yNum))
Console.Write("{0}", vbTab)
Console.WriteLine("Computing: {0} ^ {1} ► {2}", xNumn, yNum, xNumn ^ yNum)
Case Else
Console.WriteLine("{2}{0}{1}{3}", vbNewLine, vbTab, "Computing Error!", "Need 2 Numbers for Computing.")
End Select
End Select
Loop
End Sub
End Module
دانلود سورس:
Module1.zip
پاسخ با نقل قول
