visual,c,,知识点总结.docxVIP

visual,c,,知识点总结 　　VisualBasic程序设计基础知识要点(程序设计篇)全国计算机等级考试中常用的程序编程部分：　　九大问题具体例子分析：　　一、求最大数、最小数、求和以及求平均数　　例题：随机产生10个两位整数，并存入数据a中，然后分别求10个元素中的最大数、最小数、求10个元素之和以及它们的平均数。　　PrivateSubCommand1_Click()　　Dima(10)AsInteger,iAsInteger,MaxAsInteger,MinAsIntegerDimSumasInteger,AvgAsSingle　　Sum=0　　Fori=1To10　　a(i)=Int(Rnd*90)+10’产生10—99之间的随机整数　　Nexti　　Max=a(1):Min=a(1)’假设最大数和最小数Fori=1To10　　IfMaxa(i)Then’求最小数　　Min=a(i)　　Endif　　Sum=Sum+a(i)’求和　　Nexti　　Avg=Sum/10’求平均数　　Print“最大数：”;Max;“最小数：”;Min;“和：”;Sum;“平均数：”;AvgEndSub　　二、求阶乘　　例题：求10！.　　PrivateSubCommand1_Click()　　DimSumAsLong,iAsInteger　　Sum=1　　Fori=1To10　　Sum=Sum*i　　Nexti　　Print“10!=”;Sum　　EndSub　　三、求最大公约数　　例题：求M和N两个数的最大公约数。　　PrivateSubCommand1_Click()　　DimMAsInteger,NAsInteger,RAsInteger　　M=36:N=24　　Do　　R=MModN　　M=N　　N=R　　LoopWhileR0’或LoopUntilR=0　　PrintM和N的最大公约数为：；M　　EndSub　　四、求素数　　例题：求100—200之间的所有素数,并按每行5个元素格式输入所有素数。PrivateSubCommand1_Click()　　DimnAsInteger,iAsIntegerjAsInteger　　Forn=100To200　　Fori=2Ton-1’n-1可以是n/2,也可以是Sqr(n)形式Ifn　　Modi=0ThenExitFor　　Nexti　　Ifin-1Then　　j=j+1’统计素数个数　　Printn;　　IfjMod5=0ThenPrint’输出5个数换行　　EndIf　　N(转载于:写论文网:visual,c,,知识点总结)extn　　EndSub　　判断素数的函数过程：　　FunctionPrime(xAsInteger)AsBoolean　　DimIAsInteger　　ForI=2ToSqr(x)　　IfxModI=0Then　　Prime=False　　EndIf　　NextI　　Prime=True　　EndFunction　　五、求水仙花数(拆数法)　　例题：求100—999之间的所有水仙花数，并将所有水仙花数在文本框中显示。所谓水仙花数：即153=1^3+5^3+3^3条件成立。　　方法1：(数值型：使用运算符Mod和\)　　PrivateSubCommand1_Click()　　DimiAsInteger,aAsInteger,bAsInteger,cAsInteger　　Fori=100To999　　a=i\100’取百位数　　b=i\10Mod10’取十位数　　c=iMod10’取个位数　　Ifi=a^3+b^3+c^3Then　　=iSpace(2)　　EndIf　　Nexti　　EndSub　　方法2：(字符型：使用函数Mid、Val和CStr)　　PrivateSubCommand1_Click()　　DimiAsInteger,aAsInteger,bAsInteger,cAsInteger　　Fori=100To999　　a=Val(Mid(CStr(i),1,1))’取百位数　　b=Val(Mid(CStr(i),2,1))’取十位数　　c=Val(Mid(CStr(i),3,1))’取个位数　　Ifi=a^3+b^3+c^3Then　　=iSpace(2)　　EndIf　　Nexti　　EndSub　　六、排序问题　　例题：随机产生10个两位整数，并存入数据a中，然后将这10个元素从小到大排序(或从大到小),并将排序号的数组显示在文本框中。　　方法1：选择排