问题描述
VB来做1用一元纸币兑换一分两分和五分的硬币。要求兑换硬币总数为50枚，问共有多少种换法。2求3000以内能被7整除或23整除的所有正整数的个数。3从键盘键入3个数，输出其中的中间值。并判断该值是否为素数。4请分别用FOR循环，DO-WHILE循环以及DO-UNTIL循环计算1+3+5+7+……+201的值。
解决方案
解决方案二：
你这些题网上都能搜到
解决方案三：
第4个，就是等差数列求和，一个公式搞定
解决方案四：
o(︶︿︶)o唉,,百度了，除了第二题其他都没..有代码吗。。大神们
解决方案五：
感觉这不是面试题，是学校的考题。而且，说实在的，如果你连forwhile这些都不会，求一个和，判断个素数的程序都写不出来，那你还是别干这个了，不然你每天干活还不得郁闷死。
解决方案六：
4楼说的对
解决方案七：
没优化，参考下1.DimyuanAsInteger=100Dimfen1AsInteger=1Dimfen2AsInteger=2Dimfen5AsInteger=5DimSumAsInteger=50DimflagAsInteger=0'记录符合条件的换法ForiAsInteger=0ToSumForjAsInteger=0ToSumForkAsInteger=0ToSumIffen1*i+fen2*j+fen5*k=yuanAndi+j+k=SumThenConsole.WriteLine("1fen,2fen,3fen:"&fen1*i&","&fen2*j&","&fen5*k)Console.WriteLine("i,j,k:"&i&","&j&","&k)flag+=1EndIfNextNextNextConsole.WriteLine(flag)Console.Read()
解决方案八：
'4.'1+3+5+7+……+201的值DimLastNumberAsInteger=201'记录最后一个数值DimsumAsInteger=0ForiAsInteger=2ToLastNumberi=i+1'从3+5+7+……+201开始sum=sum+iNextsum=sum+1'最后结果+1Console.WriteLine(sum)Console.Read()
你测试下。
解决方案九：
好问题
解决方案十：
我认为第4个问题规定你只能用If语句来实现才稍微有点难度