糯米枣怎么做

 　　最近单位组织了一次英语会话比赛，笔者用powerpoint内嵌的vba功能制作了一个即时评分系统，受到老师和同学们的一致好评，现将制作过程与大家分享。

　　准备工作：在桌面新建一个名为“评分系统”的文件夹，用于存放参赛队的相关信息，其中name.txt中保存了各参赛队名称(需事先准备，每个队名占一行)。

　　启动工作：新建一张空白幻灯片，在“视图”菜单下找到“工具栏”子菜单，选择其中的“控件工具箱”(大家也可根据实际需要改变主界面风格)。调整相应控件位置，评委照片用的是“图像控件”，下面的分数用的是“文本框”，两个按钮用的是“命令按钮”，放置好控件之后再调整各控件的属性来美化界面，也可根据实际需要插入图片进行修饰。

　　评分系统主界面中包括8个评委的照片和每个评委给出的分数(如图)，功能按钮包括“清空”、“最后得分”。

　　各评分得分的文本框的名称为txts1，txts2……txts8，“最后得分”按钮的名称为commandtotal，第二张幻灯片用来显示最后得分的标签名称为lbltotal。

　　设计工作：打开vba编辑器编写代码：

　　指定文件夹用于存放每组得分的统计文件

　　const path$ = "c:windowsdesktop评分系统"

　　全局变量，最后总分

　　dim sum as single

　　全局变量，最后平均得分

　　dim averagescore as single

　　全局变量，记录组次，保存后自动加1

　　dim groupnum as integer

　　清空“评委得分”，清空“最后得分”

　　private sub commandbutton1_click()

　　txts1.text = ""

　　txts2.text = ""

　　txts3.text = ""

　　txts4.text = ""

　　txts5.text = ""

　　txts6.text = ""

　　txts7.text = ""

　　txts8.text = ""

　　清空下一张幻灯片的最后总分

　　slide2.lbltotal.caption = ""

　　end sub

　　“最后得分”按钮

　　private sub commandtotal_click()

　　on error goto er

　　dim sum as single

　　将8个评委的分数相加得出总分sum

　　sum = sum + csng(txts1.text)

　　sum = sum + csng(txts2.text)

　　sum = sum + csng(txts3.text)

　　sum = sum + csng(txts4.text)

　　sum = sum + csng(txts5.text)

　　sum = sum + csng(txts6.text)

　　sum = sum + csng(txts7.text)

　　sum = sum + csng(txts8.text)

　　计算出最后得分(平均分)，精确到小数点后3位

　　averagescore = format(sum / 8, "#.###")

　　第二张幻灯片显示最后得分

　　slide2.lbltotal.caption = averagescore

　　写入最后得分

　　if groupnum>=1 and groupnum <= 5 then

　　open path$ && "inpscore.txt" for append as #1

　　print #1, averagescore

　　close #1

　　end if

　　groupnum = groupnum + 1

　　er:

　　end sub

　　新建一个模块，写入如下代码，此处为评奖模块。

　　评选项一等奖1名，二等奖2名，三等奖3名，故counter变量设为6

　　const counter = 6

　　public strname(counter) as string

　　public sngscore(counter) as single

　　模块功能：读取得分文件，并对得分加以排序

　　public sub readdatainp()

　　on error goto er

　　open path$ && "inpname.txt" for input as #1

　　for i = 1 to counter

　　input #1, strname(i)

　　next

　　close #1

　　open path$ && "inpscore.txt" for input as #2

　　for i = 1 to counter

　　input #2, sngscore(i)

　　next

　　close #2

　　for i = 1 to counter

　　for j = 1 to counter

　　if sngscore(i) > sngscore(j) then

　　a = sngscore(i): sngscore(i) = sngscore(j): sngscore(j) = a

　　b = strname(i): strname(i) = strname(j): strname(j) = b

　　end if

　　next

　　next

　　er:

　　end sub

　　新建一张幻灯片，用于显示三等奖获奖名单，按钮名称为cmddisply，6个文本框的名称为txtthirdprize1……txtthirdprize6。

　　代码如下：

　　private sub cmddisply_click()

　　readdatainp

　　因为分数从高到低排序，因此先输出最后三组

　　txtthirdprize1.text = strname(4)

　　txtthirdprize2.text = strname(5)

　　txtthirdprize3.text = strname(6)

　　制作时你也可以加入其他的幻灯片用做修饰，比如制作一个带动态效果的开始画面以及结束语等等，然后在比赛时用投影机作为输出，一定会起到烘托赛场气氛的作用。