vb里面怎么设置运算产生的结果是正整？

vb程序求解——由计算机来测试一年级学生

使用Timer控件 ============= 进度条属性： ProgressBar1。Min = 0 ProgressBar1。Max = 100 ============= Private Sub Timer1_Timer() Static lCount As Long TA = True ’公用变量TA 未超时标志 lCount = lCount + 1 TMax = lCount ' 用lCount累加，公用变量TMax记录用时 ' 计时步长1，总时间100，更改可以调整计时间隔 If lCount > 100 Then Timer1。 Enabled = False T...全部

  使用Timer控件 ============= 进度条属性： ProgressBar1。Min = 0 ProgressBar1。Max = 100 ============= Private Sub Timer1_Timer() Static lCount As Long TA = True ’公用变量TA 未超时标志 lCount = lCount + 1 TMax = lCount ' 用lCount累加，公用变量TMax记录用时 ' 计时步长1，总时间100，更改可以调整计时间隔 If lCount > 100 Then Timer1。
  Enabled = False TA = False Command1。Enabled = True lCount = 0 End If ProgressBar1。
  Value = lCount End Sub ==== 如果填入答案正确，并TA = True（未超时）关闭Timer1 ， 结束计时，用TMax折算分数。收起