二级visual basic上机必备

《二级visual basic上机必备》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、二级VISUALBASIC上机必备'求两个正整数的最大公约数，最小公倍数PrivateSubCommand1_Click()'最大公约数（一）m=Val(InputBox("请输入一个正整数",,8))N=Val(InputBox("请输入一个正整数",,6))w=m*NIfm

2、al(InputBox("请输入一个正整数",,8))N=Val(InputBox("请输入一个正整数",,6))w=m*NIfm0'方法二，后测试型'考点Print"最大公约数是";m'’'不是nPrint"最小公倍数是";w/mEndSubPrivateSubCommand3_Click()'素数的判断（P106方法一），循环变量的值与终值的关系x=Val(InputBox("请输入一个正整数"))k=Int(Sqr(x))Fori=2TokStep1IfxMo

3、di=0ThenExitForEndIfNextiIfi>kThen'哪种情况下i>kPrintx;"是素数"ElsePrintx;"不是素数"EndIfEndSubPrivateSubCommand4_Click()'素数的判断（补充方法二，使用标记变量）所罗门捷列夫2010年4月16日更新14DimflagAsBooleanx=Val(InputBox("请输入一个正整数"))k=Int(Sqr(x))flag=True'判断之前，假设是素数Fori=2TokStep1IfxModi=0Thenflag=False'发现被整除，立刻改变标记，不是素数ExitForE

4、ndIfNextiIfflag=TrueThen'根据标记的变化判断是否为素数Printx;"是素数"ElsePrintx;"不是素数"EndIfEndSubPrivateSubCommand5_Click()'字符图形的输出(字符菱形)，其实就是对字符Ascii的操作'两重循环，外循环控制行数，内循环控制列数'上下对称的，先打印上半部分；左右对称的，先打印左边部分DimxAsStringDox=InputBox("请输入一个大写字母")LoopUntilx>="A"Andx<="Z"N=Asc(x)-64'确定行数Fori=1ToN'上下对称的先打印上半部分Print

5、Tab(N+1-i);'每行定位Forj=1Toi'左边PrintChr(64+j);NextjForj=i-1To1Step-1'右边,注意步长为负数PrintChr(64+j);NextjNextiFori=N-1To1Step-1'下半部分，注意步长PrintTab(N+1-i);'每行定位Forj=1Toi'左边PrintChr(64+j);NextjForj=iTo1Step-1'右边,注意步长为负数PrintChr(64+j);NextjNextiEndSubPrivateSubCommand6_Click()'字符图形的输出(字符等腰三角形)P110'两重

6、循环，外循环控制行数，内循环控制列数'其实就是对字符Ascii的操作,注意26，32等数字所罗门捷列夫2010年4月16日更新14C=UCase(InputBox("请输入一个字母"))N=Val(InputBox("请输入行数"))m=Asc(C)-1'Asc(c)-66'Fori=1ToNPrintTab(15-i);'定位Forj=1To2*i-1m=m+1Ifm>90Thenm=m-26'Ifm=26Thenm=0'PrintChr(m);'PrintChr(m+65);NextjPrint'换行NextiEndSubPrivateSubCommand7_Cli

7、ck()'冒泡法排序()Dima(10)AsIntegerFori=1To10a(i)=Int(Rnd*90)+10List1.AddItema(i)NextiFori=1To10'冒泡法排序'考点Forj=1To10-i'考点Ifa(j)>a(j+1)Then'考点T=a(j)a(j)=a(j+1)a(j+1)=TEndIfNextj,iFori=1To10List2.AddItema(i)NextiEndSubPrivateSubCommand8_Click()'选择法排序(一)Dima(10)AsIntegerFori=1To10a