int main(){int a[10];for(int i=1;i<=10;i++){a[i]=i;if(a[i]%3==0)printf("%d\n",a[i]);}return 0;}
Private Sub Command1_Click()Dim a(1 To 10) As IntegerFor i = 1 To 10 a(i) = i If a(i) Mod 3 = 0 Then Print a(i)NextEnd Sub