電腦出題器設置

⑴ 誰幫忙編個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){}{}這樣