PrivateSubForm_Click()DimA(1To3)AsStringDimcAsIntegerDimjAsIntegerA(1)="4"A(2)

PrivateSubForm_Click（)DimA（1To3)AsStringDimcAsIntegerDimjAsIntegerA（1)="4"A（2)

PrivateSubForm_Click()

DimA(1To3)AsString

DimcAsInteger

DimjAsInteger

A(1)="4"

A(2)="8"

A(3)="12"

c=1

Forj=1To3

c=c+Val(A(j))

Nextj

Printc

EndSub

写出程序运行时单击窗体后，窗体Form1上的结果。