Циклы и условия: подсчет суммы нечетных чисел диапазона - VB

Формулировка задачи:

Люди помогите пожалуйста решить задания по VB: Задание 24. Пользователь вводит диапазон целых чисел. Программа подсчитывает сумму нечетных чисел. Задание 25. Пользователь вводит диапазон целых чисел. Программа подсчитывает сумму четных чисел. и вот эти две: Задание 28. Программа генерирует три случайных числа в диапазоне от 1 до 6, при совпадении трех чисел программа выводит фразу «Поздравляем!», в случае несовпадения «Попробуй еще разок». Задание 29. Программа загадывает число в диапазоне от 1 до100. Пользователь должен угадать число, в случае несовпадения программа должна подсказывать пользователю, выводя сообщения следующего вида «Загаданное число больше введенного» или «Загаданное число меньше введенного». З.Ы. Заранее говорю огромнейшее спасибище, друзья

Решение задачи: «Циклы и условия: подсчет суммы нечетных чисел диапазона»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim button As CommandButton
Randomize
For Each button In Form1
    If button.Name <> "Command1" Then
        button.Caption = Int(Rnd * 6 + 1)
    End If
Next
If (Command2.Caption = Command3.Caption) And (Command3.Caption = Command4.Caption) Then
    MsgBox "Поздравляем!"
Else
    MsgBox "Попробуй еще разок"
End If
End Sub
 
Private Sub Form_Load()
Dim button As CommandButton
For Each button In Form1
    If button.Name <> "Command1" Then
        i% = i% + 100
        button.Left = i%
        button.Top = 100
        button.Width = 500
        button.Caption = ""
        i% = i% + 500
    End If
Next
Command1.Caption = "Go"
End Sub
                        