填空题
下面程序的功能是 1。
Dim n/%,m/%
Private sub Text1_KeyPress(KeyAscii as integer)
if keyAscii=13 then if isNumeric(Text1.text) then
select case text1.text mod 2
case 0 n=n+text1.text
case 1 m=m+text1.text
end select
end if
text1.text=＂＂ : text1.setfocus
end if
end sub