(2)

完成划线处的代码填空:

Dim classname(1 To 8000) As String     ‘存储原始数据中的班级名称

Dim selectabc(1 To 8000) As String       ‘存储原始数据选项的值

Dim xiangmu(1 To 8000) As String        ‘存储原始数据选项的序号

Dim n  As Integer

Private Sub Command2_Click()        ‘从数据库读取数据,并且按班级名称排序

Dim conn As New ADODB.Connection

conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="&App.Path&"\pingjia.accdb"

conn.Open

Dim rs As New ADODB.Recordset

Set rs.ActiveConnection = conn

rs.Open "select * from data"

n = 0       ‘记录评价的总条数

'读取数据,并按班级排序,代码略

End Sub

Private Sub Command1_Click()

Dim cstart(1 To 50) As Integer       ‘存储每个班级在数组classname中的起始位置

Dim cend(1 To 50) As Integer       ‘存储每个班级在数组classname中的末尾位置

Dim k As Integer       ‘存储班级数量

Dim testall(1 To 20) As Integer        ‘存储每一项总选择人数,例如testall(1)里存储这评价项目1里的总人数,testc(1)里存储评价项目1里选C的人数

Dim testc(1 To 20) As Integer          ‘存储每一题(项)选c的人数

‘确定每个班级的起止位置,存储到cstart数组和cend数组

cstart(1) = 1

temp = classname(1)

k = 1

For i = 1 To n

If classname(i) <> temp Then

________

k = k + 1

cstart(k) = i

temp = classname(i)

End If

Next i

cend(k) = n

For i = 1 To k    ‘每个班级分别统计评价项目

________

For q = 1 To 20    ‘对testall和testc数组初始化,

testall(q) = 0

testc(q) = 0

Next q

For j = cstart(i) To cend(i)    ‘对第i个班级进行统计

testall(xiangmu(j)) = testall(xiangmu(j)) + 1

If selectabc(j) = "C" Then ________

Next j

For p = 1 To 20    ‘统计完成后输出这个班级的20个项目的A+B所占百分比

s = s &""&Str(Round((testall(p) - testc(p)) / testall(p) * 100, 1))

Next p

List2.AddItem s

Next i

End Sub

以下关于mysql的说法错误的是什么_以下关于数据库的说法中,不正确的是( )...相关推荐

  1. 下列关于python的描述正确的是-下列关于Python的说法,错误的是()。_学小易找答案...

    [单选题]下列关于Python的说法,错误的是(). [多选题]使用积分表求不定积分常见的类型有哪些? [简答题]请举例说明分数的意义. [简答题]代码的人工审查要审查哪些主要内容?为什么需要对代码进 ...

  2. 以下关于python函数说法错误的是def_以下关于Python函数的描述中,错误的是()

    [单选题]以下代码的输出结果是() a = [[1,2,3], [4,5,6], [7,8,9]] s=0 for c in a: for j in range(3): s +=c(j] print( ...

  3. mysql许多连接错误而被阻止_怎样解决mysql连接过多的错误?

    设置max_execution_time 来阻止太长的读SQL.那可能存在的问题是会把所有长SQL都给KILL 掉.有些必须要执行很长时间的也会被误杀. 自己写个脚本检测这类语句,比如order by ...

  4. mysql迁移之后读取速度变慢_如何解决数据库迁移之后变慢的问题

    阿里云关系型数据库服务(Relational Database Service,简称RDS)是一种即开即用.稳定可靠.可弹性伸缩的在线数据库服务.具有多重安全防护措施和完善的性能监控体系,并提供专业的 ...

  5. mysql 事务补偿_TCC补偿性策略_彻底学习数据库事务 seata分布式事务 共享 排它锁 死锁 索引 Spring事务 隔离级别等_MySQL视频-51CTO学院...

    课程总计41课时,从什么是事务讲起,直到分布式事务解决方案,很的0基础基础与提升系列课程.对于难以理解的知识点,全部用画图+实战的方式讲解. 彻底明白事务的四个特性:原子性.一致性.隔离性.持久性,用 ...

  6. mysql按照日期先去重在分组_【巨杉数据库Sequoiadb】【咨询】【数据操作】【聚集查询】在执行聚集查询时,字符类型的字段能否按照实际内容进行分组去重...

    [问题描述] 在聚集查询时,能否将字符类型字段按照实际内容进行分组去重呢? 示例: 插入数据包含字符串 db.cs.cl.insert( { a : {"20190101000000&quo ...

  7. mysql集群如何保障数据分布均匀_如何保证数据库集群时候,主从库一致性的问题?...

    前言: 数据库集群,读写分离现在可以说是项目必备的了,但是我们如何保证其每个数据库的数据一致性? 1 半同步复制 简单的说就是: 主库发生增删改操作的时候,会等从库及时复制了并且通知了主库, 才会把这 ...

  8. mysql查询最新插入的一条_我刚数据库中插入一条记录,紧接着再去查询却查不到?...

    向数据库 中奖记录表中 添加一条中奖 记录,马上调用方法查询这条记录, 查询不到! 我打开数据库查看 数据是插入成功的. 开发语言是用java, 框架 hibernate! 插入数据,和查询数据代码如 ...

  9. 用MySQL语句为SC定义主码_珍藏的数据库SQL基础练习题答案

    一,基本表的定义与删除. 题1: 用SQL语句创建如下三张表:学生(Student),课程表(Course),和学生选课表(SC),这三张表的结构如表1-1到表1-3所示. 表1-1 Student表 ...

最新文章

  1. crypt函数的使用(仅限LINUX)
  2. 【Http专题】Https
  3. Install FileZilla in Ubuntu16.04
  4. 小雷郑重承诺:在2017年之前,对大学毕业4年以来的所有努力和探索,做一个全面客观的总结,技术研究、工作创业、投资理财、朋友感情等...
  5. FPA笔记六 计算EI/EO/EQ的功能点
  6. boost::math模块查找正态(高斯)尺度(标准差)的示例的测试程序
  7. QT的QSslSocket类的使用
  8. System.Web.HttpContext.Current.Session为NULL解决方法
  9. 微课|中学生可以这样学Python(例4.7):定时器
  10. C++socket编程(九):9.1 UDP实战Syslog服务器
  11. 技术人创业建站简略指南(第一季)
  12. hadoop -- mapreduce执行过程
  13. Response.AddHeader
  14. vb连接mysql教程视频_VB 连接mysql数据库
  15. 重磅!达摩院发布2022十大科技趋势
  16. 如何将socket服务器部署到云服务器上
  17. 使用 python 脚本爬取豆瓣电影排行榜
  18. Parity(奇偶校验)和ECC(错误检查和纠正)
  19. CodeForces-1062E LCA,DFN,RMQ
  20. 服务器物理安装,安装Nano Server物理服务器Hyper-V角色

热门文章

  1. 信创国产化的低代码平台,0元任君选购
  2. 微信朋友圈图片对话php源码,微信小程序实现聊天对话(文本、图片)功能
  3. 前端面试题+答案(JS篇)
  4. 详解ARP协议(简介、主要功能、通信原理、ARP欺骗)
  5. 切尔诺夫脸用matlab,切尔诺夫脸谱图表现中国各省生活质量_武斌.pdf
  6. 百度推出老年搜索频道
  7. 如何查看mysql备份的情况_MySQL数据库备份详解(示例代码)
  8. 【XLL API 函数】xlSheetNm
  9. 制作linux红帽光盘刻录,linux下mkisofs制作光盘映像cdrecord刻录光盘
  10. Uddi注册中心教程