题目

以下VB程序段，若在文本框text1中输入2686261，则单击命令按钮command1后，在列表框list1中显示的值为（） Private sub command1_click() Dim n as long Dim t as integer Dim a(1 to 9) as integern=val(Text1.Text) List1.clear Do while n>0 t=n mod 10 If t mod 2=0 then a(t)=a(t)+1 n=n\10 Loop List1.additem a(2) End sub A . 0 B . 2 C . 3 D . 6 答案：B7．汽车上山的速度为每小时48千米，行了5小时到达山顶，下山时按原路返回只用了4小时．汽车下山时平均每小时行多少千米？