VB程序设计经典案例.docVIP

------------------------------------------------- 题目： (事件)单击窗体。 (响应)求从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 + i End If If 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=1 Fori=1to10 p=p*i l=l+p next i print l 3题目点击窗体 求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 100 Sum=sum+i Next Print 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 题目：(事件)单击窗体。 (响应)求10~20之间所有素数的乘积并输出在窗体上。 将结果存入变量L中 ------------------------------------------------- 注意：请在指定的事件内编写代码。 ------------------------------------------------- Dim l As Long Dim I as integer Dim j as integer Dim b as Boolean l=1 B= True For i =10 to 20 For j =2 to i-2 If i mod j=0 then b= false End if Next If b = True then l=l*i End if b= True Next Print Str(1) 题目：：编写函数fun其功能是:判断一个整数w的各位 数字平方之和能否被5整除 , 可以被5整除则返 回1 , 否则返回0 ------------------------------------------------- Private Function fun(w As Integer) As Boolean ********** Begin ********* Dim k as integer ,s as integer Do s=s+(w mod 10)*(w mod 10) w=Int(w/10) Loop while w0 If s mod 5=0 then K=1 Else K=0 End if Fun=k ********** End ************* End Function 题目：编写函数fun，函数的功能是：根据一个百分制 成绩mark（整数），显示对应五级制的评定。条件如下： mark大于等于90显示优秀 mark小于90且大于等于80显示良好 mark小于80且大于等于70显示中等 mark小于70且大于等于60显示及格 mark小于60显示不及格 要求使用IF语句来实现。 -----------------------------------------------