admin 管理员组

文章数量: 1184232


2024年4月19日发(作者:if条件函数的使用方法)

.

程序设计

第一题、

题目:(事件)单击窗体

(响应)求50以内所有偶数的和,并在窗体上输出来。

将结果存入变量S中。

代码:Dim I As Integer

For i = 2 To 50

If (i Mod 2)=0 Then

S=s+i

End If

Next

Print (CStr(s))

第二题

.

.

题目:(事件)双击窗体

(响应)求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中

代码:Dim i,j As Integer

Dim k As Long

k=1

s=0

For i =1To 10

For j=1 To i

k=k*j

Next

s=s+k

k=1

Next

.


本文标签: 事件 条件 函数 窗体 结果