下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 巧妙运用PPT制作演讲比赛评分系统

巧妙运用PPT制作演讲比赛评分系统.doc

巧妙运用PPT制作演讲比赛评分系统

像个瞎子yi般
2017-10-25 0人阅读 举报 0 0 暂无简介

简介:本文档为《巧妙运用PPT制作演讲比赛评分系统doc》,可适用于职业岗位领域

巧妙运用PPT制作演讲比赛评分系统巧妙运用PPT制作演讲比赛评分系统准备工作:在C盘新建一文件夹命名为“考试评分”。用于存放参赛人员的相关信息其中Nametxt中保存着各参赛人员名字(事先准备好Nametxt每位参赛人员占一行)。制作过程:界面设置打开PowerPoint新建一幻灯片点击“视图工具栏控件工具箱”打开“控件工具箱”。在工具箱中使用“图像控件”来插入八位语文教师的照片分数可以用“文本框”来表示再插入两个“命令按钮”进行操作分别为“清空”和“最终得分”按钮。放置好控件之后再调整各控件的属性并美化界面(见图)。评委打分的文本框名称为TextText„„Text“最终得分”按钮的名称为CommandTotal第二张幻灯片用来显示最后得分名称为TotalScore。全局变量设置打开VBA编辑器(见图)输入如下代码:ConstPath$="C:考试评分"'指定得分的统计文件路径DimsumAsSingle'全局变量总分DimAverageScoreAsSingle'全局变量平均得分DimGroupNumAsInteger'全局变量记录组次PrivateSubCommandButtonClick()'清空得分TextText=""TextText=""TextText=""TextText=""TextText=""TextText=""TextText=""TextText=""SlideTotalScoreCaption=""'清空下一张幻灯片的最后总分EndSubPrivateSubCommandTotalClick()'“最终得分”按钮OnErrorGoToerDimsumAsSingle'将个评委的分数相加得出总分sumsum=sumCSng(TextText)sum=sumCSng(TextText)sum=sumCSng(TextText)sum=sumCSng(TextText)sum=sumCSng(TextText)sum=sumCSng(TextText)sum=sumCSng(TextText)sum=sumCSng(TextText)AverageScore=Format(sum,"####")'计算出最后得分(平均分)精确到小数点后位SlideTotalScoreCaption=AverageScore'第二张幻灯片显示最后得分IfGroupNum>=ANDGroupNum<=Then'写入最后得分OpenPath$"InpScoretxt"ForAppendAs#Print#,AverageScoreClose#EndIfGroupNum=GroupNumer:EndSub建立评奖模块在MicrosoftVisualBasic中点击“插入模块”来建立评奖模块再写入如下代码:Counter=Const'如评一等奖名二等奖名三等奖名故Counter设为PublicStrName(Counter)AsStringPublicSngScore(Counter)AsSinglePublicSubReadDataInp()'读取得分文件并对得分加以排序OnErrorGoToerOpenPath$"InpNametxt"ForInputAs#Fori=ToCounterInput#,StrName(i)NextClose#OpenPath$"InpScoretxt"ForInputAs#Fori=ToCounterInput#,SngScore(i)NextClose#Fori=ToCounterForj=ToCounterIfSngScore(i)>SngScore(j)Thena=SngScore(i):SngScore(i)=SngScore(j):SngScore(j)=ab=StrName(i):StrName(i)=StrName(j):StrName(j)=bEndIfNextNexter:EndSub建立显示获奖名单回到PPT中新建一张幻灯片用于显示获奖名单按钮名称为CmdDisply个文本框的名称为Prize„„Prize。代码如下:PrivateSubCmdDisplyClick()ReadDataInp'因为分数从高到低排序因此先输出最后三组PrizeText=StrName()PrizeText=StrName()PrizeText=StrName()大家在制作时可以加入其他的幻灯片用做修饰这样就能让赛场气氛非常热烈。

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/5

巧妙运用PPT制作演讲比赛评分系统

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利