कंप्यूटर प्रोग्रामिंग/लूप्स/विजुअल बेसिक .नेट
loops.vb
सम्पादन' This program displays a temperature conversion table showing Fahrenheit
' temperatures from 0 to 100, in increments of 10, and the corresponding
' Celsius temperatures using While, For, and Do loops.
Imports System
Public Module MyProgram
Sub Main
WhileLoop()
ForLoop()
DoLoop()
End Sub
Private Sub WhileLoop()
Dim F As Double
Dim C As Double
Console.WriteLine("F° C°")
F = 0
While F <= 100
C = (F - 32) * 5 / 9
Console.WriteLine(F & " = " & C)
F += 10
End While
End Sub
Private Sub ForLoop()
Dim F As Double
Dim C As Double
Console.WriteLine("F° C°")
For F = 0 To 100 Step 10
C = (F - 32) * 5 / 9
Console.WriteLine(F & " = " & C)
Next
End Sub
Private Sub DoLoop()
Dim F As Double
Dim C As Double
Console.WriteLine("F° C°")
F = 0
Do
C = (F - 32) * 5 / 9
Console.WriteLine(F & " = " & C)
F += 10
Loop While F <= 100
End Sub
End Module
कोशिश करो
सम्पादननिम्न कोड मुफ्त ऑनलाइन विकास के वातावरण में से एक में ऊपर कॉपी और पेस्ट करो या अपने खुद के कम्पाइलर/इंटरप्रेटर/आईडीई का उपयोग करें।