内容发布更新时间 : 2024/5/21 7:36:38星期一 下面是文章的全部内容请认真阅读。
'------------------------------------------------- '题目： (事件)单击窗体。
' (响应)求从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 whilew<>0 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语句来实现。
'------------------------------------------------- '------------------------------------------------- Private Function fun(mark As Integer) As String '********** Begin ********** if mark>=90 then fun=”优秀“
Else if mark>=80 then fun=”良好“