题目

有如下VB程序段 Dim a（1 To 5）As Integer Dim d（1 To 5）As Integera（1）=12：a（2）=21：a（3）=19：a（4）=11：a（5）=20 n=5：Max=0 For i=1 To n d（i）=0For j=1 To i-1 If a（j）<a（i）Then d（i）=d（i）+1Next j If d（i）>Max Then Max=d（i） Next i 执行完以上程序段后，Max的值为（ ） A . 1 B . 2 C . 3 D . 4 答案：C如右图所示，条形磁铁放在水平桌面上，它的上方有一与磁铁垂直的长直通电导线。正缓慢地水平自左向右移动，不考虑切割磁感线效应，直导线中通以垂直纸面向外的电流，则磁铁受桌面的摩擦力作用描述正确的是（　   ） A．先减小后增大          B．先增大后减小      C．先向左后向右          D．先向右后向左