1. Private Sub Command1_Click()

x = 0

n = InputBox("")

For i = 1 To n

For j = 1 To i

x = x + 1

Next j

Next i

Print x

End Sub

程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是:

2. Private Function f(m As Integer)

If m Mod 2 = 0 Then

f = m

Else

f = 1

End If

End Function

Private Sub Command1_Click()

Dim i As Integer

s = 0

For i = 1 To 5

s = s + f(i)

Next i

Print s

End Sub

单击命令按钮后，程序的运行结果为：

1、6

2、9