Specific code is as follows:

VB code

Private Sub Command1_Click ()

Dim W12 () 'definition array
W12=Array (0.12634521001675, 4.6694806914686, 0.42026116123439, 5.10867971591759, 1.51942107882065, 0.42243980916051, 1.66877957850959, 0.20468373820466, 0.3572928557475, 0.03610001145893, 4.53787321728016, 0.50977927762321) 'weights "


Dim W23 () 'definition array
W23=Array (5.89468238932569, 0.11644047624008, 3.94832907664878, 1.76229980989318) weight
'
Dim B1 ()
B1=Array (5.96780654305263, 2.33430134475403, 0.773411222728292, 3.4661792485999) 'threshold

Const B2 As Double % constants
=3.21772616222852 '
As Single, Dim w1 and w2 As Single, w2, w3 As Single 'define variables w1 w3

Let w1=Val (Text1. Text) 'to obtain measured values
Let w2=Val (Text2. Text) 'access ratio
Let the w3=Val (Text3. Text) 'access to concentration

Dim a1 As the Variant, a2 As the Variant, a3 As the Variant, a4 As the Variant, a11 the As the Variant, a12 As the Variant, a13 As the Variant, a14 defining variables As the Variant '

A1=W12 w1 + W12 (0) * (1) * w2 + W12 w3 + B1 (2) * (0)
A2=W12 + W12, (3) * w1 w2 (4) * + W12 (5) * w3 + B1 (1)
A3=W12 (6) * w1 + W12 (7) * w2 + W12 (8) * w3 + B1 (2)
A4=W12 (9) * w1 + W12 (10) * w2 + W12 (11) * w3 + B1 (3)



A11=W23 (0) * 1/(1 + e ^ (a1))
'A12=W23 (1) * 1/(1 + e ^ (a2))
'A13=W23 (2) * 1/(1 + e ^ (a3))
'A14=W23 (3) * 1/(1 + e ^ (a4))
'

A=a11 a12 + + a13 + a14 + B2 '


Text4. Text=a

End Sub

Private Sub Command2_Click ()
Unload Me
End Sub


Problems are as follows: :


The cursor to the "a12" position, the prompt "a12" is null
Run directly if you are not running "a12", "a13" "a14" also is null,,

Ask elder advice

CodePudding user response:

Don't you can't find what is not defined or name

CodePudding user response:

You give the code error code is not the same as in the picture with you...

CodePudding user response:

Boon boon, regardless of the code or error screenshot is in its form, the gap between whether to add a variable in the middle