Module Module1 Sub Main() For i = 5 To 100 Console.WriteLine(5 / i) Next Console.ReadKey() End Sub End Module
Public Class Form1 Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown ListBox1.DataSource = Enumerable.Range(5, 96).Select(Function(i) 5 / i).ToArray() End Sub End Class
Public Class Form1 Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown ListBox1.BeginUpdate() For i = 5 To 100 ListBox1.Items.Add(5 / i) Next ListBox1.EndUpdate() End Sub End Class