G
GL
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
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