Reply to thread

Message: [QUOTE="GL, post: 7245338"] I am trying to develop a prgram that randomly selects numbers for an addition program, then when the check answer button is pressed it colors the answer text field either green or red depending if the answer is correct. When I hit the button the array variables seem to reinitialize to zero. Any ideas why this would happen? I have posted the vb behind code for the web page. Public Class WebForm1 Inherits System.Web.UI.Page Dim holder(300), answer(300) As Integer #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Protected WithEvents Label4 As System.Web.UI.WebControls.Label Protected WithEvents Label5 As System.Web.UI.WebControls.Label Protected WithEvents Label6 As System.Web.UI.WebControls.Label Protected WithEvents Label7 As System.Web.UI.WebControls.Label Protected WithEvents Label8 As System.Web.UI.WebControls.Label Protected WithEvents Label9 As System.Web.UI.WebControls.Label Protected WithEvents Label10 As System.Web.UI.WebControls.Label Protected WithEvents Label11 As System.Web.UI.WebControls.Label Protected WithEvents Label12 As System.Web.UI.WebControls.Label Protected WithEvents Label13 As System.Web.UI.WebControls.Label Protected WithEvents Label14 As System.Web.UI.WebControls.Label Protected WithEvents Label15 As System.Web.UI.WebControls.Label Protected WithEvents Label16 As System.Web.UI.WebControls.Label Protected WithEvents Label17 As System.Web.UI.WebControls.Label Protected WithEvents Label18 As System.Web.UI.WebControls.Label Protected WithEvents Label19 As System.Web.UI.WebControls.Label Protected WithEvents Label20 As System.Web.UI.WebControls.Label Protected WithEvents Label21 As System.Web.UI.WebControls.Label Protected WithEvents Label22 As System.Web.UI.WebControls.Label Protected WithEvents Label23 As System.Web.UI.WebControls.Label Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox6 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox7 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox8 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox9 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox10 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox11 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox12 As System.Web.UI.WebControls.TextBox Protected WithEvents Label24 As System.Web.UI.WebControls.Label Protected WithEvents Label25 As System.Web.UI.WebControls.Label Protected WithEvents Label26 As System.Web.UI.WebControls.Label Protected WithEvents Label27 As System.Web.UI.WebControls.Label Protected WithEvents Label28 As System.Web.UI.WebControls.Label Protected WithEvents Label29 As System.Web.UI.WebControls.Label Protected WithEvents Label30 As System.Web.UI.WebControls.Label Protected WithEvents Label31 As System.Web.UI.WebControls.Label Protected WithEvents Label32 As System.Web.UI.WebControls.Label Protected WithEvents Label33 As System.Web.UI.WebControls.Label Protected WithEvents Label34 As System.Web.UI.WebControls.Label Protected WithEvents Label35 As System.Web.UI.WebControls.Label Protected WithEvents Label36 As System.Web.UI.WebControls.Label Protected WithEvents Label37 As System.Web.UI.WebControls.Label Protected WithEvents Label38 As System.Web.UI.WebControls.Label Protected WithEvents Label39 As System.Web.UI.WebControls.Label Protected WithEvents Label40 As System.Web.UI.WebControls.Label Protected WithEvents Label41 As System.Web.UI.WebControls.Label Protected WithEvents Label42 As System.Web.UI.WebControls.Label Protected WithEvents Label43 As System.Web.UI.WebControls.Label Protected WithEvents TextBox13 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox14 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox15 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox16 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox17 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox18 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox19 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox20 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox21 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox22 As System.Web.UI.WebControls.TextBox Protected WithEvents Label44 As System.Web.UI.WebControls.Label Protected WithEvents Label45 As System.Web.UI.WebControls.Label Protected WithEvents Label46 As System.Web.UI.WebControls.Label Protected WithEvents Label47 As System.Web.UI.WebControls.Label Protected WithEvents Label48 As System.Web.UI.WebControls.Label Protected WithEvents Label49 As System.Web.UI.WebControls.Label Protected WithEvents Label50 As System.Web.UI.WebControls.Label Protected WithEvents Label51 As System.Web.UI.WebControls.Label Protected WithEvents Label52 As System.Web.UI.WebControls.Label Protected WithEvents Label53 As System.Web.UI.WebControls.Label Protected WithEvents Label54 As System.Web.UI.WebControls.Label Protected WithEvents Label55 As System.Web.UI.WebControls.Label Protected WithEvents Label56 As System.Web.UI.WebControls.Label Protected WithEvents Label57 As System.Web.UI.WebControls.Label Protected WithEvents Label58 As System.Web.UI.WebControls.Label Protected WithEvents Label59 As System.Web.UI.WebControls.Label Protected WithEvents Label60 As System.Web.UI.WebControls.Label Protected WithEvents Label61 As System.Web.UI.WebControls.Label Protected WithEvents Label62 As System.Web.UI.WebControls.Label Protected WithEvents Label63 As System.Web.UI.WebControls.Label Protected WithEvents TextBox23 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox24 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox25 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox26 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox27 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox28 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox29 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox30 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox31 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox32 As System.Web.UI.WebControls.TextBox Protected WithEvents Label64 As System.Web.UI.WebControls.Label Protected WithEvents Label65 As System.Web.UI.WebControls.Label Protected WithEvents Label66 As System.Web.UI.WebControls.Label Protected WithEvents Label67 As System.Web.UI.WebControls.Label Protected WithEvents Label68 As System.Web.UI.WebControls.Label Protected WithEvents Label69 As System.Web.UI.WebControls.Label Protected WithEvents Label70 As System.Web.UI.WebControls.Label Protected WithEvents Label71 As System.Web.UI.WebControls.Label Protected WithEvents Label72 As System.Web.UI.WebControls.Label Protected WithEvents Label73 As System.Web.UI.WebControls.Label Protected WithEvents Label74 As System.Web.UI.WebControls.Label Protected WithEvents Label75 As System.Web.UI.WebControls.Label Protected WithEvents Label76 As System.Web.UI.WebControls.Label Protected WithEvents Label77 As System.Web.UI.WebControls.Label Protected WithEvents Label78 As System.Web.UI.WebControls.Label Protected WithEvents Label79 As System.Web.UI.WebControls.Label Protected WithEvents Label80 As System.Web.UI.WebControls.Label Protected WithEvents Label81 As System.Web.UI.WebControls.Label Protected WithEvents Label82 As System.Web.UI.WebControls.Label Protected WithEvents Label83 As System.Web.UI.WebControls.Label Protected WithEvents Textbox33 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox34 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox35 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox36 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox37 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox38 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox39 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox40 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox41 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox42 As System.Web.UI.WebControls.TextBox Protected WithEvents Label84 As System.Web.UI.WebControls.Label Protected WithEvents Label85 As System.Web.UI.WebControls.Label Protected WithEvents Label86 As System.Web.UI.WebControls.Label Protected WithEvents Label87 As System.Web.UI.WebControls.Label Protected WithEvents Label88 As System.Web.UI.WebControls.Label Protected WithEvents Label89 As System.Web.UI.WebControls.Label Protected WithEvents Label90 As System.Web.UI.WebControls.Label Protected WithEvents Label91 As System.Web.UI.WebControls.Label Protected WithEvents Label92 As System.Web.UI.WebControls.Label Protected WithEvents Label93 As System.Web.UI.WebControls.Label Protected WithEvents Label94 As System.Web.UI.WebControls.Label Protected WithEvents Label95 As System.Web.UI.WebControls.Label Protected WithEvents Label96 As System.Web.UI.WebControls.Label Protected WithEvents Label97 As System.Web.UI.WebControls.Label Protected WithEvents Label98 As System.Web.UI.WebControls.Label Protected WithEvents Label99 As System.Web.UI.WebControls.Label Protected WithEvents Label100 As System.Web.UI.WebControls.Label Protected WithEvents Label101 As System.Web.UI.WebControls.Label Protected WithEvents Label102 As System.Web.UI.WebControls.Label Protected WithEvents Label103 As System.Web.UI.WebControls.Label Protected WithEvents Textbox43 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox44 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox45 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox46 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox47 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox48 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox49 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox50 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox51 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox52 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox53 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox54 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox55 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox56 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox57 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox58 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox59 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox60 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox61 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox62 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox63 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox64 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox65 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox66 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox67 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox68 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox69 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox70 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox71 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox72 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox73 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox74 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox75 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox76 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox77 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox78 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox79 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox80 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox81 As System.Web.UI.WebControls.TextBox Protected WithEvents Textbox82 As System.Web.UI.WebControls.TextBox Protected WithEvents Label104 As System.Web.UI.WebControls.Label Protected WithEvents Label105 As System.Web.UI.WebControls.Label Protected WithEvents Label106 As System.Web.UI.WebControls.Label Protected WithEvents Label107 As System.Web.UI.WebControls.Label Protected WithEvents Label108 As System.Web.UI.WebControls.Label Protected WithEvents Label109 As System.Web.UI.WebControls.Label Protected WithEvents Label110 As System.Web.UI.WebControls.Label Protected WithEvents Label111 As System.Web.UI.WebControls.Label Protected WithEvents Label112 As System.Web.UI.WebControls.Label Protected WithEvents Label113 As System.Web.UI.WebControls.Label Protected WithEvents Label114 As System.Web.UI.WebControls.Label Protected WithEvents Label115 As System.Web.UI.WebControls.Label Protected WithEvents Label116 As System.Web.UI.WebControls.Label Protected WithEvents Label117 As System.Web.UI.WebControls.Label Protected WithEvents Label118 As System.Web.UI.WebControls.Label Protected WithEvents Label119 As System.Web.UI.WebControls.Label Protected WithEvents Label120 As System.Web.UI.WebControls.Label Protected WithEvents Label121 As System.Web.UI.WebControls.Label Protected WithEvents Label122 As System.Web.UI.WebControls.Label Protected WithEvents Label123 As System.Web.UI.WebControls.Label Protected WithEvents Label124 As System.Web.UI.WebControls.Label Protected WithEvents Label125 As System.Web.UI.WebControls.Label Protected WithEvents Label126 As System.Web.UI.WebControls.Label Protected WithEvents Label127 As System.Web.UI.WebControls.Label Protected WithEvents Label128 As System.Web.UI.WebControls.Label Protected WithEvents Label129 As System.Web.UI.WebControls.Label Protected WithEvents Label130 As System.Web.UI.WebControls.Label Protected WithEvents Label131 As System.Web.UI.WebControls.Label Protected WithEvents Label132 As System.Web.UI.WebControls.Label Protected WithEvents Label133 As System.Web.UI.WebControls.Label Protected WithEvents Label134 As System.Web.UI.WebControls.Label Protected WithEvents Label135 As System.Web.UI.WebControls.Label Protected WithEvents Label136 As System.Web.UI.WebControls.Label Protected WithEvents Label137 As System.Web.UI.WebControls.Label Protected WithEvents Label138 As System.Web.UI.WebControls.Label Protected WithEvents Label139 As System.Web.UI.WebControls.Label Protected WithEvents Label140 As System.Web.UI.WebControls.Label Protected WithEvents Label141 As System.Web.UI.WebControls.Label Protected WithEvents Label142 As System.Web.UI.WebControls.Label Protected WithEvents Label143 As System.Web.UI.WebControls.Label Protected WithEvents Label144 As System.Web.UI.WebControls.Label Protected WithEvents Label145 As System.Web.UI.WebControls.Label Protected WithEvents Label146 As System.Web.UI.WebControls.Label Protected WithEvents Label147 As System.Web.UI.WebControls.Label Protected WithEvents Label148 As System.Web.UI.WebControls.Label Protected WithEvents Label149 As System.Web.UI.WebControls.Label Protected WithEvents Label150 As System.Web.UI.WebControls.Label Protected WithEvents Label151 As System.Web.UI.WebControls.Label Protected WithEvents Label152 As System.Web.UI.WebControls.Label Protected WithEvents Label153 As System.Web.UI.WebControls.Label Protected WithEvents Label154 As System.Web.UI.WebControls.Label Protected WithEvents Label155 As System.Web.UI.WebControls.Label Protected WithEvents Label156 As System.Web.UI.WebControls.Label Protected WithEvents Label157 As System.Web.UI.WebControls.Label Protected WithEvents Label158 As System.Web.UI.WebControls.Label Protected WithEvents Label159 As System.Web.UI.WebControls.Label Protected WithEvents Label160 As System.Web.UI.WebControls.Label Protected WithEvents Label161 As System.Web.UI.WebControls.Label Protected WithEvents Label162 As System.Web.UI.WebControls.Label Protected WithEvents Label163 As System.Web.UI.WebControls.Label Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Button1 As System.Web.UI.WebControls.Button 'NOTE: The following placeholder declaration is required by the Web Form Designer. 'Do not delete or move it. Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim x1, x2, x3, x4 As Integer Dim ss As String x3 = 8 x4 = 20 ss = "* " If Not IsPostBack Then For x2 = 4 To 163 x1 = (RanNum(x3, x4, x2)) (holder(x2)) = x1 Select Case x2 Case 4 Label4.Text = Str(x1) Case 5 Label5.Text = Str(x1) Case 6 Label6.Text = Str(x1) Case 7 Label7.Text = Str(x1) Case 8 Label8.Text = Str(x1) Case 9 Label9.Text = Str(x1) Case 10 Label10.Text = Str(x1) Case 11 Label11.Text = Str(x1) Case 12 Label12.Text = Str(x1) Case 13 Label13.Text = Str(x1) Case 14 Label14.Text = ss & Str(x1) Case 15 Label15.Text = ss & Str(x1) Case 16 Label16.Text = ss & Str(x1) Case 17 Label17.Text = ss & Str(x1) Case 18 Label18.Text = ss & Str(x1) Case 19 Label19.Text = ss & Str(x1) Case 20 Label20.Text = ss & Str(x1) Case 21 Label21.Text = ss & Str(x1) Case 22 Label22.Text = ss & Str(x1) Case 23 Label23.Text = ss & Str(x1) Case 24 Label24.Text = Str(x1) Case 25 Label25.Text = Str(x1) Case 26 Label26.Text = Str(x1) Case 27 Label27.Text = Str(x1) Case 28 Label28.Text = Str(x1) Case 29 Label29.Text = Str(x1) Case 30 Label30.Text = Str(x1) Case 31 Label31.Text = Str(x1) Case 32 Label32.Text = Str(x1) Case 33 Label33.Text = Str(x1) Case 34 Label34.Text = ss & Str(x1) Case 35 Label35.Text = ss & Str(x1) Case 36 Label36.Text = ss & Str(x1) Case 37 Label37.Text = ss & Str(x1) Case 38 Label38.Text = ss & Str(x1) Case 39 Label39.Text = ss & Str(x1) Case 40 Label40.Text = ss & Str(x1) Case 41 Label41.Text = ss & Str(x1) Case 42 Label42.Text = ss & Str(x1) Case 43 Label43.Text = ss & Str(x1) Case 44 Label44.Text = Str(x1) Case 45 Label45.Text = Str(x1) Case 46 Label46.Text = Str(x1) Case 47 Label47.Text = Str(x1) Case 48 Label48.Text = Str(x1) Case 49 Label49.Text = Str(x1) Case 50 Label50.Text = Str(x1) Case 51 Label51.Text = Str(x1) Case 52 Label52.Text = Str(x1) Case 53 Label53.Text = Str(x1) Case 54 Label54.Text = ss & Str(x1) Case 55 Label55.Text = ss & Str(x1) Case 56 Label56.Text = ss & Str(x1) Case 57 Label57.Text = ss & Str(x1) Case 58 Label58.Text = ss & Str(x1) Case 59 Label59.Text = ss & Str(x1) Case 60 Label60.Text = ss & Str(x1) Case 61 Label61.Text = ss & Str(x1) Case 62 Label62.Text = ss & Str(x1) Case 63 Label63.Text = ss & Str(x1) Case 64 Label64.Text = Str(x1) Case 65 Label65.Text = Str(x1) Case 66 Label66.Text = Str(x1) Case 67 Label67.Text = Str(x1) Case 68 Label68.Text = Str(x1) Case 69 Label69.Text = Str(x1) Case 70 Label70.Text = Str(x1) Case 71 Label71.Text = Str(x1) Case 72 Label72.Text = Str(x1) Case 73 Label73.Text = Str(x1) Case 74 Label74.Text = ss & Str(x1) Case 75 Label75.Text = ss & Str(x1) Case 76 Label76.Text = ss & Str(x1) Case 77 Label77.Text = ss & Str(x1) Case 78 Label78.Text = ss & Str(x1) Case 79 Label79.Text = ss & Str(x1) Case 80 Label80.Text = ss & Str(x1) Case 81 Label81.Text = ss & Str(x1) Case 82 Label82.Text = ss & Str(x1) Case 83 Label83.Text = ss & Str(x1) Case 84 Label84.Text = Str(x1) Case 85 Label85.Text = Str(x1) Case 86 Label86.Text = Str(x1) Case 87 Label87.Text = Str(x1) Case 88 Label88.Text = Str(x1) Case 89 Label89.Text = Str(x1) Case 90 Label90.Text = Str(x1) Case 91 Label91.Text = Str(x1) Case 92 Label92.Text = Str(x1) Case 93 Label93.Text = Str(x1) Case 94 Label94.Text = ss & Str(x1) Case 95 Label95.Text = ss & Str(x1) Case 96 Label96.Text = ss & Str(x1) Case 97 Label97.Text = ss & Str(x1) Case 98 Label98.Text = ss & Str(x1) Case 99 Label99.Text = ss & Str(x1) Case 100 Label100.Text = ss & Str(x1) Case 101 Label101.Text = ss & Str(x1) Case 102 Label102.Text = ss & Str(x1) Case 103 Label103.Text = ss & Str(x1) Case 104 Label104.Text = Str(x1) Case 105 Label105.Text = Str(x1) Case 106 Label106.Text = Str(x1) Case 107 Label107.Text = Str(x1) Case 108 Label108.Text = Str(x1) Case 109 Label109.Text = Str(x1) Case 110 Label110.Text = Str(x1) Case 111 Label111.Text = Str(x1) Case 112 Label112.Text = Str(x1) Case 113 Label113.Text = Str(x1) Case 114 Label114.Text = ss & Str(x1) Case 115 Label115.Text = ss & Str(x1) Case 116 Label116.Text = ss & Str(x1) Case 117 Label117.Text = ss & Str(x1) Case 118 Label118.Text = ss & Str(x1) Case 119 Label119.Text = ss & Str(x1) Case 120 Label120.Text = ss & Str(x1) Case 121 Label121.Text = ss & Str(x1) Case 122 Label122.Text = ss & Str(x1) Case 123 Label123.Text = ss & Str(x1) Case 124 Label124.Text = Str(x1) Case 125 Label125.Text = Str(x1) Case 126 Label126.Text = Str(x1) Case 127 Label127.Text = Str(x1) Case 128 Label128.Text = Str(x1) Case 129 Label129.Text = Str(x1) Case 130 Label130.Text = Str(x1) Case 131 Label131.Text = Str(x1) Case 132 Label132.Text = Str(x1) Case 133 Label133.Text = Str(x1) Case 134 Label134.Text = ss & Str(x1) Case 135 Label135.Text = ss & Str(x1) Case 136 Label136.Text = ss & Str(x1) Case 137 Label137.Text = ss & Str(x1) Case 138 Label138.Text = ss & Str(x1) Case 139 Label139.Text = ss & Str(x1) Case 140 Label140.Text = ss & Str(x1) Case 141 Label141.Text = ss & Str(x1) Case 142 Label142.Text = ss & Str(x1) Case 143 Label143.Text = ss & Str(x1) Case 144 Label144.Text = Str(x1) Case 145 Label145.Text = Str(x1) Case 146 Label146.Text = Str(x1) Case 147 Label147.Text = Str(x1) Case 148 Label148.Text = Str(x1) Case 149 Label149.Text = Str(x1) Case 150 Label150.Text = Str(x1) Case 151 Label151.Text = Str(x1) Case 152 Label152.Text = Str(x1) Case 153 Label153.Text = Str(x1) Case 154 Label154.Text = ss & Str(x1) Case 155 Label155.Text = ss & Str(x1) Case 156 Label156.Text = ss & Str(x1) Case 157 Label157.Text = ss & Str(x1) Case 158 Label158.Text = ss & Str(x1) Case 159 Label159.Text = ss & Str(x1) Case 160 Label160.Text = ss & Str(x1) Case 161 Label161.Text = ss & Str(x1) Case 162 Label162.Text = ss & Str(x1) Case 163 Label163.Text = ss & Str(x1) End Select answer(x2 - 1) = holder(x2) + holder(x2 + 10) Next x2 answer(x2 - 1) = holder(x2) + holder(x2 + 10) End If answer(x2 - 1) = holder(x2) + holder(x2 + 10) End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) If answer(3) = Val(TextBox3.Text) Then TextBox3.BackColor = System.Drawing.Color.Green Else TextBox3.BackColor = System.Drawing.Color.Green End If End Sub Public Function RanNum(ByVal minnum As Integer, ByVal maxnum As Integer, ByVal place As Integer) As Integer 'initialize an array to hold the random numbers Dim minholder(300) As Integer 'initialize random number generator Dim r As New Random(System.DateTime.Now.Millisecond) Dim x As Integer For x = 1 To 300 minholder(x) = r.Next(minnum, maxnum) Next x Return minholder(place) End Function Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub End Class Thanks in advance , GL [/QUOTE]

Verification