幫你做好了附件,你自己研究一下吧,
Private Sub Command1_Click()    '奇數(shù)算術(shù)平方根之和
    Dim i As Long, m As Double, iSum As Double
    Me.Cls
    For i = 1 To 1000 Step 2
        m = i ^ (1 / 2)
        iSum = iSum + m
    Next
    Print "1000以內(nèi)奇數(shù)的算術(shù)平方根之和為：" & iSum
End Sub
Private Sub Command2_Click()   '完全數(shù)
    Dim i As Integer, m As Integer, n As Integer
    Me.Cls
    Print "1000以內(nèi)的完全數(shù)如下："
    For i = 1 To 1000
        n = 0
        For m = 1 To i \ 2
            If i Mod m = 0 Then n = n + m
        Next
        If n = i Then Print i;
    Next
End Sub
Private Sub Command3_Click()   '閏年
    Dim i As Integer, n As Integer
    Me.Cls
    Print "1600至2000年之間所有閏年如下："
    For i = 1600 To 2000
        If i Mod 4 = 0 And i Mod 100 <> 0 Or i Mod 400 = 0 Then
            n = n + 1    '用來控制分5列打印
            If n Mod 5 <> 0 Then Print i; Else Print i
        End If
    Next
End Sub