用6除以循环数1~6，如何用数组来表示商呢

vb:
public sub form_click()
dim x(1 to 6)as single
i=1
do
x(i)=6/i
i=i+1
loop while i<=6
for i=1 to 6
print x(i)
next
end sub

c++:
#include <iostream.h>
{
double x[6];
double i;
i=1;
do
{
x[i]=6/i;
i=i+1;
}while(i<=6);
for(i=0;i<6;i++)
cout<<x[i]<<endl;
}

double a[6];
for(i=1;i<=6;i++)
a[i-1]=6.0/(double)i;
不就可以了吗？

用vb是好点,因为里面有整除运算符\
过程就像那个楼上用c语言的编的一样
但6就是6,不是6.0,而且double都改为int才可以.
具体语法还要更改