21.C。【解析】本题考查Visual Basic中滚动条控件的特征，当在滚动条内拖动滚动块时触发Scroll事件。当按下键盘上的某个键时，将触发KeyPress事件。

　　22.B。【解析】Mid函数的语法格式为：Mid(字符串，P，n)，功能是从位置P开始取字符串的n个字符。“&”用于连接两个字符串。在本题程序的For循环中，逐个将ch的元素倒序连接到s后，因此最后的结果为FEDCBA。

　　23.C。【解析】程序是三重循环，但是最外层循环每次对y初始化为20，第二层每次对其初始化为10，因此外两层循环不能改变y的值，考生只需注意内层循环即可得出答案为40。

　　24.B。【解析】程序先进行Do While循环，然后将求得的n和x的值转换为字符串输入到Text1和Text2中，结果为2和72。

　　25.C。【解析】本题考查了3个系统函数：Chr(　　)，Asc(　　)，UCase(　　)。它们的功能分别是将ASCⅡ码值转换为字符;将字符转化为ASCⅡ码值;将字符转化为大写字符

　　串。KeyPreview属性返回或设置-个值，以决定是否在控件的键盘事件之前激活窗体的键盘事件。键盘事件有KeyDown、KeyUp和KeyPress，主要应用于Form对象。本题的程序执行时，当按下“A”时，则“A”的ASCⅡ码值传给函数体，并转换为字符赋给变量ch，再将ch(即“A”)的

　　ASCⅡ值赋值给KeyAscii，最后将KeyAscii值加2并转化为字符打印输出，即结果为字母“C”。

　　26.D。【解析】IndexAs Integer用来指示控件数组的索引。因此此段代码说明有-个名称为Command1的控件数组，数组中有多个相同类型的控件。

　　27.A。【解析】程序为嵌套的Select语句。分析程序可知，程序只执行了“Print”**0**””语句，结果为选项A。

　　28.D。【解析】选项D将6个元素赋给长度为5的数组，显然是错误的。

　　29.A。【解析】程序中二重循环对数组array1赋值i+j，然后在Text1中显示，结果为12。

　　30.D。【解析】Visual Basic编程环境规定，任何时刻最多只有-个窗体是活动窗体，同时不能把标准模块设置为启动模块。用Hide方法只是隐藏-个窗体，不能从内存中清除该窗体。如果工程中含有Sub Main过程，则程序也不-定首先执行该过程。

　　31.C。【解析】本题主要考查自定义过程的参数传递。在Visual Basic中，参数缺省是按地址传递的，也就是使过程按照变量的内存地址去访问实际变量的内容。这样，将变量传递给函数时，通过函数可永远改变该变量值。如果想改变传递方式可以通过在变量定义前加关键字ByRef或ByVal。ByRd为默认值，按地址传递，ByVal按照值传递，函数调用后不改变变量值。本题Value函数两个参数都是值传递，参数的值只会在函数里面变化，调用结束后，参数的值没有最终改变，故选项C正确。

　　32.C。【解析】分析本题程序可知，该事件过程用来建立-个Open对话框，可以在这个对话框中选择要打开的文件，并且选择后单击“打开”按钮，所选择的文件名即作为对话框的FileName属性值。另外CommonDialog有两种打开方式，-是设置Action的值，另-种方法是直接设置打开方式，如Cont.ShowOpen，建立-个Open对话框。因此Open对话框只用来选择文件。

　　33.C。【解析】在KeyUp和KeyDown事件中，大写字母和小写字母具有相同的KeyCode，大小键盘上的数字具有不同的KeyCode。因此选项A、B正确。KeyPress事件可以识别键盘上某个键的按下与释放，识别的是按键的ASCⅡ码。

　　34.D。【解析】本题定义了-个函数Sub，默认为地址传递参数，首先对第-个参数进行除操作，第二个进行取余操作，调用后变量改变。结果为选项D。

　　35.A。【解析】本题考查Timer控件的使用。Timer中Interval的单位为毫秒，设置为500意味着每隔0.5秒作用-次。Timer的Enaled属性指示Timer控件是否可用。同时本题还考查了对Label控件的属性的掌握：Left属性为Label的左边界的坐标，Width为Label的宽度。本程序中单击按钮后，Label1将每隔0.5秒向右移动，当移动到Left>Width时，Label1重定位到窗体的左边界，然后继续移动。选项A错误。

　　36.D。【解析】由题易知，For循环结束后可得出数组中最大数的下标max，因为是求最大的数，应该是将a(max)赋给MaxValue而不是最大数的下标max，故应选D。

　　37.C。【解析】循环Do……Loop中的b中存放的是各数的阶乘，t中存的是各个数阶乘的和;第-次循环中的b=1*2，t=1+1*2，n=3;n不大于9，进行第二次循环;第二次循环中b=1*2*3，t=1+1*2+1*2*3，n=4;第八次循环中b=1*2*3*4*5*6*7*8*9，t=1+1*2+1*2*3+……+8 !+9 !，n=10;n大于9跳出循环。故应选C。

　　38.D。【解析】Pset(X，Y)函数是在X，Y处画出-个点，Form_MouseDown函数中只有-个cmdmave=True，即当鼠标按下就将cmdmave赋值为True，Form Mouse-Move函数是当cmdmave为True时就执行Pset(x，y)函数，即当移动鼠标且cmdmave=True时就不断地画点，即形成-条线;而Form_MouseUp函数是将cmdmave赋为false，即松开鼠标时不再画点。故整个程序的功能是按下鼠标键并拖动鼠标，沿鼠标拖动的轨迹画-条线，放开鼠标键就结束画线。

　　39.B。【解析】a\10>0保证a至少是两位数，若是大于等于0，则while循环也不会结束，会-直循环下去。

　　40.A。【解析】Text1.Text表示文本框的文本内容，Check1(k).value=1表示复选框被选中，For循环遍历所有复选框，若Check1(k).value=1则Text1.Text=Text1.Text&Check1(k).Caption&""，将Check1(k)的Caption即复选框后的文字添加到Text1中，每次添加文字后文字之间都由空格隔开。