江苏师范大学信息门户

导读：　江苏师范大学信息门户篇一：江苏师范大学专业设置一览表(2014) ...

欢迎来到中国招生考试网http://www.chinazhaokao.com/成考报名栏目，本文为大家带来《江苏师范大学信息门户》，希望能帮助到你。

江苏师范大学信息门户篇一：江苏师范大学专业设置一览表(2014)

附件1

江苏师范大学专业设置一览表（2014）

江苏师范大学信息门户篇二：江苏师范大学专业设置一览表(2013.4.12)

江苏师范大学专业设置一览表（2013.4.12）

注：表中代“★”的专业是2013年新增专业和专业整理过程中一对多的专业。

江苏师范大学信息门户篇三：江苏师范大学网络信息安全复习

江苏师范大学信息门户篇四：江苏师范大学学士论文格式要求

徐州师范大学文学院 本科生学位论文撰写格式 一、学位论文各部分的内容 1.标题：标题应该明确，要有概括性。如标题不足以说明问题时，须加副标题。 2.摘要：摘要应高度概括论文的主要内容和观点，包括中文摘要（100—200 字）和英文 摘要。 3.关键词：针对论文的内容，论文应有3－5 个关键词，包括中文和英文关键词。 4.正文：论文的整体结构应符合“提出问题——分析问题——解决问题”的构成原则。 一篇合格的毕业论文应当满足以下条件：(1)对所研究和论述的问题认识较为清楚，观点正 确；(2)文章观点与材料统一，层次分明，条理清楚；(3)论证逻辑严密、推理正确；(4)所 用的专业术语准确、简练。 5.结论：结论包括对论文内容、观点进行归纳综合而得出的总结。它集中反映作者的研 究成果，表达作者对所研究的课题的见解和主张，是全文的思想精髓，是文章价值的体现。 一般应写得概括、精炼。 6.注释：注释一方面是对某一特定内容的诠释和说明；另一方面指引文，一般指的是引 用原著、原文的原话，也可以引用原著、原文的观点。 （1）在学位论文中引用文献时，应在引文处的右上方用阿拉伯数字编排序号（插入尾 注的方式）； （2）注释的排列按照文中引用出现的顺序列在正文的末尾； （3）注释书写格式应一致。其主要类型格式如下： 期刊：序号（空一格）作者（外文姓列名前）：文章题目名，期刊名（外文可缩写）， 出版年份，卷(期)号。 著作：序号（空一格）作者：书名，出版地：出版社，出版年份，页码。 报纸：序号（空一格）作者：篇名，报纸名，出版日期(版次)。 电子类：序号（空一格）作者：著作名，出处，发表或更新的日期。 7.参考文献：参考文献是撰写论文时参考的所有资料，是毕业论文不可缺少的组成部分。 它反映毕业论文的取材来源，材料的广博程度及材料的可靠程度。一份完整的参考文献也是 向读者提供的一份有价值的信息资料。一篇毕业论文原则上应不少于10 篇（部）参考文献。 参考文献应按下述格式标出：序号、著作者、文章或著作名称、刊物或出版社、卷期数 或出版时间等。所列参考文献如需换行，则应与上一行文字对齐，以保持各序号的上下整齐。 对于书籍的各种资料，必须依照其版权页所列的资料标出。 参考文献书写格式应一致，或符合本学科的国际标准，或符合国标 GB7714－87《文后 参考文献著录规则》。其主要类型格式如下： 期刊：[序号] 作者（外文姓列名前）：文章题目名，期刊名（外文可缩写），出版年份， 卷(期)号。 著作：[序号] 作者：书名，出版地：出

版社，出版年份。 报纸：[序号] 作者：篇名，报纸名，出版日期(版次)。 电子类：[序号] 作者：著作名，出处，发表或更新的日期。 2 二、毕业论文文档与格式要求 1.论文字数要求一般文学类在7000－8000 字；语言类4000－8000 字；新闻与秘书类5000 －8000 字。 2.论文结构顺序：（1）论文封面(使用文学院统一规格的封面)（2）标题（3）专业班级、 姓名（4）摘要、关键词（5）引言（6）正文（7）结论（8）参考文献（9）英文标题、英文 摘要、英文关键词。 3.版面要求：毕业论文统一用A4 纸打印。 4.字体与段落：（1）论文题目：正标题：黑体三号字，居中，固定行距32磅；副标题： 另起一行，前面加破折号。宋体小三号字，固定行距24磅，段后12磅。（2）中文摘要、关键 词：“摘要”二字中间空一格，五号黑体，摘要正文用五号楷体。“关键词”三字与“摘要” 二字上下对齐，五号黑体；关键词语五号楷体，各关键词之间空一格。（3）正文：宋体小四 号，行距23磅。（4）注释序号以尾注的方式编排。（5）参考文献：“参考文献”四字五号黑 体，左对齐；下列各条文献序号用中括号括上，文献内容均用五号宋体列出。 附：学位论文基本格式 3 附：学位论文基本格式 [论文题目]（居中，黑体三号字，固定行距32 磅） ——副标题（居中，宋体小三号字，固定行距24 磅） （此处空一行） 专业 班级 学号 姓名（居中，宋体小四号） （此处空一行） [摘 要]（黑体五号字）

江苏师范大学信息门户篇五：江苏师范大学VPN系统使用说明

江苏师范大学VPN系统使用说明

文章作者：信网中心 发布时间：2012-12-24 浏览次数：

江苏师范大学VPN系统使用说明

VPN的连接

1. 打开IE浏览器，在地址栏中输入，如果使用IE6，会出现以下安全警报提示，点击“是(Y)”。建议用户在访问VPN系统时使用IE浏览器，使用其它浏览可能会导至VPN无法正常工作。

如果使用IE7或IE8，会出现证书错误的提示，点击“继续浏览此网站”。

2. 在出现的登录界面中，输入用户名和密码。VPN登录的用户名和密码由统一身份认证系统提供，用户名为校园卡卡号，初始密码为身份证号后6位。学校信息门户的用户名密码也由统一身份认证系统提供，因此如果用户此前在信息门户中修改过密码，则VPN的登录密码也已被同步被修改。VPN系统不提供单独的密码修改功能，如需要修改密码请登录校内信息门户进行修改。校内信息门户地址：

首次登录VPN时，用户名和密码校验成功后，会出现初始化界面，请注意IE提示栏中的安装提示，如下图：

左键单击提示信息，并选择“安装ActiveX控件”，在软件安装的弹出窗口上点击“安装”来安装VPN软件。

点击安装后会出现下面的软件安装进度窗口，请勿关闭该窗口，等待软件安装完成。安装完成后，软件会自动最小化到任务栏中。显示一个红色的“A”图标，说明与VPN连接成功，见下图：

VPN的使用

正常连接后就可以使用VPN系统了，可以通过单击VPN页面上的资源列表直接访问，也可以单独打开一个IE窗口，在浏览器地址栏中输入想要访问的网址来访问校内资源。

的退出

访问结束后，请双击任务栏（计算机屏幕的右下角）中的红色字母A，如下图。在弹出的页面中选择“Exit & Logout”退出与VPN系统的连接。

常见问题

1. 无法正常安装ActiveX控件

可能是IE的设置有问题，请选择IE菜单的“工具”栏中的“Internet选项”，选中“允许运行或者安装软件，即使签名无效”复选框，点击“确定”。重新开启一个IE，重新登录VPN即可。

2. 在使用VPN时，需要使用到浏览器的ActiveX以及Cookie等功能，因此，如果在浏览器中禁用了ActiveX或者Cookie，都将导致无法登录。如果取消禁用后仍无法访问，请尝试关闭或删除防火墙。

3. VPN系统是为了方便教师和学生在校外访问校园网内的资源，使用完毕后请务必退出VPN系统，以释放资源，否则，可能会影响您的其他网站的访问速度。

登陆后，可访问学校购买的所有数据库。如果用的是学校的校园网（50元包月的那种，非移动套餐赠送类），则不用登陆vpn。

江苏师范大学信息门户篇六：江苏师范大学 教育技术学大事记(2013完全版)

江苏师范大学

教育技术学大事记

2013年

 取得省工程技术研究中心建设项目——“江苏省教育信息化工程技术研究中心”

（BM2013224），全国第一个省级教育信息化工程技术研究中心。

 与江苏省电化教育馆、江苏省教育信息化工作领导小组办公室签署《协同创新建

设学科网暨学科门户的协议》，将以教育技术学科网的建设经验为基础，协同开

发建设智慧型的学科网和学科门户，力求将学科网、学科门户创新建设为学科智

慧生成平台、变革创新平台、协同创造平台、资源深度聚合平台，创办移动网刊，

力求打造为世界级的中文学科资源中心，充分彰显江苏教育强省特色，成为江苏

省率先实现教育现代化的特色、品牌和标志之一，真正发挥信息化对教育现代化

的巨大引领和带动作用。

 教育技术学专业成为国家专业综合改革试点专业。

 教育技术学科网、江苏省教育信息化工程技术研究中心联合中国教育技术协会、

《中国电化教育》杂志社、中国教育报社，发起并评选2013中国教育信息化十大

新闻。所评出的十大新闻是：建立全国统一学籍信息管理制度，中小学生“一人

一号”终身不变；建设全国教职工管理信息系统，实现全国各级各类学校教职工

基础信息“一人一号”入库；6000万师生同听太空授课，远程教育遥及太空；启

动教育局长教育信息化专题培训，提高教育战线教育信息化认识水平；启动“提

升工程”，推动信息技术应用能力、学科教学能力和专业自主发展能力全面提升；

“慕课”引发技术变革教育新热潮，清华、北大、交大、复旦开网络公开课；虚

拟仿真实验提升到国家关注层面，100个国家级虚拟仿真实验教学中心各具特色；

举办全国教育信息化竞赛、现场观摩和展示，扎实推进信息技术与教育教学深度

融合；职业院校信息化教学指导委员会成立，全国教育信息化专家组织进一步优

化；国家精品资源共享课正式上线，200门教师教育国家级精品资源共享课正式公

布。

 与江苏省教育信息化工作领导小组办公室、教育技术学科网、江苏省教育信息化

工程技术研究中心联合评选2013年全国(首届)教育信息化年度新秀。所评出的十

大年度新秀分别为：华南师范大学胡小勇、江苏师范大学杨现民、华南师范大学

詹泽慧、南京师范大学钟柏昌、东北师范大学袁磊、国家开放大学魏顺平、北京

师范大学郑兰琴、清华大学朱永海、河南大学赵慧臣、温州大学杨刚。

 陈琳教授又一论文发表于《教育研究》（《以信息化带动教育现代化路径创新探

析》2013年11期）

 杨现民取得全国教育科学规划青年基金项目《开放环境下学习资源进化机制设计

与应用研究》（CCA130134）

 先后有10位教育技术学研究生获得国家奖学金，他们分别是张田、安璐、方兵、

李小刚、张怀南、陈耀华、王雨、杨叶、张乐乐、李东锋

























 徐福荫教授应邀指导 袁振国教授应邀指导 顾明远教授应邀指导 吴康宁教授应邀指导 徐晓东教授应邀指导 倪振民教授应邀指导 钟晓流教授应邀指导 宋述强主任应邀指导 韩骏主任应邀指导 武法提教授应邀指导 郭绍青教授应邀指导 汪基德教授应邀指导 教育技术学本科生、研究生在省大学生领航杯数字作品中获得最好成绩。所获一、

二奖项为：

一等奖：DV作品《云龙山》.李小刚、薛婧、白盈盈、孙鹏、张怀南

二等奖：网站作品《移动与泛在学习》.建丹凤、陈静、陆奥帆、沈雅云

二等奖：应用软件《数字摄影宝典》.杨叶、董启标

 陈耀华、郭晓珊、荣荣取得全国教育教学信息化大赛二等奖

 陈琳、蔡国春、李子运、黄如民、王帆、王运武《教育信息化专门人才立体、多

元创新培养的探索与实践》取得省高等教育教学成果一等奖

 王运武专著《基于协同理论的数字校园建设的协同机制研究》由中国社会科学出

版社印刷出版

 杨现民专著《信息时代智慧教育研究》由上海交通大学出版社印刷出版

 张琪取得全国教育科学规划教育部青年项目《国家精品开放课程创新有效教学的

模式研究》（ECA130373）

 2010级毕业研究生有8人进高校工作，分别是席春荣（陕西师范大学）、刘楚楚

（徐州医学院）、安璐（徐州医学院）、郑庆思（徐州医学院）、韩叶秀（江苏

师范大学）、方兵（江苏师范大学）、韦慧尹（江苏师范大学）、孙鹏（盐城师

范学院）

 陈琳教授在研究生中开设《教育现代化研究》课程

 陈琳教授总结江苏省教育现代化经验的论文《省域教育现代化的探索与实践——

以江苏省为例》发表于《中国教育学刊》，2013年第11期

 陈琳教授取得2013年度江苏省社会科学基金重点项目——“江苏创新引领教育现

代化的经验与模式研究”（13JYA002）

 陈琳教授指导的11级教育技术学本科生刘春苗、杨霞、王杰和王薇等四位同学申

报的“大学生网络生活现状调查及引导策略”获国家级大学生创新创业训练计划

项目立项，同时获批省大学生创新创业训练计划重点项目。

 陈琳教授取得2013年度江苏省社会科学基金重点项目——“江苏创新引领教育现

代化的经验与模式研究”（13JYA002）

 进入硕士学习第三学期的陈耀华、魏先龙、于长虹3位2012级教育技术学硕士研

究生，先后在权威刊物《中国电化教育》发表学术研究论文

 陈琳教授指导的殷旭彪同学（现为山西大同大学教育技术系系主任）撰写的硕士

论文“基于设计的数字化学习支持系统研究”获评省优秀硕士学位论文

 陈琳教授指导的研究生郑旭东同学申报的“提升数字化学习效果的移动教育资源

建设理论研究” 获省立项资助，于素云教授指导的研究生殷海婷同学申报的“中

国SNS网站用户体验设计的方法研究”获省立项校资助。















 与徐州市华网信息科技有限公司联合申报获批省研究生企业工作站 汪颖博士晋升教授 张琪老师晋升副教授 王健老师取得2013年度教育部人文社会科学研究青年基金项目——“面向学科领域的网络资源导航机制研究”（13YJKC880068） 王运武博士到新加坡南洋理工大学访学一年 王娟博士到美国密苏里大学-哥伦比亚分校访学 王帆博士到美国纽约州立大学访学一年 丁杰老师取得博士学位，导师为北京师范大学教育技术学院院长、教育部“新世

纪优秀人才余胜泉教授

 王娟老师取得博士学位，导师为教育技术学泰斗南国农教授和中国教育技术协会

副理事长杨改学教授，攻读博士期间师从教育部教育信息化技术标准委员会主任、

我国首位海归教育技术学博士、华东师范大学终身教授祝智庭教授访学半年

 教育技术学本科生考研创新高，2009级教育技术学全班考研录取率超过43%，王

帆博士兼辅导员指导有方

 陈琳教授获得全国第六届高等学校科学研究优秀成果奖（人文社会科学）三等奖，

获奖成果为论文《教育技术学本科专业人才培养模式创新研究》

 陈琳教授被教育部聘为“高等学校教育技术专业教学指导分委员会委员”

 陈琳教授取得国家级精品资源共享课《现代教育技术》课程立项建设

 华东师范大学终身教授、网络教育学院院长、教育信息化系统工程研究中心主任，

北京师范大学、南京师范大学特聘教授，教育部教育信息化技术标准委员会主任，

教育部高等院校教育技术学专业教学指导委员会副主任，全国教育科学规划领导

小组成员暨教育信息技术学科组组长，联合国教科文组织ECNU联系中心副主任，

祝智庭教授应邀到我校指导并做题为“智慧教育：教育信息化的新境界”的学术

报告（2013年3月5日）

 杨现民博士论文发表于《教育研究》（《生态学视角下的泛在学习环境设计》2013

年3期）

 杨现民博士论文SSCI 收录（The effect of collaborative annotation on Chinese

reading level in primary school of China，British Journal of Educational Technology，

2013/44）

 华中师范大学博士生导师，教育部“新世纪优秀人才，教育部《国家中长期教育

改革和发展规划纲要》直接参与研究专家熊才平教授莅临指导

 教育技术学系主任李子运老师赴加拿大多伦多大学访学1年

2012年

 陈琳教授取得全国教育科学规划国家级课题——“促进学习方式转变的信息化学习环境研究”（BCA120025）

 陈琳教授获江苏省第十二届哲学社会科学优秀成果奖三等奖（数字影像技术 第2版）

 王帆博士成为省“青蓝工程”优秀青年骨干教师培养对象

 王帆博士的著作《教育技术学视野中的媒介素养教育研究》获江苏省高校第八届哲学社会科学研究优秀成果奖一等奖

 汪颖博士的专著《教育生态视野下“农远”工程教师培训》获江苏省高校第八届哲学社会科学研究优秀成果奖二等奖

 郑权获得全国第三届优秀教育硕士专业学位论文奖，陈琳教授指导

 2012年10月，教育技术学学科和专业由原先所在的“信息传播学院”，进入学校学部制改革的首批试点单位——教育学部，学科进入“教育研究院”，专业进入“教育科学学院”。办学主体教育技术学科和专业离开后的“信息传播学院”，更名为“传媒与影视学院”，信息传播学院陈琳院长调任教育研究院院长、教育学部副主任

 教育技术学专业成为省重点专业（与小学教育、学前教育联合取得教育学省重点专业类，教育技术学专业为其中的核心专业），至此教育技术学本科专业既是国家特色专业，又是省重点专业，同时是全国专业综合改革试点

 2012届教育技术学硕士毕业后，有15人进本科高校工作，其中3人进“211”高校，一人考取“985”高校博士

 李子运老师、王娟老师分别取得2012年度教育部人文社会科学研究青年基金项目立项：《大学生数字化阅读的眼动研究》（12YJC880050）；《信息传播视角下国家精品课程

建设与发展研究》（12YJC880101）

 杨现民博士受中央电化教育馆委托参与起草全国中小学数字校园规范  杨现民博士的论文《The effect of collaborative annotation on Chinese reading level in primary school of China》，SSCI收录







 王运武博士、杨现民博士成为校聘副教授 杨现民博士取得20万元横向课题经费 引进王运武和杨现民两位优秀博士 2009级教育技术学本科生徐丽同学，获江苏省教育厅主办的江苏省首届师范生教学基本功大赛一等奖

 “教育技术学科网”获全国多媒体教育软件大赛一等奖，王运武、席春荣、徐华平、王健联合申报





















 获中国教育技术协会组织奖，这是连续第五年获得组织奖 2012年3月18日徐州师范大学更名为江苏师范大学 高等教育出版社前副总编杨再石教授莅临指导 江南大学教育学院院长陈明选教授莅临指导 北京师范大学杨开城教授莅临指导 华南师范大学徐晓东教授莅临指导 南京师范大学张一春教授莅临指导 南京邮电大学余武教授莅临指导 湖南师范大学彭绍东教授莅临指导 2012年1月至8月汪颖博士到美国纽约州立大学访学 陈琳教授发表于《教育研究》的论文《中国高校教育信息化发展战略与路径选择》，被国务院发展研究中心的国研网全文转发

 杨成教授、朱守业老师主编的教材《电子技术基础简明教程》（第二版），电子工业出版社出版









 教育技术学专业取得省教育厅推荐国家专业综合改革试点项目资格 教育技术学本科生考研率再创新高，升研率达35% 研究生取得4项省创新项目，其中取得理科省创新项目的突破 2010级研究生董园飞取得1项专利 陈琳教授担任教育部职业教育信息化教学大赛评委、全国多媒体教育软件大赛评委、全国第三轮学科评估专家、江苏省首届师范生教学基本功大赛评委

 教育技术学师生全年发表CSSCI论文30篇，其中16篇论文发表于学科权威刊物，另有1篇SSCI收录

2011年

 陈琳教授编著的《数字影像技术》（第2版）成为全国精品教材，成为全国教育

江苏师范大学信息门户篇七：江苏师范大学2014年毕业生离校日程表

江苏师范大学2014届毕业生离校日程表

江苏师范大学信息门户篇八：江苏师范大学校徽校标

文档编号：0000 13

VI设计

江苏师范大学

（蓝图VI设计内部资料）

一个优秀的VI设计是可以将学校的办学理念得以充分的展现，是高度发展信息社会需要的，它可以使学校的面貌更加光彩照人，有利于学校建立良好的形象，并将学校形象能得到具体的视觉展示，从而更容易被社会接受和认可。 大学校园VI设计（LOGO）的目的和宗旨，就是将大学校园形象要素，包括各种深层的形象和表层形象内涵要素，通过标准化、统一化的视觉识别形象体系VI，展现给全社会公众，使社会公众产生一致的认同感，从而形成良好并且具鲜明个性特点的高校校园形象。VI使人们产生联想，并能感受到该学校文化的巨大影响力。

江苏师范大学校徽

江苏师范大学校名

江苏师范大学信息门户篇九：江苏师范大学毕业论文开题报告

江苏师范大学

本科毕业论文（设计）开题报告

论文题目： 专 业：学生姓名： 学 号： 指导教师：

2011年 12 月 20 日

江苏师范大学信息门户篇十：江苏师范大学VB程序设计习题集大题答案

1、 编写程序，求圆柱体的底面积、侧面积和体积。运行界面如图所示。

Private Sub Command1_Click()

Dim h, r As Integer

h = Text1

r = Text2

Text3 = 3.14 * r ^ 2

Text4 = 2 * 3.14 * r * h

Text5 = Val(Text3) * h

End Sub

2、用条件语句实现：从文本框（Text1）输入一个数，单击“判断”按钮（Command1）判断它能否同时被3、5、7整除，若能整除，则用消息框（Msgbox函数）显示“能同时被3、5、7整除”，否则显示“不能整除”。

Private Sub Command1_Click()

Dim m As Integer

m = Text1

If m Mod 3 = 0 And m Mod 5 = 0 And m Mod 7 = 0 Then

MsgBox "能同时被3、5、7整除"

Else

MsgBox "不能整除"

End If

End Sub

3、使用循环控制结构在窗体上打印出下三角形式的九九乘法表。（界面如图所示）

Command1

Private Sub Command1_Click()

For i = 1 To 9

For j = 1 To i

Print Str(i) & " " & "x" & Str(j) & "=" & Str(i * j) & Space(2); Next j

Print

Next i

End Sub

4、编写程序，对输入的学生成绩给出五级评分。要求：学生成绩由文本框（Text1）输入，结果显示在标签（Label1）中。评分标准如下：

优 90≤成绩≤100

良 80≤成绩<90

中 70≤成绩<80

及格 60≤成绩<70

不及格 0≤成绩<60

Private Sub Command1_Click()

Dim m As Integer

m = Text1

If 90 <= m And m <= 100 Then

Label1.Caption = "优"

ElseIf 80 <= m And m < 90 Then

Label1.Caption = "良"

ElseIf 70 <= m And m < 80 Then

Label1.Caption = "中"

ElseIf 60 <= m And m < 70 Then

Label1.Caption = "及格"

ElseIf 0 <= m And m < 60 Then

Label1.Caption = "不及格"

End If

End Sub

5、编写程序求kk

k1k1100502的值，要求结果显示在窗体上。

Private Sub Command1_Click()

For i = 1 To 100

s = s + i

Next i

For j = 1 To 50

m = m + j ^ 2

Next j

Sum = s + m

Print Sum

End Sub

6、随机生成15个100以内的正整数并显示在一个文本框（Text1）中，再将所有对称位置的两个数据对调后显示在另一个文本框（Text2）中（第1个数与第15个数对调，第2个数与第14个数对调，„„，第7个数与第9个数对调）。

Option base 1

Private Sub Command1_Click()

Text1 = ""

Text2 = ""

Dim a(15) As Integer

For i = 1 To 15

a(i) = Int(101 * Rnd)

Text1 = Text1 & Str(a(i))

Next i

For j = 1 To 15

If j < 8 Then

t = a(j)

a(j) = a(16 - j)

a(16 - j) = t

End If

Text2 = Text2 & Str(a(j))

Next j

End Sub

7、随机生成20个两位正整数显示在一个文本框（Text1）中，并求出它们的平均值显示在另一个文本框（Text2）中。

Option Base 1

Private Sub Command1_Click()

Dim a(20) As Integer

Text1 = ""

Text2 = ""

For i = 1 To 20

a(i) = Int(90 * Rnd + 10)

s = s + a(i)

Text1 = Text1 & Str(a(i))

Next i

Text2 = s/20

End Sub

8、随机生成50个三位正整数显示在一个文本框中（Text1）中，并将它们逆序显示在另一个文本框（Text2）中。

Option Base 1

Private Sub Command1_Click()

Dim a(50) As Integer

Text1 = ""

Text2 = ""

For i = 1 To 50

a(i) = Int(900 * Rnd + 100)

Text1 = Text1 & Str(a(i))

Next i

For j = 1 To 50

If j < 26 Then

t = a(j)

a(j) = a(51 - j)

a(51 - j) = t

End If

Text2 = Text2 & Str(a(j))

Next j

End Sub

9、用InputBox函数输入10个数到数组A中，输入后将这10个数显示在一个文本框（Text1）中，并计算其中所有正数的和，将结果显示在另一个文本框（Text2）中。

Option Base 1

Private Sub Command1_Click()

Dim a(10), s As Integer

Text1 = ""

Text2 = ""

For i = 1 To 10

a(i) = Val(InputBox(""))

Text1 = Text1 & Str(a(i))

If a(i) > 0 Then

s = s + a(i)

End If

Next

Text2 = s

End Sub

10、生成100个[0,100]之间的随机整数存于数组A中，并将它们显示在一个文本框（Text1）中，在数组A中查找指定的元素Number。要求：Number用InputBox函数输入，查找结果显示在窗体上。

Option Base 1

Dim a(100), s As Integer

Private Sub Command1_Click()

Dim number As Integer

number = InputBox("")

Print a(number)

End Sub

Private Sub Form_Load()

Text1 = ""

For i = 1 To 100

a(i) = Int(101 * Rnd)

Text1 = Text1 & Str(a(i))

Next i

End Sub

11、编程求由一位随机整数构成的4×5二维数组A的每一列元素的和。运行界面如图所示。

Option Base 1

Private Sub Command1_Click()

Dim a(4, 5), s1, s2, s3, s4, s5 As Integer

For i = 1 To 4

For j = 1 To 5

a(i, j) = Int(9 * Rnd + 1)

If j = 1 Then

s1 = s1 + a(i, 1)

End If

If j = 2 Then

s2 = s2 + a(i, 2)

End If

If j = 3 Then

s3 = s3 + a(i, 3)

End If

If j = 4 Then

s4 = s4 + a(i, 4)

End If

If j = 5 Then

s5 = s5 + a(i, 5)

End If

Picture1.Print a(i, j);

Next j

Picture1.Print

Next i

Text1 = Str(s1) & Str(s2) & Str(s3) & Str(s4) & Str(s5)

End Sub

12、单击命令按钮command1时，生成包含[1,9]之间随机整数的两个5*5矩阵，分别显示在图片框Picture1和Picture2中，并求两个矩阵之和显示在图片框Picture3中。

以上就是中国招生考试网http://www.chinazhaokao.com/带给大家不一样的精彩成考报名。想要了解更多《江苏师范大学信息门户》的朋友可以持续关注中国招生考试网，我们将会为你奉上最全最新鲜的成考报名内容哦! 中国招生考试网，因你而精彩。

相关热词搜索：