文档章节

vbs实现的简易评分程序

孟飞阳
 孟飞阳
发布于 2016/07/10 20:04
字数 205
阅读 15
收藏 0
vbs

1、源码

xuanshou=inputbox("请输入选手姓名,如:","选手姓名","郭靖")
s=split(trim(inputbox("请依次输入评委打分,分别用“空格”隔开。如:","提示","90 98 87 99 91.2 93 87.5 89 89.5"))," ")
l=ubound(s):redim p(l):zongfen=0

for i=0 to l
sn = sn & "第" & i+1 & "评委:" & s(i) & vbcrlf
next
for i=0 to l
    for j=i to l
      if ccur(s(i))>ccur(s(j)) then
        tmp=s(i):s(i)=s(j):s(j)=tmp
      end if
    next
next
for i=1 to l-1
zongfen=zongfen+s(i)
next
msgbox xuanshou & vbcrlf &"-------------------------------------" _
& vbcrlf & sn & "-------------------------------------" _
& vbcrlf &    "去掉一个最高分:【" & s(l) & "分】" _
& vbcrlf &    "去掉一个最低分:〖" & s(0) & "分〗" _
& vbcrlf &    "最后得分:〖" & round(zongfen/(l-1),2) & "分〗",4096,"统计结果"

2、演示

© 著作权归作者所有

孟飞阳
粉丝 212
博文 1005
码字总数 552521
作品 5
朝阳
个人站长
私信 提问
BrainFuck下的HappyNewYear

今天看了下一个语言叫BrainFuck,写了个打印“Happy New Year!”的程序 (今天是2015年1月1日,顺便祝大家新年快乐哈) 1.写在前面 BrainFuck的主页在: http://www.muppetlabs.com/~breadbo...

北风其凉
2015/01/01
0
0
vbs模拟Java Robot操作键盘

在Windows环境下,使用vbs也可以实现类似Java的robot操作键盘的功能,而且无需编译。某些特殊情况下,使用vbs会是一个很好的选择。 以下程序的功能为打开系统的计算器程序,通过键盘输入1+2...

孟飞阳
2016/07/10
11
0
GNS3 0.7 RC1 和SecureCRT 6.0的对接故障心得

GNS是一款很好的路由器模拟软件,可以让用户模拟真实的路由器进行学习。如果能够与SecureCRT实现捆绑使用,那将是一件美事。仔细研究了网上同仁的文章,基本总结一下几个点 1、设置GNS启动S...

GMCC_CE
2010/04/30
0
0
aria2下载工具命令行和图形化界面使用

如图是搭建好图形化界面下载软件的一个截图,可以看到界面很是熟悉的感觉。 下面就开始我们今天的教程吧。 Question? 这是个啥东西? 命令行怎么用? 图形化怎么用? Answer: aria2就是个下...

ljlljl0
2018/01/03
0
0
C语言结合VBS脚本编写朗读小工具,做一个能够发音的C语言程序

C语言结合VBS脚本编写朗读小工具,做一个能够发音的C语言程序 大家好!我就是小编,又见面了啊,有句话说“相聚是缘”。我们既然有缘相聚在此,希望你对我有了一定的认识和了解,也能够关注下小...

这个人很懒什么都没留下
2018/07/19
0
0

没有更多内容

加载失败,请刷新页面

加载更多

跨域的理解,以及解决方案!

/*什么是跨域? * 跨域的主要原因是浏览器的同源策略。 * =>>所谓的同源策略就是A网页设置的 Cookie,B网页不能打开,除非这两个网页"同源"。 * 什么是同源? * =>>同源就是协议相同、域名相同...

流年那么伤
31分钟前
4
0
Nginx配置try_files,php无法获取$_GET参数

平时开发都是用LNMP,新安装的虚拟机在配置nginx的rewrite的时候使用try_files命令。但是在写的时候配置成“try_files $uri $uri/ /index.php?q=args;”, 在PHP的web程序中,打印$_GET为空。...

叫我哀木涕
32分钟前
3
0
【原创】Microsoft Edge可以用localhost访问但无法用IP访问

Microsoft Edge可以用localhost和127.0.0.1访问但无法用本机IP访问, chrome ie都可以推测是edge的问题,网络是专用网络,防火墙也关了: 在edge里 按F12 以在控制台里看到这句 CONSOLE21301...

shzwork
32分钟前
1
0
Python利用数学方程式画4种不一样的心型图案

前言 下面这四个心型图案,是通过科学地计算,根据数学方程式生成的,虽然做的不是特别完美,但是基本的还是能实现的 第一个心型 结果图 第二心型 结果图 学习从来不是一个人的事情,要有个相互监...

A_裙232550246
33分钟前
2
0
微信带场景参数的二维码生成与使用?

微信公众号推广时,用户通过扫二维码关注公众号,需要统计用户是通过谁的二维码进行关注。 在用户扫码关注公众号时,二维码带上推广者的参数,在关注公众号后,获取到该推广者的参数。 目前有...

wxgzhgncj
33分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部