VB2012春第二部分VisualBasic程序设计一、选择题（用答题卡答题，答案依次填在21～30答题号内）21．以下说法中，错误的是21。A．以.frm为扩展名的文件是窗体模块文件B．以.bas为扩展名的文件是标准模块文件C．窗体模块文件包含该窗体及其窗体上相关控件的属性信息D．标准模块文件由事件过程、通用过程等内容组成22．下列语句中，错误的是22。A．Label1.Caption="Hello"B．Text1.Caption="Hello"C．Command1.Caption="Hello"D．Frame1.Caption="Hello"23．在一个控件数组中用23属性标识不同的控件数组元素。A．TabIndexB．IndexC．CaptionD．Left24．在SelectCaseX结构语句中（X为Integer类型），能正确描述5≤X≤10的Case语句是24。A．CaseIs>=5,IsInt(4.5)B．PrintCInt(-4.5)>Fix(-4.5)C．PrintCInt(-4.5)>Int(-4.5)D．PrintCInt(4.5)>Fix(4.5)26．数学表达式)sin(2yxxyyx对应的VB表达式是26。A．Sqr(x+y)-Sin(Abs(y^2*x)/(x-y))B．Sqr(x+y)-Sin(Abs(y^2*x)/x-y)C．Sqr(x+y)-Sin(|y^2*x|/(x-y))D．Sqr(x+y)-Sin(|y^2*x|/x-y)27．以下关于变量的说法中，正确的是27。A．同一个模块中的模块级变量不能和局部变量同名B．同一模块的不同过程中的变量名不能相同C．不同模块中的变量名不能相同D．不同模块中的全局变量名可以相同28.在窗体的通用声明处有语句Dima()AsSingle，以下重新定义数组的语句中，正确的是28。VB2012春A．ReDima(3,3):ReDima(3,4)AsDoubleB．ReDima(3,3):ReDimPreservea(4,4)C．ReDima(3):ReDima(3,3)AsDoubleD．ReDima(3,3):ReDimPreservea(3,4)29．以下有关自定义函数过程的说法中，错误的是29。A．在自定义函数过程中可以多次为函数名赋值B．如果在函数体内没有给函数名赋值，则该函数无返回值C．函数名的命名规则与变量名的命名规则相同D．函数定义时如果没有说明函数名的类型，则为变体类型30．设x为字符型变量，n为整型变量，以下关于Mid函数的说法中，错误的是30。A．Mid(x,n)表示从字符串x的第n个位置开始向右取所有字符B．若x="xyz"，执行语句Mid(x,1,2)="ab"后，x的值为"abz"C．Mid(x,n,1)的取值与Left(x,n)的取值相同D．使用Mid函数可提∽址兄付ㄎ恢谩⒅付ǜ鍪淖址?二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1．执行下面程序，单击命令按钮Command1后，a(2,3)的值为（1），a(3,4)的值为（2），a(5,4)的值为（3）。OptionExplicitPrivateSubCommand1_Click()Dima(5,5)AsInteger,iAsInteger,jAsIntegerFori=1To5Forj=1To5Ifi=1Orj=1Thena(i,j)=1Elsea(i,j)=a(i-1,j)+a(i,j-1)EndIfPrinta(i,j);NextjPrintNextiEndSub2．执行下面程序，单击命令按钮Cmd1后输出的fun函数值是（4），a的值是（5），b的值是（6）。OptionExplicitPrivateSubCmd1_Click()DimaAsInteger,bAsIntegera=8VB2012春b=12Printfun(a,b);a;bEndSubPrivateFunctionfun(ByValaAsInteger,bAsInteger)AsIntegera=aMod5b=b\5fun=a+bEndFunction3．执行下面程序，单击命令按钮Cmd1后，a(2)的值是（7），a(3)的值是（8），a(5)的值是（9）。OptionExplicitO