怎么防止变量在复用时出错？

rhzwan123

在编写程序时，经常发现，在多次使用某些变量时，会出错。

特别是在批量处理、使用循环的场景下。
因为工作中要经常清洗数据，面对复杂的表格，必须使用大量的If语句、For语句。
结果发现经常出错。目前只发现了一些容易错误的变量，如
1、用自身累计计算的，如iX=iX & sT。在下个循环时，iX保留了原来的值，导致错误。
2、使用if而没有else的，如If X>1 then Y=3。在下个循环好像也会导致错误，具体是什么错误总结不出来了。

【请问】
1、还有其他什么情况，会导致变量在复用时出错？
2、怎么处理，可以最大程度、甚至完全避免变量在复用时出错？

taller

变量就是个记事本，所有赋值都影响后续操作，当然具体的范围和变量作用域有关

Learner2022

上一段代码看看

MOY838840554

复用的变量，记得初始化值

rhzwan123

MOY838840554 发表于 2023-4-2 11:21
复用的变量，记得初始化值

嗯嗯，谢谢

smiletwo

变量复用前初始化啊

rhzwan123

smiletwo 发表于 2023-4-2 12:09
变量复用前初始化啊

主要是变量太多了，容易迷啊

1. Dim Cnn As Object, Rst As Object, str_Cnn$, strSQL$, strSQL2$
   
2. Dim iWbcount&, iShtCount&, iRows&, iCols&, Sht1$, Sht2$
   
3. Dim Arr(14), Brr(), Crr(), Drr(), I&, J&, K&, X&, Y&, iT&, iU&, sT$, sU$, sV$, sW$, vT      
   
4. Const iTabHeadCount& = 11, iFieldCount& = 11, PreRow& = 30
   
5. Dim sField(1 To iFieldCount), sTitleName$(1 To iFieldCount), aryUnFd&(1 To iFieldCount), iField&(1 To iFieldCount), iLine&
   
6. Dim QHX$, QHZ$, QHC$, QHU$, IsEmpRow As Boolean

复制代码

Learner2022

rhzwan123 发表于 2023-4-2 16:44
主要是变量太多了，容易迷啊

这么多

smiletwo

rhzwan123 发表于 2023-4-2 16:44
主要是变量太多了，容易迷啊

初始化部分模块化，可以复用

rhzwan123

为防止变量太多导致循环计算出错，已使用自定义函数，通过数组来返回多个变量的值。
这样可以有效避免错误。