南师大博雅VB记案例
南京师范大学关于博雅课程的实施意见
附件一：南京师范大学关于博雅课程的实施意见宁师教…2007‟5号各学院：21世纪对人才素质的要求，最重要的是能力和创新。
高校作为培养高级专门人才的基地，如何深化教学改革，以培养适应21世纪经济、科技和社会发展需要的高素质人才，是一个亟待理论研究和实践探索的重要课题。
经研究和论证，学校决定在2006本科人才培养方案中设臵博雅教育课程，以期培养更多的高素质创新人才。
为了建设好博雅教育课程，特提出以下实施意见。
一、博雅教育课程的内涵博雅教育是一种教育理念，是专业教育的基础并和专业教育一起构成培养人才的基础。
“博”是博学多才，突出全面训练；“雅”是风度、境界，是人的品味；博雅教育的基本精神是通而不是偏，是对现代高等教育过度专业化导致的人的片面发展的矫正和超越，它突出以人为本，关注人的发展，培养具有广博知识和优雅气质的人，注重提升人的生命价值和生活品质。
它不仅鼓励开展多学科多领域的探索，更强调跨学科的整合。
开展博雅教育课程是实施博雅教育的主要途径之一。
博雅教育课程是一套旨在夯实基础、强化素质的课程教学新体系，力图增强学生对各主要知识领域的认识，引导他们了解不同领域的研究方法，同时通过研究性教学的实施，着重培养学生的认知能力、思考能力、沟通能力和批判能力，使之形成“追求卓越”的创新精神。
二、课程建设与规划博雅教育课程建设纳入全校本科课程建设体系，采取立项方式进行建设，学校给予必要的经费支持。
项目建设周期一般为4年。
学校每学年择机组织申报与评选。
为保证建设课程学科类型的合理分布，满足学生的修读要求，必要时学校将直接委托或指定某些学院具体承担课程的建设任务。
学校鼓励具有高级职称、教学水平高的教师申报建设，评选时将优先考虑有相关研究基础或具有一定实际建设成果的课程。
学校计划用三年左右的时间，重点建设200门左右的博雅教育课程。
学校将成立由校领导担任主任委员的博雅教育课程指导委员会，具体负责课程建设的审议、指导和检查。
·博雅公关TCL案例【精品共享-doc】
TCL 100 FamilyClient Name TCLDate Summer 2007City China, NationalContact Zhou, DavidClient's Business ElectronicsPractice/Company TechnologyType of Work (1) Brand Building/MarketingType of Work(2) Consumer RelationsType of Work (3) Internet Communications StrategyAwardsOverviewChinese consumers are eager to be part of the trend of upgrading Cathode Ray Tube (CRT) televisions to High Definition Liquid Crystal Display (HD LCD) TVs, but the majority is unfamiliar with HD technology and cannot differentiate between the benefits offered by competing brands.TCL, one of the largest manufacturers in the global television industry, wanted to help consumers better understand HDTV and raise its profile in the process. Unfortunately, Chinese brands were perceived by consumers as lacking differentiation in the best case scenario, and as producing unreliable, low-end LCD TVs at worst. Furthermore, most people were not aware of TCL’s global status.Situation AnalysisObjectivesTCL had two clear campaign objectives:1. Reposition as a reliable, fashionable, high-end manufacturer of HD LCD TVs (Improve Chinese brand2. Boost sales of HD LCD TVs, while avoiding price wars with international and domestic competitorsThe success of the campaign would be measured by(A) the extent of consumer engagement,(B) media responsiveness,(C) pre and post campaign research and, importantly,(D) impact on product sales.Target Audiences were middle and high income families in Tier 1, 2 and 3 cities across China who prefer to acquire lifestyle information from digital media and TV.Strategy/ImplementationStrategyEveryone seeds media and professional reviewers. But in the Web 2.0 era, consumer word of mouth is more powerful than ever. So the idea evolved to launch a review campaign that would involve ordinary families and be powered by Web 2.0. The key message was ‘upgrading to a HD LCD TV allows families to enjoy a happier time together at home’.The heart of the campaign was a ‘100 Happy Families Blog Competition’ that selected 100 families from 11 cities across China from among 660 applications. The lucky families received a TCL HD LCD TV to enjoy for one month free-of-charge. At the end of the competition, finalist families were awarded a trip to Lijiang, a famous Chinese tourism destination, to compete in a finale event where one lucky family won the big screen TCL HD LCD TV.Finalists were selected through online voting by consumers, creating a powerful incentive for families to garner popularity by actively blogging about their experience with the TV and sharing stories and photos on the dedicated website. This created a potent viral marketing and word-of-mouth campaign as the families directed everyone in their social networks to the website to vote, creating an extremely personal and compelling connection to the brand and product for all involved.ResultsEvaluation of Success / Measurement (Not for Publication)The results of the 100 Families campaign were phenomenal against all four pre-determined measures, and continue to resonate:A. Consumer Engagement1. 660 applications received from families across China2. The 100 families wrote 378 blog entries and uploaded 776 photos to T CL’s dedicated website3. The family blog website received over 544,099 page views, and more than 266,754 consumer votesB. Media Coverage outcome (as of August 24, 2007):1. The finale event in Lijiang attracted 50 media2. 192 articles were generated, equaling an advertising of RMB ￥1,374,309 (or US$178,482) More articles, online postings and broadcast continues to appear as this award entry is submitted.C. Pre and Post Campaign ResearchIn addition to measuring Consumer Engagement and Media Responsiveness, Research conducted by TCL and with key portal websites in China demonstrated we had achieved our first objective:1. After the campaign 3 times as many online voters said they would select a Chinese brand when making a LCD TV purchase decision, with a result of nearly 66% compared to 21.6% in Q1 2007.2. And more than 92% of respondents responded they had greater confidence in the TCL brand.D. Business outcome1. The increase in sales demonstrated we had achieved our second objective.2. Sales of TCL HD LCDs increased consistently from June to August 2007, the off-season for TV sales.Type of Work Brand Building/Marketing, Consumer Relations, InternetCommunications StrategyAttachments TCL 100 family- BM China-2007.ppt。
南师大易班建设案例
南师大易班建设案例（原创版）目录一、南师大易班建设背景二、南师大易班建设的主要内容三、南师大易班建设的成果与影响四、南师大易班建设的启示正文【南师大易班建设背景】南师大易班建设是在我国教育部推动下，南京师范大学为提高教育教学质量和满足学生个性化学习需求，而实施的一项教育信息化建设工程。
该项目以易班为平台，整合校内外资源，构建了一个线上线下相结合的教学生态圈。
【南师大易班建设的主要内容】南师大易班建设的主要内容包括以下几个方面：1.课程资源建设：通过引进国内外优质课程资源，鼓励教师自建课程，丰富课程体系，满足学生多元化学习需求。
2.教学模式创新：结合易班平台的优势，开展线上线下混合式教学，提高教学质量和效果。
3.学生个性化学习：通过易班平台，学生可以自主选择学习课程、学习进度和方式，实现个性化学习。
4.教学管理与服务：易班平台为教师提供便捷的教学管理工具，为学生提供一站式学习服务，提高教学管理效率。
【南师大易班建设的成果与影响】南师大易班建设取得了显著成果，产生了积极影响：1.提高了教育教学质量：通过易班平台，实现了教育教学资源的共享，促进了教师教学水平的提升，提高了学生满意度。
2.推动了教育信息化发展：南师大易班建设为我国教育信息化发展提供了一个成功案例，对其他高校具有借鉴意义。
3.提升了学校品牌形象：南师大易班建设的成果得到了广泛关注和认可，提升了学校的品牌形象和社会影响力。
【南师大易班建设的启示】南师大易班建设为我们提供了以下启示：1.教育信息化建设应注重资源整合和共享，实现教育教学质量的提升。
2.教育教学改革应以学生为中心，满足学生个性化学习需求，提高学生满意度。
3.创新教学模式，结合现代信息技术，实现线上线下教学的深度融合。
大数据与会计专业协同育人成果的典型案例
大数据与会计专业协同育人成果的典型案例近年来，随着大数据技术的飞速发展，大数据与会计专业的协同育人成果也日益显现。
大数据在会计教育中的应用，不仅丰富了学生的学习内容，提高了学习效果，还培养了学生的数据分析能力和创新精神。
以下是几个典型的案例：1. 大数据在会计信息系统课程中的应用在会计信息系统课程中，学生需要学习如何设计和管理一个有效的会计信息系统。
大数据技术可以帮助学生分析海量的财务数据，从中提取有价值的信息。
例如，学生可以利用大数据技术分析公司的财务数据，找出隐藏在数据中的规律和趋势，为公司的决策提供支持。
2. 大数据在会计审计中的应用会计审计是会计专业的重要课程之一，学生需要学习如何审计公司的财务报表。
大数据技术可以帮助学生快速、准确地分析公司的财务数据，发现潜在的审计风险。
例如，学生可以利用大数据技术对公司的交易数据进行分析，找出异常交易和潜在的财务舞弊行为。
3. 大数据在财务管理中的应用财务管理是会计专业的核心课程之一，学生需要学习如何有效地管理公司的财务资源。
大数据技术可以帮助学生分析公司的财务数据，了解公司的财务状况和经营情况。
例如，学生可以利用大数据技术分析公司的财务数据，找出公司的盈利模式和成本结构，为公司的财务决策提供支持。
4. 大数据在预测与决策中的应用预测与决策是会计专业的重要能力之一，学生需要学习如何利用数据进行预测和决策。
大数据技术可以帮助学生分析大量的财务数据，找出与未来业绩相关的因素，并进行预测和决策。
例如，学生可以利用大数据技术分析公司的财务数据和市场数据，预测公司未来的盈利能力和市场表现，为公司的战略决策提供支持。
5. 大数据在税务管理中的应用税务管理是会计专业的重要课程之一，学生需要学习如何合理地管理和规划公司的税务事务。
大数据技术可以帮助学生分析大量的税务数据，找出合理的税务规划方案，并提高税务管理的效率。
例如，学生可以利用大数据技术分析公司的财务数据和税务数据，找出合理的税务优惠政策，并制定相应的税务策略。
高校通识教育课程设置的问题分析——以南京师范大学为例
单 位 文 学 院 应 承 担 建 设 的 最 低 配额 （ ） 门 ２ ０ 比 例 单 位 应 承 担建 设 的 最 低 配 额 （门 ） １ ０ 比 例 ５３ ．％
１． ％ 美 术 院 ０３
一
博 雅 课 程 采 取 立 项 建 设 制 度 ， 师 根 据 《 京 师 大 通 教 南 识 教 育 选 修 课 程 参 考 目 录 （ 求 意 见 稿 ） ， 及 自身 的 情 征 》以 况 进 行课 程 申报 ， 过 遴 选 后 ， 定 是 否 开课 。 选 的标 经 确 遴 准 为 ： 础 性 与 先 进性 相 统 一 ； 样 性 与 整 合性 相 统 一 ： 基 多 普 适性 与 深刻 性统 一 。 学 校 为各 学 院 承担 博 雅 教 育 课 程设 定 了最 低 配 额 ． 以人文 科 学学 科及 社 会科 学学 科 为 主 的学 院承 担 的配 额 远 高 于 以 自然 科 学 学 科 为 主 的 学 院 。
社发 院 公管 院
教 科 院 外 语 院
１ ５ ｌ ５
ｌ ５ ｌ ５
７７ ．％ 体科 院 ７７ ．％ 新 传院
７７ ． ％ 商 学 院 ７７ ． ％ 金 女 院
５ ８
８ ８
２７ ．％ ４１ ．％
４１ ．％ ４１ ．％
、
博雅 教 育课 程 的实 施现 状①
业 、 专并 重 、 流培 养 ” 为 教 改方 针 ， 破 专业 和 学科 通 分 作 打
化科 院
生 科 院 地 科 院
音 乐 院
８
８ ８
１ ０
４ １ 动力院 ．％
(德育案例)博识育智,雅德润心2523
博识育智，雅德润心——国际学校在培养积极领导与团队合作能力的德育案例分析"教育不应只是填鸭式的知识灌输，更应为学生的未来铺就成功的道路。
"随着世界日益全球化和竞争日趋激烈，培养学生团队合作能力成为教学的关键任务。
力争实现对学生全面成长的追求，学生才能在未来的人生道路上脱颖而出；培养团队合作精神，学生才能在多元化的社会中协调合作、共同创造。
本案例分析将探讨国际学校中班主任在培养学生积极领导与团队合作能力方面的德育实践。
我们将从引导学生发现自身领导潜能开始，通过鼓励他们承担责任、培养决策能力和培养良好沟通技巧，逐步引导他们成为具有影响力的领导者。
同时也将探讨如何通过团队项目、合作活动和跨学科学习等方式，培养学生的团队合作技能、协作精神和倾听能力。
一、背景介绍：国际学校中班主任的角色和责任作为班主任，我们扮演着关键的角色和肩负重要的责任，不仅仅是知识的传授者，更是学生成长道路上的引领者和支持者。
我们被视为学生和家长之间的桥梁，以及学校与社会之间的联络者，负责管理和组织班级事务，确保学生的学术进步和心理健康。
通过引导学生发现自身的领导潜能，鼓励他们参与学校的领导岗位和活动，努力培养学生积极的领导能力。
我们应与学生一起制定个人发展计划，并提供相关的培训和资源，帮助他们成为自信、负责任的领导者。
同时注重培养学生的团队合作精神和协作能力。
通过组织团队项目和合作活动，鼓励学生在团队中合作完成任务，以促进学生之间的相互理解和协作。
必要时提供团队合作技巧和冲突解决方法的指导，帮助学生有效地与他人合作，并倡导团队成员之间的互相支持和倾听。
关注学生的情感需求也是我们的职责之一。
我们应以卓越的教育专业知识和关怀学生的态度，致力于培养学生积极领导与团队合作能力。
通过个性化的指导和多样化的活动，帮助学生发掘自身潜能，成为具有影响力的领导者，并在团队合作中展现协作精神和倾听能力。
二、对于学生领导潜能的发现与引导在日常教育工作中，作为班主任要致力于发现和引导班级学生的领导潜能，帮助他们实现个人成长和发展。
南京师范大学成功案例
赛扶中国2010/11团队项目管理成功经验——南京师范大学一、成长的一路我想南师赛扶团队的每一个人会永远记住2008年这个不同寻常的转折。
这个06年由校研究生会发起成立的组织在经历了07年的传承断层，身份被注销，在校园内销声匿迹之后又恢复了生命。
从08年10月团队正式重新成立，到现在拥有51名成员（最多时达到82名），运营超过10个项目，成立赛扶基金累计进账3万余元，获得丰富的媒体曝光率，取得了学校官方的支持，获得多个赛扶单项奖并连续两年进入赛扶公益创新大赛全国赛，诚然现在的成绩还远不能跟很多传统的赛扶强队相比，但这一路走来真的十分艰辛。
在总部的邀请下我写下这篇文章，分享我们克服困难的一些经验，也希望能与各赛扶团队加强沟通，共同进步。
二、行政支持很多团队的经验都表明赛扶团队的稳定发展离不开学校官方的支持。
南师赛扶06年初刚成立的时候跟很多社团一样挂靠在校团委，面临着所有社团都会遇到的没钱没人的窘境。
同时由于文科类学校商业氛围相对较淡，加上与各种打着就业创业名号的组织的竞争，06年那届的几个学长学姐参加了比赛之后，团队便没能传承下来。
08年由外国语学院的李思宇老师牵头，在外院团委的支持下，南师赛扶团队重新挂靠校团委，由外国语学院团委组织开展具体工作。
取得外院支持的原因主要有以下两点：一是外院希望利用语言优势，打造一个相对国际化的精英学生平台；二是赛扶能够成为外院特色的就业创业工作的一部分。
从此南师赛扶团队以外院为工作基地，招募各院系学生开始运营。
我们得到的支持主要包括项目及团队发展的学术指导，会议和活动场地使用权，资金拨放及报销，以及校园媒体宣传。
在团队开展项目和参加比赛的同时，我们也与校团委和学工处合作举行就业创业类的活动，这不仅赢得了官方的认同，也极大地提升了团队的知名度。
三、项目开发开发项目是一个艰巨的工程。
为了使新人尽快上手，我们会在招新后举行SIFE Case Study和一系列培训，详尽剖析和学习历年赛扶中国和赛扶世界杯的优秀案例，让SIFEr们在充分了解赛扶和项目之后一起做Brainstorming，把收集的项目点子进行市场调研和SWOT 分析，综合考虑商业顾问、指导老师和赛扶校友的意见，再经由大家讨论以正式立项。
《bi案例大全》PPT课件
客户难题
• 企业大量分析需求需要快速且准确的解决，优化数据查询速度 • 客户曾经自主研发，耗费了太多的时间和精力，效果不佳 • 在与其他厂商比较价格和效能表现后，决定选择 QlikView解决
方案
解决方案
• 在Esprit实施第一阶段计划：
• 库存分析和终端销售分析：短短3天时间，快速和轻松地完成了从数据 抽取到实施培训的所有流程 ，速度使其他BI难以企及
• 传统BI工具缺乏灵活性，速度和能够让销售和交易商快速获得其 所需信息的功能应用
解决方案
• 在欧洲和北美，部署QlikView近500个用户数，在信贷和电子交 易部门:
销售和交易业绩: 在电子市场，特别通过自动谈判的交易，可增强可视化 系统，使分析结果简单而深入 市场分析: 为综合交易活动提供一个单一的试图，展示趋势，交易量和发 展方向 历史价格趋势分析: 通过时间和多维度展现，分析和定位价格趋势 客户文件分析: 通过平台和产品来监测客户表现，并且接下来的步骤安排 提供客户警报捆绑 客户服务分析: 考虑到客户跟进，一些在贸易活动的服务中要遵守的一些 事由
• 采用QlikView特有的Excel抽取转换引擎，快速抽取合并Excel文件中 的数据，并将内部分散的数据整合。
• 建立起了一个统一、集中的决策支持分析平台，为管理数据分析的准 确性、及时性提供了保障，更有利于帮助管理层做出重大经营管理决 策。
• 是摩根大通公司的一部分，投资银行的领导者，为消费者，小型 企业，商业银行，金融交易管理，资产管理和私人股本提供金融 服务。
• JP摩根在机构投资者的全欧洲固定收益调研中连续5年排行第一 • 行业把信息在正确的地方传给正确的人，来深入挖掘所 有的客户机会
• 基于实时和历史数据，获得更多关于什么客户，交易商和销售人 员现状的信息
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
南师大博雅VB记案例————————————————————————————————作者：————————————————————————————————日期：循环结构一、For循环语句：1、计算1+2+3+4……+100Private Sub Form_Click()Dim a As Integer, s As Integer For i = 1 To 100a = a + 1s = s + aNext iPrint sEnd Sub2、计算1+3-5+7-9+……-99Private Sub Form_Click()Dim a As Integer, s As Longa = -1For i = 1 To 99 Step 2a = a + 2s = s + (-1) ^ n * an = n + 1Next iPrint sEnd Sub3、找一个数的约数Private Sub Command1_Click() Dim n As IntegerList1.Clearn = InputBox("输入")For x = 1 To nIf n Mod x = o ThenList1.AddItem Str(x)End IfNext xEnd Sub4、循环嵌套：找勾股数（1）Private Sub Command1_Click()Dim n As IntegerList1.ClearFor a = 1 To 300For b = a To 300For c = b To 300If a ^ 2 + b ^ 2 = c ^ 2 ThenList1.AddItem Str(a) & Str(b) & Str(c)End IfNext cNext bNext aEnd Sub（2）简化Private Sub Command1_Click()List1.ClearFor a = 1 To 500For b = a To 500If Sqr(a ^ 2 + b ^ 2) = Int(Sqr(a ^ 2 + b ^ 2)) ThenList1.AddItem Str(a) & Str(b) & Str(Sqr(a ^ 2 + b ^ 2)) End IfNext bNext aEnd Sub二、Select结构语句（善于实现多分支结构）Select case eCase e1A语句Case e2B语句...Case elseN 语句End Select1、随机出扑克牌：Private Sub Command1_Click()Dim n As Integern = Int(Rnd * (13 - 1 + 1) + 1)Select Case nCase 1Text1.Text = "ACE"Case 2 To 10Text1.Text = CStr(n)Case 11Text1.Text = "JACK"Case 12Text1.Text = "QUEEN"Case ElseText1.Text = "KING"End SelectEnd Sub三、DO—LOOP循环结构(1)Do While e (2)Do……[Exit do] [Exit do]……LOOP LOOP While e(3)Do until e (4)Do……[Exit do] [Exit do] ……Loop Loop until e1、找最大公约数Private Sub Command1_Click()Dim n As Integer, m As Integer, r As Integern = Val(Text1.Text)m = Val(Text2.Text)Dor = n Mod mn = mm = rLoop While r <> 0Text3.Text = nEnd Sub2、统计分数：输出总分，最高分，最低分，平均分Private Sub Command1_Click()Dim s As Integer, max As Integer, min As Integermax = 0min = 100Don = InputBox("成绩")If n <> -1 Thenk = k + 1s = s + nAvg = s / kIf n > max Then max = nIf n < min Then min = nElseExit DoEnd IfLoopPrint "总分"; sPrint "平均分"; AvgPrint "最高分"; maxPrint "最低分"; minEnd Sub数组1、产生一个而为数组1 2 34 5 67 8 9Private Sub Command1_Click()Dim a(3, 3) As Integerk = 1For i = 1 To 3For j = 1 To 3a(i, j) = kk = k + 1Print a(i, j);Next jPrintNext iEnd Sub2、产生10个各不相同的随机数Private Sub Command1_Click()Dim a(10) As Integer, n As IntegerRandomizeForm1.ClsFor i = 1 To 10k = k + 1n = Int(Rnd * 90 + 10)For j = 1 To i - 1If n = a(j) Then Exit ForNext jIf j = i Thena(i) = nPrint a(i);Elsei = i - 1End IfNext iPrint kEnd Sub3、用数组做计数器：求“两个骰子和”的概率Private Sub Command1_Click()Form1.ClsDim a(2 To 12) As Integer, n As IntegerFor i = 1 To 100n = Int(Rnd * 6 + 1) + Int(Rnd * 6 + 1)a(n) = a(n) + 1Next iFor i = 2 To 12Print CStr(i); ":"; a(i)Next iEnd Sub4、产生一个五行五列的随机数组Private Sub Command1_Click()Dim a(5, 5) As IntegerRandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 90 + 10)Print a(i, j);Next jPrintNext iEnd Sub5、随机控制任意行列数组Private Sub Command1_Click()Dim a() As Integer, m As Integer, n As Integer Form1.ClsRandomizem = InputBox("行")n = InputBox("列")ReDim a(m, n)For i = 1 To mFor j = 1 To na(i, j) = Int(Rnd * 90 + 10)Print a(i, j);Next jPrintNext iEnd Sub6、找质数7、制作计算器Private Sub Command1_Click(Index As Integer)text1 = text1.Text& CStr&(index)End Sub过程调用1、SUB过程调用：算圆面积Private Sub Command1_Click()Dim r As Single, m As Singler = Val(Text1.Text)m = 0Call s(r, m) r,m 为实参Text2.Text = mEnd SubPrivate Sub s(r As Single, area As Single) r,area 为形参area = 3.14 * r ^ 2End Sub参数的集合就是实参和形参的结合，实参通过位置把数值传给形参2、Function过程调用：算圆面积Private Sub Command1_Click()Dim r As Integerr = Text1Text2 = area(r)End SubPrivate Function area(w As Integer) As Singlearea = 3.14 * w * wEnd Function3、计算阶乘n！m！*（n-m）！（1）用一般的循环方式计算：Private Sub Command1_Click()n = Val(Text1.Text)m = Val(Text2.Text)k = nt = 1For i = 1 To kt = t * iNext is = tk = mt = 1For i = 1 To kt = t * iNext is = s / tk = n - mt = 1For i = 1 To kt = t * iNext is = s / tText3.Text = Str(s)End Sub（2）用FUNCTION过程调用计算阶乘Private Sub Command1_Click()Dim m As Integer, n As IntegerDim i As Integer, k As IntegerDim t As Long, s As Longn = Val(Text1.Text)m = Val(Text2.Text)s = fact(n) / (fact(m) * fact(n - m))Text3.Text = Str(s)End SubPrivate Function fact(k As Integer) As LongDim i As Integerfact = 1For i = 1 To kfact = fact * iNext iEnd FunctionByval 传值方式Byref 传址方式（数组作为形参采用传址方式）默认传址方式（3）用FUNCTION过程调用计算阶乘（DO LOOP循环）Private Sub Command1_Click()Dim m As Integer, n As IntegerDim i As Integer, k As IntegerDim t As Long, s As Longn = Val(Text1.Text)m = Val(Text2.Text)s = fact(n) / (fact(m) * fact(n - m))Text3.Text = Str(s)End SubPrivate Function fact(k As Integer) As LongDim i As Integerfact = 1For i = 1 To kfact = fact * I ？Next iEnd Function4、数组作为形参的过程调用Private Sub Command1_Click()Dim a(8) As IntegerCall gen(a)Call out(a)Call sort(a)Call out(a)End SubPrivate Sub out(a() As Integer)For i = 1 To UBound(a)Print a(i);Next iPrintEnd SubPrivate Sub gen(a() As Integer)For i = 1 To UBound(a)a(i) = Int(Rnd * 90 + 10)Next iEnd SubPrivate Sub sort(a() As Integer)Dim t As IntegerFor i = 1 To UBound(a) - 1For j = i + 1 To UBound(a)If a(i) > a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iEnd SubEnd Sub递归过程1、用递归过程算阶乘Private Sub Command1_Click()Dim n As Integern = InputBox("输入一个正整数")Print n; "!="; fact(n)End SubPrivate Function fact(ByVal n As Integer) As LongIf n = 1 Thenfact = 1Elsefact = n * fact(n - 1)End IfEnd Function2、算非布拉切函数fib：0，1，1，2，3，5，8……Private Sub Command1_Click()Dim n As Integern = InputBox("输入一个正整数")Print fib(n)End SubPrivate Function fib(n As Integer) As LongIf n = 1 Or n = 0 Thenfib = nElsefib = fib(n - 1) + fib(n - 2)End IfEnd Function打字游戏前提：label visible falseTimer enabled falseInterval 80Form keypreview truePrivate Sub gen()Label1.Top = 0Label1.Visible = TrueLabel1.Caption = Chr(Int(Rnd * 26 + 65))'Label.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) ？Private Sub Command1_Click()Timer1.Enabled = TrueCall genEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) = Label1.Caption Then Call genEnd SubPrivate Sub Timer1_Timer()If Label1.Top < 3000 ThenLabel1.Top = Label1.Top + 50Else: Call genEnd IfEnd SubPrivate Sub gen()Label1.Top = 1440Label1.Visible = TrueLabel1.Caption = Chr(Int(Rnd * 26 + 65))End SubPrivate Sub Command1_Click()Timer2.Enabled = TrueTimer1.Enabled = TrueCall genEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) = Label1.Caption ThenCall genText3.Text = Val(Text3.Text) + 1End IfEnd SubPrivate Sub Timer1_Timer()Dim n As Integern = Text3.TextSelect Case nCase 0 To 30Text2.Text = 1Timer1.Interval = 100Case 30 To 60Text2.Text = 2Timer1.Interval = 60Case ElseText2.Text = 3Timer1.Interval = 30End SelectIf Label1.Top < 6840 ThenLabel1.Top = Label1.Top + 50Else: Call genEnd IfEnd SubPrivate Sub Timer2_Timer()Text1.Text = Val(Text1.Text) + 1 End Sub。