This is a software that automatically creates questions in easy language
Program download address:https:///codes/
The following is the source code content:
.Version 2
.Assembly windowAssembly1
.Subprogram _Button1_Being clicked
.Judgment begins (Edit box1.content ＝ “” or Edit box2.content ＝ “”)
Information box (“账户名or密码不能为空！”, 0, “hint”, )
Edit box1.Get focus ()
.judge (Edit box1.content ＝ “sau123456” or Edit box2.content ＝ “sau123456”)
Load (window3, , Fake)
destroy ()
Information box (“Login successfully！”, 0, “hint”, )
.default
Information box (“账户名or密码错误！”, 0, “hint”, )
Edit box1.Get focus ()
.judge结束
.Version 2
.Assembly windowAssembly_window3
.Subprogram _Label1_Feedback Events, Integer type
.parameter parameter一, Integer type
.parameter parameter二, Integer type
.Subprogram _Grouping box1_The left mouse button is pressed, Logical
.parameter Horizontal position, Integer type
.parameter Vertical position, Integer type
.parameter Function key status, Integer type
.Subprogram _Button1_Being clicked
.Judgment begins (window3.Combo box1.content ＝ “Simple” or window3.Combo box1.content ＝ “medium”)
Load (window1, , Fake)
destroy ()
.judge (window3.Combo box1.content ＝ “difficulty”)
Load (window2, , Fake)
destroy ()
.judge (window3.Combo box1.content ＝ “”)
Information box (“Please select the difficulty！”, 0, “hint”, )
.default
.judge结束
.Version 2
.Assembly windowAssembly2
.Subprogram _window1_Created
.Judgment begins (window3.Combo box1.content ＝ “Simple”)
Difficulty ＝ 1
.judge (window3.Combo box1.content ＝ “medium”)
Difficulty ＝ 10
.default
.judge结束
Start making questions ()
.Subprogram _Button2_Being clicked
Load (window3, , Fake)
destroy ()
.Subprogram _Button3_Being clicked
Start making questions ()
.Subprogram Start making questions
.Local variables frequency, Integer type
.Local variables Label, Label
.Local variables Edit box, Edit box
.Local variables Edit box2, Edit box
.Local variables judge值, Integer type
.Local variables topic1, Integer type
.Local variables topic2, Integer type
.Local variables Picture frame, Picture frame
.Variable loop first (1, 20, 1, frequency)
Picture frame ＝ Take the tag component (frequency ＋ 60)
Edit box ＝ Take the tag component (frequency ＋ 40)
Edit box2 ＝ Take the tag component (frequency ＋ 20)
Picture frame.picture ＝ { }
Edit box.content ＝ “”
Edit box.Visual ＝ Fake
Edit box2.content ＝ “”
.Variable loop tail ()
Button1.Visual ＝ real
Button2.Visual ＝ Fake
Button3.Visual ＝ Fake
Label41.title ＝ “”
answer ＝ 0
Clear array (Answer)
.Variable loop first (1, 20, 1, frequency)
Label ＝ Take the tag component (frequency)
topic1 ＝ Take a random number (Difficulty, Difficulty × 10)
topic2 ＝ Take a random number (Difficulty, Difficulty × 10)
judge值 ＝ Take a random number (1, 4)
.Judgment begins (judge值 ＝ 1)
Answer [frequency] [1] ＝ topic1 ＋ topic2
Label.title ＝ To text (To text (topic1) ＋ “＋” ＋ To text (topic2) ＋ “＝”)
.judge (judge值 ＝ 2)
.judge循环首 (topic1 ＜ topic2)
topic1 ＝ Take a random number (Difficulty, Difficulty × 10)
topic2 ＝ Take a random number (Difficulty, Difficulty × 10)
.judge循环尾 ()
Answer [frequency] [1] ＝ topic1 － topic2
Label.title ＝ To text (To text (topic1) ＋ “-” ＋ To text (topic2) ＋ “=”)
.judge (judge值 ＝ 3)
Answer [frequency] [1] ＝ topic1 × topic2
Label.title ＝ To text (To text (topic1) ＋ “×” ＋ To text (topic2) ＋ “=”)
.judge (judge值 ＝ 4)
.judge循环首 (topic1 ＜ topic2)
topic1 ＝ Take a random number (Difficulty, Difficulty × 10)
topic2 ＝ Take a random number (Difficulty, Difficulty × 10)
.judge循环尾 ()
Answer [frequency] [1] ＝ topic1 ÷ topic2
Answer [frequency] [2] ＝ topic1 ％ topic2
Label.title ＝ To text (To text (topic1) ＋ “÷” ＋ To text (topic2) ＋ “=”)
Edit box ＝ Take the tag component (frequency ＋ 40)
Label ＝ Take the tag component (frequency ＋ 80)
Edit box.Visual ＝ real
Label.title ＝ “ ……”
.default
.judge结束
.Variable loop tail ()
.Subprogram _Button1_Being clicked
.Local variables frequency, Integer type
.Local variables Edit box1, Edit box
.Local variables Edit box2, Edit box
.Local variables Picture frame, Picture frame
Button1.Visual ＝ Fake
Button2.Visual ＝ real
Button3.Visual ＝ real
.Variable loop first (1, 20, 1, frequency)
Edit box1 ＝ Take the tag component (frequency ＋ 40)
Edit box2 ＝ Take the tag component (frequency ＋ 20)
Picture frame ＝ Take the tag component (frequency ＋ 60)
.Judgment begins (Edit box1.Visual ＝ real)
.Judgment begins (Go to the value (Edit box2.content) ＝ Answer [frequency] [1] and Go to the value (Edit box1.content) ＝ Answer [frequency] [2])
answer ＝ answer ＋ 1
Picture frame.picture ＝ #Picture 1.default
Picture frame.picture ＝ #Picture 2.judge结束
.judge (Go to the value (Edit box2.content) ＝ Answer [frequency] [1])
answer ＝ answer ＋ 1
Picture frame.picture ＝ #Picture 1.default
Picture frame.picture ＝ #Picture 2.judge结束
Label41.title ＝ “您answertopicnumber为 ” ＋ To text (answer) ＋ “ road，Wrong answer ” ＋ To text (20 － answer) ＋ “ road！”
.Variable loop tail ()
.Version 2
.Assembly windowAssembly_window2
.Subprogram _window2_Created
Start making questions ()
.Subprogram _Button2_Being clicked
Load (window3, , Fake)
destroy ()
.Subprogram _Button3_Being clicked
Start making questions ()
.Subprogram Start making questions
.Local variables frequency, Integer type
.Local variables Label, Label
.Local variables Edit box, Edit box
.Local variables Edit box2, Edit box
.Local variables judge值, Integer type
.Local variables topic1, Integer type
.Local variables topic2, Integer type
.Local variables topic3, Integer type
.Local variables topic4, Integer type
.Local variables Picture frame, Picture frame
.Local variables The greatest common divisor, Integer type
.Local variables molecular, Integer type
.Local variables Denominator, Integer type
.Variable loop first (1, 20, 1, frequency)
Picture frame ＝ Take the tag component (frequency ＋ 60)
Edit box ＝ Take the tag component (frequency ＋ 40)
Edit box2 ＝ Take the tag component (frequency ＋ 20)
Picture frame.picture ＝ { }
Edit box.content ＝ “”
Edit box.Visual ＝ Fake
Edit box2.content ＝ “”
.Variable loop tail ()
Button1.Visual ＝ real
Button2.Visual ＝ Fake
Button3.Visual ＝ Fake
Label41.title ＝ “”
answer ＝ 0
Clear array (Answer)
.Variable loop first (1, 20, 1, frequency)
Label ＝ Take the tag component (frequency)
Classification ＝ Take a random number (1, 2)
.Judgment begins (Classification ＝ 1)
topic1 ＝ Take a random number (1, 100)
topic2 ＝ Take a random number (1, 100)
.judge (Classification ＝ 2)
topic1 ＝ Take a random number (1, 100)
topic2 ＝ Take a random number (1, 100)
.judge循环首 (topic1 ＞ topic2)
topic1 ＝ Take a random number (1, 100)
topic2 ＝ Take a random number (1, 100)
.judge循环尾 ()
topic3 ＝ Take a random number (1, 100)
topic4 ＝ Take a random number (1, 100)
.judge循环首 (topic3 ＞ topic4)
topic3 ＝ Take a random number (1, 100)
topic4 ＝ Take a random number (1, 100)
.judge循环尾 ()
.default
.judge结束
.Judgment begins (Classification ＝ 1)
judge值 ＝ Take a random number (1, 4)
.Judgment begins (judge值 ＝ 1)
Answer [frequency] [1] ＝ topic1 ＋ topic2
Label.title ＝ To text (To text (topic1) ＋ “＋” ＋ To text (topic2) ＋ “＝”)
.judge (judge值 ＝ 2)
.judge循环首 (topic1 ＜ topic2)
topic1 ＝ Take a random number (1, 100)
topic2 ＝ Take a random number (1, 100)
.judge循环尾 ()
Answer [frequency] [1] ＝ topic1 － topic2
Label.title ＝ To text (To text (topic1) ＋ “-” ＋ To text (topic2) ＋ “=”)
.judge (judge值 ＝ 3)
Answer [frequency] [1] ＝ topic1 × topic2
Label.title ＝ To text (To text (topic1) ＋ “×” ＋ To text (topic2) ＋ “=”)
.judge (judge值 ＝ 4)
.judge循环首 (topic1 ＜ topic2)
topic1 ＝ Take a random number (1, 100)
topic2 ＝ Take a random number (1, 100)
.judge循环尾 ()
Answer [frequency] [1] ＝ topic1 ÷ topic2
Answer [frequency] [2] ＝ topic1 ％ topic2
Label.title ＝ To text (To text (topic1) ＋ “÷” ＋ To text (topic2) ＋ “=”)
Edit box ＝ Take the tag component (frequency ＋ 40)
Label ＝ Take the tag component (frequency ＋ 80)
Edit box.Visual ＝ real
Label.title ＝ “ ……”
Edit box.Visual ＝ real
.default
.judge结束
.judge (Classification ＝ 2)
Edit box ＝ Take the tag component (frequency ＋ 40)
Edit box.Visual ＝ real
judge值 ＝ Take a random number (1, 2)
The greatest common divisor ＝ The greatest common divisor (topic1, topic2)
topic1 ＝ topic1 ÷ The greatest common divisor
topic2 ＝ topic2 ÷ The greatest common divisor
The greatest common divisor ＝ The greatest common divisor (topic3, topic4)
topic3 ＝ topic3 ÷ The greatest common divisor
topic4 ＝ topic4 ÷ The greatest common divisor
.Judgment begins (judge值 ＝ 1)
molecular ＝ topic1 × topic4 ＋ topic3 × topic2
Denominator ＝ topic2 × topic4
The greatest common divisor ＝ The greatest common divisor (molecular, Denominator)
molecular ＝ molecular ÷ The greatest common divisor
Denominator ＝ Denominator ÷ The greatest common divisor
Answer [frequency] [1] ＝ molecular
Answer [frequency] [2] ＝ Denominator
Label.title ＝ To text (To text (topic1) ＋ “/” ＋ To text (topic2) ＋ “＋” ＋ To text (topic3) ＋ “/” ＋ To text (topic4) ＋ “＝”)
Label ＝ Take the tag component (frequency ＋ 80)
Label.title ＝ “ /”
.judge (judge值 ＝ 2)
molecular ＝ topic1 × topic4 － topic3 × topic2
.judge循环首 (molecular ＜ 0)
topic1 ＝ Take a random number (1, 100)
topic2 ＝ Take a random number (1, 100)
.judge循环首 (topic1 ＞ topic2)
topic1 ＝ Take a random number (1, 100)
topic2 ＝ Take a random number (1, 100)
.judge循环尾 ()
topic3 ＝ Take a random number (1, 100)
topic4 ＝ Take a random number (1, 100)
.judge循环首 (topic3 ＞ topic4)
topic3 ＝ Take a random number (1, 100)
topic4 ＝ Take a random number (1, 100)
.judge循环尾 ()
molecular ＝ topic1 × topic4 － topic3 × topic2
.judge循环尾 ()
The greatest common divisor ＝ The greatest common divisor (topic1, topic2)
topic1 ＝ topic1 ÷ The greatest common divisor
topic2 ＝ topic2 ÷ The greatest common divisor
The greatest common divisor ＝ The greatest common divisor (topic3, topic4)
topic3 ＝ topic3 ÷ The greatest common divisor
topic4 ＝ topic4 ÷ The greatest common divisor
molecular ＝ topic1 × topic4 － topic3 × topic2
Denominator ＝ topic2 × topic4
The greatest common divisor ＝ The greatest common divisor (molecular, Denominator)
molecular ＝ molecular ÷ The greatest common divisor
Denominator ＝ Denominator ÷ The greatest common divisor
Answer [frequency] [1] ＝ molecular
Answer [frequency] [2] ＝ Denominator
Label.title ＝ To text (To text (topic1) ＋ “/” ＋ To text (topic2) ＋ “-” ＋ To text (topic3) ＋ “/” ＋ To text (topic4) ＋ “＝”)
Label ＝ Take the tag component (frequency ＋ 80)
Label.title ＝ “ /”
.default
.judge结束
.default
.judge结束
.Variable loop tail ()
.Subprogram _Button1_Being clicked
.Local variables frequency, Integer type
.Local variables Edit box1, Edit box
.Local variables Edit box2, Edit box
.Local variables Picture frame, Picture frame
Button1.Visual ＝ Fake
Button2.Visual ＝ real
Button3.Visual ＝ real
.Variable loop first (1, 20, 1, frequency)
Edit box1 ＝ Take the tag component (frequency ＋ 40)
Edit box2 ＝ Take the tag component (frequency ＋ 20)
Picture frame ＝ Take the tag component (frequency ＋ 60)
.Judgment begins (Edit box1.Visual ＝ real)
.Judgment begins (Go to the value (Edit box2.content) ＝ Answer [frequency] [1] and Go to the value (Edit box1.content) ＝ Answer [frequency] [2])
answer ＝ answer ＋ 1
Picture frame.picture ＝ #Picture 1.default
Picture frame.picture ＝ #Picture 2.judge结束
.judge (Go to the value (Edit box2.content) ＝ Answer [frequency] [1])
answer ＝ answer ＋ 1
Picture frame.picture ＝ #Picture 1.default
Picture frame.picture ＝ #Picture 2.judge结束
Label41.title ＝ “您answertopicnumber为 ” ＋ To text (answer) ＋ “ road，Wrong answer ” ＋ To text (20 － answer) ＋ “ road！”
.Variable loop tail ()
.Subprogram The greatest common divisor, Integer type
.parameter number1, Integer type
.parameter number2, Integer type
.Local variables intermediary, Integer type
.judge循环首 (number2 ％ number1 ≠ 0)
intermediary ＝ number2 ％ number1
number2 ＝ number1
number1 ＝ intermediary
.judge循环尾 ()
return (number1)