VB程序设计经典案例

VB程序设计经典案例VB程序设计经典案例VB程序设计经典案例VB程序设计经典案例编制仅供参考审核批准生效日期地址：电话：传真:邮编:'-------------------------------------------------'题目：(事件)单击窗体。'(响应)求从100到1000之间所有是3的倍数的数之'和，当和大于3000时，停止计算并输出和。请将结果输'出到窗体上,并存入所给变量SUM中。使用for...next语'句完成程序'-------------------------------------------------DimsumAsIntegersum=0DimiAsIntegerFori=100To1000IfiMod3=0Thensum=sum+iEndIfIfsum>3000ThenExitForEndIfNextiPrintsum题目（事件）点击窗体（响应）求1！+2！+3！+…+10!的值，并在窗体上输出，结果存入变量L中DimlaslongDimpaslongp=1Fori=1to10p=p*il=l+pnextiprintl3题目点击窗体求100以内偶数的和，并将结果输出在窗体上，将结果存入变量sum中DimsumasintegerFori=0to100step2Sum=sum+iNextiPrintsum题目：单击窗体求1+2+3+4+5+……………….+100的值并将结果输入在窗体上，结果存入变量sum中Fori=0to100Sum=sum+iNextPrintsum题目双击窗体求1+5+10+15+……………..+500的和，并将结果输出在窗体上，将结果存入变量sum中DimsumaslongSum=0Fori=0to500step5Sum=sum+iNextPrintsum'题目：(事件)单击窗体。'(响应)求10~20之间所有素数的乘积并输出在窗体上。'将结果存入变量L中'-------------------------------------------------'注意：请在指定的事件内编写代码。'-------------------------------------------------DimlAsLongDimIasintegerDimjasintegerDimbasBooleanl=1B=TrueFori=10to20Forj=2toi-2Ifimodj=0thenb=falseEndifNextIfb=Truethenl=l*iEndifb=TrueNextPrintStr(1)'题目：：编写函数fun其功能是:判断一个整数w的各位'数字平方之和能否被5整除,可以被5整除则返'回1,否则返回0'-------------------------------------------------PrivateFunctionfun(wAsInteger)AsBoolean'**********Begin*********Dimkasinteger,sasintegerDos=s+(wmod10)*(wmod10)w=Int(w/10)Loopwhilew<>0Ifsmod5=0thenK=1ElseK=0EndifFun=k'**********End*************EndFunction题目：编写函数fun，函数的功能是：根据一个百分制'成绩mark（整数），显示对应五级制的评定。条件如下：'mark大于等于90显示"优秀"'mark小于90且大于等于80显示"良好"'mark小于80且大于等于70显示"中等"'mark小于70且大于等于60显示"及格"'mark小于60显示"不及格"'要求使用IF语句来实现。'-------------------------------------------------'-------------------------------------------------PrivateFunctionfun(markAsInteger)AsString'**********Begin**********ifmark>=90thenfun=”优秀“Elseifmark>=80thenfun=”良好“elseifmark>=70thenfun=”中等“elseifmark>=60thenfun=”及格”elsefun=”不及格“endif'**********End**********EndFunction'题目：(事件)双击窗体。'(响应)求出100~200之间，能被5整除，但不能被3整除的数。'并求所有数之和，存入变量中SUM中'-------------------------------------------------PrivateSubForm_dblClick()DimsumAs