几个简单的问题，没学过VB，哪位大侠给解答下，谢谢！！！

  1、制作一个可供小学数学运算的程序。 0—100整数加减乘除四则运算，如结果为小数四舍五入保留小数点后两位。
根据输入题数出题，题目应为随机，每次应不一样。

   如：题目数=3
   77-55=
   33*3=
   100/3=

   判断是否正确，如不正确给出正确答案，并计算分数，分数为正确题目的
   百分比（四舍五入取整数）。
   如：
   77-55= 22 对
   33*3= 99 对
   100/3= 33 错结果应为 33.33
   分数为：67分
2、制作一个倒计时器，输入倒计时时间后，显示剩余时间，时间到后有提示音和提示画面

以上两题最好能做个界面，谢谢！！！ --------------------编程问答--------------------

--------------------编程问答-------------------- 就不告诉你。就不告诉你。· --------------------编程问答--------------------

--------------------编程问答-------------------- 我写了一个简单的代码,可以根据需要的题数随机出题,答题完毕后可以显示得分,没有计时功能.平台VB6,仅需添加一按钮控件.已经测试.

Dim T As Integer, T2 As Integer   '定义出题数及题数副本
Dim Dui As Integer                '定义答对数目

Private Sub Command1_Click()
Dim tmp As Single
tmp = Test()

If tmp = InputBox("请写出答案") Then       '答题,如果正确,题数减少一个,正确数增加一个
T = T - 1
Dui = Dui + 1
Print "正确"
Else
T = T - 1
Print "错误"

End If

If T <= 0 Then                            ' 所有题目答完,按钮功能消失,并显示得分
Command1.Enabled = False
Print "得分：" & Round(Dui / T2 * 100)
End If

End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
T = InputBox("请填写考题数")
T2 = T
Dui = 0

End Sub

'加减乘除随机出题函数

Private Function Test() As Single
Dim tmp1 As Integer, tmp2 As Integer
tmp1 = Int(100 * Rnd)
tmp2 = Int(100 * Rnd)
Dim Method As Integer
Randomize
Method = 1 + Int(4 * Rnd)
Select Case Method
Case 1
Print tmp1 & "+" & tmp2 & "="
Test = tmp1 + tmp2
Case 2
Print tmp1 & "-" & tmp2 & "="
Test = tmp1 - tmp2
Case 3
Print tmp1 & "*" & tmp2 & "="
Test = Round(tmp1 * tmp2, 2)
Case 4
Print tmp1 & "/" & tmp2 & "="
Test = Round(tmp1 / tmp2, 2)
End Select

End Function
--------------------编程问答--------------------

飞过...

补充：VB ,  网络编程