能给个VBA根据学生的学号是什么学号随机抽奖的代码吗

上机实验3:创建SQL查询在“学生的學号是什么成绩管理系统”数据库中使用SQL视图创建一个名为 “SQL5”的查询对象。查询两科以上(含两科)成绩不及格的学生的学号是什么要求显示这些学生的学号是什么的学号和不及格的科目数,并按学号升序排列SELECT 学号, COUNT(*) AS 不及格的科目数FROM 修课成绩WHERE 成绩<60GROUP BY 学号H***ING COUNT(*)>=2ORDER BY 学号;《Access2010数据库系統与应用》 第7章 模块与VBA程序设计VBA编程基础程序流程控制面向对象的程序设计概述过程与作用域VBA程序调试与错误处理模块与VBA概述目 录§7.1 模块與VBA概述 模块是Access数据库对象之一,由面向对象的VBA程序构成模块具有很强的通用性,窗体、报表等对象都可以调用模块内部的过程 VBA(Visual Basic for Applications)是VB(Visual Basic)语言的子集。它是微软Office套件内置的可视化编程语言具有简单、易学的特点,用来解决Access数据库其他对象难以实现的操作(如循环控制)以建立完整的数据库应用系统。与Visual Basic不同的是VBA不是一个独立的开发工具,一般被嵌入到像Word、Excel、Access这样的宿主软件中§7.1.1 模块的概念在Access中,模块分为两种类型:标准模块和类模块 标准模块标准模块中放置数据库的公共变量或公共过程,供类模块里的过程调用这些公共变量或公共过程具有全局性,在整个应用程序中都有效12 类模块 嵌入到窗体和报表里的代码块称为类模块。窗体模块和报表模块都属于类模塊具有局部性,仅在本窗体或报表中有效§7.1.2 模块的组成模块由声明和过程两个部分组成(过程是模块的组成单元,分为子过程和函数过程)一个模块中有一个声明区域和一个或多个过程,在声明区域对过程中用到的变量进行声明1 声明区域 声明区域主要包括:Option声明、变量、常量或自定义数据类型的声明。模块中可以使用的Option声明语句如下:Option Base 1:声明模块中数组下标的 默认下界为1不声明则默认下界为0。Option Compare Database:声明模块中需要进行字符串比较时将根据数据库的区域ID确定的排序级别进行比较;不声明则按字符ASCII码进行比较。Option Explicit:强制模块用到的变量必须先声明后使用§7.1.2 模块的组成 子过程 子过程又称为Sub过程,用来执行一系列的操作子过程没有返回值,它的定义格式如下:Sub 过程名 [程序代碼]End Sub其中的程序代码实现要完成的一系列操作 调用子过程时可以直接引用子过程的名称,也可以在过程名称之前加上关键字Call来显式调用一個子过程在自定义的过程名前加上Call关键字是一个很好的程序设计习惯,可以使代码更加清晰2§7.1.2 模块的组成 函数过程 函数过程又称为Function过程,用于执行一系列操作并返回一个结果这个结果称为返回值。它的定义格式如下:Function 过程名 As (返回值)类型 [程序代码]End Function 函数过程不能使用Call來调用执行需要在赋值语句或表达式中直接引用函数过程的名称。3§7.1.3 VBA的编程环境 Access系统提供了一个编程界面——VBE(Visual Basic Editor)它是编写和调试VBA程序代码的重要环境。Access的标准模块和类模块设计都是在VBE窗口完成ACCESS的环境:可视化交互环境VBA编程环境(VBE)ACCESS的状态:设计运行§7.1.3 VBA的编程环境1.進入类模块的 VBE 编程环境方法1:在窗体或报表“设计视图”中的指定控件对象“属性”对话框中单击“事件”选项卡,选定某个事件在弹絀的“选择生成器”对话框中选择“代码生成器” ,单击“确定”按钮便进入VBE环境。方法2:在窗体或报表“设计视图”中右键单击指定控件对象在弹出的快捷菜单中选择“事件生成器”/“代码生成器”项,单击“确定”按钮便打开进入VBE环境。2.进入标准模块的 VBE 编程环境方法1:在Access 2010窗口中单击“创建”选项卡的“宏与代码”组中的“模块”按钮,便可进入VBE环境方法2:在Access 2010窗口中,双击“导航窗格”上的“模块”对象列表中指定模块名便进入VBE环境,并显示该模块已有的VBA代码工程窗口:即工程资源管理器,该窗口显示应用程序的所有模塊文件以分层列表的方式显示。单击VBE窗口菜单栏中“视图”菜单的“工程资源管理器”命令即可打开工程窗口。属性窗口:列出了所選对象的各个属性分 “按字

毕业于空军第一航空学院电子专業1991年开始接触电脑,从事多年计算机编程具有较丰富的经验。

 

你对这个回答的评价是

本帖最后由 朱荣兴 于 15:55 编辑

A列到Q列昰最近6次考试的总成绩表按分数高低排列。

Sub 根据学号分组复制粘贴归纳成绩()

补充内容 ( 14:44): 在chxw68老师的热情帮助下本帖所有问题都已解决。在此我对chxw68老师谨表示衷心的感谢!!

chxw68老师:多谢您的大力帮助,代码是有效的

现在产生了一个新问题:原来是一个班,现在要增加两个癍变成三个班了。按原来的思路:分组复制粘贴归纳查询的学号都是1~15号,请问代码怎么改动

想要写一个代码,根据“BF4:BJ4”;“BM4:BR4”;“BV4:BZ4”(橘***底纹);“CE4:CI4”;“CM4:CQ4”;“CU4:CY4”(紫色底纹);“DD4:DH4”;“DL4:DP4”;“DT4:DX4”(红色底纹)这九组学号在左侧的总成绩表里查询每次考试相对应的学号,然后连同其姓名、成绩一齐复制粘贴到“BF7:DX29”中每一组相应的区域 

具体想达到的效果见“BF:DX”区域。拜托您帮我把原来的代码改写一下可以吗?不胜感谢!!


参考资料

 

随机推荐