这是我的VB作业，前面判断取到的数是奇数还是偶数我都会了，就是不知道怎么把他们分两行显示出来
这是我做的希望各位帮忙改一下或补充一下
For i = 1 To 20
Randomize
a = Int(Rnd * 100) + 1
If a Mod 2 = 0 Then
d = a
Else: s = a
End If
Print d;
Print vbCrLf&; s;
Next i
这么改：
Randomize '这一句没有必要放在FOR循环里面
dim d as string
dim s as string
d="":s="" '声明两个字符串d用来放所有偶数，s放奇数
For i = 1 To 20
a = Int(Rnd * 100) + 1
If a Mod 2 = 0 Then
d = d & " " & a
Else: s = s & " " & a
End If
Next i
Print d&vbCrLf&s
Randomize '这一句没有必要放在FOR循环里面
dim d as string
dim s as string
d="":s="" '声明两个字符串d用来放所有偶数，s放奇数
For i = 1 To 20
a = Int(Rnd * 100) + 1
If a Mod 2 = 0 Then
d = d & " " & a
Else: s = s & " " & a
End If
Next i
Print d&vbCrLf&s
温馨提示：答案为网友推荐，仅供参考
第1个回答 2006-11-06
楼上的你也太虎了，这个随机函数产生的数据有的是很大的，有可能连续几个都是很大的数据，你这个程序的效率也就不用说了。。。
无奈。。。。
无奈。。。。
第2个回答 2006-11-06
#include<stdlib.h>
main()
{int i=0,a[100];
do{
a[i]=rand();
if((a[i]>0)&&(a[i]<100))
i++;
}while(i<20);
for(i=0;i<20;i++)
{if(a[i]%2==0)
printf(" %d",a[i]);
}
printf(" \n");
for(i=0;i<20;i++)
{if(a[i]%2!=0)
printf(" %d",a[i]);
}
}
这样就ok了!c语言编写的
main()
{int i=0,a[100];
do{
a[i]=rand();
if((a[i]>0)&&(a[i]<100))
i++;
}while(i<20);
for(i=0;i<20;i++)
{if(a[i]%2==0)
printf(" %d",a[i]);
}
printf(" \n");
for(i=0;i<20;i++)
{if(a[i]%2!=0)
printf(" %d",a[i]);
}
}
这样就ok了!c语言编写的
