新手求学 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新手求学

共有2829人关注过本帖树形打印复制链接主题：新手求学

redpin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：9 积分：140 威望：0 精华：0 注册：2009/2/26 22:04:00

新手求学

Post By：2023/12/4 13:15:00 [显示全部帖子]

设定一个数，如180，比较大小返回不同的值，如：

小于20，返回1

小于40，返回2

小于60，返回3

.........

小于180，返回9

代码怎么写？

redpin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：9 积分：140 威望：0 精华：0 注册：2009/2/26 22:04:00

Post By：2023/12/4 15:26:00 [显示全部帖子]

谢谢版主！按您的代码得到这样的提示：语法错误，<"Mark">运算符猴缺少操作数。不解，恳求赐教，谢谢！

redpin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：9 积分：140 威望：0 精华：0 注册：2009/2/26 22:04:00

Post By：2023/12/4 16:31:00 [显示全部帖子]

语法错误：<"if Mark">运算符后缺少操作数

redpin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：9 积分：140 威望：0 精华：0 注册：2009/2/26 22:04:00

Post By：2023/12/4 16:37:00 [显示全部帖子]

如180数值来源于列，是否这样引用（因为在易表里是这样的）

Dim Mark As Integer = [KR1]
If Mark >= 180 Then
OutPut.Show(9)
ElseIf Mark >= 160 Then
OutPut.Show(8)
……

ElseIf Mark >= 40 Then
OutPut.Show(2)
Else
OutPut.Show(1)
End If

redpin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：9 积分：140 威望：0 精华：0 注册：2009/2/26 22:04:00

Post By：2023/12/4 17:46:00 [显示全部帖子]

补充了

Dim Mark As Integer = 180

If Mark >= 180 Then

OutPut.Show(9)

ElseIf Mark >= 160 Then

OutPut.Show(8)

ElseIf Mark >= 140 Then

OutPut.Show(7)

ElseIf Mark >= 120 Then

OutPut.Show(6)

ElseIf Mark >= 100 Then

OutPut.Show(5)

ElseIf Mark >= 80 Then

OutPut.Show(4)

ElseIf Mark >= 60 Then

OutPut.Show(3)

ElseIf Mark >= 40 Then

OutPut.Show(2)

Else

OutPut.Show(1)

End If

下一主题 >> << 上一主题

主题：新手求学