国家二级VB机试（数据类型及运算）模拟试卷4（共83题）

国家二级VB机试（数据类型及运算）模拟试卷4（共4套）（共83题）国家二级VB机试（数据类型及运算）模拟试卷第1套一、选择题(本题共33题，每题1.0分，共33分。)1、以下关于变量作用域的叙述中错误的是A、在窗体模块的声明部分声明的Private变量，其作用域是窗体内的所有过程B、在标准模块的声明部分声明的Private变量，其作用域是模块内的所有过程C、在窗体模块的声明部分声明的Pubilc变量，其作用域是本窗体的所有过程D、在标准模块的声明部分声明的Pubilc变量，其作用域是应用程序的所有过程标准答案：C知识点解析：根据变量的定义位置和定义关键字的不同，变量可以分为以下3种类型：局部(Local)变量：在过程，(事件过程或通用过程)内定义的变量，其作用域为该变量所在的过程，定义时使用Dim、Static关键字；模块(Module)变量：模块变量包括窗体变量和标准模块变量2种。其中，窗体变量可用于该窗体内的所有过程，其作用域为该变量所在的窗体；标准模块变量是在标准模块中定义的变量，变量的声明和使用与窗体模块中窗体变量类似。区别是标准模块是只含有程序代码的应用程序文件，其扩展名为．bas；全局(Public)变量：全局变量也称为全程变量，在标准模块的声明部分声明。全局变量的作用域最大，可以在工程的每个模块、每个过程中使用。2、在某个事件过程中定义的变量是A、局部变量B、窗体级变量C、全局变量D、模块变量标准答案：A知识点解析：根据变量的定义位置和定义关键字的不同，变量可以分为局部(L,ocal)变量、模块(Module)变量和全局(Public)变量3种类型：3、以下合法的VB变量名是A、_aB、yPrintC、a—bD、Type标准答案：B知识点解析：变量是用一个名称来表示的，给变量命名时应遵循规则：名称只能由字母、数字和下划线组成；名称的第一个字符必须是英文字母，最后一个字符可以是类型说明符；名称的有效字符为255个；不能用VB的保留字作变量名，但变量名中可以包含保留字，如ConstA；变量名也不能是末尾带有类型说明符的保留字，如Dim!是不合法的变量名；不区分字母的大小写。4、设在一个工程的窗体中有如下代码：PublicXAsIntegerPrivateSubForm_Load()DimYAsIntegerEndSub在该工程的标准模块的声明部分有代码：PublicaAsInteger：PrivatebAsInteger关于上述代码，以下叙述中错误的是A、变量X的作用域是整个工程B、变量Y的作用域是Form_Load过程C、变量a的作用域是整个工程D、变量b的作用域是整个标准模块标准答案：A知识点解析：根据变量的定义位置和定义关键字的不同，变量可以分为局部(Local)变量、模块(Module)变量和全局(Public)变量3种类型：5、以下不合法的VB变量名是A、filenameB、readC、_yD、e5标准答案：C知识点解析：变量是用一个名称来表示的，给变量命名时应遵循规则：名称只能由字母、数字和下划线组成；名称的第一个字符必须是英文字母，最后一个字符可以是类型说明符；名称的有效字符为255个；不能用VB的保留字作变量名，但变量名中可以包含保留字，如ConstA；变量名也不能是末尾带有类型说明符的保留字，如Dim!是不合法的变量名；不区分字母的大小写。6、以下关于变量作用域的叙述中，错误的是A、在标准模块声明部分用Public声明的变量的作用域为整个工程文件B、在标准模块声明部分用Private声明的变量的作用域为该标准模块C、在窗体的声明部分不能用Private声明变量D、在过程中不能使用Public声明变量标准答案：C知识点解析：根据变量的定义位置和定义关键字的不同，变量可以分为局部(Local)变量、模块(Module)变量和全局(Public)变量3种类型：7、下列符号常量的声明中不合法的是A、ConstaAsSingle=3．5B、ConstaAsDouble=5+8C、ConstaAsInteger=”25”D、Consta=”OK”标准答案：C知识点解析：声明符号常量用来代替数值或字符串。一般格式为：Const常量名=表达式[，常量名=表达式]…，其中要求表达式的类型和常量的类型是相同或者相容的。“25”是一个字符串常量，无法赋值给整型符号常量a。8、在窗体模块的声明部分声明变量时，不能使用的关键字是A、DimB、PublicC、PrivateD、Static标准答案：D知识点解析：根据变量的定义位置和定义关键字的不同，变量可以分为局部(Local)变量、模块(Module)变量和全局(Public)变量3种类型：9、下面变量定义中错误的是A、PublicmodAsIntegerB、StaticbufC、DimchAsString*10D、Dima!(-5To—1)标准答案：A知识点解析：定义变量时需要使用As类型或者类型说明符来指明变量的数据类型，如果不指明则为隐式声明，该变量为变体型；mod是关键字表示求余运算，根据标识符命名规则不能作为变量名。10、如果要定义一个窗体级变量，定义变量语句的位置应该是A、在使用该变量的过程中B、在该窗体模块所有过程的前面C、在该窗体模块所有过程的后面D、在某个标准模块中标准答案：B知识点解析：根据变量的定义位置和定义关键字的不同，变量可以分为局部(Local)变量、模块(Module)变量和全局(Public)变量3种类型：11、下列说法中，错误的是A、变量名长度不能超过255个字符B、变量名的第一个字符可以是字母或数字C、变量名只能由字母、数字和下划线组成D、变量名不能使用保留字标准答案：B知识点解析：变量是用一个名称来表示的，给变量命名时应遵循规则：名称只能由字母、数字和下划线组成；名称的第一个字符必须是英文字母，最后一个字符可以是类型说明符；名称的有效字符为255个；不能用VB的保留字作变量名，但变量名中可以包含保留字，如ConstA；变量名也不能是末尾带有类型说明符的保留字，如Dim!是不合法的变量名；不区分字母的大小写。12、在标准模块中，将a定义为全局整型变量的语句是A、StaticaAsIntegerB、DimaAsIntegerC、PrivateaAsIntegerD、PublicaAsInteger标准答案：D知识点解析：根据变量的定义位置和定义关键字的不同，变量可以分为局部(Local)变量、模块(Module)变量和全局(Public)变量3种类型：13、下列说法中，错误的是A、变量名长度不能超过127个字符B、变量名的第一个字符必须是字母C、变量名不能使用保留字D、变量名只能由字母、数字和下划线组成标准答案：A知识点解析：变量是用一个名称来表示的，给变量命名规则同38题。14、下面能够将某个变量声明为局部变量的是A、在窗体模块的声明部分，用关键字Static声明这个变量B、在窗体模块的声明部分，用关键字Dim声明这个变量C、在需要使用这个变量的过程中，用关键字Private声明这个变量D、在需要使用这个变量的过程中，用关键字Public声明这个变量标准答案：C知识点解析：根据变量的定义位置和定义关键字的不同，变量可以分为局部(Local)变量、模块(Module)变量和全局(Public)变量3种类型：15、有如下过程代码：Subvar_dim()StaticnumaAsIntegerDimnumbAsIntegernuma=numa+2：numb=numb+1：printnuma；numbEndSub连续3次调用var_dim过程，第3次调用时的输出是A、21B、23C、61D、63标准答案：C知识点解析：Static语句在过程级别中使用，用于声明变量并分配存储空间，在整个代码运行期间都能保留使用Static语句声明的变量的值。本题中，当第1次调用过程时，静态变量numa的初值为0、普通变量numb的初值为0，执行循环语句后，静态变量numa的值应为2、普通变量numb的值为1；当第2次调用过程时，静态变量numa的初值为2、普通变量numb的初值为0，执行循环语句后，静态变量numa的值应为4、普通变量numb的值为1；当第3次调用过程时，静态变量numa的初值为4、普通变量numb的初值为0，执行循环语句后，静态变量numa的值应为6、普通变量numb的值为1。16、标准模块中有如下程序代码：PublicXAsInteger，YAsIntegerSubvar_pub()x=10：y=20EndSub在窗体上有1个命令按钮，并有如下事件过程：PrivateSubCommandl_Click()DimXAsIntegerCallvarpubx=x+100：y=y+100：Printx；yEndSub运行程序后单击命令按钮，窗体上显示的是A、100100B、100120C、110100D、110120标准答案：B知识点解析：在标准模块用Public关键字声明的全局变量，其作用域最大，可以在工程的每个模块、每个过程中使用。但当不同作用范围的变量重名时，有效范围小的变量会屏蔽有效范围大的变量。当一个全局变量与一个过程级变量重名时，当在本过程中直接使用这个变量名时，被认为是指局部变量。如果要在这个过程中使用同名的全局变量，要使用模块名来修饰变量名。在本题的事件过程中，由于变量x被声明为过程级变量，其初始值为0，调用过程var_pub不会改变其值，而变量y为标准模块中声明的全局变量，调用过程var_pub后其值为20。故最后输出结果为100和120。17、窗体上有一个Textl文本框，一个Commandl命令按钮，并有以下程序：PrivateSubCommandl_Click()DimnIfTextl．Text<>”123456”Thenn=n+1Print”口令输入错误”&n&”次”EndIfEndSub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是A、在Dimn语句的下面添加一句：n=0B、把Print”口令输入错误”&n&”次”改为Print”口令输入错误”+n+”次”C、把Print”口令输入错误”&n&”次”改为Print”口令输入错误”&Str(n)＆”次”D、把Dimn改为Staticn标准答案：D知识点解析：本题中题干部分的程序之所以会产生不合要求的结果，其原因是在单击事件中的第一条语句为Dimn，这样的话每次单击按钮时触发此事件，都将会执行这条语句，重新定义一个局部变量n并设其默认初值为0。Static语句在过程级别中使用，用于声明变量并分配存储空间，在整个代码运行期间都能保留使用Static语句声明的变量的值，因此此处应该使用Staticn来声明变量。18、工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是：PublicXAsIntegerPrivateYAsInteger窗体文件的程序代码是：DimaAsIntegerPrivateSubForm_Load()DimbAsIntegera=2：b=3：：x=10：y=20EndSubPrivateSubCommandl_Click()a=a+5：b=b+5：x=x+5：y=y+5Printa；b；x；yEndSub运行程序，单击窗体上的命令按钮，则在窗体上显示的是A、55155B、751525C、78155D、75155标准答案：D知识点解析：本题中在模块文件中声明的x是全局变量，y是模块变量；在窗体中声明的a是模块级变量；在窗体的Load事件中声明了局部变量b，而且隐式声明了局部变量y；在按钮的Click事件中使用到的a是模块级变量，其值为2；b是隐式声明的局部变量，其初值为0；x是全局变量，其值为10；y也是隐式声明的局部变量，其初值为5。19、编写如下程序：PrivateSubCommandl_Click()DimmAsInteger,nAsIntegern=2Form=1To3Printproc(n)；NextmEndSubFunctionproc(iAsInteger)DimaAsInteger,StaticbAsIntegera=a+1：b=b+1proc=a*b+iEndFunction程序运行后，单击命令按钮Commandl，输出结果为A、333B、345C、356D、123标准答案：B知识点解析：使用Dim关键字定义的是动态局部变量，过程执行结束后即被释放；使用Static关键字定义的是静态局部变量，过程执行结束后仍然保留。本题中函数proc中的局部变量a是动态变量，b是静态变量。即每次函数调用后b的值会保留。先后三次调用proc(n)方法，依次输出3、4、5。20、窗体上有名称为Commandl的命令按钮，名称分别为Labell、Label2、Label3的标签。编写如下程序：PrivatexAsIntegerPrivateSubCommandl_Click()StaticvAsIntegerDimzAsIntegern=5：z=z+n：y=y+n：x=x+yLabel1=x：Label2=y：Label3=zEndSub运行程序，连续3次单击命令按钮后，3个标签中分别显示的是A、555B、15105C、151515D、30155标准答案：D知识点解析：Static语句在过程级别中使用，用于声明变量并分配存储空间，在整个代码运行期间都能保留使用Static语句声明的变量的值。在窗体的声明段用Private声明的变量为模块级变量，其作用域为整个窗体。本题中，当第1次单击时，静态变量y的初值为0，执行调用语句后，静态变量y的值应为5，模块级变量x的值为5；当第2次单击时，静态变量y的初值为5，执行调用语句后，静态变量y的值应为10，模块级变量x的值为15；当第3次调用过程时，静态变量y的初值为10，执行调用语句后，静态变量y的值应为15，模块级变量x的值为30。21、在窗体上画一个命令按钮，然后编写如下程序：Subinc(aAsInteger)StaticxAsIntegerx=x+aPrintx；EndSubPrivateSubCommandl_Click()inc2：inc3：inc4EndSub程序运行后，第一次单击命令按钮时的输出结果为A、234B、259C、111418D、4916标准答案：B知识点解析：Static语句在过程级别中使用，用于声明变量并分配存储空间，在整个代码运行期间都能保留使用Static语句声明的变量的值。本题的inc过程中的x是一个静态变量，在三次调用过程中变量的值会保留，分别为2、2+3、5+4。22、设窗体上有一个Commandl命令按钮，还有以下程序代码：PrivateSubCommandl_Click()StaticxAsIntegerx=x+lCallproc(x)Printx，EndSubPrivateSubproc(aAsInteger)StaticxAsIntegerX=x+a：a=xEndSub程序运行后，3次单击命令按钮，则产生的输出是A、123B、135C、137D、246标准答案：C知识点解析：本题中在Commandl_Click过程中和Sub过程proc中分别定义了一个静态变量x，这两个x都是局部变量，隶属于不同的局部，互不干涉；当单击命令按钮时，单击事件中的x加1，然后调用proc过程；由于·proc的形参a采用地址传递，因此对a的改变会影响实参x。三次单击按钮分别使得两个过程中的x分别变化，都会保留上一次过程结束时的值。23、编写如下程序：PrivateSubCommandl_Click()DimnAsInteger：StaticsAsIntegerForn=1To3s=s+nNextPrintsEndSub程序运行后，第三次单击命令按钮Commandl时，输出结果为A、3B、6C、9D、18标准答案：D知识点解析：Static语句在过程级别中使用，用于声明变量并分配存储空间，在整个代码运行期间都能保留使用Static语句声明的变量的值。在本题中连续3次单击命令按钮，第一次单击时输出的s=1+2+3=6。第二次单击时输出的s=6+1+2+3=12，第三次单击时输出的s=12+1+2+3=18。24、窗口上画一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommmandl_Click()x=InputBox(”Input”)SelectCasexCase1．3Print”分支1”CaseIs>4Print”分支2”CaseElsePrint”Else分支”EndSelectEndSub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A、分支1B、分支2C、Else分支D、程序出错标准答案：C知识点解析：本题考查switch结构。在Commandl的Click事件响应代码里面，通过InputBox输入数据给变量x，然后switch根据x的值输出不同的信息。在输入对话框中输入2，那么x的值为2，在switch的多个Case中CaseElse条件符合，因此输出的是“Else分支”。25、以下关于MsgBox的叙述中，错误的是A、MsgBox函数返回一个整数B、通过MsgBox函数可以设置信息框中图标和按钮的类型C、MsgBox语句没有返回值D、MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量标准答案：D知识点解析：本题考查MsgBox函数的使用，语法是：MsgBox(Prompt[，Buttons][，Title][，．Helpfile，Context])参数含义如下：①Prompt：必需的，字符串表达式，作为显示在对话框中的消息。②Buttons：可选的，数值表达式是指的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等，缺省值为0。③Title：可选的，在对话框标题栏中显示的字符串表达式，缺省将应用程序名放在标题栏中。④Helpfile：可选的，字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了Helpfile，则也必须提供Context。⑤Context：可选的，数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了Context，则也必须提供：Helpfile。选项A)、B)和C)都是正确的，选项D)错误，MsgBox的第二个参数决定对话框中显示的按钮数量和形式。26、在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommmandl_Click()StaticxAsIntegerClsForI=1To2y=y+x：x=x+2NextPrintx，yEndSub程序运行后，连续三次单击Commandl按钮后，窗体上显示的是A、42B、1218C、1230D、46标准答案：B知识点解析：本题考查Static变量，Static变量在函数退出之后其值依然存在，下次执行函数的时候还保存上次的值。在本题中，x是Sta，tic变量，第一次点击命令按钮的时候，x的初值为0，进入For循环，循环两次，y和x的值变化过程分别为：0和2、2和4；第二次点击命令按钮，y是临时变量的初值为0，x由于是Static变量，其值是上次值为4，因此For循环中，y和x的值变化过程为：4和6、10和8；第三次点击命令按钮，x的值为10，因此y和x在For循环中的变化过程为：8和10、18和12，因此答案选B)。27、在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()AS=”VisualBasic”PrintString(3，aS)EndSub程序运行后，单击命令按钮，在窗体上显示的内容是A、VVVB、VisC、sicD、11标准答案：A知识点解析：本题考查VB常用内部函数。String函数的语法是：String(number,character)作用是产生字符串，其中character是需要生成的字符，number是生成的个数，比如string(3，”h”)就会生成含义3个“h”的字符串。本题中调用String函数，number参数为3，character参数是A$变量的首字母，因此返回值为：VVV。28、执行如下两条语句后，窗体上显示的是a=9．8596PrintFormat(a，”$00，00，00”)A、0，009．86B、$9．86C、9．86D、$0，009．86标准答案：D知识点解析：此题考察。Format函数，该函数的格式为：Format(expression[，formatl)其中expression参数指定要转换的数值，format参数是字符串，$表示Currency格式，显示带千分符且小数点右面保存两位，因此应选选项D。29、设一个工程由两个窗体组成，其名称分别为Fornm1和Fornm2，在Fornm1上有一个名称为Commandl的命令按钮。窗体Fomml的程序代码如下：PrivateSubCommandl_Click()Dima=10Callg(Fomm2，a)EndSubPrivateSubg(fAsForum，xAsInteger)y=IIf(x>10，100，-100)f．Showf．Caption=yEndSub运行以上程序，正确的结果是A、Fornml的Caption属性值为100B、Forum2的Caption属性值为一100C、Fornml的Caption属性值为-100D、Forum2的Caption属性值为100标准答案：B知识点解析：本题考查常用函数和窗体属性设置。在Commandl命令按钮的Click事件代码里面，定义变量a，初始化为10，然后调用g函数，参数为Fornm2和a；在g函数中，首先判断输入的参数x是否大于10，显然调用g函数时传入的a为10，因此在g函数中y的值为-100，然后设置窗体f变量(Forum2)的Caption属性为y，即设置Forum2的Caption属性为-100。30、在窗体上画一个名称为Commandl的命令按钮，并编写如下程序：PrivateSubCommandlClick()DimxAsIntegerx=10：y=5Callfl(x，y)Printx，yEndsubPrivateSubfl(ByRefx1AsInteger，_y1AsInteger)x1=x1+2：y1=y1+2EndSub程序运行后，单击命令按钮，在窗体上显示的内容是A、105B、122C、107D、127标准答案：D知识点解析：本题考查函数参数传递。在Commandl的C1ick事件代码里面，定义了变量x和y，值分别为10和5，然后调用f1过程；f1过程有两个参数，其中第一个参数是ByRef表明是按地址传递参数的，第二个参数是没有指明ByVal类型，因此默认页是ByRef地址传递参数，在f1过程中多参数做的修改，同样会修改实参；在f1过程中，分别对两个参数加2，因此在Commandl的Click代码里面，调用f1过程后，x和y的值增加2，变成12和7。31、在窗体上画一个名称为Filel的文件列表框，并编写如下程序：PrivateSubFile1_DblClickOx=Shell(File1．FileName，1)EndSub以下关于该程序的叙述中，错误的是A、x没有实际作用，因此可以将该语句写成CallShell(Filel．FileName，1)B、双击文件列表框中的文件，将触发该事件过程C、要执行的文件的名字通过Filel．FileName指定D、Filel中显示的是的当前驱动器、当前目录下的文件标准答案：A知识点解析：本题考查常用内部函数，Shell函数的功能是执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的任务ID，若不成功，则会返回O。选项A)错误，x获取Shell函数返回值；选项B)、C)和D)均正确。32、在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：OptionBase1PrivateSubCommandl_Click()DimaAsVarianta=Array(1，2，3，4，5)Sum=0Fori=1To5Sum=Sum+a(i)Nextix=Sum／5Fori=1To5Ifa(i)>xthenPrinta(i)NextiEndSub程序运行后，单击命令按钮，在窗体上显示的内容是A、12B、123C、345D、45标准答案：D知识点解析：本题考查数组和循环。在Commandl的Click事件代码里面，定义了数组a，并通过Array函数给数组赋初值。接下来通过For循环计算数组元素的累加和Sum，得到累加和后x=Sum／5来计算平均值。最后通过For循环，打印大于平均值的元素。33、执行以下程序段aS=”abbacddcba”Fori=6To2Step一2X=Mid(a，i，i)：Y=Lefl(a，i)z=Right(a，i)：z=UCase(XYz)NextiPrintZ输出的结果是A、ABAB、BBABBAC、AABAABD、AABAAB标准答案：B知识点解析：本题考查循环结构和常用内部函数，Mid、LeR和Right是字符串截取函数，UCase是把字符串转换成大写的函数。在循环体内，X是从a字符串的第i位开始，取出i长度的字符串，Y从a字符串的最左边开始取出长度为i的字符串，Z从a字符串的最右边开始取出长度为i的字符串，然后把“XYz”转换成大小并赋值给z。由于循环体每次操作都一样，只需要考虑循环最后一次执行的情况，循环最后一次执行的时候i的值为2，此时X=Mid(a，2，2)=”bb”，Y=LeR(a，2)=”ab”，z=Right(a，2)=”ba”，所以UCase(XYz)=”BBABBA”。国家二级VB机试（数据类型及运算）模拟试卷第2套一、选择题(本题共32题，每题1.0分，共32分。)1、设x是小于10的非负数。对此陈述，以下正确的VB表达式是A、0<=x<10B、0<=x<10C、x>0andx<10D、x>0orx<=10标准答案：C知识点解析：本题考查VB表达式。x是一个小于10的非负数，x>0和x<10两者是与的关系。2、窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：PrivateTypexaAsInteger：bAsIntegerEndTypePrivateSubCommand1_Click()DimyAsxy．a=InputBox("")Ify．a＼2=y．a／2Theny．b=y．a*y．aElsey．b=Fix(y．a／2)EndIfText1．Text=y．bEndSub对以上程序，下列叙述中错误的是A、x是用户定义的类型B、InputBox函数弹出的对话框中没有提示信息C、若输入的是偶数，y．b的值为该偶数的平方D、Fix(y．a／2)把y．a／2的小数部分四舍五入，转换为整数返回标准答案：D知识点解析：本题考查的考点是有关自定义类型和Fix函数的。用户可以通过Type语句自定义类型，并可用自定义的类型声明变量。注意Fix函数是向下取整，Round函数是四舍五入。3、窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：PrivateSubText1_KeyUp(KeyCodeAsInteger，ShiftAsInteger)DimcAsStringc=UCase(Chr(KeyCode))：Text2．Text=Chr(Asc(c)+2)EndSub当向文本框Text1中输入小写字母a时，文本框Text2中显示的是A、AB、aC、CD、c标准答案：C知识点解析：本题考查的考点是有关字符转换函数的。UCase函数的功能为强制转成大写字母；Chr函数的功能是把整数按照ASCII码转换成字母；Asc函数的功能是把字母转换成对应的ASCII码。本题中变量c的值是大写字母“A”，最终结果是大写字母“C”。4、窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：PrivateSubCommand1_Click()Text2．Text=UCase(Mid(Text1．Text，5，4))EndSub在Text2中显示的是A、formB、listC、FORMD、LIST标准答案：D知识点解析：Mid(字符串，起始位置[，个数】)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。5、窗体上有1个名称为Command1的命令按钮，事件过程如下：PrivateSubCommand1_Click()m=-3．6IfSgn(m)Thenn=Int(m)Elsen=Abs(m)EndIfPrintnEndSub运行程序，并单击命令按钮，窗体上显示的内容为A、-4B、-3C、3D、3．6标准答案：A知识点解析：Int函数的作用是去返回不大于参数的最大整数，例如Int(4．6)=4，Int(-4．6)=-5；VB中的逻辑值True和False和整型值之间会自动进行类型转换，其中-1转换为True，0转换为False。本题中由于m为负数，所以Sgn(m)的值为-1，即条件为真，会返回不大于m的最大整数值即-4。6、设有如下程序：PrivateSubForm．Click()num=InputBox("请输入一个实数")：p=InStr(num，"")Ifp>0ThenPrintMid(num，p+1)ElsePrint"END"EndIfEndSub运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出“END”；否则A、用字符方式输出该实数B、输出该实数的整数部分C、输出该实数的小数部分D、去掉实数中的小数点，保留所有数码输出标准答案：C知识点解析：字符串匹配函数Instr用于查找第二个参数在第一个参数中第一次出现的位置，若未找到返回O；Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置，然后输出小数点后面的部分，即小数部分。7、在窗体上画一个文本框，名称为Text1，然后编写如下程序：PrivateSubFormLoad()PrivateSubFormClick()Text1．Text=""：Text1．SetFocusDimaAsString，sAsStringEndSuba=Text1．Text：s=""Fork=1ToLen(a)s=UCase(Mid(a，k，1))+sNextkText1．Text=sEndSub程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容A、与原字符串相同B、与原字符串中字符顺序相同，但所有字母均转换为大写C、为原字符串的逆序字符串，且所有字母转换为大写D、为原字符串的逆序字符串标准答案：C知识点解析：Mid(字符串，起始位置[个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。本题中在循环内每次取出第k位个字符并且连接到结果字符串的前面，所以结果字符串是源字符串的逆序字符串。8、在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()a$=InputBox("请输入一个二进制数")n=Len(a$)Fori=lTonDec=Dec*2+______(a$，i，1)NextiPrintDecEndSub程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定"按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是A、LeftB、RightC、ValD、Mid标准答案：D知识点解析：Midl[字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。本题中要将二进制数转换为十进制数，应该取出二进制数的每一位然后乘以位权。9、以下程序的功能是随机产生10个两位的整数：OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger，iAsIntegerRandomizeFori=1To10a(i)=Int(Rnd*100)+1Printa(i)NextiEndSub运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是A、a(i)=Int(Rnd*100)B、a(i)=Int(Rnd*90)+10C、a(i)=Int(Rnd*100)+10D、a(i)=Int(Rnd*101)标准答案：B知识点解析：随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int((upperbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound是随机整数范围的上限，lowerbound，随机整数范围的下限。本题中upperbound为99，lowerbound为10。10、窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下：PrivateSubCommand1_Click()Dima(10)AsInteger，xAsIntegerFori=lTo10a(i)=Int(Rnd*100)Nextx=InputBox("输入100以内的整数：")p=0Fori=1To10Ifa(i)=xThenp=i：ExitForEndIfNextIfp=0ThenPrint"没有找到与输入数据相同的数!"ElsePrintStr(x)+"在数组中的位置是"+Str(p)EndIf．EndSub对于上述事件过程，以下叙述中正确的是A、本程序实际产生的随机数是0-99B、若产生的随机数中有相同数，则p是其中最后一个数的位置C、程序有错，p的初值设置不对D、程序有错，InputBox函数产生的数据与x的类型不匹配标准答案：A知识点解析：随机数函数：Rnd的功能是用于产生一个小于1但大于或等于0的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int((upperbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound是随机整数范围的上限，lowerbound是随机整数范围的下限。本题中upperbound为99，lowerbound为0。11、在VisualBasic中，表达式3*2＼5Mod3的值是A、1B、0C、3D、出现错误提示标准答案：A知识点解析：本题考查的考点是有关算术运算的。按照运算符的优先级，首先执行3*2得到6，然后用6整除5得到1，最后用1对3求余数得到最终结果1。本题要注意“＼”为整除运算符，以及Mod取余运算的算法。12、表达式2*3^2+4*2／2+3^2的值是A、30B、31C、49D、48标准答案：B知识点解析：本题考查的考点是有关算术运算的。按照运算符的优先级，首先执行3^2得到9，然后用2乘以9得到18；然后计算4*2／2=4；最后计算3^2得到9，三者相加得到最后结果31。13、设a=4，b=5，c=6，执行语句PrintaA、TrueB、FalseC、出错信息D、014、以下关系表达式中，其值为True的是A、XYZ>"XYz"B、VisualBasic<>"visualbasic"C、the="there"D、Integer<"Int"15、把数学表达式表示为正确的VB表达似乎应该是A、(5x+3)／(2y-6)B、x*5+3／2*y-6C、(5*x+3)÷(2*y一6)D、(x*5+3)／(y*2-6)16、下面程序运行时，若输入395，则输出结果是PrivateSubCommand1_Click()Dimx％x=InputBox("请输入一个3位整数")PrintxMod10，x＼100，(xMod100)＼10EndSubA、395B、539C、593D、35917、设a=2，b=3，c=4，d=5，下列表达式的值是a>bAndc<=dOr2*a>cA、TrueB、FalseC、-1D、118、设a=10，b=5，c=1，执行语句Printa>b>c窗体上显示的是A、TrueB、FalseC、1D、出错19、要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是A、Ifxmod7=2ThenPrintxB、Ifx-(x＼7)*7=2ThenPrintxC、Ifx-(x／7)*7=2ThenPrintxD、Ifx-Int(x／7)*7=2ThenPrintx20、满足下列条件之一的年份是闰年：1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份，下面判断闰年的正确表达式是A、yMod4AndyMod100OryMod400B、yM0d4=0OryM0d100<>0AndyMod400=0C、yMod100<>0And(yMod4=0OryMod400=0)D、yMod4=0AndyMod100<>0OryMod400=021、已知a=6，b=15，c=23，则语句PrintSgn(a+bMod6-c＼a)＆a+b的输出结果为A、6B、16C、31D、12122、设a=2，b=3，c=4，d=5，表达式Nota<=cOr4*c=bA2Andb<>a+c的值是A、-1B、1C、真D、False23、已知：x=-6y=39则表达式“y＼x*Sgn(x)”的值为A、-6，5B、-6C、6D、6．524、设：a=12，b=5，c=7，表达式x=(a＼c+aModb)+Int(13／5)的值是A、5B、6C、7D、925、表达式12／2＼4的值是A、15B、2C、4D、126、设：a=2，b=8，c=6，d=3，表达式a>bAndNot(c>d)Ord>c的值是A、1B、0C、TrueD、False27、数学式y2>x>=10在VB中应表示为A、y*y>xAnd10<=xB、Sqr(y)>xAndx>=10C、Sqr(y)>xOrx<=10D、y*y>xOrx>=1028、设a=10，b=4，c=5，d=7，表达式a>bAndNotcA、TrueB、FalseC、1D、029、以下叙述中错误的是A、续行符与它前面的字符之间至少要有一个空格B、VisualBasic中使用的续行符为下划线()C、以撇号(’)开头的注释语句可以放在续行符的后面D、VisualBasic可以自动对输入的内容进行语法检查30、下列有语法错误的赋值语句是A、y=7=9B、s=m+nC、Text1．Text=10D、m+n=1231、输入VB源程序时，若一个命令行中包含两个语句，则两个语句之间的分隔符应使用A、冒号(：)B、分号(；)C、下划线(_)D、连字符(-)32、VisualBasic源程序的续行符为A、冒号(：)B、分号(；)C、下划线(_)D、连字符(-)国家二级VB机试（数据类型及运算）模拟试卷第3套一、选择题(本题共30题，每题1.0分，共30分。)1、产生100以内(不含100)2位随机整数的VisualBasic表达式是A、Int(Rnd(1)*91)+10B、Int(Rnd(1)*90)+10C、Int(Rnd(1)*91)+11D、Int(Rnd(1)*90)+11标准答案：B知识点解析：随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int((upperbound—lowerbound+1)*Rnd+lowerbound)，其中upperbound是随机整数范围的上限，lowerbound是随机整数范围的下限。2、在窗体上画两个文本框，其名称分别为Textl和Text2，然后编写如下程序：PrivateSubForm_Load()Textl．Text=""：Text2．Text=""：TeXt1．SetFocusEndSubPrivateSubTextl_Change()Text2．Text=Mid(Text1．Text，6)EndSub程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是A、ChinaBeijingB、ChinaC、BeijingD、ChinaB标准答案：C知识点解析：Mid(string，start[，lengthl)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，如果start参数超过了string参数中字符的数目，将返回空字符串，如果省略或length参数超过文本的字符数(包括stan处的字符)，将返回字符串中从stan到字符串结束的所有字符。本题程序运行后，当在文本框Text1中输入字符数达到或超过6时，在文本框Text2中将随即显示输入字符中从第6个字符开始的所有字符，全部字符输入后，文本框Text2中的内容为“Beijing”。3、设有如下通用过程：PublicFunctionFun(xStrAsString)AsStringDimtStrAsString．strLAsIntegertStr=""strL=Len(xStr)i=1DoWhilei<=strL／2tStr=tStr&Mid(xStr，i，1)&Mid(xStr,strL-i+1，1)i=i+1LoopFun=tStrEndFunction在窗体上画一个名称为Commandl的命令按钮。然后编写如下的事件过程：PrivateSubCommand1_Click()DimS1AsStringS1=”abcdef”：PrintUCase(Fun(S1))EndSub程序运行后，单击命令按钮，输出结果是A、ABCDEFB、abcdefC、AFBECDD、DEFABC标准答案：C知识点解析：本题通用过程的功能是：从字符串变量xStr值的左右两端同时开始，由外向里每次取出两个字符(左右各一个)，组成一个新的字符串。本题程序运行后，当调用通用过程函数Fun后，返回值应为“afbecd”，转换为大写后在文本框中的显示结果为“AFBECD”。4、假定有以下函数过程：FunctionFun(SAsString)AsStringDimslAsStringFori=lToLen(S)sl=LCase(Mid(S，i，1))+slNextiFun=slEndFunction在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()DimStrlAsString.Str2AsStringStrl=InputBox(”请输入一个字符串”)：Str2=Fun(Strl)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为A、ABCDEFGB、abcdefgC、GFEDCBAD、gfedcba标准答案：D知识点解析：本题考查的考点是有关取子串函数的。本题也比较简单，循环次数就是字符串的长度，每次都在第i位取一个字母转换成小写，最后倒序连接起来，注意每次都把新取得的字符连接到s1的前面，所以为倒序连接。5、在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCornmandl_Click()c=1234c1=Trim(Str(c))Fori=1To4Print______NextEndSub程序运行后，单击命令按钮，要求在窗体上显示内容：1121231234则在横线处应填入的内容为A、Right(c1，i)B、Left(cl，i)C、Mid(cl，i，1)D、Mid(cl，i，i)标准答案：B知识点解析：本题考查的考点是有关取子串函数的。在VB中有3种取子串函数：LeR函数用于在字符串左端开始取n个字符；Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾。本题中显示出来的结果可以看出，第一行是字符串的第一个字符，第二行是字符串的前两个字符……所以每行输出的应该是字符串的前i位。6、设有如下通用过程：PublicFunctionFun(xStrAsString)AsStringDimtStrAsString，strLAsIntegertStr=""：strL=Len(xStr)i=strL／2DoWhilei<=strLtStr=tStr&Mid(xStr,i+1，1)i=i+1LoopFun=tStr&tStrEndFunction在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程：PrivateSubCommandl_Click()DimS1AsStringS1=”ABCDEF”：Textl．Text=LCase(Fun(S1))EndSub程序运行后，单击命令按钮，文本框中显示的是A、ABCDEFB、abcdefC、defdefD、defabc标准答案：C知识点解析：本题考查的考点是有关字符串处理的。本题中过程中的循环变量i的初值是字符串长度的一半，终值是字符串长度，结合循环中的取子串函数，整个循环的功能是取得字符串的后一半放入tstr中，然后连接上自身的值返回到调用程序。7、窗体上有一个名称为Textl的文本框，一个名称为Commandl的命令按钮。窗体文件的程序如下：PrivateTypexaAsInteger：bAsIntegerEndTypePrivateSubCommandl_Click()DimyAsxy．a=InputBox("")Ify．a＼2=y．a／2Theny．b=ya*yaElsey．b=Fix(y．a／2)EndIfTextl．Text=y．bEndSub对以上程序，下列叙述中错误的是A、x是用户定义的类型B、InputBox函数弹出的对话框中没有提示信息C、若输入的是偶数，y．b的值为该偶数的平方D、Fix(y．a／2)把y．a／2的小数部分四舍五入，转换为整数返回标准答案：D知识点解析：本题考查的考点是有关自定义类型和Fix函数的。用户可以通过聊e语句自定义类型，并可用自定义的类型声明变量。注意Fix函数是向下取整，Round函数是四舍五入。8、窗体上有两个名称分别为Text1、Text2的文本框。Textl的KeyUp事件过程如下：PrivateSubTextl_KeyUp(KeyCodeAsIntegeLShiftAsInteger)DimcAsStringc=UCase(Chr(KeyCode))：Text2．Text=Chr(Asc(c)+2)EndSub当向文本框Textl中输入小写字母a时，文本框Text2中显示的是A、AB、aC、CD、c标准答案：C知识点解析：本题考查的考点是有关字符转换函数的。UCase函数的功能为强制转成大写字母；Chr函数的功能是把整数按照ASCII码转换成字母；Asc函数的功能是把字母转换成对应的ASCII码。本题中变量c的值是大写字母“A”，最终结果是大写字母“C”。9、窗体上有名称分别为Text1、Text2的文本框，名称为Commandl的命令按钮。运行程序，在Textl中输入“FormList”，然后单击命令按钮，执行如下程序：PrivateSubCommandl_Click()Text2．Text=UCase(Mid(Text1．Text，5，4))EndSub在Text2中显示的是A、formB、listC、FORMD、LIST标准答案：D知识点解析：Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。10、窗体上有1个名称为Commandl的命令按钮，事件过程如下：PrivateSubCommandl_Click()m=-3．6IfSgn(m)Thenn=Int(m)Elsen=Abs(m)EndIfPrintnEndSub运行程序，并单击命令按钮，窗体上显示的内容为A、-4B、-3C、3D、3．6标准答案：A知识点解析：Int函数的作用是去返回不大于参数的最大整数，例如Int(4．6)=4，Int(一4．6)=一5；VB中的逻辑值True和False和整型值之间会自动进行类型转换，其中一1转换为True，0转换为False。本题中由于m为负数，所以Sgn(m)的值为一l，即条件为真，会返回不大于m的最大整数值即一4。11、设有如下程序：PrivateSubForm_Click()Dam=InputBox(”请输入一个实数”)：P=InStr(num，".")Ifp>0ThenPrintMid(num，P+1)ElsePrint”END”EndIfEndSub运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则A、用字符方式输出该实数B、输出该实数的整数部分C、输出该实数的小数部分D、去掉实数中小数点，保留所有数码输出标准答案：C知识点解析：字符串匹配函数Instr用于查找第二个参数在第一个参数中第一次出现的位置，若未找到返回0；Mid(字符串，起始位置[，个数])函数用于从己有字符串中取出从指定位置开始的含指定个数字符的字符串，若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置，然后输出小数点后面的部分，即小数部分。12、在窗体上画一个文本框，名称为Text1，然后编写如下程序：PrivateSubForm_Load()Textl．Text=””：Text1．SetFocusEndSubPrivateSubForm_Click()DimaAsString．SAsStringa=Text1．Text：S=””Fork=1ToLen(a)s=UCase(Mid(a，k，1))+sNextkText1；Text=SEndSub程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容A、与原字符串相同B、与原字符串中字符顺序相同，但所有字母均转换为大写C、为原字符串的逆序字符串，且所有字母转换为大写D、为原字符串的逆序字符串标准答案：C知识点解析：Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，UCase()函数用于将字符串中小写字母转化为大写字母，原本大写或非字母字符保持不变。本题中在循环内每次取出第k位个字符并且连接到结果字符串的前面，所以结果字符串是源字符串的逆序字符串。13、在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()a$=InputBox(”请输入一个二进制数”)：n=Len(a$)Fori=1TonDec=Dec*2+____(a$，i，1)NextiPrintDecEndSub程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是A、LeftB、RightC、ValD、Mid标准答案：D知识点解析：Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。本题中要将二进制数转换为十进制数，应该取出二进制数的每一位然后乘以位权。14、以下程序的功能是随机产生10个两位的整数：OptionBase1PrivateSubCommandl_Click()Dima(10)AsInteger,iAsIntegerRandomizeFori=1To10a(i)=Int(Rnd*100)+1：Printa(i)NextiEndSub运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是A、a(i)=Int(Rnd*100)B、a(i)=Int(Rnd*90)+10C、a(i)=Int(Rnd*100)+10D、a(i)=Int(Rnd*101)标准答案：B知识点解析：随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数。为了生成某个指定范围内的随机整数，可使用公式：Int((upperbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound是随机整数范围的上限，lowerbotmd是随机整数范围的下限。本题中upperbound为99，lowerbound为10。15、窗体上有一个名称为Commandl的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置若没有找到，给出相应的提示。该命令按钮的单击事件过程如下：PrivateSubCommandl_Click()Dima(10)AsInteger，XAsIntegerFori=1To10a(i)=Int(Rnd*100)Nextx=InputBox(”输入100以内的整数：”):p=0Fori=1To10Ifa(i)=xThenP=i：ExitForEndIfNextIfp=0ThenPrint”没有找到与输入数据相同的数!”ElsePrintStr(x)+”在数组中的位置是”+Str(p)EndIfEndSub对于上述事件过程，以下叙述中正确的是A、本程序实际产生的随机数是0．99B、若产生的随机数中有相同数，则P是其中最后一个数的位置C、程序有错，P的初值设置不对D、程序有错，InputBox函数产生的数据与x的类型不匹配标准答案：A知识点解析：随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int((upperbound．10werbound+1)*Rnd+lowerboundl，其中upperbound是随机整数范围的上限，lowerbound是随机整数范围的下限。本题中upperbound为99,lowerbound为0。16、表达式5Mod3+3＼5*2的值是A、0B、2C、4)6标准答案：B知识点解析：本题考查VB运算符和表达式。本题中的表达式运算符有Mod求余，＼整除和*乘法运算，整除和乘法优先级相同，因此先计算3＼5值为0，然后乘以2值为0，表达式变成：5Mod3+0，结果为2。17、设有如下程序段：x=2Fori=1ToStep2x=x+iNexti运行以上程序后，X的值是A、26B、27C、38D、57标准答案：B知识点解析：本题考查For循环。x的初值为2，代码的功能是把循环变量的值和x做累加。For循环执行5次，循环变量i的值分别为：1、3、5、7、9，因此循环结束后x的值为：2+l+3+5+7+9=27。18、设a=“MicrosoflVisualbasic”，则以下使变量b的值为“Visualbasic”的语句是A、b=Left(a，10)B、b=Mid(a，lO)C、b=Right(a，10)D、b=Mid(a，11，lO)标准答案：B知识点解析：本题考查常用函数，Mid(a，M，N)功能是从a字符串左起第M位下标开始取值(包含M位)，共取N位字符；Right(a，M)表示从右起第一位开始取值，向左取M位；Left(a，N)表示从a字符串左起第一位开始取值，向右取N位。题目要求取字符串右边的11个字符，可以使用Mid或者或者Right函数。选项C)错误是由于少取了一个字符；选项D)错误，只取了10个字符；选项B)正确，表示从a字符串的第10位下标开始取右边的字符串。19、设a=”a”，b=”b”，c="c"，d="d"，执行语句x=IIf((ad)，”A”，”B”)后，x的值为A、”a”B、”b”C、”A”D、”B”20、设有如下语句：Dima,bAsIntegerc=”VisualBasic”d=#7／20／2005#以下关于这段代码的叙述中，错误的是A、a被定义为Integer类型变量B、b被定义为Integer类型变量C、C中的数据是字符串D、d中的数据是日期类型21、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是A、PrintA=x+yB、Print”A=”；x+yC、Print”A=”=Str(x+y)D、Print”A=”x+y22、下列表达式中不能判断x的是否为偶数的是A、x／2=Int(x／2)B、xMod2=0C、Fix(x／2)=x／2D、x＼2=O23、如设置了文本框的属性PasswordChar=”$”，则运行程序时向文本框中输入8个任意与后，文本框中显示的是A、8个“$”B、1个“$”C、8个“*”D、无任何内容24、为了计算1+3+5…+99的值，某人编程如下：k=1：s=0whilek<=99k=k+2：s=s+kwendprintS在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是A、While…Wend循环语句错误，应改为Fork=1To99…NetkB、循环天剑错误，应改为Whilek>99C、循环前的赋值语句k=1错误，应改为k=0D、循环中两条赋值语句的顺序错误，应改为s=s+k：k=k+225、如果执行一个语句后弹出如图所示的窗口，则这个语句是A、InputBox(”输入框”，”请输入VB数据”)B、x=InputBox(”输入框”，”请输入VB数据”)C、InputBox(”请输入VB数据”，”输入框”)D、x=InputBox(”请输入VB数据”，”输入框”)26、下列可以打开随机文件的语句是A、Open”filel．dat”ForInputAs#1B、Open”filel．dat”ForAppendAs#1C、Open”filel．dat”ForOutputAs#1D、Open”filel．dat”ForRandomAs#1len=2027、下面可以产生20～30(含20和30)的随机整数的表达式是A、Int(Rnd*10+20)B、Int(Rnd*11+20)C、Int(Rnd*20+30)D、Int(Rnd*30+20)28、假定用下面的语句打开文件：Open”File1．txt”ForInputAs#1则不能正确读文件的语句是A、Input#1，ch$B、LineInput#1．ch$C、ch$=lnput$(5，#1)D、Read#1，ch$29、设x是小于10的非负数。对此陈述，以下正确的VB表达式是A、0<=x<10B、0<=x<10C、x>0andx<10D、x>0orx<=1030、窗体上有一个名称为Text1的文本框，一个名称为Commandl的命令按钮。窗体文件的程序如下：PrivateTypexaAsInteger：bAsIntegerEndTypePrivateSubCommandl_Click()DimyAsxy．a=InputBox(””)Ify．a＼2=y．a／2Theny．b=y．a*y．aElsey．b=Fix(y．a／2)EndIfTextl．Text=y．bEndSub对以上程序，下列叙述中错误的是A、x是用户定义的类型B、InputBox函数弹出的对话框中没有提示信息C、若输入的是偶数，y．b的值为该偶数的平方D、Fix(y．a／2)把y．a／2的小数部分四舍五入，转换为整数返回国家二级VB机试（数据类型及运算）模拟试卷第4套一、选择题(本题共33题，每题1.0分，共33分。)1、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是A、PrintA=x+yB、Print”A=”；x+yC、Print”A=”=Str(x+y)D、Print”A=”x+y标准答案：A知识点解析：本题考查Print函数和表达式。题目要求输出“A=10”，因此需要首先输出字符串“A=”，选项A错误。2、下列表达式中不能判断x的是否为偶数的是A、x／2=Int(x／2)B、xMod2=0C、Fix(x／2)=x／2D、x＼2=0标准答案：D知识点解析：本题考查运算符和表达式。选项A)是比较x／2和Int(x／2)足否相等，如果x为偶数，两者相抵，否则不相等；选项B)，使用Mod求余，并判断余数是否为0；选项C)使用判断x／2和Fix(x／2)是否相等，如果x是偶数，两者相等，否则不相等；选项D)使用“＼”整除运算，并判断结果是否为0，x为1时x＼2结果为0，显然这种方法判断偶数不可行。3、如设置了文本框的属性PasswordChar=”$”，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是A、8个“$”B、1个“$”C、8个“*”D、无任何内容标准答案：A知识点解析：本题考查文本框的属性设置。设置了文本框的PasswordChar属性不为””时，文本框的字符显示都用设置字符替代。4、为了计算1+3+5…+99的值，某人编程如下：k=1：s=0whilek<=99k=k+2：s=s+kwen