Visual Basic NET ( 3)


         


Dim _ As Integer = 0
' :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim = MsgBox(" ?", MsgBoxStyle.YesNo)
If = MsgBoxResult.Yes Then __() Else __()
End Sub
Private Sub __()
Randomize()
SecretNumber = Math.Round(1000000000 * Rnd()) '
txtNumber.Text = 0 '
lblMessage.Text = " " '
' :
lblNumberTry.Text = " = " & _ꠠ
Dim As New System.IO.StreamWriter("E:\VB\.txt") '
.WriteLine(SecretNumber) '
.Close()
End Sub
' :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
A = CDec(txtNumber.Text) '
If A > SecretNumber Then ' If
= ""
ElseIf A < SecretNumber Then
= ""
Else
= " "
End If
_ = _ + 1
lblNumberTry.Text = " = " & _
lblMessage.Text =
' :

    





Forekc.ru
, , , , , , , , , ,