求两个简单VB程序

来源：百度知道 编辑：UC知道 时间：2024/05/30 10:45:40
第一个是，计算2的0次方+2的一次方+2的二次方+……+2的63次方的结果。

第二个是，求100~200以内能被3整除的数。

100分，谢谢大家了

E-mail:yhouirk@126.com

Option Explicit

Private Sub Command1_Click()
'第一题
Dim i As Integer
Dim sum
For i = 0 To 63
sum = sum + 2 ^ i
Next
Print sum
End Sub

Private Sub Command2_Click()
'第二题
Dim i As Integer, k As Integer
For i = 100 To 200
If i Mod 3 = 0 Then Print i;: k = k + 1
If k <> 0 And k Mod 10 = 0 Then Print '换行，本句可不要,纯粹是为了显示的好看一些
Next
End Sub

邮件已发，请查收