想了N久也做不来

linzhongde 2004-05-08 10:46:44
有一个成绩表(学科量不定)如下：

学生 语文 数学 英语 化学 ...
李 60 30 70 23
陈 20 30 60 50 ...
王 49 80 34 90 ..
...
现在要计算得到以下数据:
任2科(或3科或4科)不及格的人数？

如果只计算1科我可以这样用 ：where 语文<60 or 数学 <60 or ...
现在要计算 任2科(或3科或4科)不及格，还真弄不来!
...全文
53 24 打赏 收藏 转发到动态 举报
写回复
用AI写文章
24 条回复
切换为时间正序
请发表友善的回复…
发表回复
onlineboy 2004-05-12
  • 打赏
  • 举报
 回复
或者
Select * From 成绩 Where Int(语文/60)+Int(数学/60)+Int(英语/60)+Int(物理/60)+Int(化学/60)+Int(生物/60)=n
n为及格科目
coffeemay 2004-05-12
  • 打赏
  • 举报
 回复
首先定义一个共有变量 public unpasscount() as integer
public sub Getunpass()
redim preserve unpasscunt(0) as integer
dim DBCon As New ADODB.Connection
dim DBRst As New ADODB.Recordset
DBCon.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " + IIf(Right(App.Path, 1) = "\", App.Path, App.Path + "\") + "Data.mdb"
DBCon.open
DBRst.open "select * from Table", DBCon, 1, adLockOptimistic, adCmdText
if not dbrst.eof and dbrst.bof then
do whiel not dbrst.eof
dim i as integer,unpass as integer
for i=0 to dbrst.RecordCount-1
if dbrst(i)<60 then
unpass=unpass+1
end if
if ubound(unpass)<unpass
redim preserve unpasscount(unpass) as integer
unpasscont(unpass)=unpasscount(unpass)+1
end if
next i
dbrst.movenext
loop
dbcon.close
dbrst.close
end sub
显示结果:
public sub showunpass()
dim i as integer
for i= 1 to ubound(unpasscount)
print "有"&cstr(i) &"门不及格的人数为:" &cstr(unpasscount(i))
next i
end sub
没测试!应该没有特别严重的错误吧
pigsanddogs 2004-05-12
  • 打赏
  • 举报
 回复
偶只知道狂转四圈+BC，运气好可以发出[天霸封神斩]...
pigsanddogs 2004-05-11
  • 打赏
  • 举报
 回复
up
lsftest 2004-05-11
  • 打赏
  • 举报
 回复
答复lsftest()：“\”是整除运算符，a\b等同于int(a/b)
在此处，如果a>=60，则(a+40)\100=1，否则(a+40)\100=0
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
这个我知道，但你的语句有没有测试过？？？我在access中直接用你的语句进行查询得到的结果恐怕并非楼主想要的。。
另外，我也没有细心看题，楼主要的是人数。。。所以我的语句修改如下：

SELECT count(*) as 人数
FROM 成绩
WHERE (((IIf([成绩]![语文]>=60,0,1)+IIf([成绩]![数学]>=60,0,1)+IIf([成绩]![英语]>=60,0,1)+IIf([成绩]![物理]>=60,0,1)+IIf([成绩]![化学]>=60,0,1))=3));

跟我之前发过那张帖的语句不同，现在修改过后得出的人数就直接是不及格的人数了，如果想知道这部分人的详细信息，用下面的：
SELECT *
FROM 成绩
WHERE (((IIf([成绩]![语文]>=60,0,1)+IIf([成绩]![数学]>=60,0,1)+IIf([成绩]![英语]>=60,0,1)+IIf([成绩]![物理]>=60,0,1)+IIf([成绩]![化学]>=60,0,1))=3));

如果想改变查询不及格的科目数，修改上面那个3字为你想要的科目数就是了。。。

上面的语句在vb6+sp5+access+xp下通过，如果要在sql server中使用，由于sql server中没有iif语句，所以要用select case.....when..语句来代替。。。。
flyingZFX 2004-05-11
  • 打赏
  • 举报
 回复
别用SQL了
还是用ADO吧，

一条条的去累加吧，

唉，估计速度和执行上的SQL没有什么区别吧，
RUKYO 2004-05-11
  • 打赏
  • 举报
 回复
不好意思，没有看清，你要的是任2科(或3科或4科)不及格的人数，更正：

Select COUNT(*) From 成绩表 Where NOT(NOT(语文>59 AND 数学<60 AND 英语<60 AND 化学<60) AND NOT(语文<60 AND 数学>59 AND 英语<60 AND 化学<60) AND NOT(语文<60 AND 数学<60 AND 英语>59 AND 化学<60) AND NOT(语文<60 AND 数学<60 AND 英语<60 AND 化学>59) AND NOT(语文<60 AND 数学<60 AND 英语<60 AND 化学<60))
RUKYO 2004-05-11
  • 打赏
  • 举报
 回复
效率极低：
Select * From 成绩表 Where NOT(语文>59 AND 数学<60 AND 英语<60 AND 化学<60) AND NOT(语文<60 AND 数学>59 AND 英语<60 AND 化学<60) AND NOT(语文<60 AND 数学<60 AND 英语>59 AND 化学<60) AND NOT(语文<60 AND 数学<60 AND 英语<60 AND 化学>59) AND NOT(语文<60 AND 数学<60 AND 英语<60 AND 化学<60)
flyingscv 2004-05-11
  • 打赏
  • 举报
 回复
如果是100分的卷子
用上面的不如写成 select * from 成绩 where {(语文+40)-40}\(100-40)...,是不是更好理解，呵呵
onlineboy 2004-05-11
  • 打赏
  • 举报
 回复
答复lsftest()：“\”是整除运算符，a\b等同于int(a/b)
在此处，如果a>=60，则(a+40)\100=1，否则(a+40)\100=0
lsftest 2004-05-11
  • 打赏
  • 举报
 回复
可以用变通的方法，如
Select 及格科数=(语文+40)\100+(数学+40)\100+(英语+40)\100+(物理+40)\100+(化学+40)\100 From 成绩
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
思路和方法都是非常的好。。。但我想楼主想要的应该是这样：
select * from 成绩 where (语文+40)\100+(数学+40)\100+(英语+40)\100+(物理+40)\100+(化学+40)\100=1
上面的语句也是一种变通方法，其实是选出只有一科合格的人，就是相当于任3科不及格的人。。
如果要直接得出任3科不及格的人，语句还需要修改一下。。。

其他任2科、任1科合格（或不及格）的查询原理基本相同。。。。。
flyingscv 2004-05-11
  • 打赏
  • 举报
 回复
Select COUNT(*) From 成绩表 Where NOT(NOT(语文>59 AND 数学<60 AND 英语<60 AND 化学<60) AND NOT(语文<60 AND 数学>59 AND 英语<60 AND 化学<60) AND NOT(语文<60 AND 数学<60 AND 英语>59 AND 化学<60) AND NOT(语文<60 AND 数学<60 AND 英语<60 AND 化学>59) AND NOT(语文<60 AND 数学<60 AND 英语<60 AND 化学<60))

-----------------------------------

这个效率应该不低
lzj34 2004-05-11
  • 打赏
  • 举报
 回复
这样把这个结果再生成一张临时表就可以简单的查出来了
lzj34 2004-05-11
  • 打赏
  • 举报
 回复
楼上的这个方法不错
onlineboy 2004-05-11
  • 打赏
  • 举报
 回复
可以用变通的方法，如
Select 及格科数=(语文+40)\100+(数学+40)\100+(英语+40)\100+(物理+40)\100+(化学+40)\100 From 成绩
ryuginka 2004-05-11
  • 打赏
  • 举报
 回复
学习
openforever 2004-05-11
  • 打赏
  • 举报
 回复
同意楼上的.
RUKYO 2004-05-11
  • 打赏
  • 举报
 回复
回复人： onlineboy(stame)
可以用变通的方法，如
Select 及格科数=(语文+40)\100+(数学+40)\100+(英语+40)\100+(物理+40)\100+(化学+40)\100 From 成绩
------------------------------------------------------------------------------
是呀，我怎么想不到呢？

Huaraco 2004-05-11
  • 打赏
  • 举报
 回复
=============
不好意思，没有看清，你要的是任2科(或3科或4科)不及格的人数，更正：

Select COUNT(*) From 成绩表 Where NOT(NOT(语文>59 AND 数学<60 AND 英语<60 AND 化学<60) AND NOT(语文<60 AND 数学>59 AND 英语<60 AND 化学<60) AND NOT(语文<60 AND 数学<60 AND 英语>59 AND 化学<60) AND NOT(语文<60 AND 数学<60 AND 英语<60 AND 化学>59) AND NOT(语文<60 AND 数学<60 AND 英语<60 AND 化学<60))
--------------

牛
starsoulxp 2004-05-11
  • 打赏
  • 举报
 回复
自定义一个类型看看，或者用collection
加载更多回复（4）
Nreal MR眼镜快速开发教程
使用Unity快速开发一个音视频通讯Demo，详细介绍创建Nreal的项目、安装、设置、调试的流程。
n 阶幻方问题
前言 这是很久以前做的一个实验的内容，觉得特别有意思，所以一直想发布出来，没想到拖着拖着就到现在了。 问题描述 一个n阶幻方是把从1到n^2的整数赶往一个n阶方阵，每一个数只出现一次，每一行、主副对角线的和都相等。 分析和本文基本概念 分析 据了解，4阶幻方个数的基本型就有880个，通过旋转和反射总共可有7040个不同的形式的，5阶幻方基本型有275 305 224个，6阶幻方的个数非常之多，皮恩...
给定数组，试求能否从数组中取出n个不复用的数的和为sum
这是之前在一次面试中遇到的一道题，当时因为太久没撸算法，太久没刷题，所以gg，现在回顾一下。问题描述： 实现一个函数，传3个参数，指定数组（有小数、正负数），n（取出个数），sum（指定和），输出是否能找到这几个数。这和经典的凑硬币问题其实本质上是相同的，自然可以用动态规划来做，但这里我们先考虑用深度搜索来做做。关键就是这些边界的选择设置，我在这里也调了很久，这还是得多练，熟能生巧 边界条件：
树莓派L298N电机驱动程序连接图文教程
手里有一块树莓派3闲置很久，不知干点啥好呢。看到不少网友用树莓派做智能小车，好像很好玩的酱紫，就到淘宝买了一些配件。对于硬件小白的我来说安装过程并不轻松，网上看了很多资料但有的地方介绍的并不很详细，最后经过摸索还是成功了！为了新入门的玩家少走弯路，下面详细介绍树莓派+L298N电机驱动板的连接教程。至于传感器和Android控制端以后有机会再介绍一下吧。 接口说明： 1、12V输入： 连接7~12V的电源正极。 2、电源地（GND）： 连接电源负极 3、5V输出： ...
基于jQuery.i18n.properties 实现前端页面的资源国际化
jQuery.i18n.properties是一款轻量级的jQuery国际化插件，能实现Web前端的国际化。 国际化英文单词为：Internationalization，又称i18n，“i”为单词的第一个字母，“18”为“i”和“n”之间单词的个数，而“n”代表这个单词的最后一个字母。jQuery.i18n.properties采用.properties文件对JavaScript进行国际化。jQuery.i18n.p
VB基础类

7,762

社区成员

197,608

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章