admin 管理员组

文章数量: 1086019


2024年4月19日发(作者：在手机上如何制作小程序)

'-------------------------------------------------

' 题目： ( 事件) 单击窗体。

' ( 响应) 求从 100 到1000 之间所有是 3 的倍数的数之

' 和，当和大于 3000 时，停止计算并输出和。请将结果输

' 出到窗体上 , 并存入所给变量 SUM中。使用 语

' 句完成程序

'-------------------------------------------------

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 的值并将结果输入在窗体上，结果存入变量


本文标签： 窗体 结果 手机 程序 制作

版权声明：本文标题：VB程序设计经典案例 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1713463217a635929.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。