这是用VB.NET编的程序
Dim wTotalBoards As Short
Dim wCardType As Short
Dim wCardAddress As Short
Dim CardAddr0, CardAddr1, CardAddr2 As Short
Dim CardAddr3, CardAddr4, CardAddr5 As Short
Dim linetotal1 As Integer
Dim lineaccept1 As Integer
Dim linereject1 As Integer
Dim arraytotal11 As Integer
Dim arrataccept11 As Integer
Dim arrayreject11 As Integer
Dim arraytotal21 As Integer
Dim arrataccept21 As Integer
Dim arrayreject21 As Integer
Dim lineThrough_rate1 As String
Dim array1Through_rate1 As String
Dim array2Through_rate1 As String
Dim save_image_name As Integer
Dim card_output As Short
'开机读取文件
高深的人情告诉我意思。

这不就是定义么。。。

一堆定义什么意思

没意思，都是定义，楼主应该没复制完吧，主程序呢？