南师大博雅VB记案例
- 格式:doc
- 大小:131.00 KB
- 文档页数:15
附件一:南京师范大学关于博雅课程的实施意见宁师教…2007‟5号各学院:21世纪对人才素质的要求,最重要的是能力和创新。
高校作为培养高级专门人才的基地,如何深化教学改革,以培养适应21世纪经济、科技和社会发展需要的高素质人才,是一个亟待理论研究和实践探索的重要课题。
经研究和论证,学校决定在2006本科人才培养方案中设臵博雅教育课程,以期培养更多的高素质创新人才。
为了建设好博雅教育课程,特提出以下实施意见。
一、博雅教育课程的内涵博雅教育是一种教育理念,是专业教育的基础并和专业教育一起构成培养人才的基础。
“博”是博学多才,突出全面训练;“雅”是风度、境界,是人的品味;博雅教育的基本精神是通而不是偏,是对现代高等教育过度专业化导致的人的片面发展的矫正和超越,它突出以人为本,关注人的发展,培养具有广博知识和优雅气质的人,注重提升人的生命价值和生活品质。
它不仅鼓励开展多学科多领域的探索,更强调跨学科的整合。
开展博雅教育课程是实施博雅教育的主要途径之一。
博雅教育课程是一套旨在夯实基础、强化素质的课程教学新体系,力图增强学生对各主要知识领域的认识,引导他们了解不同领域的研究方法,同时通过研究性教学的实施,着重培养学生的认知能力、思考能力、沟通能力和批判能力,使之形成“追求卓越”的创新精神。
二、课程建设与规划博雅教育课程建设纳入全校本科课程建设体系,采取立项方式进行建设,学校给予必要的经费支持。
项目建设周期一般为4年。
学校每学年择机组织申报与评选。
为保证建设课程学科类型的合理分布,满足学生的修读要求,必要时学校将直接委托或指定某些学院具体承担课程的建设任务。
学校鼓励具有高级职称、教学水平高的教师申报建设,评选时将优先考虑有相关研究基础或具有一定实际建设成果的课程。
学校计划用三年左右的时间,重点建设200门左右的博雅教育课程。
学校将成立由校领导担任主任委员的博雅教育课程指导委员会,具体负责课程建设的审议、指导和检查。
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. 大数据在税务管理中的应用税务管理是会计专业的重要课程之一,学生需要学习如何合理地管理和规划公司的税务事务。
大数据技术可以帮助学生分析大量的税务数据,找出合理的税务规划方案,并提高税务管理的效率。
例如,学生可以利用大数据技术分析公司的财务数据和税务数据,找出合理的税务优惠政策,并制定相应的税务策略。
博识育智,雅德润心——国际学校在培养积极领导与团队合作能力的德育案例分析"教育不应只是填鸭式的知识灌输,更应为学生的未来铺就成功的道路。
"随着世界日益全球化和竞争日趋激烈,培养学生团队合作能力成为教学的关键任务。
力争实现对学生全面成长的追求,学生才能在未来的人生道路上脱颖而出;培养团队合作精神,学生才能在多元化的社会中协调合作、共同创造。
本案例分析将探讨国际学校中班主任在培养学生积极领导与团队合作能力方面的德育实践。
我们将从引导学生发现自身领导潜能开始,通过鼓励他们承担责任、培养决策能力和培养良好沟通技巧,逐步引导他们成为具有影响力的领导者。
同时也将探讨如何通过团队项目、合作活动和跨学科学习等方式,培养学生的团队合作技能、协作精神和倾听能力。
一、背景介绍:国际学校中班主任的角色和责任作为班主任,我们扮演着关键的角色和肩负重要的责任,不仅仅是知识的传授者,更是学生成长道路上的引领者和支持者。
我们被视为学生和家长之间的桥梁,以及学校与社会之间的联络者,负责管理和组织班级事务,确保学生的学术进步和心理健康。
通过引导学生发现自身的领导潜能,鼓励他们参与学校的领导岗位和活动,努力培养学生积极的领导能力。
我们应与学生一起制定个人发展计划,并提供相关的培训和资源,帮助他们成为自信、负责任的领导者。
同时注重培养学生的团队合作精神和协作能力。
通过组织团队项目和合作活动,鼓励学生在团队中合作完成任务,以促进学生之间的相互理解和协作。
必要时提供团队合作技巧和冲突解决方法的指导,帮助学生有效地与他人合作,并倡导团队成员之间的互相支持和倾听。
关注学生的情感需求也是我们的职责之一。
我们应以卓越的教育专业知识和关怀学生的态度,致力于培养学生积极领导与团队合作能力。
通过个性化的指导和多样化的活动,帮助学生发掘自身潜能,成为具有影响力的领导者,并在团队合作中展现协作精神和倾听能力。
二、对于学生领导潜能的发现与引导在日常教育工作中,作为班主任要致力于发现和引导班级学生的领导潜能,帮助他们实现个人成长和发展。
赛扶中国2010/11团队项目管理成功经验——南京师范大学一、成长的一路我想南师赛扶团队的每一个人会永远记住2008年这个不同寻常的转折。
这个06年由校研究生会发起成立的组织在经历了07年的传承断层,身份被注销,在校园内销声匿迹之后又恢复了生命。
从08年10月团队正式重新成立,到现在拥有51名成员(最多时达到82名),运营超过10个项目,成立赛扶基金累计进账3万余元,获得丰富的媒体曝光率,取得了学校官方的支持,获得多个赛扶单项奖并连续两年进入赛扶公益创新大赛全国赛,诚然现在的成绩还远不能跟很多传统的赛扶强队相比,但这一路走来真的十分艰辛。
在总部的邀请下我写下这篇文章,分享我们克服困难的一些经验,也希望能与各赛扶团队加强沟通,共同进步。
二、行政支持很多团队的经验都表明赛扶团队的稳定发展离不开学校官方的支持。
南师赛扶06年初刚成立的时候跟很多社团一样挂靠在校团委,面临着所有社团都会遇到的没钱没人的窘境。
同时由于文科类学校商业氛围相对较淡,加上与各种打着就业创业名号的组织的竞争,06年那届的几个学长学姐参加了比赛之后,团队便没能传承下来。
08年由外国语学院的李思宇老师牵头,在外院团委的支持下,南师赛扶团队重新挂靠校团委,由外国语学院团委组织开展具体工作。
取得外院支持的原因主要有以下两点:一是外院希望利用语言优势,打造一个相对国际化的精英学生平台;二是赛扶能够成为外院特色的就业创业工作的一部分。
从此南师赛扶团队以外院为工作基地,招募各院系学生开始运营。
我们得到的支持主要包括项目及团队发展的学术指导,会议和活动场地使用权,资金拨放及报销,以及校园媒体宣传。
在团队开展项目和参加比赛的同时,我们也与校团委和学工处合作举行就业创业类的活动,这不仅赢得了官方的认同,也极大地提升了团队的知名度。
三、项目开发开发项目是一个艰巨的工程。
为了使新人尽快上手,我们会在招新后举行SIFE Case Study和一系列培训,详尽剖析和学习历年赛扶中国和赛扶世界杯的优秀案例,让SIFEr们在充分了解赛扶和项目之后一起做Brainstorming,把收集的项目点子进行市场调研和SWOT 分析,综合考虑商业顾问、指导老师和赛扶校友的意见,再经由大家讨论以正式立项。
2023慕课十年典型案例
2023年慕课十年典型案例有多个,以下是一些例子:
1. “大学计算机基础”线上线下混合式一流课程建设。
该案例由中心成员周竞文负责,被评为2023年度“高校在线开放课程联盟联席会慕课十年典型案例。
2. 湘潭大学的艺术学院左迎颖老师团队的《慕课定制,“艺”路同行——湘潭大学艺术学院与喀什大学美术与设计学院慕课西行教创实践案例》。
3. 碧泉书院·哲学与历史文化学院周骅老师团队的《国学经典十讲》。
4. 公共管理学院何晖老师团队的《高等学校文化素质课程线上线下混合式教学探索与实践》。
以上案例均在全国慕课教育创新大会(第四届)暨高校在线开放课程联盟联席会2023年会中入选,该会议由国内27个跨地区、跨校、跨学科的慕课联盟类组织共同组建,基于全国性“大规模开放在线课程”的教育共同体,由教育部高等教育司指导、教育部高等学校教学信息化与教学方法创新指导委员会领导。
以上内容仅供参考,如需更多信息,可查看教育部官方网站。
教育智慧案例引言:教育智慧是指通过运用先进的科技手段和智能化技术,提升教育系统的效率和质量,为学生和教师提供更好的学习和教学环境。
在教育智慧案例中,我们将介绍一些成功的教育智慧案例,以展示教育智慧的潜力和价值。
1. 案例一:智能化教室在某中学,他们引入了智能化教室系统,该系统利用先进的技术设备和软件,为教师和学生提供更好的学习和教学环境。
智能化教室配备了交互式白板、投影仪、多媒体设备等,教师可以通过这些设备展示课件、演示实验等,激发学生的学习兴趣。
同时,学生可以通过智能化设备进行在线学习和互动,提高学习效果和参预度。
这个智能化教室系统匡助学校提高了教学质量,提升了学生的学习成绩。
2. 案例二:虚拟实验室在某大学的科学实验课程中,他们引入了虚拟实验室技术,通过计算机摹拟实验环境和操作,为学生提供更安全、便捷的实验学习体验。
学生可以通过虚拟实验室进行实验前的预习和实验过程的摹拟操作,从而更好地理解实验原理和方法。
虚拟实验室还可以提供更多的实验资源和场景,让学生有更多的实践机会。
这个虚拟实验室系统匡助学生在实验课程中获得更好的学习效果,提高了实验教学的质量。
3. 案例三:个性化学习平台某在线教育平台通过智能化技术开辟了个性化学习平台,根据学生的学习情况和兴趣特点,为他们提供个性化的学习内容和学习计划。
学生可以根据自己的学习进度和需求,自主选择学习资源和课程,进行自主学习。
个性化学习平台还可以根据学生的学习数据和反馈,提供智能化的学习建议和评估,匡助学生更好地掌握知识和提高学习效果。
这个个性化学习平台匡助学生实现了个性化学习,提高了学习的效率和质量。
4. 案例四:智能化学生管理系统某高中引入了智能化学生管理系统,通过运用人脸识别、智能考勤等技术,提升学校管理效率和安全性。
学生可以通过人脸识别系统进行考勤签到,避免了传统考勤方式的繁琐和错误。
学校管理人员可以通过智能化系统对学生的行为和学习情况进行实时监控和分析,及时发现问题并采取相应的措施。
南师大博雅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。