请帮忙把下边的vb 语句 转换为 vfp6的语句,该如何解决

请帮忙把下边的vb 语句 转换为 vfp6的语句
dim a(2) as string 
a(0)="A"
a(1)="B"
a(2)="C"
dim i ,j as integer
for i =0 to 2
  for j=46 to 50
  list1.additem(a(i) & "\" & j)
  next j
next i



vb很简单的语句 vfp不会啊 呵呵 帮忙写一下

------解决方案--------------------
DIMENSION a(3)
a(1)="A"
a(2)="B"
a(3)="C"
FOR i = 1 TO 3
FOR j = 46 TO 50
ThisForm.List1.Additem(a(i) + "\" + ALLTRIM(STR(j)))
NEXT j
NEXT i