电脑出题器设置

⑴ 谁帮忙编个EXCEL出题器小程序啊

Sub OkExcel()
Dim i As Long
Dim ws As Worksheet
Dim sMonth As Variant
sMonth = Array("3月缓空", "6月", "12月")
Set ws = Worksheets("Sheet1")
ws.Range("A1:C1") = Array("开户日", "搏哪乎本金", "存款期限")
ws.Range("基悉A2:C151").Clear
Randomize
For l = 2 To 151
ws.Cells(l, 1) = Int(Rnd * 701) + 38961
ws.Cells(l, 1).NumberFormatLocal = "yy-m-d"
ws.Cells(l, 2) = Int(Rnd * 999991) + 10
ws.Cells(l, 3) = sMonth(Int(Rnd * 3))
Next
End Sub

⑵ vb，1-100整数加减法自动出题器，在线，急用！

添加2个label控件，label1显示算式，label2显示进行时间
添加1个text控件，用于输入结果
添加1个command控件，用于开始
添加1个timer控件，用于计时
程序如下，已经过测试
Option Explicit
Dim starttime As Long, sum As Integer, tOK As Integer, tBad As Integer
Dim result As Integer
Private Sub Command1_Click()
Command1.Enabled = False
Command1.Caption = "运行中"
Text1.Enabled = True
Call Random
sum = 0
tOK = 0
tBad = 0
starttime = Timer()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Label1.Caption = ""
Text1.Text = ""
Text1.Enabled = False
Command1.Caption = "开始计时"
Timer1.Interval = 100
Timer1.Enabled = False
Label2.Caption = ""
End Sub
Private Sub Random()
Dim a, b, c
Randomize
sum = sum + 1
a = Int(Rnd * 100 + 1)
b = Int(Rnd * 2)
c = Int(Rnd * 100 + 1)
If b = 1 Then
result = a + c
Label1.Caption = a & " + " & c & " ="
Else
If a < c Then
Label1.Caption = c & " - " & a & " ="
Else
Label1.Caption = a & " - " & c & " ="
End If
result = Abs(a - c)
End If
Text1.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim d As Integer
d = -1
If KeyAscii = 13 Then
If IsNumeric(Trim(Text1.Text)) Then d = Val(Text1.Text)
If d = result Then
MsgBox "你真聪明", vbOKOnly
tOK = tOK + 1
Else
MsgBox "别灰心继续努力"
tBad = tBad + 1
End If
Call Random
End If
End Sub

Private Sub Timer1_Timer()
Label2.Caption = "已过去 " & Format(Timer() - starttime, "0.00") & " 秒"
If Timer() - starttime >= 120 Then
Timer1.Enabled = False
Text1.Enabled = False
Command1.Enabled = True
Command1.Caption = "开皮悉谈始计时"燃碰
Label2.Caption = ""
MsgBox "总题数：" & sum & vbCrLf & "对 " & tOK & " 题" & vbCrLf & "陆逗错 " & tBad & " 题"
End If
End Sub

⑶ 想给学生布置些线上作业，有没有在线出题组卷的工具

在线考试系统就可以线上进行出题、组卷，布置练习作业。

1、在线考试系统支持自建题库，导入试题，有多种导题的方式，可以根据使用的习惯随意选择。

• Excel模板导入：方便熟悉表格操作的人使用，这种方式不仅效率高，而且导入的准确率也是最高。

• Word模板导入：一般对Word操作很熟悉，且试题中带一些图片或链接等，这种情况，Word是最佳的导入方式。

• 记事本(Txt)模板导入：这种方式应该是对Word导入的补充了，因为Word有一个缺陷，有大量的隐藏格式，有时候肉眼看到的，其实在题库后台处理时，有大量的html代码，但是记事本就不会有隐藏格式的存在。

• 除了这三种试题导入格式，还有可视化编辑试题，这种即在系统里编辑试题，可见即所得，也是目前互联网比较流行的方式。

2、有专门的练习模块，可用于布置线上作业和线上练习。

• 章节练习：主要是对已经学习的知识进行专项练习。在试题数量很多，创建题库后，可自定义章节并向章节添加试题。

• 模拟练习：主要是模拟考试的不同情景，支持固定试卷，抽题试卷和随机试卷这三种试卷类型，可以根据需求进行灵活的出题组卷。模拟练习在学生作答后，可以查看试题的答案和解析。

3、在线考试系统还会自动记录错题，形成一个错题本，学生可以进入错题本进行专门的错题练习。

⑷ 在线出题给学生做练习的工具，可以自己出题的

在线答题系统就可以创建题库，创建练习，它的使用方式简单，能让学生随时随地进行练习刷题，在增加学习方式多元化的同时，也提高了教师的工作效率，非常适合组织学生进行练习刷题、考试测评等。

在线出题，组织练习，步骤也非常的简便：

第一，在导航栏中找到“练习”模块，点击“创建练习”按钮，在弹出的创建类型中选择适合业务需求的练习模式，在基本信息中依次填写好练习名称、练习分类睁让液、练习须知并选择学员参加练习的方式；有两种练习的创建类型可以自由选择：

• 章节练习：可自定义练习章节并添加试题，进行专项练习

• 模拟练习：创建一张模拟试卷，可手工或随机组卷，每做答一题可查看答案和解析

第二，在设计试卷页面中点击“创建练习章节”，修改章节名称并向章节中添加试题，试题导入时有从试题库选择、新增试题、批量导入、模板导入四种方式：

• 可视化批量新增：在系统的编辑器中，直接按格式整理好试题即可滑搏导入，方便、快速、悉物简洁。

• 模板批量新增：支持Excel、Word、Txt三种导题模板，通过试题模板，高效、快速批量导入试题。

试题较多时可以无限层级创建试题分类便于管理，支持单选题、多选题、判断题、填空题、问答题、论述题 、材料题及阅读理解等多样化试题类型。

第三，所有试题添加完毕，可以在练习设置中根据学员练习时间设定时间范围，在答题设备中选中不限制以便学员使用电脑、手机或iPad自由学习，如想统计每一位学员的积分情况，可以在练习积分里输入相应的积分，学员完成并结合正确率获得积分。

第四，发布练习后，学生使用手机、iPad、电脑等设备去参加练习做题，系统在这个过程中会自动记录错题并形成错题本。练习结束后，学生可以进入错题本中进行巩固做题。

系统自动统计汇总了练习的参加人数、参加人次、正确率、错题率以及整场练习的平均练习时长，并将每个考生详细练习情况一一展示。

⑸ 一年级口算出题系统怎么打开

1.把口算出题器下载顷和到本地电脑里保存起雀蔽盯来
2.第二步,打开软件。360会弹出安全提示,因为这是可并纤执行文件 exe格式。所以有提示,请放心使用。没有问题。我是唐青蓉。做互联网实操作带队训练营的,可以网络到我的名字,我可以用人格担保。
3.第三步点打开文件

⑹ 跪求小学生口算题出题器，可以出有余数的的除法，要口算，

别吓我哦 还有三十页 一页一百题。
你去书店找闹梁找 肯定有这些卖的 以和派前我小学我们数学唤弯贺老师就是让我们去书店买的

⑺ c语言编程 小学数学出题器

这题目最好是用C++去做帆祥，用面向对象可以加一些按钮，搜轿谨对话框，列表框，编辑框等来实世基现，应该是比较好整的！

⑻ 用flash做个一个出题器。

if(int(txt1.text)+int(txt2.text)==int(txt3.text)){//答对了}
else{//答错了}
这是AS3的加法出题... 减法就把中间的加号换成减蚂谈号
如果是戚银AS2 就直高物宴接if(txt1+txt2==txt3){}{}这样