以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]文档里的select case改下类型会报错以及如何处理小数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152685) |
-- 作者:忆似水流年 -- 发布时间:2020/7/18 14:03:00 -- [求助]文档里的select case改下类型会报错以及如何处理小数 文档里的这段代码如果Integer改成Decimal、double会报错,必须是整数么? 另外60.5的时候还是D,但到60.6就是C了,请问下怎么改代码可以忽略小数,比如60.99999999也不会到C,我试着写整除60.999\\1,也不行额 Dim Mark As Integer = 60 Dim Result As StringSelect Case Mark Case 0 To 40 Result = "E" Case 41 To 60 Result = "D" Case 61 To 70 Result = "C" Case 71 To 90 Result = "B" Case 91 To 100 Result = "A" End Select OutPut.Show(Result) 先谢谢啦:D |
-- 作者:有点蓝 -- 发布时间:2020/7/18 14:41:00 -- Dim Mark As Double = 60.000000000001 Dim Result As String = "" Select Case Mark Case 0 To 40 Result = "E" Case 40 To 60 Result = "D" Case 60 To 70 Result = "C" Case 70 To 90 Result = "B" Case 90 To 100 Result = "A" End Select OutPut.Show(Result)
|