VB程序设计经典案例.doc

-题目： (事件)单击窗体。 (响应)求从100到1000之间所有是3的倍数的数之 和，当和大于3000时，停止计算并输出和。请将结果输 出到窗体上,并存入所给变量SUM中。使用for.next语 句完成程序- Dim sum As Integer sum = 0 Dim i As Integer For i = 100 To 1000 If i Mod 3 = 0 Then sum = sum + iEnd IfIf sum 3000 Then Exit For End If Next i Print sum 题目（事件）点击窗体（响应）求1！+2！+3！+10!的值，并在窗体上输出，结果存入变量L中Dim l as long Dim p as long p=1Fori=1to10p=p*il=l+pnext iprint l3题目点击窗体求100以内偶数的和，并将结果输出在窗体上，将结果存入变量sum 中Dim sum as integer For i=0 to 100 step2 Sum=sum+i Next i Print sum 题目：单击窗体求1+2+3+4+5+.+100的值并将结果输入在窗体上，结果存入变量sum 中Dim sum as integer For i=0 to 100Sum=sum+iNextPrint sum题目双击窗体求1+5+10+15+.+500的和，并将结果输出在窗体上，将结果存入变量sum 中Dim sum as long Sum=0 For i=0 to 500 step 5 Sum=sum+i Next Print sum 题目：(事件)单击窗体。 (响应)求1020之间所有素数的乘积并输出在窗体上。 将结果存入变量L中-注意：请在指定的事件内编写代码。-Dim l As LongDim I as integerDim j as integerDim b as Booleanl=1B= TrueFor i =10 to 20For j =2 to i-2If i mod j=0 thenb= falseEnd if NextIf b = True thenl=l*iEnd if b= TrueNextPrint Str(1) 题目：编写函数fun其功能是:判断一个整数w的各位 数字平方之和能否被5整除 , 可以被5整除则返 回1 , 否则返回0-Private Function fun(w As Integer) As Boolean* Begin *Dim k as integer ,s as integerDos=s+(w mod 10)*(w mod 10)w=Int(w/10)Loop while w0If s mod 5=0 thenK=1ElseK=0End ifFun=k* End *End Function题目：编写函数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。条件如下：mark大于等于90显示优秀mark小于90且大于等于80显示良好mark小于80且大于等于70显示中等mark小于70且大于等于60显示及格mark小于60显示不及格要求使用IF语句来实现。-Private Function fun(mark As Integer) As String* Begin *if mark=90 thenfun=”优秀“Else if mark=80 thenfun=”良好“else if mark=70 thenfun =”中等“else if mark=60 thenfun=”及格”elsefun=”不及格“end if* End *End Function题目：(事件)双击窗体。 (响应)求出100200之间，能被5整除，但不能被3整除的数。 并求所有数之和，存入变量中SUM中-Private Sub Form_dblClick()Dim sum As Integersum = 0Dim i as integerFor i