查看: 907|回复: 6
请教大神有关随机点名如何实现，并要语音报出姓名，如何实现？？等高手！！
阅读权限20
在线时间 小时
& & & & & & & &
请教大神有关随机点名如何实现，并要语音报出姓名，如何实现？？等高手！！Q：
08:43 上传
点击文件名下载附件
7.82 KB, 下载次数: 20
阅读权限90
在线时间 小时
本帖最后由 jianbing 于
19:45 编辑
E4=INDEX(B$4:B$55,SMALL(IF(COUNTIF(E$3:E3,$B$4:$B$55),4^8,ROW($1:$52)),RANDBETWEEN(1,52-ROW(A1))))
数组公式下拉
另花50元雇一学生帮你读！！！
阅读权限70
在线时间 小时
别的没有办法
阅读权限95
在线时间 小时
(16.28 KB, 下载次数: 37)
13:39 上传
点击文件名下载附件
, 做个玩玩，点击按钮即可（注意事项见附件内说明）
阅读权限20
在线时间 小时
谢谢4楼，再请教下，随机选 中的人，希望下次再随机时不选他们怎么办？？？
阅读权限95
在线时间 小时
kan830220 发表于
谢谢4楼，再请教下，随机选 中的人，希望下次再随机时不选他们怎么办？？？
出发点不同，结果不同，因为不知道你的具体要求，因此只能按自己的想法做了个。最好你描述清楚你要怎么样的，比如你原来有4个工作表不知道要干嘛，更像成绩汇总，而不是点名格式
阅读权限95
在线时间 小时
cmxxccxx 发表于
出发点不同，结果不同，因为不知道你的具体要求，因此只能按自己的想法做了个。最好你描述清楚你要怎么样 ...
b = MsgBox(a & & 是否来了？&, vbYesNo)
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师【图片】想要做一个VB随机点名系统，【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：109,508贴子：
想要做一个VB随机点名系统，收藏
能够在随机点名时出现学生的照片用以对比是否替答到，未到同学能够被记录在案。求大神帮忙，VB小白求赐教。
你好狠啊，让溜号的学生还活不活？
函数都办到了
对比学生照片有点厉害
总文件夹如下：其中数据文件夹示意如下，应根据自己实际制作：点名记录文件夹为空文件夹，等系统自动写入记录。
程序界面如下：其中有三点需要说明：一、窗体尺寸大约为；二、中间那个没有文字的方框是图片框；三、三个单选按钮是一个数组，不是独立控件。
窗体级声明如下：其余各功能代码依次如下：这里遗漏了一句：框架的标题是“答应情况”
运行过程如下这里默认是班里总人数的10%取整上面是人名，中间是图片，下面根据答到情况点选。点选后立即出现下一位，直到抽查的人数满了为止点确定，结束程序。
这是自动生成的点名记录，文件名是日期+班号文件内容如下
需要改进的是，在随机函数之前，加上Randomize语句以免每次实验抽取的人都一样
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
活着的学校不差钱，车牌号都能自动设别，刷脸当然也不难。教室里多放几个摄像头，当然安装时要做到无死区，老师也不用点名，咳嗽一声学生的脸呀、号呀瞬间就到老师的数据库里去了。
还有上面忘记说明了，每个班一个文件夹，班的文件夹里面其他都不需要，只要每个同学的照片，照片文件的名字，就是同学的名称+图片文件的扩展名。例如张三虎.jpg用一个班的文件夹示意如下：
而且我偷懒，用txt文件记录点名结果，不利于期末统计。
老师我按照您的程序弄得，但是出不来结果
老师，后面还是出问题
我试了一下和你一样路径错误，不知道楼主改过来没？怎么改？
加个人脸对比系统 这系统才是完美啊..全自动记录检查
知道了，是因为日期，时间一直在变，没有这个文件夹，所以路径错误
登录百度帐号用VB制作课堂随机点名器--《发明与创新(教育信息化)》2015年03期
用VB制作课堂随机点名器
【摘要】：正一、情境需求课堂提问是一种最直接、最基本的教学活动形式。然而低年级学生在课堂上比高年级学生要活跃,低年级学生更能积极主动地参与课堂。但随着学生年龄的增大,课堂上能主动回答问题的同学越来越少,需由老师来点名回答,这样的课堂显得单调而沉闷。也有些同学认为老师偏心,总让一些成绩好的同学来回答问题。久而久之,学生会对课程和老师产生厌恶。为了解决此问题,我尝试引入类似抽奖的游戏机制进入课堂来解决学生点名的问题。在
【作者单位】：
【分类号】：TP312.1
欢迎：、、)
支持CAJ、PDF文件格式，仅支持PDF格式
【相似文献】
中国重要会议论文全文数据库
陈晓军;陈丽;;[A];信息技术环境构建与教学应用[C];2009年
中国重要报纸全文数据库
阜宁县沟墩中学
焦益新;[N];学知报;2010年
徐芳;[N];济宁日报;2008年
中国硕士学位论文全文数据库
徐浩;[D];首都师范大学;2007年
&快捷付款方式
&订购知网充值卡
400-819-9993vb作业中设计一个选课程序&运行界面 其中限选课只能3选一 任选课单击确认按钮
TextBox 文本框先吧Multiline属性设置成True,然后再需要更改TextBox显示内容的地方使用如下代码：Textbox1=Textbox1 & vbcrlf & sAddString ‘Textbox换行后,吧sAddString字符串变量的内容添加到Textbox1的最后一行'解释:'Textbox1
sub form click_()dim n as integern =inputbox("请输入数")k=int(spr(n))i=2swit=0 ‘令swit=0接下来的意思是 N除以小于N的输 如果能被整除 SWIT就等于1 SWIT=1 就不是素数while i 再问： 什么情况下swit=0这个程序也没有交代
用excel做的,打开excel文件,在sheet1上点右键,查看代码就可以了1的程序代码Private Sub CommandButton1_Click()If Val(TextBox1.Text) Mod 2 = 0 Then& &TextBox2.Text = Trim(TextBox1.Te
'声明变量dim Min_num as intdim Max_num as intdim Sum_num as intdim Arr_num(9) as int'赋予初始值Min_num=101Max_num=-1Sum_num=0'循环10次获得10个随机数for i=1 to 10 randomize Arr_nu
Private Sub Timer1_Timer()label1.caption = "今天是" & Format(Now(),"yyyy年m月d日") & WeekdayName(Weekday(Now(),vbSunday))label2.caption = Format(Now(),"hh:mm:ss")end
数据类型选择不合适.选择合适的数据类型,甚至为了增加精度可以自定义数据类型和运算.
'修改一些地方先：'0-9 . 的按钮分别设置Name为NButton,并依次设置index为0~10（注意按顺序）' + - * / = 的按钮分别设置Name为 CButton,并依次设置index为0~5（注意按顺序）'提醒一下：以上要一个按钮一个按钮来改,就是设置name后要先设置index在设置下一个按钮的n
VB（这个有五个）下面几个好像好了呀.要写什么?2、Private Sub Command1_Click()[4]end End Sub3、Private Sub Command1_Click()Text1.Text = “” Text2.Text = "" [1]text3.text="" End SubPrivat
你应该是一个Mathematica的高手吧!不知道是不是你的命令有一点问题：ContourPlot[x^4 + y^4 - 4xy^2 - 1,{x,-3,3},{y,-3,3},PlotRange -> {0,0},ContourShading -> False,Contours -> 1,PlotPoints ->
你好..限选课的学分可以补到任选课的学分上 但是反之则不行其实每门课都有一定的点名几率 不用闭卷考试的话 因为本人修的也不多 仅仅知道大学生心理卫生一门要闭卷...其他的其实老师都不会过多为难.选自己感兴趣的就最好了.希望我的答案对你有帮助.
Dim Sum,I,N,FlagN = 10Flag = 1Sum = 1For I = 3 To NIf I Mod 2 = 1 ThenSum = Sum + 1/I * FlagFlag = -FlagEnd IfNext 再问： 大哥，貌似调试不出来啊~麻烦再看看，是哪里不对啊~小弟急用啊 再答： 算出的结果就
帮你写了一个,调试通过,不过第5个条件很奇怪啊,这样做出来的计算器是不能连续运算的,每次都要按下等号给出结果,程序在附录中&若满意请及时采纳,谢谢
#include&&stdio.h&void&mian(){&&&&int&n;&&&&printf(&Enter&n:&);&&&&nb
Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()Text1 = 0Timer1.Enabled
Text4.Text = (Text3.Text - Text2.Text) / Text1.Text 再问： 你的这个程序只支持x为正数，负数的话就会出错！！！ 再答： -4x+3=5 x=(5-3)/(-4) x=-1/2 -4x+(-3)=-5 x=(-5-(-3))/(-4) x=1/2 请举个出错的例子。再问
楼主没有详细说明用什么语言,什么界面...只说下大体思路通过求根公式 x1= (-b+sqrt(b^2-4ac))/2ax2= (-b-sqrt(b^2-4ac))/2a 再问： vb6.0
按照你的要求做的小程序,希望是你想要的,有问题可以追问,如果满意请采纳
首先我想说的是,matlab跟其他语言不一样（我用的比较多的编程语言,除了matlab就应该是c或c＋＋了,VB和Delphi也接触过,我想版面(matlab版)大部分人也差不多）,如果你抱着“把其他语言的思想运用在matlab里面”的话,那么我想,即使程序运行不出错,也很难把握matlab的精髓,也就很难发挥matl
Private Sub Command1_Click()Dim N As IntegerN = Val(InputBox("请输入一个整数"))For i = 1 To N S = "" For j = 1 To i S = S + "*" Next j Print SNext iEnd Sub看不懂题目在写什么,随便
解答问题3.编写一个程序和界面,输入某学生的语文、数学、英语三门课程的成绩,单击计算可以得出该学生的平均分和总分.第1步.在窗体form1 中添加控件并设置其属性：控件&&&& 控件名&&&&&&&&