两道vb编程题,晚上考试...谢谢各位了...!!

在一个窗体中添加两个按钮控件
加入以下代码即可
Private Sub Command1_Click() '第一道题
Dim i As Integer
Dim sum As Double
Dim s As Double
Dim n As Double
sum = 0
s = 1
n = 1
For i = 1 To 20
sum = sum + n
s = 2 * s
n = n + s
Next
Print sum
End Sub

Private Sub Command2_Click() '第二道题
Dim i As Integer
Dim j As Integer
Dim s As Integer
Dim a(31 To 600) As Integer
Dim b(31 To 300) As Integer
For i = 31 To 600
a(i) = i
For j = 2 To Sqr(i)
If a(i) Mod j = 0 Then
a(i) = 0
End If
Next
Next
j = 31
For i = 31 To 600
If a(i) <> 0 Then
b(j) = a(i)
j = j + 1
End If
Next
For j = 31 To 299
If b(j + 1) <> 0 And b(j + 1) - b(j) = 2 Then
s = s + 1
End If
Next
Print s
End Sub

下班了，如果不着急的话，明天上班来给你解答