现有以下循环指令，求助下如何用for来循环，感激不尽
If HMIRuntime.Tags("@NOTP::AISet_Num").Read = 0 Then
HMIRuntime.Tags("AISet00_Gain").Write HMIRuntime.Tags("@NOTP::AISet_Gain").Read
HMIRuntime.Tags("AISet00_Offset").Write HMIRuntime.Tags("@NOTP::AISet_Offset").Read
HMIRuntime.Tags("AISet00_RangeH").Write HMIRuntime.Tags("@NOTP::AI_Convert_RangeH").Read
HMIRuntime.Tags("AISet00_RangeL").Write HMIRuntime.Tags("@NOTP::AI_Convert_RangeL").Read
HMIRuntime.Tags("AISet00_VinMax").Write HMIRuntime.Tags("@NOTP::AI_Convert_VinMax").Read
HMIRuntime.Tags("AISet00_VinMin").Write HMIRuntime.Tags("@NOTP::AI_Convert_VinMin").Read
HMIRuntime.Tags("AISet00_AIType").Write HMIRuntime.Tags("@NOTP::AI_Convert_Type").Read
End If
If HMIRuntime.Tags("@NOTP::AISet_Num").Read = 1 Then
HMIRuntime.Tags("AISet01_Gain").Write HMIRuntime.Tags("@NOTP::AISet_Gain").Read
HMIRuntime.Tags("AISet01_Offset").Write HMIRuntime.Tags("@NOTP::AISet_Offset").Read
HMIRuntime.Tags("AISet01_RangeH").Write HMIRuntime.Tags("@NOTP::AI_Convert_RangeH").Read
HMIRuntime.Tags("AISet01_RangeL").Write HMIRuntime.Tags("@NOTP::AI_Convert_RangeL").Read
HMIRuntime.Tags("AISet01_VinMax").Write HMIRuntime.Tags("@NOTP::AI_Convert_VinMax").Read
HMIRuntime.Tags("AISet01_VinMin").Write HMIRuntime.Tags("@NOTP::AI_Convert_VinMin").Read
HMIRuntime.Tags("AISet01_AIType").Write HMIRuntime.Tags("@NOTP::AI_Convert_Type").Read
End If
.......
从0一直到75....