希望有人帮帮我！VB的问题！

我是个VB新手啊！请问下面两道题怎么做啊！
1编写程序，输入任意一个整数，判断该数的奇偶性。
（判断数值奇偶性的运算用mod函数实现）

2制作一个标准WINDOWS界面，包括菜单、工具条、状态栏
要求： 菜单、工具条、状态栏内容不限
菜单中必须含有快捷方式、子菜单和一个弹出菜单(能在窗体上弹出)
状态栏有显示系统时间的功能
由于是新手无从下手！也买了本书在看！没什么基础，太难做了！
请好心高手帮帮我
QQ：235251397
E-mail:jackeyrgw@yahoo.com.cn

Dim a As Integer

Private Sub Form_Load()
a = InputBox("请输入")
If a Mod 2 = 0 Then
MsgBox "你输入的是偶数", vbOKOnly, "提示"
Else
MsgBox "你输入的是奇数", vbOKOnly, "提示"
End If
End Sub

后面那个在这里没办法讲

楼上虽然是对的但是对问题没有考虑完全，如果输入的是非数字或者输入的不是整数怎么处理没有解决，我觉得编程的时候应该把情况想完整一点才是好的习惯。。
要2个控件一个是输入框（text1）一个是按纽(command1)
Private Sub Command1_Click()
Dim t, lent%, fixt%, t1
t = Val(Text1.Text)
lent = Len(t)
fixt = Len(Fix(t))
If IsNumeric(Text1) Then
If lent = fixt Then
Call judge
Else
Call lose1
End If
Else
Call lose
End If
End Sub

Public Sub judge() '判断是奇数还是偶数
Dim t
t = Val(Text1.Text)
If t Mod 2 = 0 Then
Text1.Text = t & "是偶数"
Else
Text1.Text = t & "是奇数"
End If
End Sub
Public Sub lose() '对非数字的处理