vb程序设计-总复习

《vb程序设计-总复习》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、总复习VisualBasic程序设计2021/9/172复习提纲VB基础知识程序控制结构数组过程顺序文件控件2021/9/173重要算法排序查找求最值判断素数求最大公约数、最小公倍数2021/9/174对数组a进行递增排序Dima(1to10)AsIntegerFori=1to10a(i)=int(rnd*91+10)‘产生[10,100]的随机整数NextiFori=1to9forj=1to10-iifa(j)>a(j+1)then‘排序成递增序t=a(j)a(j)=a(j+1)a(j+1)=t‘交换Endif

2、NextjNextiFori=1to10‘输出排序后的结果printa(i);Nexti冒泡法2021/9/175对数组a进行递增排序Dima(1To10)AsIntegerFori=1To10a(i)=Int(Rnd*91+10)NextiFori=1To9Forj=i+1To10Ifa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiFori=1To10Printa(i);Nexti比较交换法2021/9/176求最值Dima(1to10)AsInteger,ma

3、x%,min%Fori=1to10a(i)=int(rnd*91+10)‘产生[10,100]的随机整数Nextimax=a(1):min=a(1)Fori=1To10ifa(i)>maxThenmax=a(i)ifa(i)

4、val(inputbox(“输入要查找的数据”))Fori=1To10ifx=a(i)ThenExitforNextiIfi>10thenPrint“该数找不到”ElsePrint“该数在”&i&“位置”EndIf2021/9/178判断数据a是否为素数n=val(Text1.text)‘在文本框1中输入a的值Fori=2ton-1‘其中n-1可改为int(sqr(n))ifnmodi=0ThenExitforNextiIfi>n-1then‘其中n-1可改为int(sqr(n))printn;“是素数”Else

5、printn;“不是素数”Endif2021/9/179求最大公约数、最小公倍数r=mmodnDowhiler<>0m=nn=rr=mmodnLoopPrintn;”是最大公约数”Printm1*n1/n;”是最小公倍数”m=Val(Text1):n=Val(Text1)Ifmy，x，y）2021/9/1711选择结构多分支选择-编写程序实现

6、选择结构2012-6-1912x=Val(InputBox("x"))Ifx<0Theny=xElseIfx>=0Andx<=100Theny=(4*x+1)^2+Cos(x)Elsey=Sqr(Abs(100-x))EndIfPrintx,yx=Val(InputBox("x"))SelectCasexCaseIs<0y=xCase0To100y=(4*x+1)^2+Cos(x)CaseIs>100y=Sqr(Abs(100-x))EndSelectPrintx,y2021/9/1713循环结构For累加连乘二

7、重循环、三重循环条件型循环Do…LoopWhile…Wend图案输出2012-6-1914Fori=1To5PrintTab(10-i);Forj=1To2*i-1Print"*";NextjPrintNextiFori=4To1Step-1PrintTab(10-i);Forj=1To2*i-1Print"*";NextjPrintNexti2021/9/1715求水仙花数13+53+33=153,求满足水仙花数的所有三位数。Fori=1to9‘百位的数字范围Forj=0to9‘十位的数字范围Fork=0to9

8、‘个位的数字范围n=i*100+j*10+k‘构成三位数ijk‘判断是否满足水仙花要求ifn=i^3+j^3+k^3ThenPrintnNextkNextjNexti已知e的计算公式为编写程序计算e的值，要求精确到10-5DimeAsSingle,tAsSinglePrinte求e的近似值:n=0n=n+1:e=1LoopDoWhilet>0.00001t=1t=t/ne