مشكل مع التيكست بوكس

 

Dim [color= #990000;]Rand [color= #b1b100;]As [color= #000000; font-weight: bold;]New Random

Dim RandomValue [color= #b1b100;]As Int32 [color= #339933;]= [color= #009900;]([color= #cc66cc;]0[color= #339933;], Int32[color= #339933;].[color= #990000;]Max [color= #009900;])

MsgBox[color= #009900;]( RandomValue [color= #009900;])

 

Dim RandArray[color= #009900;]([color= #009900;]) [color= #b1b100;]As String [color= #339933;]= [color= #000000; font-weight: bold;]New String[color= #009900;]([color= #009900;])[color= #009900;]{ [color= #0000ff;]"SAD"[color= #339933;], [color= #0000ff;]"MAD"[color= #339933;], [color= #0000ff;]"RAD"[color= #339933;], [color= #0000ff;]"CAD" [color= #009900;]}

Dim [color= #990000;]Rand [color= #b1b100;]As [color= #000000; font-weight: bold;]New Random

MsgBox[color= #009900;]( RandArray[color= #009900;]( [color= #990000;]Rand[color= #339933;].[color= #990000;]Next[color= #009900;]( [color= #cc66cc;]0[color= #339933;], UBound[color= #009900;]( RandArray[color= #009900;])[color= #009900;])[color= #009900;])

 

[color= #000000; font-weight: bold;]Private Sub SomeTextBox_TextChanged[color= #009900;]( Byval Sender [color= #b1b100;]As Object[color= #339933;], Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;]) Hand
les SomeTextBox[color= #339933;].TextChanged

Dim AllREmpty [color= #b1b100;]As Boolean [color= #339933;]= [color= #009900;]([color= #009900;](SomeTextBox[color= #339933;].Text [color= #339933;]= String[color= #339933;].[color= #990000;]Empty[color= #009900;]) And [color= #009900;](TextBox2[color= #339933;].Text [color= #339933;]= String[color= #339933;].Empty
[color= #009900;]) And [color= #009900;](TextBox3[color= #339933;].Text [color= #339933;]= String[color= #339933;].[color= #990000;]Empty [color= #009900;])[color= #009900;])

[color= #b1b100;]If AllREmpty Then

Dim [color= #990000;]Rand [color= #b1b100;]As [color= #000000; font-weight: bold;]New Random

MyNeighbor[color= #339933;].Text [color= #339933;]= RandArray[color= #009900;]( [color= #990000;]Rand[color= #339933;].[color= #990000;]Next[color= #009900;]( [color= #cc66cc;]0[color= #339933;], UBound[color= #009900;]( RandArray[color= #009900;])[color= #009900;])

[color= #990000;]End [color= #b1b100;]If

[color= #990000;]End Sub