//自定义变量 type suijishu = array [ 1 .. 10 ] of integer ; //用来保存 加数和被加数 deshu = array [ 1 .. 10 ] of integer ; //用来保存 每道题的得数,所填的数,与此比较,判断对误 var sjs : suijishu ; //定义suijishu类型的一个实例 ds : deshu ; //定义deshu类型的一个实例 temp : integer ; //定义一个临时变量 tishu : integer ; //定义一个变量,存储已经做得题数 shijian : integer ; //定义一个变量,存储做题所用的时间 |
//自定义过程 procedure fenpei( ) ; //给sjs数组分配随即数值 var i : integer ; begin Randomize ; for i : = 1 to 10 do begin sjs [ i ] : = Random ( 10 ) ; end ; end ; procedure jisuan ( ) ; //得到结果,并保存到ds数组中 var i : integer ; begin temp : = 0 ; for i : = 1 to 10 do begin temp : = temp + sjs [ i ] ; ds [ 1 ] : = temp ; end ; end ; |
procedure TWinForm . Button1 _ Click ( sender : System . Object ; e : System . EventArgs ) ; begin //添加自己的代码 fenpei ; jisuan ; label3 . text : = Convert . ToString ( sjs [ 1 ] ) + ' + ' + Convert . ToString ( sjs [ 2 ] ) + ' + ' + Convert . ToString ( sjs [ 3 ] ) + ' + ' + Convert . ToString ( sjs [ 4 ] ) + ' + ' + Convert . ToString ( sjs [ 5 ] ) + ' + ' + Convert . ToString ( sjs [ 6 ] ) + ' + ' + Convert . ToString ( sjs [ 7 ] ) + ' + ' + Convert . ToString ( sjs [ 8 ] ) + ' + ' + Convert . ToString ( sjs [ 9 ] ) + ' + ' + Convert . ToString ( sjs [ 10 ] ) + ' = ' ; timer1 . Enabled : = true ; button1 . Enabled : = false ; button2 . Enabled : = true ; shijian : = 0 ; tishu : = 1 ; richtextbox1 . Visible : = false ; label4 . text : = '第' + Convert . ToString ( tishu ) + '题' ; textbox1 . Clear ; end ; |
procedure TWinForm . button3 _ Click ( sender : System . Object ; e : System . EventArgs ) ; begin //添加自己的代码 if textbox1 . Text = Convert . ToString ( ds [ 1 ] ) then begin richtextbox1 . Text : = richtextbox1 . text + label3 . Text + textbox1 . Text + ' 正确' + chr ( 13 ) + chr ( 10 ) ; fenpei ; jisuan ; label3 . Text : = Convert . ToString ( sjs [ 1 ] ) + ' + ' + Convert . ToString ( sjs [ 2 ] ) + ' + ' + Convert . ToString ( sjs [ 3 ] ) + '+ ' + Convert . ToString ( sjs [ 4 ] ) + ' + ' + Convert . ToString ( sjs [ 5 ] ) + ' + ' + Convert . ToString ( sjs [ 6 ] ) + ' + ' + Convert . ToString ( sjs [ 7 ] ) + ' + ' + Convert . ToString ( sjs [ 8 ] ) + ' + ' + Convert . ToString ( sjs [ 9 ] ) + ' + ' + Convert . ToString ( sjs [ 10 ] ) + ' = ' ; TextBox1 . Text : = ' ' ; tishu : = tishu + 1 ; label4 . text : = '第' + Convert . ToString ( tishu ) + '题' ; end else begin richtextbox1 . Text : = richtextbox1 . text + label3 . Text + textbox1 . Text + ' 错; 正确得数为 :' + Convert . ToString ( ds [ 1 ] ) + chr ( 13 ) + chr ( 10 ) ; fenpei ; jisuan ; label3 . Text : = Convert . ToString ( sjs [ 1 ] ) + ' + ' + Convert . ToString ( sjs [ 2 ] ) + ' + ' + Convert . ToString ( sjs [ 3 ] ) + ' + ' + Convert . ToString ( sjs [ 4 ] ) + ' + ' + Convert . ToString ( sjs [ 5 ] ) + ' + ' + Convert . ToString ( sjs [ 6 ] ) + ' + ' + Convert . ToString ( sjs [ 7 ] ) + ' + ' + Convert . ToString ( sjs [ 8 ] ) + ' + ' + Convert . ToString ( sjs [ 9 ] ) + ' + ' + Convert . ToString ( sjs [ 10 ] ) + ' = ' ; textbox1 . Text : = ' ' ; tishu : = tishu + 1 ; label4 . text : = ' 第' + Convert . ToString ( tishu ) + '题' ; end ; end ; |
procedure TWinForm . Button3 _ Click ( sender : System . Object ; e : System . EventArgs ) ; begin //添加自己的代码 button1 . Enabled : = true ; button3 . Enabled : = false ; button2 . Enabled : = false ; richtextbox1 . Text : = richtextbox1 . text + '作题数 :' + Convert . ToString ( tishu ) + ' 用时 :' + Convert . ToString ( shijian ) + '秒' ; richtextbox1 . Visible : = true ; timer1 . Enabled : = false ; end ; |
procedure TWinForm . Timer1 _ Tick ( sender : System . Object ; e : System . EventArgs ) ; begin //添加自己的代码 label2 . text : = '用时 :' + Convert . ToString ( shijian ) + '秒' ; shijian : = shijian + 1 ; end ; |
procedure TWinForm . TWinForm _ Load ( sender : System . Object ; e : System . EventArgs ) ; begin //添加自己的代码 shijian : = 0 ; tishu : = 1 ; end ; |
![]() |
联系客服