【正文】
showmessage(39。輸入數(shù)據(jù)不在范圍內(nèi)39。)。 := inttostr(x DIV 100) 。 := inttostr( (x DIV 10 ) Mod 10 ) 。 := inttostr(x Mod 10) 。end。試題參考答案一、填空題(20分,每空2分)方法 .dpr (或dpr) 一個入口 屬性 或 Properties Items OnTimer Enabled AutoSize 備份文件 sqr(cos(a+b)) /(3*x)+5 或 cos(a+b) * cos(a+b) /(3*x)+5 二、單項選擇題(30分,每題3分) D A D C B C A A C D 三、判斷題(10分,每題2分) √ √ 180。 180。 √ 四、程序填空題(30分,每題10分)(10分,每空2分)① text ② text ③ RadioGroup1 ④ text ⑤ y(10分,每空2分) ① True ② Table1 ③ DataSource1 ④ DataSource1 ⑤ sname(10分,每空2分)① ② ③ = 0 ④ InsertRecord ⑤ Edit五、編程題(10分)procedure (Sender: TObject)。var x : integer 。begin x := strtoint()。 if (x100) or (x999) then showmessage(39。輸入數(shù)據(jù)不在范圍內(nèi)39。)。 := inttostr(x DIV 100) 。 := inttostr( (x DIV 10 ) Mod 10 ) 。 := inttostr(x Mod 10) 。end。