一个六位数n,它的高二位与低二位恰好相同，同时又能被97整除，如109610、196619等．编写VB程序，统计所有符合条件的六位数的个数．
Dim n As Long'六位数
Dim g2 As Integer'高二位
Dim d2 As Integer'低二位
Dim t As Integer'计数
t=0
n=100000
Do
g2=

n\10000

n\10000

①

'取高二位

'取高二位

d2=

nmod100

nmod100

②

'取低二位

'取低二位

Loop Until n＞=1000000
Print t
‘备注：loop until 指的是循环到若条件成立则退出循环．