[VB.NET] استفسار - نسخة قابلة للطباعة

PHP كود :
Imports System
Imports System.Windows.Forms

Public Class Form1
    Private rand As New Random()

    ' دالة لتوليد رقم عشوائي عشري بين حدود محددة
    Private Function GenerateRandomDouble(lowerBounds As Double(), upperBounds As Double()) As Double
        If lowerBounds.Length <> upperBounds.Length Then
            Throw New ArgumentException("عدد الحدود الدنيا يجب أن يكون مساوياً لعدد الحدود القصوى")
        End If

        Dim index As Integer = rand.Next(lowerBounds.Length)
        Dim lowerBound As Double = lowerBounds(index)
        Dim upperBound As Double = upperBounds(index)

        ' توليد رقم عشوائي عشري بين الحدود المحددة
        Dim randomValue As Double = lowerBound + (rand.NextDouble() * (upperBound - lowerBound))
        Return randomValue
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' تحديد الحدود الدنيا والقصوى
        Dim lowerBounds As Double() = {1.5, 3.2, 5.7, 8.4}
        Dim upperBounds As Double() = {2.5, 4.3, 6.8, 9.9}

        ' توليد رقم عشوائي
        Dim randomValue As Double = GenerateRandomDouble(lowerBounds, upperBounds)

        ' عرض الرقم العشوائي في ملف النص
        TextBox1.Text = randomValue.ToString("F2") ' F2 لضبط عرض الرقم العشري بدقتين عشريتين
    End Sub
End Class