Dim kafang as Booleando kafang=False[a1:a100]="int(rand()*100)"if kafangfenbu[a1:a100] then'这里加入计算卡方的并判断的代码kafang=trueexit doend if
