With Experts Exchange’s latest app release, you can now experience our most recent features, updates, and the same community interface while on-the-go. Download our latest app release at the Android or Apple stores today!
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim K As String = "Random Value: " & GenerateArrayWithRandomValues() TextBox1.Text = K End Sub Public Function GenerateArrayWithRandomValues() Dim n As Integer : n = 1 + Rnd() * 20 Dim A(0 To n - 1) As Integer Dim i As Integer For i = LBound(A) To UBound(A) A(i) = Rnd() * 1000 Next GenerateArrayWithRandomValues = A End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.