Aplicatie simpla de generare numere aleatoare VB .NET

[giv]

Sursa arata cam asa:

Imports System.Math

Public Class frmPrincipal

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculeaza.Click

Dim intNr1 As Long

Dim intNr2 As Long

Dim intSuma As Long

intNr1 = CInt(Math.Ceiling(Rnd() * 1000000))

intNr2 = CInt(Math.Ceiling(Rnd() * 2000000))

intSuma = intNr1 * intNr2

txtNumar1.Text = intNr1.ToString

txtNumar2.Text = intNr2.ToString

txtNumar3.Text = (Round(Abs(Sqrt(intSuma * 3 - 15 - 143 / 3 * 147 - 1982)))).ToString

End Sub

Private Sub lblAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblAbout.Click

MessageBox.Show("Aplicatie scrisa de GIV pentru www.reversing.ro", "Despre.", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

End Class

http://www51.zippyshare.com/v/24084465/file.html

[TERORIST_CS]

Ai incercat si comanda %random% in cmd? Nu vad sa ii gasesti o functionalitate la program. Nu te ajuta cu nimic.