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

Question

  1、 制作一个可供小学数学运算的程序。 0—100整数加减乘除四则运算，如结果为小数四舍五入保留小数点后两位。
根据输入题数出题，题目应为随机，每次应不一样。   如：题目数=3 
   77-55= 
   33*3= 
   100/3=    判断是否正确，如不正确给出正确答案，并计算分数，分数为正确题目的
   百分比（四舍五入取整数）。
   如： 
   77-55= 22 对 
   33*3= 99 对 
   100/3= 33 错结果应为 33.33 
   分数为：67分
2、制作一个倒计时器，输入倒计时时间后，显示剩余时间，时间到后有提示音和提示画面以上两题最好能做个界面，谢谢！！！

Answer 1

我写了一个简单的代码,可以根据需要的题数随机出题,答题完毕后可以显示得分,没有计时功能.平台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 IfIf T <= 0 Then                            ' 所有题目答完,按钮功能消失,并显示得分
Command1.Enabled = False
Print "得分：" & Round(Dui / T2 * 100)
End IfEnd SubPrivate 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