VB复习资料 36页

计算机等级考试8、VisualBasic选择题14计算机等级考试1.VB三种工作模式中，可编辑代码但不可编辑界面的是（D）。A.设计模式B.运行模式C.调试模式D.中断模式2.VB三种工作模式中不可编辑代码和界面的是（B）。A.设计模式B.运行模式C.调试模式D.中断模式3.VB三种工作界面设计和代码编制的是（A）。模式中可进行应用程序A.设计模式B.运行模式C.调试模式D.中断模式4.不属于VB三种工作模式的是（C）。A.设计模式B.运行模式C.调试模式D.中断模式5.在菜单设计器中，要将当前菜单项下移一个等级，应按（B）按钮。A.“左箭头”B.“右箭头”C.“上箭头”D.“下箭头”6.在菜单设计器中，要将当前菜单项下移一个位置，应按（D）按钮。A.“左箭头”B.“右箭头”C.“上箭头”D.“下箭头”7.在菜单设计器中，要将当前菜单项上移一个等级，应按（A）按钮。A.“左箭头”B.“右箭头”C.“上箭头”D.“下箭头”8.在菜单设计器中，要将当前菜单项上移一个位置，应按（C）按钮。A.“左箭头”B.“右箭头”C.“上箭头”D.“下箭头”9.VB可支持最多（C）种颜色。A.16×16×16B.48×48×48C.256×256×256D.65536×65536×6553610.VB中，在工具菜单下的“选项”中的编辑器选项卡可用于设置代码窗口和工程窗口的一些特殊功能，下列不属于这些特殊功能的是（C）。A.自动语法检测B.要求变量声明C.显示网格D.自动列出成员11.VB中MDI窗体是指（B）窗体。A.单文档界面B.多文档界面C.简单界面D.复杂界面12.VB中SDI窗体是指（A）窗体。A.单文档界面B.多文档界面C.简单界面D.复杂界面13.工程资源管理器窗口顶部有3个按钮，其中不包含（B）。A.查看代码B.添加窗体C.查看对象D.切换文件夹14.为了保存一个VisualBasic应用程序，应当（D）。A.只保存窗体模块文件（.frm）B.只保存工程文件（.vbp）C.只操持标准模块文件（.bas）D.分别保存工程文件、窗体文件和标准模块文件15.下列(B)表示“面向对象的程序设计”。A.OLEB.OOPC.OCXD.ODBC16.下列关于VB6.0的安装，说法错误的是（C）。A.有三种安装方式：典型安装、自定义安装和最小安装B.VB6.0可从VisualStudio6.0产品的第一张盘上安装C.VB6.0的联机帮助文件会随VB6.0系统而自动安装D.系统安装好后，可根据需要添加或删除某些组件17.下列哪一种进制数不属于VB中表示整型数的形式（D）。A.十进制B.八进制C.十六进制D.二进制18.下列说法错误的是（C）。A.Stop语句用来暂停程序的执行B.End语句是用来结束一个程序的执行C.Msgbox语句和Msgbox函数都有返回值D.MsgBox语句常用于简单的信息显示19.执行下面的语句后，所产生的信息框的提示消息是（B）。A=MsgBox("aaaa",5,"bbbb")A.bbbbB.aaaaC.空D.520.执行下面的语句后，信息框中按钮的数目及形式由值（B）决定。A=MsgBox("1",2,"3","",4)A.1B.2C.3D.421.以下（D）不是VisualBasic的特点。A.结构化程序设计B.集成可视化程序开发环境C.事件驱动编程机制D.可将用户的编程思想自动转换成程序代码22.以下可产生工程组文件（.vbg）的情况是（A）。A.当一个程序包含两个以上工程时B.当一个程序包含两个以上窗体时C.当一个程序包含两个以上类模块时D.当一个程序包含两个以上程序模块时23.在程序运行过程中，不能指定颜色参数值的方式是（D）。A.QBColor函数B.RGB函数C.使用VB的颜色常量D.Color函数24.VB窗体默认的坐标单位是（C）。A.cmB.mC.TwipD.Pix25.VB6.0中专门为程序代码的书写提供了一个（A）窗口。A.代码B.属性C.窗体D.立即26.VB把开发一个应用程序视为一项工程，用创建工程的方法来创建一个应用程序，并利用（A）窗口来管理工程。A.工程资源管理器B.属性C.窗体D.窗体布局27.VisualBasic程序中的注释所使用的字符是（A）。A.'B.:C.\D._28.VisualBasic程序中分隔一行中各语句的字符是（B）。A.'B.:C.\D._29.VisualBasic程序中语句行的续行符是（D）。A.'B.:C.\D._30.关于VB中程序运行的方式，以下说法正确的是（D）。A.只能使用解释运行模式B.只能使用编译运行模式C.既不能使用解释运行模式，也不能使用编译运行模式D.既能使用解释运行模式，又能使用编译运行模式31.以下不是结构化程序设计的基本控制结构的是（A）。A.逆序结构B.顺序结构C.选择结构D.循环结构32.VB中的菜单（B）。A.有组合式菜单和列表式菜单B.有下拉式菜单和弹出式菜单C.只有弹出式菜单D.只有下拉式菜单33.VisualBasic6.0集成环境的主窗口中不包括（C）。A.标题栏B.菜单栏C.状态栏D.工具栏34.VisualBasic窗体设计器的主要功能是（A）。A.建立用户界面B.编写源程序代码C.画图D.显示文字35.从功能上讲，VisualBasic6.0有3种版本，下列不属于这3种版本的是(B)。A.学习版B.免费版C.专业版D.企业版36.关于VisualBasic中事件的说法中，不正确的为（D）。A.事件是由VisualBasic预先定义好的，能够被对象识别的动作B.DblClick（双击）是VisualBasic中的一种事件C.一个对象可以识别一个或多个事件D.对于一个系统提供的对象可以识别哪些事件，需要程序员自己决定37.关于VB源代码的编写，下列说法错误的是（D）。VB源代码中不区分字母的大小写同一行可以写多个语句可以适当添加注释有利于程序的维护和调试一个语句必须写在一行中，不可分成多行来书写38.下列叙述中正确的是（C）。A.只有窗体才是VisualBasic中的对象B.只有控件才是VisualBasic中的对象C.窗体和控件都是VisualBasic中的对象D.窗体和控件都不是VisualBasic中的对象39.一个VB工程中标准模块文件的扩展名是（D）。A..vbpB..frmC..frxD..bas40.一个VB工程中窗体文件的扩展名是（B）。A..vbpB..frmC..frxD..bas41.一个VB工程中工程文件的扩展名是（A）。A..vbpB..frmC..frxD..bas42.一个工程文件可包含7种类型的文件，下列哪个文件不包含其中（C）。A.工程文件B.窗体文件C.可执行文件D.资源文件43.以下不属于工程资源管理器窗口中的文件分类为（D）。A.程序模块文件（.bas）B.类模块文件（.cls）C.工程文件（.vbp）D.可执行文件（.exe）44.以下说法错误的是（C）。A.注释语句用来对程序或程序中某些语句做注释，使程序便于理解B.注释语句是非执行语句C.注释语句不能放在执行语句的后面D.任何字符都可以放在注释行中作为注释内容45.以下正确的叙述是（C）。A.用属性窗口只能设置窗体的属性B.用属性窗口只能设置控件的属性C.用属性窗口可以设置窗体和控件的属性D.用属性窗口可以设置任何对象的属性46.下列不能打开代码窗口的操作是（D）。A.双击窗体上的某个控件B.双击窗体C.单击查看代码按钮D.单击窗体或控件47.默认情况下，VB中的图形坐标的y轴方向是（A）。A.向下B.向上C.向左D.向右14\n计算机等级考试1.默认情况下，VB中的图形坐标的原点在图形控件的（C）。A.左下角B.右上角C.左上角D.右下角2.ConstFour％=4，则Four为（A）类型的常数。A整型B字节型C长整型D单精度型3.ConstOne&=1，则One为（C）类型的常数。A整型B字节型C长整型D单精度型4.ConstThree!=3，则Three为（D）类型的常数。A整型B字节型C长整型D单精度型5.ConstTwo＃=2，则Two为（C）类型的常数。A整型B字节型C长整型D单精度型6.用于常量说明的关键字是（A）。A.ConstB.DimC.PublicD.Static7.下列不属于常量的是（C）。A.12B.“ch”C.abcD.1.238.下列说法错误的是（C）。A.常量或变量的名字必须以字母或汉字开头B.常量和变量的长度不能超过255个字符C.VB中区分常量或变量名的大小写，即x和X是两个不同的名字D.不能使用VB中的关键字命名常量或变量9.一个变长字符型变量在内存中占据（D）字节的空间。A.1B.2C.4D.由字符串的长度决定10.一个长整型变量在内存中占据（C）字节的空间。A.1B.2C.4D.811.一个单精度型变量在内存中占据（C）字节的空间。A.1B.2C.4D.812.一个双精度型变量在内存中占据（D）字节的空间。A.1B.2C.4D.813.一个整型变量在内存中占据（B）字节的空间。A.1B.2C.4D.814.一个字节型变量在内存中占据（A）字节的空间。A.1B.2C.4D.815.用Type语句定义的类型称为记录类型，要访问一个某记录型变量中的某个元素，需采用下述格式（B）。A.变量名－>元素名B.变量名.元素名C.元素名－>变量名D.元素名.变量名16.下列可作为VisualBasic的变量名的是（A）。A.AbtB.TABC.IFD.A[B]T17.下列可作为VisualBasic的变量名的是（A）。A.FilenameB.A（A＋B）C.A%DD.Print18.下列哪个符号不能作为VisualBasic的变量名（C）。A.AbCB.POOOC.8TFD.xyz19.在VB中，若某变量未经Dim语句声明便直接使用，系统会默认其为（B）。A.整型B.变体型C.字符型D.单精度型20.DimxAsVariant与下列哪个语句等价（C）。A.Dimx!B.Dimx%C.DimxD.Dimx＃21.定义定长字符串的方法是（B）。A.DimstrAsstringB.DimstrAsstring*10C.Dimstr$=10D.Dimstr$22.已知在“通用”代码有以下语句：DimA()AsInteger则，在某一事件代码中使用（C）是正确的。A.ReDimA(30,4)B.ReDimA(4)AsStringC.ReDimA(100)D.ReDimA()23.已知在“通用”代码有以下语句：Dimstu()AsString则，在某一事件代码中使用（A）是正确的。A.ReDimstu(120)B.ReDimstu(4,120)C.ReDimstu()D.ReDimstu()AsInteger24.已知在“通用”代码有以下语句：Dimtt()AsInteger则，在某一事件代码中使用（C）是正确的。A.ReDimtt(3,4)AsbooleanB.ReDimtt(4)AsStringC.ReDimtt(10)D.ReDimtt()25.下列语句中，不能将变量x，y均定义为单精度型的是（A）。A.Dimx,yAssingleB.Dimx!,y!C.Dimx!,yAssingleD.DimxAssingle,yAssingle26.“&”用作字符串连接符时，下列说法正确的是（C）。A.连接符两旁的操作符只能为数值型B.连接符两旁的操作符只能为字符型C.连接符两旁的操作符既可为数值型，也可为字符型D.连接符两旁的操作符既不能为数值型，也不能为字符型27.“＋”用作字符串连接符时，下列说法正确的是（B）。A.连接符两旁的操作符只能为数值型B.连接符两旁的操作符只能为字符型C.连接符两旁的操作符既可为数值型，也可为字符型D.连接符两旁的操作符既不能为数值型，也不能为字符型28.下列表达式值为True的是（C）。A."ABC">"abc"B."abc"="ABC"C."abc">"ABC"D."ABC">"Ab"29.下列表达式值为False的是（D）。A.TrueOr8<3B.5>2Xor8<3C.5>2Or8<3D.5>2And8<330.“X是小于100的非负数”，用VB表达式表示正确的是（C）。A.0≤X<100B.0<=X<100C.0<=XAndX<100D.0<=XorX<10031.下列表达式值为True的是（B）。A.5>2And8B.4C.'b'>"a"And"C">"c"D.Not(5>2)32.表达式中包含下述多种运算时，计算机会最后进行（D）运算。A.函数运算B.算术运算C.关系运算D.逻辑运算33.表达式中包含下述多种运算时，计算机会最先进行（A）运算。A.函数运算B.算术运算C.关系运算D.逻辑运算34.闰年的条件是年号(year)能被4整除，但不能被100整除，或者能被400整除。则闰年的布尔表达式为（B）。A.(yearmod4=0andyearmod100<>0)and(yearmod400=0)B.(yearmod4=0andyearmod100<>0)or(yearmod400=0)C.(yearmod4=0oryearmod100<>0)and(yearmod400=0)D.(yearmod4=0oryearmod100<>0)or(yearmod400=0)35.随机函数Rnd（10）的功能为（A）。A.产生一个大于或等于0小于1的单精度随机数B.产生一个大于或等于0小于10的单精度随机数C.产生一个大于0小于10的单精度随机数D.产生一个大于0小于1的单精度随机数36.下列哪个函数（B）可实现将十进制数值转换为八进制数。A.HexB.OctC.BinD.Dec37.下列哪个函数（A）可实现将十进制数值转换为十六进制数。A.HexB.OctC.BinD.Dec38.在程序运行过程中可使用RGB函数指定颜色参数值，它的格式是（B）。A.RGB(红色值,黄色值,蓝色值)B.RGB(红色值,绿色值,蓝色值)C.RGB(红色值,黄色值,黑色值)D.RGB(红色值,绿色值,黑色值)39.以下不能实现符号函数y＝sgn(x)的程序段是（C）。A.ifx>0theny=1elseifx=0theny=0elsey=-1B.ifx>0theny=1elseifxC.ifx>=0thenifx=0theny=0elsey=-1elsey=1D.ifx<>0thenifx40.以下递归函数中，正确的是（C）。A.PublicFunctionFn(nAsInteger)Ifn=0ThenFn=1ElseFn=Fn*nEndFunctionB.PublicFunctionFn(nAsInteger)Ifn=0ThenFn=1ElseFn=Fn(n)*nEndFunctioC.PublicFunctionFn(nAsInteger)Ifn=0ThenFn=1ElseFn=Fn(n-1)*nEndFunctionD.PublicFunctionFn(nAsInteger)Ifn=0ThenFn=1ElseFn=Fn(n+1)*nEndFunction41.InputBox函数返回值的类型是（B）。A.数值B.字符串C.变体D.逻辑42.计算绝对值的函数是（D）。A.IntB.ExpC.SqrD.Abs43.计算平方根的函数是（C）。A.SgnB.ExpC.SqrD.Sqrt44.将ASCII码转换成字符串的函数是（A）。A.Chr$B.Str$C.AscD.Val45.将数值型数据转换成字符串型数据的函数是（B）。A.Chr$B.Str$14\n计算机等级考试C.AscD.Val1.将数字字符串转换成数值型常数的函数是（D）。A.Chr$B.Str$C.AscD.Val2.可获得字符ASCII码值的函数是（C）。A.Chr$B.Str$C.AscD.Val3.求字符串长度的函数是（A）。A.LenB.longC.LengthD.Val4.提取计算机系统的当前日期的函数是（A）。A.Date$B.Time$C.DateValueD.Now5.提取系统的当前时间的函数是（B）。A.Date$B.Time$C.DateValueD.Now6.计算以e为底的幂的函数是（B）。A.LogB.ExpC.LnD.Abs7.计算自然对数值的函数是（A）。A.LogB.ExpC.LnD.Sqr8.将浮点数或货币型数转换为小于等于该数的最大整型量的函数是（C）。A.CintB.FixC.IntD.Ccur9.将数值的小数部分进行四舍五入，返回一个整型量的函数是（A）。A.CintB.FixC.IntD.Ccur10.截去浮点数或货币型数的小数部分，返回一个整型量的函数是（B）。A.CintB.FixC.IntD.Ccur11.可实现从字符串任意位置截取字符的函数是（B）。A.InstrB.Mid$C.Left$D.Right$12.去掉字符串右边空格的函数是（B）。A.Ltrim$B.Rtrim$C.Left$D.Right$13.去掉字符串左边空格的函数是（A）。A.Ltrim$B.Rtrim$C.Left$D.Right$14.实现将大写字母转换成小写字母的函数是（D）。A.Lower$B.Upper$C.UCase$D.LCase$15.实现将小写字母转换成大写字母的函数是（C）。A.Lower$B.Upper$C.UCase$D.LCase$16.数学式子sin25。写成VB表达式是（D）。A.sin25B.sin(25)C.sin(25。)D.sin(25*3.14/180)17.提取系统的日期和时间的函数是（D）。A.Date$B.Time$C.DateValueD.Now18.用于从字符串右边截取字符的函数是（D）。A.Ltrim$B.Rtrim$C.Left$D.Right$19.用于从字符串左边截取字符的函数是（D）。A.Ltrim$B.Rtrim$C.Left$D.Right$20.产生N个空格组成的字符串的函数是（A）。A.Space$B.Spc$C.Rtrim$D.Ltrim$21.产生大于10且小于等于20的随机整数的表达式为（C）。A.Int(Rnd(10)＋10)B.Int(Rnd*10+10)C.Int(Rnd*10+11)D.Int(Rnd*20-10)22.产生大于等于10且小于20的随机整数的表达式为（B）。A.Int(Rnd(10)＋10)B.Int(Rnd*10+10)C.Int(Rnd*10+11)D.Int(Rnd*20-10)23.求字符串存储时所占的字节数的函数是（B）。A.LenB.LenBC.LengthD.Val24.设a=5，则执行x＝IIf(a>6,-1,0)后，x的值为（C）。A.5B.6C.0D.-125.设a=6，则执行x＝IIf(a>5,-1,0)后，x的值为（D）。A.5B.6C.0D.-126.执行下面的语句后，所产生的对话框的标题是（A）。A=InputBox("aaaa","bbbb"，“5”)A.bbbbB.aaaaC.空D.527.执行下面的语句后，所产生的对话框的提示消息是（B）。A=InputBox("aaaa","bbbb","5")A.bbbbB.aaaaC.空D.528.执行下面的语句后，所产生的对话框中用户输入区域的默认值是（D）。A=InputBox("aaaa","bbbb","5")A.bbbbB.aaaaC.空D.529.下列表示命题|x|≥|y|或x=Abs(y)orx=Abs(y)orx30.关于逻辑型数据，下列说法错误的是（B）。A.逻辑型数据只有两种可能值：True或者FalseB.当把逻辑值转换为数值时False转为0，True转为1C.当把其他类型数据转换为逻辑数据时，非0数转换为True，0转换为FalseD.逻辑型数据以2个字节存储31.关于日期型数据，下列说法错误的是（C）。A.日期型数据存储为8个字节浮点数值形式B.日期型数据表示的日期范围为100年1月1日至9999年12月31日，时间可以从0：00：00到23：59：59。C.日期文字一般以符号“&”括起来，如:&1Jan,98&D.日期数据也可以用数字序列表示，小数点左边的数字表示日期，小数点右边的数字表示时间。32.货币类型数据是为表示钱款而设置的，该类型的数据以8字节存储，精确到小数点后（C）位，该位后的数字将被舍去。A.2B.3C.4D.533.下列不属于数值数据类型的是（D）。A.整型B.实型C.货币型D.日期34.在VB中，数值型数据可以用八进制数来表示，但必须在其前面冠以（C）。A.OB.HC.&OD.&H35.在VB中，数值型数据可以用十六进制数来表示，但必须在其前面冠以（D）。A.OB.HC.&OD.&H36.Do循环语句是根据条件决定循环的语句的，下列说法正确的是（A）。A.While是当条件为真时执行循环，而Until是在条件变为真的之前重复B.Until是当条件为真时执行循环，而While是在条件变为真的之前重复C.While和Until都是当条件为真时执行循环D.While和Until都是在条件变为真的之前重复循环37.For语句的格式如下，下列说法错误的是（A）。For=to[step][][exitfor]Next[]A.步长只能为正数，不能为负数B.步长为1时，可略去不写C.初值、终值和步长都是数值表达式D.next后的循环变量与for语句中的循环变量必须相同38.以下关于while-wend循环的说法中正确的为（C）。A.与dowhile-loop循环完全一致B.不能用dowhile-loop循环来代替C.其循环中不能使用exitwhile退出循环D.while-wend不能实现所有循环要求39.下列For－Next循环的循环体的执行次数为（C）。ForI=1to11I=I+1NextIA.5B.11C.6D.有语法错误40.假定有以下循环结构，则正确的描述是（B）。DoUntil条件循环体LoopA.如果“条件”是一个为0的常数，则一次循环体也不执行B.如果“条件”是一个为0的常数，则无限次执行循环体C.如果“条件”是一个不为0的常数，则至少执行一次循环体D.不论“条件”是否为“真”，至少要执行一次循环体14\n计算机等级考试1.假定有以下循环结构，则正确的描述是（B）。DoWhile条件循环体LoopA.如果“条件”是一个为1的常数，则一次循环体也不执行B.如果“条件”是一个为1的常数，则无限次执行循环体C.如果“条件”是一个不为1的常数，则至少执行一次循环体D.不论“条件”是否为“真”，至少要执行一次循环体2.假定有以下循环结构，则正确的描述是（B）。DoUntil循环体LoopA.如果“条件”是一个为0的常数，则一次循环体也不执行B.如果“条件”是一个为0的常数，则无限次执行循环体C.如果“条件”是一个不为0的常数，则至少执行一次循环体D.不论“条件”是否为“真”，至少要执行一次循环体3.假定有以下循环结构，则正确的描述是（B）。DoWhile循环体LoopA.如果“条件”是一个为1的常数，则一次循环体也不执行B.如果“条件”是一个为1的常数，则无限次执行循环体C.如果“条件”是一个不为1的常数，则至少执行一次循环体D.不论“条件”是否为“真”，至少要执行一次循环体4.下面程序运行时内层循环的循环总次数是（A）。Form=1to3Forn=0TOm-1NextnNextmA.6B.5C.3D.45.以下可以在For-Next循环体中跳出循环，执行Next下一句的语句（A）。A.ExitForB.ExitWhileC.ExitDoD.Exit6.以下可以在For-Next循环体中跳出循环，执行Next下一句的语句（A）。A.ExitForB.ExitWhileC.ExitDoD.Exit7.下列程序运行时，会产生（A）错误。DimStu(2,3)ForI=1To4Forj=1To5Stu(I,j)=I*jNextjNextIA.下标越界B.大小写不匹配C.数组定义错误D.循环嵌套错8.已知一命令按钮的单击事件的代码如下，第一次单击该按钮输出的值为2，第三次单击该按钮输出的值为（C）。PrivateSubCommand1_Click()StaticStu(3)AsIntegerForI=2To3Stu(I)=Stu(I)+INextIPrintStu(2);EndSubA.2B.4C.6D.89.用于遍历对象集合所有元素的语句是（B）。A.Dowhile…LoopB.ForEach…NextC.While…WendD.For…Next10.假定有以下程序段ForI=1to3Forj=5to1step–1PrintI*jNextj,I则语句PrintI*j的执行次数是（A）。A.15B.16C.17D.1811.关于无条件转移语句Goto的说明，下列说法错误的是（D）。A.该语句的功能是把控制转移到“标号”所在的程序行B.其中的标号可以是一个标识符或整型数C.程序中必须为每一个Goto语句提供一个唯一的转向入口12.D.Goto语句与其相应的转向入口可以在同一过程中，也可在不同过程中。2*Sqr(4)的值是（A）。A.4B.8C.32D.1613.A$="25.25.2868"，则Val（A$）的值为（B）。A.25.2868B.25.25C.25.252868D.2525.286814.Abs(-3.14)的值是（D）。A.3B.-3C.-3.14D.3.1415.Int（23.512）的值为（D）。A.-23B.-24C.24D.2316.Sgn(-6)的值是（D）。A.6B.-6C.1D.-117.表达式1＋((2＋3)*2)*2的值是（C）。A.26B.22C.21D.2418.表达式3*2^2的值是（A）。A.12B.81C.3D.1819.已知A(1)=1,A(2)=2,A(3)=3,则A(A(3)-A(1))=(C)。A.0B.1C.2D.320.已知A(1)=1,A(2)=2,A(3)=6,A(4)=8则A(A(1)+A(2))=(B)。A.8B.6C.2D.121.已知Eng(1)=90，Math(1)=80，Comp(1)=95Total(1)=Eng(1)+Math(1)+Comp(1)，则Total(1)=（A）。A.265B.90C.80D.9522.已知Eng(1)=90，Math(1)=80，T(1)=2，Total(1)=(Eng(1)+Math(1))/T(1)，则Total(1)=（C）。A.80B.90C.85D.17023.已知T(1)=9，T(2)=8，T(0)=5，Total=T(1)+T(2)+T(0)，则Total=（B）。A.9B.22C.8D.524.设a=2,b=3,c=4,d=5,下列表达式的值是（B）。A>bANDccA.TrueB.FalseC.-1D.125.s$="abcdefghijk"，Right$(s$,4)的值是（B）。A.“efghijk”B.“hijk”C.“abcd”D.abcdefg26.A$="+3.14+2"，则Val（A$）的值为（C）。A.+3.14+2B.+5.14C.3.14D.5.1427.Int（-23.512）的值为（B）。A.-23B.-24C.24D.2328.Fix（-23.512）的值为（A）。A.－23B.－24C.24D.2329.LCase$("Abc")的值为（B）。A.AbcB.abcC.ABCD.aBC30.Len（“ab湖南长沙”）的值是（B）。A.5B.6C.10D.1231.s$="abcdefghijk"，left$(s$,4)的值是（C）。A.“efghijk”B.“hijk”C.“abcd”D.abcdefg32.s$="abcdefghijk"，Mid$(s$,1,4)的值是（C）。A.“efghijk”B.“hijk”C.“abcd”D.abcdefg33.UCase$("Abc")的值为（C）。A.AbcB.abcC.ABCD.aBC34.表达式11Mod4/2的值是（D）。A.1.5B.2C.3D.135.表达式14/5*2的值是（C）。A.1.4B.4C.5.6D.136.表达式14\5*2的值是（D）。A.1.4B.4C.5.6D.137.设a=2,b=3,c=4,d=5,下列表达式的值是（A）。3>2*bORa=cANDb<>cORcbANDccA.TrueB.FalseC.-1D.139.Month("2002,5,16")+Day("2002,5,16")的值为（B）。A.51614\n计算机等级考试B.21C.2007D.20181.s="ab"+Space(2)+"cd",则s的值为（B）(□表示空格)。A.abcdB.ab□□cdC.abcd□□D.□□abcd2.s＝Left$("abcd",2)+Mid$("efgh",2,2)，则s的值为（B）。A.abghB.abfgC.cdghD.cdfg3.s＝Left$("abcd",2)+Right$("efgh",2)，则s的值为（C）。A.abefB.cdefC.abghD.cdgh4.s＝left$(“abcd”,2)+Mid$(“efgh”,2,2)，则s的值为（B）。A.abghB.abfgC.cdghD.cdfg5.s＝left$(“abcd”,2)+right$(“efgh”,2)，则s的值为（C）。A.abefB.cdefC.abghD.cdgh6.StrReverse（"abcD"）的值为（C）。A.dCBAB.dcbaC.DcbaD.DABC7.变量x的值为3，y的值为4，执行下列哪个语句后，可输出表达式：3＋4＝7（）。A.Print"x+y=";x+yB.Printx;"+";y;"=";x+yC.Printx;"+";"y";"=x+y"D.Printx;"+";"y=";x+y8.表达式25^(0.5*-1)的值是（B）。A.-12.5B.0.2C.-5D.59.表达式Hour("12:03:06")-Minute("12:03:06")-Second("12:03:06")的值为（D）。A.12-03-06B.12-3-6C.1236D.310.下列语句有语法错误的是（D）。A.a＝5B.b＝aC.b=“a”D.5=a11.某一变量要求在程序各模块中均可使用，应在（C）中用Public声明该变量。A.子过程B.窗体模块C.标准模块D.事件过程12.若要将控制权交还给操作系统，则实现的语句为（D）。A.ExitB.EndSubC.ExitsubD.End13.关于条件语句，下列说法错误的是（D）。A.条件语句中的“条件”可以是逻辑表达式或关系表达式B.条件语句中的“条件”可以是数值表达式，非0值表示true，0值表示falseC.在块结构条件语句中，“语句块”中的语句不能与then在同一行上D.块结构的条件语句和单行结构的条件语句都必须以Endif结束14.关于无条件转移语句Goto的说明，下列说法错误的是（D）。A.该语句的功能是把控制转移到“标号”所在的程序行B.其中的标号可以是一个标识符或整型数C.程序中必须为每一个Goto语句提供一个唯一的转向入口D.Goto语句与其相应的转向入口可以在同一过程中，也可在不同过程中。15.下列关于条件语句的说法中正确的为（B）。A.if语句中可以没有then保留字B.if语句中可以没有else保留字C.if语句中只能有一个elseif分句D.if语句都可以由iif语句替代16.情况语句的一般格式如下，其中表达式表列的形式通常有三种，下列选项中不属于这三种形式之一的是（C）。SelectCaseCase[]…[CaseElse][]EndselectA.[,]……B.toC.LikeD.Is17.设a，b，c为整型变量，其值分别为1，2，3，以下程序段的输出结果是（D）。a=b:b=c:c=aPrinta;b;cA.123B.231C.321D.23218.下列程序的输出结果是（C）。P＝0ForI=1to4p=p*INextIPrintpA.24B.4C.0D.1019.下列程序段的输出为（C）。S=0ForI=1to10I=I+1:s=s+INextIPrintsA.55B.66C.30D.6020.以下程序段的输出结果是（D）。A=1：b=2：t=0ifaA.11B.12C.22D.2121.以下程序段的输出结果是（D）。Whilen<=100n=n+1:s=s+nwendPrintsA.4949B.5050C.4950D.515122.以下程序段的输出结果是（B）。X=1:y=4dountily>4x=x*y：y=y+1loopPrintxA.1B.4C.8D.2023.以下程序段的输出结果是（D）。N=4：k=1：I=0ForI=1tonk=k*INextIPrintIA.2B.3C.4D.524.以下程序段的输出结果是（D）。N=4：k=1：I=0ForI=1tonk=k*INextIPrintkA.21B.22C.23D.2425.以下程序段的输出结果是（A）。Num=0Whilenum<=2num=num+1Printnum;WendA.123B.111C.321D.21326.以下程序段运行的结果为（B）。Dimm(10)ForI=1to5m(I)=I*INextIPrintm(I-1)A.5B.25C.16D.927.以下程序段运行的结果为（C）。Dimm(10)ForI=1to5m(I)=I*INextIPrintm(I-2)A.5B.25C.16D.028.以下程序段运行的结果为（C）。Dimm(10)，s：s=0ForI=1to5m(I)=Is=s+m(I)NextIPrintsA.5B.10C.15D.2029.下列程序段执行的结果为（A）。Dimm(10to20)ForI=10to20m(I)=2*INextIPrintm(20)A.40B.20C.10D.230.下列程序段执行的结果为（B）。Dimm(10)ForI=0to10m(I)=2*INextIPrintm(3)A.12B.6C.3D.931.下列程序段执行的结果为（C）。Dimm(10)ForI=0to10m(I)=I*INextIPrintm(5)mod10A.25B.10C.5D.2.532.下列程序段执行的结果为（A）。Dimm(10)ForI=1to10m(I)=2*INextIPrintm(1)A.2B.6C.3D.933.下列程序段执行的结果为（B）。Dimm(10)ForI=1to10m(I)=2*INextIPrintm(3)A.0B.6C.3D.934.下列程序段执行的结果为（D）。Dimm(10)ForI=9to10Forj=1to2m(I)=jNextjNextIPrintm(9);m(10)A.11B.12C.21D.2235.下列程序段执行的结果为（A）。Dimm(10)ForI=0to10m(I)=2*INextIPrintm(m(3))A.12B.6C.3D.936.以下程序段的输出结果是（D）。x=13:y=15a=x-yifx>=ythena=yelsea=a-yPrintaA.-2B.F2C.N13D.-1737.以下程序段的输出结果是（B）。N=1:s=0dos=s+n:n=n+1loopuntiln>100PrintsA.494914\n计算机等级考试B.F5050C.N4950D.51511.以下程序段的输出结果是（B）。N=1:s=0dos=s+n:n=n+1loopwhilen<=100PrintsA.4949B.F5050C.N4950D.50492.以下程序段的输出结果是（C）。N=1:s=0dountiln>=100s=s+n:n=n+1loopPrintsA.4949B.F5050C.N4950D.50493.以下程序段的输出结果是（C）。N=1:s=0dowhilenA.4949B.F5050C.N4950D.50494.以下程序段的输出结果是（D）。Forx=5to2.5step–7NextxPrintxA.2.2B.F2.5C.N2.9D.-25.以下程序段的输出结果是（D）。Forx=5to2.5step–7NextxPrintxA.2.2B.F2.5C.N2.9D.-26.以下程序段的输出结果是（B）。A=0Forj=1TO15a=a+(jMOD3)NextjPrintaA.0B.F15C.N90D.1207.以下程序段的输出结果是（B）。A=0Forj=1TO15a=a+(jMod3)NextjPrintaA.0B.F15C.N90D.1208.以下程序段的输出结果是（C）。A=23whilea*2<>a+46a=a+1wenda=a-23PrintaA.21B.F22C.N23D.249.以下程序段的输出结果是（C）。L$=“X”：M$=“Y”：N$=“Z”ForJ=1TO3L$=M$：M$=N$：N$=L$NextJPrintL$;M$;N$A.ZXYB.FXYZC.NYZYD.ZYZ10.以下程序段的输出结果是（D）。L$=“X”：M$=“Y”：N$=“Z”ForJ=1TO2L$=M$：M$=N$：N$=L$NextJPrintL$;M$;N$A.ZXYB.FYZXC.NYZYD.ZYZ11.以下程序段的输出结果是（D）。L$=“X”：M$=“Y”：N$=“Z”ForJ=1TO2L$=M$：M$=N$：N$=L$NextJPrintL$;M$;N$A.ZXYB.FYZXC.NYZYD.ZYZ12.以下程序段的输出结果是（D）。X=13:y=15a=x-yifx>=ythena=yelsea=a-yPrintaA.-2B.F2C.N13D.-1713.以下程序段的输出结果是（A）。PrintFormat(#2/14/1998#,"m/d/yy")A.2-14-98B.F02-14-98C.N2/14/98D.02/14/9814.以下程序段的输出结果是（B）。PrintFormat(#2/14/1998#,"mmmm-yy")A.February/98B.FFebruary-98C.NFebr/98D.Febr-9815.以下程序段的输出结果是（A）。PrintFormat(#9:21:30PM#,"h-m-sAM/PM")A.9-21-30PMB.F09-21-30PMC.N9-21-30PD.09-21-30P16.以下程序段的输出结果是（A）。Sum=0Forj=1to10ifj=10thensum=sum+jendifNextjPrintsumA.10B.F55C.N100D.017.以下程序段的输出结果是（B）。X=0:n=0DoWhilexA.0B.72C.50D.16818.以下程序段的输出结果是（B）。X=0:n=0DoWhilexA.1B.2C.3D.419.以下程序段的输出结果是（B）。X=0:n=0DoWhilexA.0B.72C.50D.16820.以下程序段的输出结果是（D）：a=3:b=2:c=1:n=aifb>nthenmax=bifc>nthenmax=cPrintnA.0B.1C.2D.321.执行下列语句：int1%=28ifint1=30”其输出结果为（C）。A.int1<30B.int1>=30C.int1=30D.无任何输出显示22.以下程序段运行的结果为（C）。Dimm(10),s:s=0ForI=1to5m(I)=Is=s+m(I)NextIPrintsA.5B.10C.15D.2023.下列程序段执行的结果为（D）。Dimm(10)ForI=9to10Forj=1to2m(I)=jNextjNextIPrintm(9);m(10)A.11B.12C.21D.2224.下列程序段执行的结果为（A）。Dimm(10),n(10)Forj=0to10m(j)=jn(j)=m(j)+10NextjPrintn(3)A.13B.3C.10D.3025.已知"student.txt"文件内容为：ThisisaVBProgram.一程序段如下：PrivateSubCommand1_Click()Open"student.txt"ForInputAs#1LineInput#1,SPrintS;Close#1EndSub则该程序段执行的结果为（D）。A.hisB.isC.VBD.ThisisaVBProgram.26.已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：PrintMax(1,2,3)，则单击Command1时，输出结果为（C）。PrivateFunctionMax(a,b,c)m=aifb>mthenm=bifc>mthenm=cMax=mEndFunctionA.1B.2C.3D.627.已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：PrintMin(10,20,30)，则单击Command1时，输出结果为（A）。PrivateFunctionMin(a,b,c)m=aifbA.10B.20C.30D.6028.已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：PrintSum(1,2,3)，则单击Command1时，输出结果为（D）。PrivateFunctionSum(a,b,c)Sum=a+b+cEndFunctionA.1B.2C.3D.629.已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（B）。PrivateFunctionSum(a,b,c)a=a+1:b=b+1:c=c+1Sum=a+b+cEndFunctionPrivateSubCommand1_Click()a=1:b=2:c=3CallSum(a,b,c)Printa;b;cEndSubA.123B.234C.345D.45630.已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（A）。PrivateFunctionSum(ByVala,ByValb,ByValc)a=a+1:b=b+1:c=c+1Sum=a+b+cEndFunctionPrivateSubCommand1_Click()a=1:b=2:c=3CallSum(a,b,c)Printa;b;cEndSubA.123B.234C.134D.124*A31.已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（D）。PrivateFunctionSum(ByVala,ByValb,c)a=a+1:b=b+1:c=c+1Sum=a+b+cEndFunctionPrivateSubCommand1_Click()a=1:b=2:c=3CallSum(a,b,c)Printa;b;cEndSubA.123B.234C.134D.12432.已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（C）。PrivateFunctionSum(ByVala,b,c)a=a+1:b=b+1:c=c+1Sum=a+b+cEndFunctionPrivateSubCommand1_Click()a=1:b=2:c=3CallSum(a,b,c)Printa;b;cEndSubA.123B.234C.134D.22333.已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command114\n计算机等级考试时，输出结果为（A）。PublicFunctioneven(x)IfxMod2=0Theneven=1elseeven=0EndIfEndFunctionPrivateSubCommand1_Click()n=20Ifeven(n)=1ThenPrintn;"isaevennumber."ElsePrintn;"isnotaevennumber."EndIfEndSubA.20isaevennumber.B.20isnotaevennumber.C.nisaevennumber.D.nisnotaevennumber.1.已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（B）。PublicFunctioneven(x)IfxMod2=0Theneven=1elseeven=0EndIfEndFunctionPrivateSubCommand1_Click()n=39Ifeven(n)=1ThenPrintn;"isaevennumber."ElsePrintn;"isnotaevennumber."EndIfEndSubA.39isaevennumber.B.39isnotaevennumber.C.nisaevennumber.D.nisnotaevennumber.2.已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（A）。PublicFunctionFn(n)Ifn=0ThenFn=1ElseFn=Fn(n-1)*nEndFunctionPrivateSubCommand1_Click()PrintFn(1)EndSubA.1B.2C.4D.243.已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（C）。PublicFunctionFn(n)Ifn=0ThenFn=1ElseFn=Fn(n-1)*nEndFunctionPrivateSubCommand1_Click()PrintFn(6)EndSubA.0B.1C.720D.64.已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（C）。PublicFunctionFun(x,y)Fun=1ForI=1ToyFun=Fun*xNextIEndFunctionPrivateSubCommand1_Click()PrintFun(3,4)EndSubA.3B.4C.81D.2565.已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（A）。PublicSubchange(ByValx,ByValy)t=xx=yy=tEndSubPrivateSubCommand1_Click()a=12b=34Callchange(a,b)Printa;bEndSubA.1234B.3412C.2143D.43216.已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（A）。PublicSubchange(ByValx,ByValy)x=yEndSubPrivateSubCommand1_Click()a=12b=34Callchange(a,b)Printa;bEndSubA.1234B.3434C.1212D.34127.已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（B）。PublicSubchange(x,y)x=yEndSubPrivateSubCommand1_Click()a=12b=34Callchange(a,b)Printa;bEndSubA.1234B.3434C.3412D.12128.已知一窗体中有如下子过程和一命令按钮Command1，则单击Command1时，输出结果为（B）。PublicSubchange(x,y)t=xx=yy=tEndSubPrivateSubCommand1_Click()a=12b=34Callchange(a,b)Printa;bEndSubA.1234B.3412C.2143D.43219.已知一名为“Student.txt”的文件，其内容如下：张小三,98,87,99李四明,77,88,93陈大光,89,56,65则以下程序段执行的结果为（A）。PrivateSubCommand1_Click()Open"student.txt"ForInputAs#1While(NotEOF(1))Sum=0Input#1,Nam,Chn,Eng,CmpSum=Chn+Eng+CmpPrintSum;WendClose#1EndSubA.284258210B.988799C.778893D.89566510.以下程序段的输出结果是（C）PrintFormat(0.123,"0.00%")A.12.3%B.1.23%C.12.30%D.01.23%11.以下程序段的输出结果是（A）PrintFormat(12345.6,"0.00E+00")A.1.23E+04B.1.23E+4C.1.23456E+04D.1.23456E+412.以下程序段的输出结果是（A）(□表示空格)Print"a";Spc(3);"b"A.－19330B.□□□－19330C.□□－19330D.□－1933013.以下程序段的输出结果是（C）(□表示空格)Print"a";Spc(3);"b"A.a□bB.□a□□□□bC.a□□□bD.a□□b14.以下程序段的输出结果是（A）(□表示空格)Print"a";Tab(3);"b"A.a□bB.□a□□□□bC.a□□□bD.a□□b15.以下程序段的输出结果是（C）(□表示空格)PrintFormat(－19.456,"####.##")A.□－19.46B.□－19.45C.－19.46D.－19.4516.以下程序段的输出结果是（C）(□表示空格)PrintFormat(19.456,"0000.00")A.□□19.46B.□□19.45C.0019.46D.0019.4517.以下程序段的输出结果是（D）(□表示空格)PrintFormat(19330,"00000000")A.19330000B.00019330C.□□□19330D.□1933018.以下程序段的输出结果是（B）(□表示空格)PrintTab(3);1A.□□□1B.□□1C.□1D.□□□□119.以下程序段的输出结果是（B）。Score=int(rnd*5)+80SelectCasescoreCase60to69：a$=“D”Case70to79：a$=“C”Case80to89:a$=“B”Caseelse:a$=“A”EndselectPrinta$A.AB.BC.CD.D20.以下程序段的输出结果是（B）。Score=int(rnd*5)+80SelectCasescoreCaseisA.AB.BC.CD.D21.以下程序段的输出结果是（C）。N=13:a=2m=nmod10SelectCasemCaseis0:a=1EndselectPrintaA.-1B.0C.1D.222.以下程序段的输出结果是（A）。Fork=1to3ifk<=1thena=3ifk<=2thena=2ifk<=3thena=1Printa;NextkA.111B.321C.333D.12323.以下程序段的输出结果是（D）。PrintFormat(#9:21:30PM#,"hh:mm:ssA/P")A.9:21:30PMB.09:21:30PMC.9:21:30PD.09:21:30P24.以下程序段的输出结果是（C）。Print"1";"2";Print"3"A.123B.123C.123D.12325.以下程序段的输出结果是（D）。Print"1";"2"Print"3"A.123B.123C.123D.12326.以下程序段的输出结果是（B）。Print1;2Print3A.123B.123C.123D.12327.以下程序段的输出结果是（B）。Print1;2,3A.123B.123C.321D.12328.以下程序段的输出结果是（A）。Print1;2;Print3A.123B.123C.123D.12329.执行如下程序段后，c的值为（B）。DimcAsInteger,fAsIntegerf=98c=5/9*(f-32)A.36.6667B.37C.0D.3630.执行如下程序段后，s的值为（A）。DimI%,j%,sAsstringI=2:j=3:s="I"&"j"A.ijB.i3C.2jD.2331.执行如下程序段后，s的值为（D）。DimI%,j%,sAsstringI=2:j=3:s=I&jA.ijB.i3C.2jD.2332.执行下面的程序段后，a的值为（C）。ForI=1To3Forj=1ToIFork=jTo3a=a+1Nextk,j,IA.3B.9C.14D.2133.执行下面的程序段后，I的值为（D）。X=5ForI=1To10Step2x=x+(I\3)NextIA.9B.10C.11D.1234.执行下面的程序段后，I的值为（C）。S=5ForI=2.5To4.6Step0.5s=s+1NextIA.3B.4C.5D.635.执行下面的程序段后，s的值为（D）。S=5ForI=2.5To4.6Step0.5s=s+1NextI14\n计算机等级考试A.7B.8C.9D.101.执行下面的程序段后，x的值为（A）：x=5ForI=1To10Step2x=x+(IMod3)NextIA.9B.10C.11D.122.下列哪组语句可以将变量A，B的值互换（B）。A.A=B:B=AB.C=A:A=B:B=CC.A=C:C=B;B=AD.A=(A+B)/2:B=(A-B)/23.在窗体上画一个命令按钮，编写如下事件过程：PrivateSubCommand1_Click()a=InputBox("EntertheFirstInteger")b=InputBox("EntertheSecondInteger")Printb+aEndSub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，输出结果为（D）。A.579B.123C.456D.1234564.已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：PrintSum(1,2,3)，则单击Command1时，输出结果为（D）。PrivateFunctionSum(a,b,c)a=a+1:b=b+1:c=c+1Sum=a+b+cEndFunctionA.6B.7C.8D.95.已知一窗体中有如下子过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print_Number，则程序运行中第三次单击Command1时，输出结果为（B）。PrivateSubPrint_Number()Privatexx=x+10PrintxEndSubA.0B.10C.20D.306.已知一窗体中有如下子过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print_Number，则程序运行中第三次单击Command1时，输出结果为（D）。PrivateSubPrint_number()Staticxx=x+10PrintxEndSubA.0B.10C.20D.37.默认情况下，语句：Dimstudent(100)定义的数组有（D）个元素。A.100B.10C.任意D.1018.语句：Dimstudent(10,5to100)定义的是一个（A）维数组。A.2B.3C.5D.109.语句：Dimstudent(10,5to9,4to9)定义的是一个（C）维数组。A.1B.2C.3D.410.语句：Dimstudent(10,5to9,4)定义的是一个（C）维数组。A.1B.2C.3D.411.语句：Dimstudent(10,5,4)定义的是一个（C）维数组。A.1B.2C.3D.412.语句：Dimstudent(100)定义的是一个（A）维数组。A.1B.2C.5D.10013.控件数组是通过（C）来区分控件数组元素的。A.名称B.Count属性C.Index属性D.控件标题14.默认情况下，语句：Dimstudent(10to11,4)定义的数组有（C）个元素。A.20B.22C.10D.1115.默认情况下，语句：Dimstudent(10,5)定义的数组有（D）个元素。A.50B.6C.15D.6616.有一数组定义语句：DimM(-2to1)Asstring，则数组M中包含的元素个数为（A）。A.4B.3C.2D.117.语句：DimS(-1to5)定义的数组有（A）个元素。A.7B.6C.5D.418.语句：DimS(10to25)定义的数组有（C）个元素。A.10B.15C.16D.2519.语句：Dimstudent(10to20,5)定义的是一个（B）维数组。A.1B.2C.3D.520.语句：Dimstudent(10,5)AsLong定义的数组元素的类型为（D）。A.整型B.字符型C.逻辑型D.长整型21.语句：Dimstudent(10,5)AsString定义的数组元素的类型为（B）。A.数值型B.字符型C.逻辑型D.日期型22.语句：Dimstudent(10,5)定义的是一个（B）维数组。A.1B.2C.5D.1023.语句：Dimstudent(1990to2003)定义的数组有（A）个元素。A.14B.1990C.2003D.1324.语句：Dimstudent(2to4,5to6)定义的数组有（B）个元素。A.3B.6C.7D.1025.默认情况下，语句：Dimstudent(2,3,4)定义的数组有（A）个元素。A.60B.9C.24D.1226.默认情况下，语句：Dimstudent(4,5to6)定义的数组有（C）个元素。A.4B.5C.10D.2027.有以下数组声明语句：OptionBase1:DimA(3,2to4)，则数组A有（D）个元素。A.3B.4C.12D.928.有以下数组声明语句：OptionBase1:DimA(3,4)，则数组A有（C）个元素。A.3B.4C.12D.2029.下面的数组定义语句正确的是（C）。A.Dima[3,4]B.Dima[3;4]C.Dima(3,4)D.Dima(3;4)30.下面的数组定义语句正确的是（D）。A.Dima[3]B.Dima[3to4]C.Dima(104)D.Dima(3to6)31.以下定义的函数中（B）不是按“传址”方式传递参数的。A.PublicFunctionSum(x,y)B.PublicFunctionSum(ByValx,ByValy)C.PublicFunctionSum(xAsInteger,yAsInteger)D.PublicFunctionSum(x%,y%)32.以下定义的过程（B）是按“传值”方式传递参数的。A.PublicSubSum(x,y)B.PublicSubSum(ByValx,ByValy)C.PublicSubSum(xAsInteger,yAsInteger)D.PublicSubSum(x%,y%)33.以下过程的定义中，（A）是错误的。A.PublicSubSum(x;y)B.PublicSubSum(ByValx,ByValy)C.PublicSubSum(xAsInteger,yAsInteger)D.PublicSubSum(x%,y%)34.函数过程是以（A）保留字开始的。A.FunctionB.SubC.PropertyD.Event35.子过程是以（B）保留字开始的。A.FunctionB.SubC.PropertyD.Event36.在函数过程中的任意位置要退出当前函数过程，应用（C）命令。A.EndFunctionB.ExitC.ExitFunctionD.ExitSub37.在子过程中的任意位置要退出当前子过程，应用（D）命令。A.EndFunctionB.ExitC.ExitFunctionD.ExitSub38.在以下事件过程中，Private表示（B）。　PrivateSubtxtName_Change()……　EndSubA.此过程可以被任何其它过程调用B.此过程只可以被本窗体模块中的其它过程调用14\n计算机等级考试C.此过程不可以被任何其它过程调用D.此过程是一个不可用过程1.在以下事件过程中，Public表示（D）。PublicSubtxtName_Change()　　……　EndSubA.此过程不可以被本模块中的过程调用B.此过程只可以被本窗体模块中的其它过程调用C.此过程不可以被任何其它过程调用D.此过程可以被本工程中的所有模块调用2.在以下事件过程中，Public表示（D）。　　PublicSubtxtName_Change()　　……　EndSubA.此过程不可以被本模块中的过程调用B.此过程只可以被本窗体模块中的其它过程调用C.此过程不可以被任何其它过程调用D.此过程可以被本工程中的所有模块调用3.把当前窗体的内容打印出来的方法是（D）。A.PrintB.PrinterC.NewPageD.PrintForm4.要让菜单项不显示出来，应将（A）属性值设置为False。A.VisibleB.EnabledC.MoveableD.Checked5.以下不是VisualBasic中的事件是（C）。A.DblClickB.MouseMoveC.CaptionD.Change6.以下过程是（A）事件。PublicFunctionMaxNum()……EndFunctionA.用户自定义函数B.按钮单击事件C.窗体单击事件D.窗体属性7.以下过程是（C）事件。PrviateSubForm_Click()……EndSubA.命令按钮的单击B.命令按钮的双击C.窗体的单击D.窗体的双击8.以下过程是（C）事件。PrviateSubForm_Load()……EndSubA.命令按钮的单击B.命令按钮的装载C.窗体的装载D.窗体的单击9.以下过程是标签Label1的（A）事件。PrviateSubLabel1_Click()……EndSubA.单击B.双击C.拖拽D.移动10.以下过程是标签Label1的（B）事件。PrviateSubLabel1_DblClick()……EndSubA.单击B.双击C.拖拽D.移动11.以下过程是窗体Form1的（A）事件。PrviateSubForm_Click()……EndSubA.单击B.双击C.拖拽D.移动12.以下过程是窗体Form1的（B）事件。PrviateSubForm_DblClick()……EndSubA.单击B.双击C.装载D.按键13.以下过程是命令按钮的（A）事件。PrviateSubCommand1_Click()……EndSubA.单击B.双击C.拖拽D.移动14.Vb中描述文件路径的是（D）属性。A.DriveB.PatternC.FileNameD.Path15.打印机的对象名为（B）。A.PrintB.PrinterC.NewPageD.PrintForm16.激活弹出式菜单的命令是（D）。A.LoadB.ShowC.SetFocusD.PopupMenu17.下列控件中可设置滚动条是（C）。A.检查框（复选框）B.框架C.文本框D.标签框18.要将菜单项的某字母设置为热键，在菜单设计中，应在菜单项的标题的该字母前加（C）字符。A./B.@C.&D.\19.在VB6.0的集成开发环境中调试程序时，用户可直接在（D）窗口中用Print方式或直接在程序中用Debug.Print方法显示表达式的值。A.代码B.属性C.窗体D.立即20.在VisualBasic中建立一个空窗体，(C)不会是其默认名。A.Form1B.Form2C.FormxD.Form1021.标签所显示的内容，由（C）属性值决定。A.TextB.NameC.CaptionD.Alignment22.窗体常用的单击事件是（C）。A.DblClickB.LoadC.ClickD.GetFocus23.窗体常用的双击事件是（A）。A.DblClickB.LoadC.ClickD.GetFocus24.窗体常用的装入事件是（B）。A.DblClickB.LoadC.ClickD.GetFocus25.窗体的load事件可以被用来实现的功能为（C）。A.确定窗体的位置B.从内存中清楚一个窗体C.在程序启动时对属性和变量初始化D.重画窗体26.窗体的标题条显示内容由窗体对象的（D）属性决定。A.BackColorB.BorderStyleC.TextD.Caption27.打开通用对话框的“帮助”对话框的方法是（C）A.ShowOpenB.ShowSaveC.ShowHelpD.ShowFont28.打开通用对话框的“打开”对话框的方法是（A）A.ShowOpenB.ShowSaveAsC.ShowColorD.ShowFont29.打开通用对话框的“打印机”对话框的方法是（C）A.ShowOpenB.ShowSaveC.ShowPrinterD.ShowFont30.打开通用对话框的“另存为”对话框的方法是（B）A.ShowOpenB.ShowSaveC.ShowColorD.ShowFont31.打开通用对话框的“字体”对话框的方法是（D）。A.ShowOpenB.ShowSaveAsC.ShowColorD.ShowFont32.定时器的定时间隔单位是（C）。A.秒B.微秒C.毫秒D.分33.检查框（复选框）的控件名称为（B）。A.OptionBottonB.CheckBoxC.PictureBoxD.Image34.可用来清除窗体内容的方法是（C）。A.PrintB.InputBoxC.ClsD.Clear35.命令按钮的标题文字由（B）属性来设置。A.TextB.CaptionC.NameD.Value36.命令按钮的单击事件是（D）。A.ValueB.DblClick()C.NameD.Click()37.清除当前VB窗体上文本信息的方法是（A）。A.ClsB.ClearC.EraseD.Droup38.若要将窗体卸载，实现的方法为（A）。A.UnloadB.LoadC.ShowD.Hide39.若要将窗体隐藏起来，实现的方法为（D）。A.UnloadB.ClsC.WindowStateD.Hide40.若要将隐藏的窗体显示出来，实现的方法为（C）。A.UnloadB.ClsC.ShowD.Load41.若要禁止操作窗体，则可设置（D）属性为False来实现。A.ControlBoxB.MinButtonC.MaxButtonD.Enabled42.若要禁止窗体被移动，可设置窗体的（A）属性为False。A.MoveableB.MoveC.MinButtonD.ControlBox43.若要求向文本框输入密码时，只在文本框中显示&号，则应当在此文本框的属性窗口中设置（D）。A.Text属性值为&　B.Caption属性值为&　C.PasswordChar属性值为空　D.PasswordChar属性值为&44.若要求向文本框输入密码时，只在文本框中显示*号，则应当在此文本框的属性窗口中设置（D）。A.Text属性值为*　B.Caption属性值为*　C.PasswordChar属性值为空D.PasswordChar属性值为*45.若要求向文本框输入密码时，只在文本框中显示@号，则应当在此文本框的属性窗口中设置（D）。A.Text属性值为@　14\n计算机等级考试B.Caption属性值为@　C.PasswordChar属性值为空D.PasswordChar属性值为@1.若要设置定时器的定时间隔，可通过（A）属性来设置。A.IntervalB.ValueC.EnabledD.Text2.若要设置定时器的定时间隔设为10秒，应将（A）属性值设为10000。A.IntervalB.ValueC.EnabledD.Text3.若要设置定时器的定时间隔设为1秒，应将（A）属性值设为1000。A.IntervalB.ValueC.EnabledD.Text4.若要设置定时器的定时间隔设为1秒，应将Interval属性值设为（D）。A.1B.10C.100D.10005.若要设置定时器的定时间隔设为2秒，应将（A）属性值设为2000。A.IntervalB.ValueC.EnabledD.Text6.若要设置定时器的定时间隔设为5秒，应将（A）属性值设为5000。A.IntervalB.ValueC.EnabledD.Text7.若要设置定时器的定时间隔设为5秒，应将Interval属性值设为（D）。A.5B.50C.500D.50008.若要设置文本框可接收多行字符，可通设置（A）属性值来实现。A.MultilineB.LengthC.MinD.MaxLength9.若要设置文本框中的文本，可通过文本框对象的（A）属性来实现。A.TextB.CaptionC.NameD.(名称)10.若要使不可见命令按钮显示出来，可通过设置（A）属性的值为True来实现。A.VisibleB.EnabledC.DefaultD.Value11.若要使窗体不可见，则可设置（C）属性为False来实现。A.ControlBoxB.MinButtonC.VisibleD.Enabled12.若要使定时器起作用，应将其（D）属性设置值设为True。A.IntervalB.ValueC.TextD.Enabled13.若要使定时器暂停，应将其（D）属性设置值设为False。A.IntervalB.ValueC.TextD.Enabled14.若要使命令按钮失效，可设置（B）属性为False来实现。A.ValueB.EnabledC.VisibleD.Cancel15.若要使命令按钮在运行时不可见，可通过设置（A）属性的值为False来实现。A.VisibleB.EnabledC.DefaultD.Value16.若要使失效的命令按钮变为有效，可设置（B）属性为True来实现。A.ValueB.EnabledC.VisibleD.Cancel17.若要向列表框新增列表项，可使用（D）方法来实现。A.AddB.RemoveItemC.ClearD.AddItem18.使不可见命令按钮显示出来，可通过将（C）属性设置为True来实现。A.CancelB.EnabledC.VisibleD.Value19.使命令按钮不可见，可通过将（A）属性设置为False来实现。A.VisibleB.EnabledC.CancelD.Value20.通过（B）属性的设置能够将隐藏起来的文本框显示出来。A.ClearB.VisibleC.HideD.New21.文本框的单击事件是（D）。A.ValueB.DblClick()C.NameD.Click()22.文本框的双击事件是（B）。A.ValueB.DblClick()C.NameD.Click()23.下列哪个属性可以设置窗体中显示文本的字体大小（B）。A.ForeColorB.FontC.TextD.Backcolor24.斜体字由（C）属性设置。A.FontNameB.FontSizeC.FontItalicD.FontBold25.要获得垂直滚动条Vscrollbar控件所能表示的最大值，可通过调用该控件的（B）属性来实现。A.ValueB.MaxC.MinD.LargeChange26.要获得水平滚动条Hscrollbar控件所能表示的最小值，可通过调用该控件的（C）属性来实现。A.ValueB.MaxC.MinD.LargeChange27.要将命令按钮上的文字设置为“粗体”可通过设置（B）属性值为True来实现。A.FontItalicB.FontBoldC.FontUnderlineD.FontSize28.要将命令按钮上的文字设置为“斜体”可通过设置（A）属性值为True来实现。A.FontItalicB.FontBoldC.FontUnderlineD.FontSize29.要将命令按钮上的字体设为“隶书”，可设置（C）的属性为“隶书”。A.FontBoldB.BackItalicC.FontNameD.FontSize30.要将命令按钮上的字体设为“宋体”，可设置（C）的属性为“宋体”。A.FontBoldB.BackItalicC.FontNameD.FontSize31.要将文本框背景颜色设为红色，可设置（B）的属性为vbRed。A.ForeColorB.BackColorC.BackStyleD.BorderStyle32.要将文本框背景颜色设为蓝色，可设置（B）的属性为vbBlue。A.ForeColorB.BackColorC.BackStyleD.BorderStyle33.要将文本框背景颜色设为绿色，可设置（B）的属性为vbGreen。A.ForeColorB.BackColorC.BackStyleD.BorderStyle34.要将文本框前景颜色设为红色，可设置（A）的属性为vbRed。A.ForeColorB.BackColorC.BackStyleD.BorderStyle35.要将文本框前景颜色设为蓝色，可设置（A）的属性为vbBlue。A.ForeColorB.BackColorC.BackStyleD.BorderStyle36.要将文本框前景颜色设为绿色，可设置（A）的属性为vbGreen。A.ForeColorB.BackColorC.BackStyleD.BorderStyle37.要将文本框中的字体设为“粗体”，可设置（A）的属性为True。A.FontBoldB.BackItalicC.FontNameD.FontSize38.要将文本框中的字体设为“黑体”，可设置（C）的属性为“黑体”。A.FontBoldB.BackItalicC.FontNameD.FontSize39.要将文本框中的字体设为“隶书”，可设置（C）的属性为“隶书”。A.FontBoldB.BackItalicC.FontNameD.FontSize40.要将文本框中的字体设为“宋体”，可设置（C）的属性为“宋体”。A.FontBoldB.BackItalicC.FontNameD.FontSize41.要将文本框中的字体设为“斜体”，可设置（B）的属性为True。A.FontBoldB.BackItalicC.FontNameD.FontSize14\n计算机等级考试1.要控制窗体启动时，其在屏幕上的位置，可通过（A）属性来设置。A.Top和LeftB.Left和RightC.MoveableD.WindowState2.要让菜单项无效，应将（B）属性值设置为False。A.VisibleB.EnabledC.MoveableD.Checked3.要让没有显示的菜单项显示出来，应将（A）属性值设置为True。A.VisibleB.EnabledC.MoveableD.Checked4.要让无效的菜单项有效，应将（B）属性值设置为True。A.VisibleB.EnabledC.MoveableD.Checked5.以下（B）是驱动器列表框。A.DirListBoxB.DriveListBoxC.FileListBoxD.ComboBox6.以下（C）是文件列表框。A.DirListBoxB.DriveListBoxC.FileListBoxD.ComboBox7.以下（A）可从通用对话框的“打开”对话框中返回用户选择的文件名。A.FileNameB.PathC.FontNameD.Color8.以下（D）可从通用对话框的“颜色”对话框中返回用户选择的颜色。A.FileNameB.PathC.FontNameD.Color9.以下（B）可从通用对话框的“字体”对话框中返回用户选择的字体大小。A.FileNameB.FontSizeC.FontNameD.Size10.以下（C）可从通用对话框的“字体”对话框中返回用户选择的字体名。A.FileNameB.PathC.FontNameD.Color11.以下（A）为True时，表明用户从通用对话框的“字体”对话框中选择了粗体字。A.FontBoldB.PathC.FontNameD.Color12.以下（D）为True时，表明用户从通用对话框的“字体”对话框中选择了斜体字。A.FontBoldB.PathC.FontNameD.FontItalic13.以下选项中，不属于单选按钮属性的是（D）。A.EnabledB.CaptionC.NameD.Min14.由（A）属性，可将字符串输入到文本框中。A.TextB.CaptionC.NameD.Value15.由（A）属性可将文本框中显示的文本内容读出来。A.TextB.CaptionC.NameD.Value16.在当前VB窗体上输出一个字符串“计算机”的方法是（A）。A.Print“计算机”B.Print计算机C.计算机D.Output计算机17.在以下情况下，窗体的Click事件将会被触发的为（D）。A.当窗体变为活动窗口时B.当程序启动时C.当鼠标在窗体上移动时D.当鼠标单击窗体时18.字体大小由（B）属性设置。A.FontNameB.FontSizeC.FontItalicD.FontBold19.字体类型由（A）属性设置。A.FontNameB.FontSizeC.FontItalicD.FontBold20.组合框的风格可通过（C）属性来设置。A.BackStyleB.BorderStyleC.StyleD.Sorted21.标签的边框由（C）属性的设置来决定。A.BackColorB.BackStyleC.BorderStyleD.AutoSize22.窗体的背景颜色由（B）属性设置。A.BorderStyleB.BackColorC.ForeColorD.FillStyle23.窗体的前景颜色由（C）属性设置。A.BorderStyleB.BackColorC.ForeColorD.FillStyle24.粗体字由（D）属性设置。A.FontNameB.FontSizeC.FontItalicD.FontBold25.单选按钮的控件名称为（D）。A.BottonB.CheckBoxC.PictureBoxD.OptionBotton26.单选按钮的当前状态可通过（A）属性来访问。A.ValueB.CheckedC.SelectedD.Caption27.当窗体被启动时，（A）事件将会发生。A.LoadB.UnloadC.QueryUnoadD.CLs28.当窗体的被移动时，将会发生的事件有（A）。A.MoveB.ResizeC.PaintD.Click29.当窗体的大小被调整时，将会发生的事件有（B）。A.MoveB.ResizeC.PaintD.Click30.当滚动条中的滑块位置变化时，将触发其（C）事件。A.LostFocusB.SetFocusC.ChangeD.GetFocus31.假定Picture1和Form1分别为图片框和窗体的名称，以下语句（A）可清除图片框中的文本信息。A.Picture1.clsB.Picture1.clearC.Form1.clsD.Form1.clear32.检查框（复选框）的当前状态可通过（A）属性来访问。A.ValueB.CheckedC.SelectedD.Caption33.能够将文本框隐藏起来的属性是（B）。A.ClearB.VisibleC.HideD.New34.确定一个窗体或控件的大小的属性是（B）。A.Width或HeightB.Width和HeightC.Top或LeftD.Top和Left35.确定一个控件在窗体上的位置的属性是（D）。A.Width或HeightB.Width和HeightC.Top或LeftD.Top和Left36.若要获得当前列表项的数目，可通过访问（D）属性来实现。A.ColumnsB.TextC.ListIndexD.ListCount37.若要获得滚动条的当前值，可通过访问（B）属性来实现。A.TextB.ValueC.MaxD.Min38.若要将命令按钮设置为默认按钮，可设置（D）属性为True来实现。A.CancelB.ValueC.EnabledD.Default39.若要将一普通窗体设置为MDI窗体的子窗体，应将（C）属性值设为True。A.EnabledB.VisibleC.MdiChildD.Moveable40.若要清除列表框中列表项，可使用（B）方法来实现。A.AddB.RemoveItemC.ClearD.AddItem41.若要取消窗体的最大化功能，则可设置（C）属性为False来实现。A.ControlBoxB.MinButtonC.MaxButtonD.Enabled42.若要取消窗体的最小化功能，则可设置（B）属性为False来实现。A.ControlBoxB.MinButtonC.MaxButton14\n计算机等级考试D.Enabled1.若要设置文本框最大可接收的字符数，可通设置（D）属性值来实现。A.MultilineB.LengthC.MinD.MaxLength2.若要使标签成为透明，可通过设置（B）属性来实现。A.BackColorB.BackStyleC.BorderStyleD.ForeColor3.若要使标签的大小自动与所显示的文本相适应，可通过设置（A）属性的值为True来实现。A.AutoSizeB.AlignmentC.ApperanceD.Visible4.若要使已被禁止移动的窗体能移动，可设置窗体的（C）属性为True。A.MinButtonB.MoveC.MoveableD.ControlBox5.若要使只读文本框成为可编辑文本框，可通设置（D）属性值为False来实现。A.ReadOnlyB.UnlockC.EnabledD.Locked6.若要在列表框中同时选择多项，可通过设置列表框对象的（C）属性来实现。A.ColumnsB.StyleC.MultiSelectD.List7.文本框中内容的对齐方式，由（D）属性值决定。A.TextB.NameC.CaptionD.Alignment8.下列哪个操作可以清除文本框对象Text1的内容（A）。Text1.Text=""Text1.clsText＝""cls9.要控制窗体启动时距屏幕顶部的位置，可通过（A）属性来设置。A.TopB.LeftC.StartUpPositionD.WindowState10.要控制窗体启动时距屏幕左部的位置，可通过（B）属性来设置。A.TopB.LeftC.StartUpPositionD.WindowState11.要想通过单击Command1弹出Form2窗体，则可在Command1的单击事件中，使用（B）命令。A.LoadForm2B.Form2.ShowC.Form2.SetFocusD.Form2.PopupMenu12.要想通过单击Form1上的Command1，从屏幕（而非内存中）上清除Form1窗体，则可在Command1的单击事件中，使用（D）命令。A.LoadMeB.Me.ShowC.UnloadMeD.Me.Hide13.要想通过单击Form2上的Command1，从内存中清除Form2窗体，则可在Command1的单击事件中，使用（C）命令。A.LoadForm2B.Form2.ShowC.UnloadForm2D.Form2.hide14.要想通过单击Form2上的Command1，从屏幕（而非内存中）上清除Form2窗体，则可在Command1的单击事件中，使用（D）命令。A.LoadForm2B.Form2.ShowC.UnloadForm2D.Form2.Hide15.要想通过单击Form2上的Command1，从屏幕（而非内存中）上清除Form2窗体，则可在Command1的单击事件中，使用（D）命令。A.LoadMeB.Me.ShowC.UnloadMeD.Me.Hide16.一个工程中有Form1和Form2两个窗体，（D）命令可以同时关闭这两个窗体。A.UnLoadForm2B.UnLoadForm1C.UnLoadMeD.End17.以下（A）是目录（文件夹）列表框。A.DirListBoxB.DriveListBoxC.FileListBoxD.ComboBox18.以下属性中只在运行时起作用的为（B）。A.Caption属性B.Visible属性C.BorderStyle属性D.Picture属性19.用户在组合框中所输入的数据，可通过访问组合框对象的（A）属性来获得。A.TextB.ListC.ListindexD.ListCount20.用鼠标选择列表框中的项目，将触发其（B）事件。A.ChangeB.ClickC.SelectD.ItemCheck21.在VB窗体要设计两组单选按钮，应用（D）控件对其分组。A.PictureB.ImageC.LabelD.Frame22.在窗体运行时，若要以程序代码的方式改变窗体的高度，可用（D）属性进行设置。A.MoveB.ResizeC.WidthD.Height23.在窗体运行时，若要以程序代码的方式改变窗体的宽度，可用（C）属性进行设置。A.MoveB.ResizeC.WidthD.Height24.在运行时，若要获得文本框中所选的文本长度，可通过访问（B）属性来实现。A.SelStartB.SelLengthC.TextD.SelText25.在运行时，若要能调用某命令按钮的Click事件过程，应将该按钮的（B）属性设置为True。A.VisibleB.EnabledC.DefaultD.Value26.在运行时，若要使文本框获得输入焦点，可调用文本框对象的（C）方法来实现。RefreshGetFocusSetFocusTab27.标签中内容的对齐方式，由（D）属性值决定。A.TextB.NameC.CaptionD.Alignment28.窗体的风格由窗体对象的（B）属性来设置。A.BackColorB.BorderStyleC.WindowStateD.FillStyle29.窗体的控制菜单的有无由窗体对象的（A）属性决定。A.ControlBoxB.MaxButtonC.MinButtonD.BorderStyle30.窗体中的鼠标指针形状，可以通过（B）属性来设置。A.MouseIconB.MousePointerC.PictureD.Icon31.窗体最小化所显示的图标可用（C）属性来设置。A.PictureB.ImageC.IconD.MouseIcon32.当拖动滚动条时，将触发其（C）事件。A.LostFocusB.SetFocusC.ScrollD.GetFocus33.关闭MDI窗体时，会触发的事件是（D）。A.LoadB.ClickC.ResizeD.QueryUnload34.假定Picture1,Form1，Text1，Label1分别为图片框、窗体、文本框、标签的名称，程序代码如下，单击图片框时，清除下列哪个对象的内容（C）。PrivateSubPicture1_Click()ClsEndSubA.Picture1B.Text1C.FormD.Label135.假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是（C）。A.Print25B.Picture1.Print25C.Text1.Print25D.Debug.Print2536.判断窗体当前所处状态，可通过访问（D）属性来实现。A.MaxButtonB.MinButtonC.ControlBoxD.WindowState37.若要将图片"D:\PIC\CAR.JPG"载入到当前的图片框(PictureBox)中，应用（B）命令。A.LoadFileB.LoadPictureC.LoadPicD.LoadJPG38.若要将图片"D:\PIC\CAR.JPG"载入到当前的图像框(Image)中，应用（B）命令。LoadFileLoadPictureLoadPicLoadJPG39.若要设置列表框的选择方式，可通过（C）属性设置来实现。14\n计算机等级考试A.ColumnsB.StyleC.MultiSelectD.List1.若要设置命令按钮为图形风格的按钮，可通过将（A）属性设置为Graphical。A.StyleB.BorderStyleC.BackStyleD.Apperance2.若要使窗体启动时，位于屏幕中央，可通过（C）一个属性来设置。A.TopB.LeftC.StartUpPositionD.WindowState3.若要使命令按钮获得控制焦点，可使用（B）方法来设置。A.RefreshB.SetFocusC.GetFocusD.LostFocus4.若要使文本框中成为只读文本框，可通设置（D）属性值为True来实现。A.ReadOnlyB.UnlockC.EnabledD.Locked5.若要文本框在失去控制焦点后，执行某一动作，可以对（D）事件进行编程。A.RefreshB.SetFocusC.GetFocusD.LostFocus6.文本框的按键事件（B）。A.KeyMoveB.KeyPressC.MouseMoveD.MouseUp7.要设置Hscrollbar控件在单滚动箭头时Value属性值的变化幅度，可通过调用该控件的（B）属性来实现。A.ValueB.SmallChangeC.MinD.LargeChange8.在窗体中利用Print方法输出文本信息时，信息的输出位置由（D）属性设置。A.LeftB.TopC.x,yD.CurrentX,CurrentY9.在通过对话框的（B）属性中，可以设置所打开对话框的“默认路径”。A.FileNameB.InitDirC.FilterD.Pattern10.在通过对话框的（B）属性中，可以设置所打开对话框的“默认路径”。A.FileNameB.InitDirC.FilterD.Path11.在运行时，若要获得文本框中所选的文本的起始位置，可通过访问（A）属性来实现。A.SelStartB.SelLengthC.TextD.SelText12.在运行时，若要获得文本框中所选定的文本，可通过访问（D）属性来实现。A.SelStartB.SelLengthC.TextD.SelText13.若要在图片框中绘制一个椭圆，可使用（A）方法来实现。A.CircleB.LineC.PointD.Pset14.以下有关VB的绘图方法中，（A）表示画圆或椭圆。A.CircleB.LineC.PsetD.Point15.以下有关VB的绘图方法中，（B）表示画直线。A.CircleB.LineC.PsetD.Point16.在VB的图形属性中，（B）表示绘图的前景颜色。A.BackColorB.ForeColorC.FillColorD.PenColor17.（A）可以在窗体上绘制一个半径为1000的圆。A.Form1.Circle(1000,1000),1000B.Line(1000,1000)-(2000,2000)C.Point1000,1000D.Pset1000,100018.VB对二进制随机文件访问时，应用（C）模式。A.OutPutB.InputC.BinaryD.Append19.VB提供的三种访问文件的模式中，不包括（B）。A.顺序文件B.数据库文件C.随机文件D.二进制文件20.VB对顺序文件访问的三个步骤中，不包括（A）。A.建立索引B.打开文件C.读/写文件D.关闭文件21.VB对顺序文件访问的三种形式中，不包括（D）。A.OutPutB.InputC.AppendD.Write22.下列关于调色板说法错误的是（D）。A.从“视图”菜单中选取“调色板”，可打开调色板B.调色板可设置对象的前景色C.调色板可设置对象的背景色D.调色板不能进行细致的颜色调整23.想要加载图片文件，并设定给Picture属性，应使用的函数是（B）。A.LoadGraphicB.LoadPictureC.LoadBitmapD.LoadPhoto24.以下关于VB中的图形坐标的度量单位的说法正确的是（D）。A.只有一种单位：TwipB.只有一种单位：CmC.只有一种单位：PointD.可以有多种单位25.在图片框(PictureBox)中显示的图形，由对象的（A）属性决定。A.PictureB.ImageC.IconD.LoadPic26.在图像框（Image）中显示的图形，由对象的（A）属性决定。A.PictureB.PicC.IconD.LoadPic27.VB对随机文件访问时，应用（C）模式。A.OutPutB.InputC.RandomD.Append28.以下有关VB颜色的表示中，（D）是错误的。A.vbRedB.QbColor(4)C.RGB(255,0,0)D.RGB(-255,0,0)29.在程序运行中，可直接输入颜色值来指定颜色参数值，通常用（D）进制数表示颜色值。A.二进制B.八进制C.十进制D.十六进制30.假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VBTest”的语句为（B）。A.Form1=”VBTest”B.Caption=”VBTest”C.Form1.Text=”VBTest”D.Form1.Name=”VBTest”31.下列语句错误的是（A）。A.FontName=宋体B.FontSize＝20C.FontBold＝TrueD.FontItalic＝False32.以下VB语句中，（D）的功能是创建一个新的目录（文件夹）。A.KillB.FileCopyC.NameD.MkDir33.对于下列语句，其输出是（B）。A=2:b=1:c=0ifathenifbthenifcthenPrint“1”elsePrint“2”elsePrint“3”elsePrint“4”A.1B.2C.3D.434.以下VB语句中，（B）的功能是复制指定文件。A.KillB.FileCopyC.NameD.MkDir35.以下VB语句中，（A）的功能是删除指定文件。A.KillB.FFileCopyC.NNameD.MkDir36.以下VB语句中，（C）的功能是文件改名。A.KillB.FFileCopyC.NNameD.MkDir37.以下是Command1的单击事件，单击Command1后，在当前目录下创建了一个名为a.txt的文件，该文件内容为（B）。PrivateSubCommand1_Click()Open"a.txt"ForOutputAs#1Print#1,"计算机"；"等级考试"Close#1EndSubA.等级考试B.计算机等级考试C.计算机D.计算机；等级考试38.执行Text1.Move200,300,1500,1000语句后，控件Text1的高度是（D）twip。A.200B.300C.1500D.100039.执行Text1.Move200,300,1500,1000语句后，控件Text1的宽度是（C）twip。A.200B.300C.150014\n计算机等级考试D.10001.执行Text1.Move200,300,1500,1000语句后，控件Text1上边距窗体（D）twip。A.200B.300C.1500D.10002.执行Text1.Move200,300,1500,1000语句后，控件Text1左边距窗体（A）twip。A.200B.300C.1500D.10003.单击Command1后，在当前目录下创建了一个名为（C）的文件。PrivateSubCommand1_Click()Open"a.txt"ForOutputAs#1Print#1,"计算机"Close#1EndSubA.closeB.outputC.a.txtD.open4.已知"student.txt"文件内容为：ThisisaVBProgram.一程序段如下：PrivateSubCommand1_Click()Open"student.txt"ForAppendAs#1Print#1,"WeareallloveVB."Close#1EndSub则该程序段执行后，"student.txt"文件内容为（D）。A.ThisisaVBProgram.B.WeareallloveVB.C.（无内容）D.ThisisaVBProgram.WeareallloveVB.5.已知"student.txt"文件内容为：ThisisaVBProgram.一程序段如下：PrivateSubCommand1_Click()Open"student.txt"ForOutputAs#1Print#1,"WeareallloveVB."Close#1EndSub则该程序段执行后，"student.txt"文件内容为（B）。A.ThisisaVBProgram.B.WeareallloveVB.C.（无内容）D.ThisisaVBProgram.WeareallloveVB.6.已知一程序段如下：PrivateSubCommand1_Click()S=0Open"student.txt"ForOutputAs#1ForI=1To10S=S+INextIPrint#1,"S=";SClose#1EndSub则该程序执行后，“Student.txt”文件的内容为（D）。A.S=；SB.S=SC.S=10D.S=557.已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（A）。PrivateSubCommand1_Click()Text1.Text="湖南省"&"计算机"+"等级考试"Text1.ForeColor=vbRedText1.BackColor=vbGreenText1.FontBold=TrueEndSubA.湖南省计算机等级考试B.计算机C.等级考试D.计算机等级考试8.已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（C）。PrivateSubCommand1_Click()Text1.Text="湖南省"&"计算机"+"等级考试"Text1.ForeColor=vbRedText1.BackColor=vbGreenText1.FontBold=TrueEndSubA.21B.22C.23D.249.已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本中的背景颜色为（D）色。PrivateSubCommand1_Click()Text1.Text="湖南省"&"计算机"+"等级考试"Text1.ForeColor=vbRedText1.BackColor=vbGreenText1.FontBold=TrueEndSubA.红B.绿C.白D.黄10.已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本中的文字颜色为（A）色。PrivateSubCommand1_Click()Text1.Text="湖南省"&"计算机"+"等级考试"Text1.ForeColor=vbRedText1.BackColor=vbGreenText1.FontBold=TrueEndSubA.红B.绿C.黑D.黄14计算机等级考试12计算机等级考试12计算机等级考试22\n计算机等级考试9、VisualBasic程序改错22计算机等级考试1.程序功能：求s=1+3+5+7+...直到s>2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。(2025)PrivateSubForm_Click()DimiAsInteger,sAsLongs=0:i=1DoUntils<2000s=s+ii=i+1LoopPrintsEndSub答案：s>2000;i+22.程序功能：计算s=2!+4!+8!。程序中有两行有错误。改正错误，使它能输出正确的结果。(40346)PrivateSubCommand1_Click()DimkAsInteger,iAsIntegerDimsAsLong,tAsLongs=0i=1DoWhilei<=3t=1k=1Whilek<=2*it=t*kk=k+1Wends=s+ti=i+1wendPrintsEndSub答案：k<=2^i;loop3.程序功能：计算s=2!+4!+6!+8!。程序中有错误。改正错误，使它能输出正确的结果。(41066)PrivateSubCommand1_Click()DimkAsInteger,iAsIntegerDimsAsLong,tAsLongs=0:i=1DoWhilei<=4t=1k=1Whilek<=2^it=t*kk=k+1Wends=s+ti=i+1wendPrintsEndSub答案：k<=2*i;loop4.程序功能：求200到400间，能被３整除但不能被７整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(57)PrivateSubCommand1_Click()DimcountAsIntegerDimxAsIntegercount=0x=200Whilex<=400IfxMod3=0orxMod7<>0Thencount=count+1EndIfx=x+1LoopPrintcountEndSub答案：and;wend5.程序功能：求1到400间，同时能被3和7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(19)PrivateSubForm_Click()DimcountAsIntegerDimxAsIntegerForx=1To400ifmod(x,3)=0andmod(x,7)=0thencount=count+1endifNextcountPrintcountEndSub答案：xMod3=0AndxMod7=0;x6.程序功能：求能被3整除且至少有一位数字为5的三位数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(85)PrivateSubCommand1_Click()DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegerx=100doWhilex<=999IfxMod3=0Thena=Int(x/100)b=Int((x-a*100)/10)c=x-a*100-b*10Ifa=5andb=5andc=5Thencount=count+1EndIfEndIfx=x+1wendPrintcountEndSub答案：a=5orb=5orc=5;loop7.程序功能：求三位偶数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(45)PrivateSubCommand1_Click()DimcountAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDimxAsIntegercount=0x=100Whilex<=999a=Int(x/100)b=Int(x/10)-a*10c=x-a*100-b*10IfMod(x,2)=0ormod(b+c,10)=aThencount=count+1EndIfx=x+1loopPrintcountEndSub答案：xMod2=0And(b+c)Mod10=a;wend8.程序功能：求平方和小于2000的最大自然数。程序中有两行有错误。改正错误，使它能输出正确的结果。(18)PrivateSubForm_Click()DimxAsIntegerDimsAsIntegers=0x=0DoWhiles>=2000x=x+2s=s+x*xloop22\n计算机等级考试PrintxEndSub答案：s<=2000;x=x+11.程序功能：解百马百瓦古题。大、小马和马驹共100匹，共驮100片瓦。大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合?程序中有三行有错误。改正错误，使它能输出正确的结果。(6)PrivateSubForm_Click()DimxAsInteger,yAsInteger,zAsIntegerDimsAsIntegers=0Forx=1To33Fory=1To50z=100-x-yIf3*x+2*y+z/2<>100Thens=s+1EndIfNextxNextyPrintsEndSub答案：3*x+2*y+z/2=100;Nexty;Nextx2.程序功能：求100-200之间的所有素数个数，程序中有两行有错误。改正错误，使它能输出正确的结果。(21)PrivateSubCommand1_Click()Number=0Forx=101To199Step2i=2k=Int(x/2)DoWhilei<=kIfxModi=0ThenExitfori=i+1LoopIfik3.程序功能：sum=d+dd+ddd+……+ddd..d(d为1-9的数字)。例如：3+33+333+3333（此时d=3,n=4）。从键盘上输入d的值为8，n的值为9，求sum的值。程序中有两行有错误。改正错误，使它能输出正确的结果。987654312PrivateSubForm_Click()DimdAsInteger,nAsInteger,iAsIntegerDimsumAsLongsum=0d=Val(InputBox("d:"))n=Val(InputBox("n:"))Fori=1Tontn=tn+dsum=sun+tnNextiPrintsumEndSub答案：tn=tn*10+d；sum=sum+tn4.程序功能：输出水仙花的个数（所谓水仙花数是指一个三位十进制数，该数的各位数字立方之和等于该数本身。例如153是一个水仙花数，因为1^3+5^3+3^3=153）程序中有两行有错误。改正错误，使它能输出正确的结果。4PrivateSubForm_Click()DimnumberAsIntegerDimnAsInteger,iAsInteger,jAsInteger,kAsIntegerForn=100To999i=n/100‘百位j=Int(n/10)-I*10‘十位k=nMod10Ifn=i*i*i+j*j*j+k*k*kThennumber=numbre+1EndIfNextnPrintnumberEndSub答案：j=Int((n-i*100)/10);number=number+15.程序功能：求数列2/1，3/2，5/3，8/5，13/8，……的前10项之和。程序中有两行有错误。改正错误，使它能输出正确的结果。16.47991PrivateSubForm_Click()DimiAsInteger,tAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimsAsSinglea=2:b=1:n=10:s=0Fori=1Tons=s+a/bt=ba=a+ba=tNextiPrintsEndSub答案：t=a;b=t6.程序功能：猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。程序中有两行有错误。改正错误，使它能输出正确的结果。1534PrivateSubForm_Click()DimdayAsInteger,sumAsIntegerday=10;sum=1DoWhileday>1sum=sum*2day=day-1LoopPrintsumEndSub答案：day=10:sum=1;sum=(sum+1)*27.程序功能：求1～200之间的能被7整除的数的平方和。程序有两处错误。改正错误，使它能输出正确的结果。377986PrivateSubCommand1_Click()DimxAsIntegerDimsumAsIntegerx=1sum=0Whilex<=200IfxMod7=0sum=sum+x^2EndIfx=x+1WendPrintsumEndSub答案：DimsumAsDouble;IfxMod7=0Then8.程序功能：求1~99的平方根的和并输出结果。（保留小数点两位），程序中有两行有错误。改正错误，使它能输出正确的结果。661.46PrivateSubCommand1_Click()DimxAsIntegerDimsumAsintegerx=1DoWhilex<=99sum=sum+Sqrt(x)x=x+1LoopPrintRound(sum,2)EndSub答案：DimsumAsSingle;sum=sum+Sqr(x)22\n计算机等级考试1.程序功能：求[1,5000]内能被5整除的前若干个偶数之和，直到和大于50000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。50500PrivateSubCommand1_Click()DimxAsIntegerDimsAsLongx=2DoWhilex<=5000IfxMod5=0Thens=s+xIfs>50000ThenExitforEndIfEndIfx=x+2LoopPrintsEndSub答案：exitdo(只有一处有错)2.程序功能：求3000以内能被17或23整除的正整数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。299PrivateSubCommand1_Click()DimxAsIntegerDimcountAsIntegerForx=1To3000Step-1IfxMod17=0andxMod23=0Thencount=count+1EndIfNextxPrintcountEndSub答案：1;or3.程序功能：已知一个数列的前3项为0，0，1，以后每项为前3项的和，求此数列的第36项。程序中有两行有错误。改正错误，使它能输出正确的结果。334745777PrivateSubCommand1_Click()DimaAsLongDimbAsLongDimcAsLongDimdAsLongDimiAsIntegera=0:b=0:c=1Fori=1To36d=aa=bb=cc=a+b+cNextiPrintcEndSub答案：33;c=a+b+d4.程序功能：求数列2,4,8,16,32,…前若干项之和。当和大于9000时，终止求和并输出结果。程序中有两行有错误。改正错误，使它能输出正确的结果。16382PrivateSubCommand1_Click()DimsAsIntegerDimxAsIntegerx=1Dox=x+2s=s+xUntils>9000PrintsEndSub答案：x=x*2;loopuntils>90005.程序功能：已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。问[100,300]之间有多少个这样的数。程序中有两行有错误。改正错误，使它能输出正确的结果。19PrivateSubCommand1_Click()Dimn1AsInteger,n2AsIntegerDimxAsIntegerDimiAsIntegern2=0Forx=100To300n1=0Fori=1To100IfxModi=0Thenn1=n1+1EndIfNextiIfxModn1=0Thenn2=n2+1EndIfNextxPrintn2EndSub答：n1=0;x6.程序功能：我国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?程序中有两行有错误。改正错误，使它能输出正确的结果。9PrivateSubCommand1_Click()DimpAsLong,p1AsLongDimnAsIntegern=0p1=45600p=p1Dop=p*(1+9)n=n+1LoopUntilp<2*p1PrintnEndSub答案：p=p*(1+0.09);>=7.程序功能：已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求[100,300]之间能被其因子数目整除的数中最大的数。程序中有两行有错误。改正错误，使它能输出正确的结果。296PrivateSubCommand1_Click()DimNAsIntegerDimsAsIntegerDimiAsIntegerForN=300To100Step-1s=0Fori=1ToNIfNModi=0Thens=s+1EndIfNextiIfsModN=0ThenPrintNExitForEndIfNextNEndSub答案：Nmods=0(只有一处错误)8.程序功能：有一个三位数满足下列条件:(1)三位数字各不相同;(2)此数等于它的各位数字的立方和。求这种三位数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。4PrivateSubCommand1_Click()DimxAsInteger,aAsInteger,bAsIntegerDimcAsInteger,nAsIntegern=0x=100DoWhilex>=999a=Int(x/100)b=Int(x/10)-a*10c=x-a*100-b*1022\n计算机等级考试Ifa<>cAndb<>cAnda<>bAndx=a^3+b^3+c^3Thenn=n+1EndIfx=x+1LoopPrintnEndSub答案：x<=999；将or全部换成and1.程序功能：求[3，500]内所有素数之和。程序中有一行错误，改正错误，使它能输出正确的结果。21534PrivateSubCommand1_Click()Sum=0Forx=3To500flag=TrueFori=2Tox-1IfxModi=0Thenflag=FalseExitForEndIfNextiIfnotflagThenSum=Sum+xEndIfNextxPrintSumEndSub答案：flag2.程序功能：求[3-1000]之间最大的五个素数之和。程序中有两行有错误。改正错误，使它能输出正确的结果。4919PrivateSubCommand1_Click()n=0:Sum=0x=1000Doflag=TrueFori=2Tox-1IfxModi=0Thenflag=FalseExitdoEndIfNextiIfflagThenSum=Sum+xn=n+1Ifn=5ThenExitDoEndIfx=x-1LoopWhilex<=3PrintSumEndSub答案：exitfor;x>=33.程序功能：把一张一元钞票,换成一分、二分和五分硬币,每种至少8枚,求方案数。程序中有两行有错误。改正错误，使它能输出正确的结果。80PrivateSubCommand1_Click()n=0Forx=1To100Fory=8To50Forz=8To20Ifx+y*2+z*5=100Thenn=n+1NextzNextyNextxPrintnEndSub答案：8;x+y*2+z*5=1004.程序功能：求区间[500，2500]中按递增顺序的第25个素数。程序中有两行有错误。改正错误，使它能输出正确的结果。659PrivateSubCommand1_Click()n=0Forx=500To2500flag=FalseFori=2Tox-1IfxModi=0Thenflag=TrueExitForEndIfNextiIfflagThenn=n+1Ifn=25ThenExitForEndIfNextxPrintxEndSub答案：notflag(只有一处错误)5.程序功能：设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512，9+1=5*2，求所有这样的四位数之和。程序中有一行有错误。改正错误，使它能输出正确的结果。1078289PrivateSubCommand1_Click()Sum=0Forx=1000To9999a=Int(x/1000)b=Int(x/100)-a*100c=Int(x/10)-a*100-b*10d=x-a*1000-b*100-c*10Ifa+c=b*dThenSum=Sum+xEndIfNextxPrintSumEndSub答案：b=Int(x/100)-a*106.程序功能：求[200,300]之间的有奇数个不同因子的最大整数。程序中有两行有错误。改正错误，使它能输出正确的结果。289PrivateSubCommand1_Click()Forx=300To200Step-1n=0Fori=1ToxIfxModi=0Thenn=n+1EndIfNextiIfn/2<>0ThenPrintxExitForEndIfNextxEndSub答案：x=300To200Step–1;nMod2<>07.程序功能：计算y=1+2/3+3/5+4/7+…+n/(2*n-1)(n=50),要求：按四舍五入的方式精确到小数点后第二位。程序中有两行有错误。改正错误，使它能输出正确的结果。26.47PrivateSubCommand1_Click()DimsAsSingleDimnAsIntegers=0Forn=1To50s=s+n/2*n-1NextnPrintround(s)EndSub答案：s=s+n/(2*n-1);round(s,2)8.程序功能：求当N=20时，1/(1*2)+1/(2*3)+1/(3*4)+….+1/(N*(N+1))的值。要求：按四舍五入的方式精确到小数点后第二位。程序中有一行有错误。改正错误，使它能输出正确的结果。0.9522\n计算机等级考试PrivateSubCommand1_Click()s=0:n=1DoWhilen<=20s=s+1/n*(n+1)n=n+1LoopPrintFormat(s,"##0.##")EndSub答案：s=s+1/(n*(n+1))1.程序功能：求m＝50时，表达式t=1-1/(2*2)-1/(3*3)-…-1/(m*m)的值。要求：按四舍五入的方式精确到小数点后第四位。程序中有两行有错误。改正错误，使它能输出正确的结果。0.3749PrivateSubCommand1_Click()DimtAsSingleDimmAsIntegerm=2t=1DoWhilem<=50t=t-1/m*mm=m+1wendPrintFormat(t,"0.####")EndSub答案：(m*m);loop2.程序功能：求[10,1000]之间满足除以7余5、除以5余3、除以3余1的所有整数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。9PrivateSubCommand1_Click()DimxAsIntegerDimnAsIntegern=0Forx=10To1000IfxMod7=5orxMod5=3orxMod3=1Thenn=n+1EndIfloopPrintnEndSub答案：将所有的or改成and;nextx3.程序功能：求1到5000之间的能被5整除的前若干个偶数之和，直到和大于500为止。程序中有两行错误。改正错误，使它能输出正确的结果。550PrivateSubCommand1_Click()n=0:s=0Forx=2To5000step2Ifxmod5=0Thens=s+xEndIfIfs>500ThenExitForNextxPrintsEndSub4.程序功能：百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。程序中有一行有错误。改正错误，使它能输出正确的结果。3PrivateSubCommand1_Click()s=0cock=1DoWhilecock<=100/5hen=1DoWhilehen<=100/3-cockchick=100-cock-henIfcock+hen+chick=100Thens=s+1EndIfhen=hen+1Loopcock=cock+1LoopPrintsEndSub答案：cock*5+hen*3+chick/3=100(一处错)5.程序功能：求500以内最大的10个能被13或17整除的自然数之和。程序中有两行有错误。改正错误，使它能输出正确的结果。4622PrivateSubCommand1_Click()s=0:n=0x=500DoWhilex>=1IfxMod13=0andxMod17=0Thens=s+xn=n+1EndIfIfn=10ThenExitDox=x+1LoopPrintsEndSub答案：Or;x=x-16.程序功能：求[10，1000]之间的所有完数之和。各真因子之和（不包括自身）等于其本身的正整数称为完数。例如：6=1+2+3，6是完数。程序中有有错误。改正错误，使它能输出正确的结果。524PrivateSubCommand1_Click()DimsumAsIntegerDimxAsInteger,kAsIntegerDimiAsIntegersum=0Forx=10To1000k=xFori=1ToxIfxModi=0Thenx=x-iEndIfNextiIfk=0Thensum=sum+xEndIfNextxPrintsumEndSub答案：x-1;k=k-i7.程序功能：求满足以下条件的（a，b，c）的组数：（1）1/(a^2)+1/(b^2)=1/(c^2)；（2）a>b>c；（3）a+b+c<100。程序有错误，改正错误，使程序能输出正确的结果。(2)PrivateSubCommand1_Click()s=0Forc=1To100Forb=1To100Fora=1To100Ifa+b+c<100or1/(a^2)+1/(b^2)=1/(c^2)Thens=s+1NextaNextbNextcPrintsEndSub答案：Ifa+b+c<100And1/(a^2)+1/(b^2)=1/(c^2)Anda>bAndb>cThens=s+18.程序功能：求四位奇数中，各位数字之积（积不为0）是60的倍数的数之和。程序中有一行错误，改正错误，使程序能输出正确的结果。3456254PrivateSubCommand1_Click()num1=0Forx=1001To9999Step2a=Int(x/1000)b=Int(x/100)-a*10c=Int(x/10)-a*100-b*10d=x-a*1000-b*100-c*10Ifa*b*c*dMod60=0Thennum1=num1+x22\n计算机等级考试EndIfNextxPrintnum1EndSub答案：a*b*c*dMod60=0Andb<>0Andc<>0Andd<>01.程序功能：有一堆零件（零件个数不超过1000），如果分成4个零件一组余2个；7个一组余3个；9个一组余5个。求这堆零件的个数有几种可能。程序中有错误，改正错误，使程序能输出正确的结果。4PrivateSubCommand1_Click()Forx=1To1000IfxMod4=2orxMod7=3orxMod9=5Theni=i+1EndIfNextxPrinti答：将or变成andEndSub2.程序功能：百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。程序中有一行有错误。改正错误，使它能输出正确的结果。3PrivateSubCommand1_Click()s=0cock=1DoWhilecock<=100/5hen=1DoWhilehen<=100/3-cockchick=100-cock-henIfcock+hen+chick=100Thens=s+1EndIfhen=hen+1Loopcock=cock+1LoopPrintsEndSub答案：cock*5+hen*3+chick/3=1003.程序功能：求共有几组i、j、k符合算式ijk+kji=1534，其中i、j、k是0~9之间的一位整数。程序中有一行有错误。改正错误，使它能输出正确的结果。5PrivateSubCommand1_Click()n=0Fori=0To9Forj=0to9Fork=0to9Ifijk+kji=1534Thenn=n+1EndIfNextkNextjNextiPrintnEndSub答案：i*100+j*10+k+k*100+j*10+i=15344.程序功能：求所有符合算式ij*ji=1300的最小数ij。其中i、j是1~9之间的一位整数。程序中有三行错误。改正错误，使它能输出正确的结果。25PrivateSubCommand1_Click()Fori=1To9Forj=1To9Ifij*ji=1300ThenPrint10*i+jExitSubEndIfNextiNextjEndSub答案：(i*10+j)*(j*10+i);j;i5.程序功能：求[444,666]中最大的素数。程序中有两行有错误。改正错误，使它能输出正确的结果。661PrivateSubCommand1_Click()DimxAsIntegerDimiAsIntegerForx=666To444k=Int(Sqr(x))Fori=2TokIfxModi=0ThenExitdoEndIfNextiIfi>kThenPrintxExitForEndIfNextxEndSub答案：Forx=666To444Step-1;exitfor6.程序功能：将50元兑换成5元、2元和1元的方法的种数（每种面额至少2张）。程序中有两行有错误。改正错误，使它能输出正确的结果。72PrivateSubCommand1_Click()Forx=2To10Fory=2To25Forz=2To50Ifx+y+z=50ThenN=N+1ExitForEndIfNextzNextyNextxPrintNEndSub答案：5*x+2*y+z=50；去掉exitfor7.程序功能：求这样的一个三位数，其个位数不大于2。若将个位数移动到百位之前（如：321移成132），新三位数大于原三位数的两倍。程序中有两行错误，改正错误，使程序能输出正确的结果。102PrivateSubCommand1_Click()Fori=0To9Forj=0To9Fork=0To2N=100*i+10*j+km=100*k+10*i+jIfm>=2*NThenPrintNNextkNextjNextiEndSub答案：Fori=1To9;Fork=1To28.编程求方程5X+4Y=2，在|X|<=50,|Y|<=100内的整数解，X+Y最大值是多少？112(填空题)PrivateSubForm_click()Max=0Forx=-50To50Fory=-100To100If5*x-4*y=2Thens=x+yIfs>MaxThenMax=sNextyNextxPrintMaxEndSub9.求方程5X-4Y=2，在|X|<=100,|Y|<=50内的整数解中|X|+|Y|最大值？86(填空题)PrivateSubForm_click()Max=0Forx=-100To100Fory=-50To5022\n计算机等级考试If5*x-4*y=2Thens=Abs(x)+Abs(y)Ifs>MaxThenMax=sEndIfNextyNextxPrintMaxEndSub1.找出1-1000之间的全部同构数的和。同构数是指一个数，它出现在它的平方数的右端。例如，5的平方是25，5是25中右端的数，5就是一个同构数。同理，25也是一个同构数。1114PrivateSubCommand1_Click()s=0Forx=1To1000y=Len(Trim(Str(x)))i=x*xSelectyCase1Ifx=Val(Right(Trim(Str(i)),1))Thens=s+xEndIfCase2Ifx=Val(Right(Trim(Str(i)),2))Thens=s+xEndIfCase3Ifx=Val(Right(Trim(Str(i)),3))Thens=s+xEndIfCase4Ifx=Val(Right(Trim(Str(i)),4))Thens=s+xEndIfEndSelectNextxPrintsEndSub答案：SelectCasey2.程序功能：求字符串"87IM&2345kjwdssdcf"中数，字母字符的ASCII码之和。程序中有一行错误，改正错误，使程序能输出正确的结果。1113PrivateSubCommand1_Click()alpha=0st="87IM&2345kjwdssdcf"Fori=1Tostch=Mid$(st,i,1)SelectCasechCase"a"To"z"alpha=alpha+Asc(ch)Case"A"To"Z"alpha=alpha+Asc(ch)EndSelectNextiPrintalphaEndSub答案：Len(st)3.求字符串“ThisismyBasic”所有字符的ASCII码之和。程序中有一行有错误。改正错误，使程序能输出正确结果。1436PrivateSubCommand1_Click()Sum=0s="ThisismyBasic"Fori=1TosSum=Sum+Asc(Mid$(s,i,1))NextiPrintSumEndSub答案：Len(s)4.求在1,2,3,...,100中,任选两个不同的数,要求它们的和能被3和7整除的数的对数(注意:3+5和5+3认为是同一对数)。2121PrivateSubForm_Click()DimnAsInteger,iAsIntegern=0i=1DoWhilei<=100j=1DoWhilej<=100Ifmod((i+j,3)=0ormod((i+j,7)=0Thenn=n+1EndIfj=j+1Loopi=i-1LoopPrintn/2EndSub答案：If((i+j)Mod3=0Or(i+j)Mod7=0)Andi<>jThen;i=i+15.一个两位数的正整数，如果将其个位数与十位数字对调所生成的数称为其对调数，如28是82的对调数。现给定一个两位的正整数46，请找到另一个两位的整数，使这两个数之和等于它们的各自的对调数之和。这样的另一个两位数有多少个。程序中有两行有错误。改正错误，使它能输出正确的结果。8PrivateSubForm_Click()DimxAsInteger,yAsInteger,numberAsIntegerDimxfAsInteger,yfAsIntegernumber=0x=46xf=(xMod10)*10+Int(y/10)Fory=10To99yf=(yMod10)*10+Int(y/10)Ifx+y=xf+yfThennumber=number+1EndIfNextyPrintnumberEndSub答案：x(只有一处错误)6.程序功能：若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数,如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。求[1,200]之间有多少个多因子完备数。改正错误，使它能输出正确的结果。4PrivateSubCommand1_Click()DimNAsIntegerDimsAsIntegerDimiAsIntegerDimcAsIntegerc=0ForN=1To200s=0Fori=1ToNIfiModN<>0Thens=s+iEndIfNextiIfNMods=0Thenc=c+1EndIfNextNPrintcEndSub答案：iModN=0;sModN=07.若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如：由于7396=86^2，且7+3+9+6=25=5^2，则称7396是“四位双平方数”。求最小的“四位双平方数”。程序中有行一有错误。改正错误，使它能输出正确的结果。1521PrivateSubCommand1_Click()22\n计算机等级考试Forx=1000To9999a=Int(x/1000)b=Int(x/100)-a*10c=Int(x/10)-a*100-b*10d=x-a*1000-b*100-c*10IfSqr(x)=Int(Sqr(x))AndInt(Sqr(a+b+c+d))=Sqr(a+b+c+d)ThenPrintxExitForEndIfNextxEndSub答案：Int(Sqr(a+b+c+d))=Sqr(a+b+c+d)1.程序功能：求10的阶乘，程序中有一行有错误。改正错误，使它能输出正确的结果。3628800PrivateSubCommand1_Click()Printfun(10)EndSubPrivateFunctionfun(nAsInteger)AsLongIfn>0Thenfun=1Else:fun=n*fun(n-1)EndIfEndFunction答案：n=02.程序功能：求整数2310的所有质因子（即所有为素数的因子）之和。程序的Isprime()函数中有一行有错误。改正错误，使它能输出正确的结果。28PrivateSubCommand1_Click()s=0k=2310Forj=2TokIf(kModj=0AndIsprime(j))Thens=s+jEndIfNextjPrintsEndSubPrivateFunctionIsprime(n)DimflagAsBooleanflag=TrueIfn=2ThenIsprime=TrueElseFori=2Ton-1IfnModi=0Thenflag=FalseExitForEndIfNextiIsprime=trueEndIfEndFunction答案：flag3.计算两个数的最大公约数。程序中有一行有错误，改正错误，使程序能输出正确结果。27PrivateSubCommand1_Click()Printfun(1107,2889)EndSubPrivateFunctionfun(u,v)AsIntegerWhile(v<>0)t=uModvu=vv=tWendfun=vEndFunction答案：t;同时将现有的t=uModv分移到while之前和v=t之后。（不只一个错误）4.程序功能：建立一个过程来计算12的阶乘，程序中有错误，改正错误，使程序能输出正确的结果。479001600PrivateSubCommand1_Click()Calln(12)EndSubPublicSubn(aAsInteger)DimiAsIntegerDimfAsintegerf=0Fori=1Toaf=f*iNextiPrintfEndSub答案：long;f=15.程序功能：计算两个数的最小公倍数。程序中有两行有错误，改正错误，使程序能输出正确结果。26288PrivateSubCommand1_Click()Printfun(248,848)EndSubPrivateFunctionfun(u,v)t=uDoWhiletModu<>0OrtModv<>0t=t+uLoopfun=uEndFunction答案：fun=t22计算机等级考试33\n计算机等级考试10、VisualBasic编程题分类稿题型一：根据文字提示，找出数列的组成规律，即如何由已知项求出下一项，这样，经过若干次更迭，可求出数列中任何项，也可以求出前若干项的和。1、已知数列前3项为0、0、1，以后每项为前3项的和，求此数列的第36项。（334745777）33计算机等级考试方法一：PrivateSubForm_Click()Dima&,b&,c&,d&,n%a=0:b=0:c=1Forn=1To33Step1d=aa=bb=cc=a+b+dNextnPrintdEndSub方法二：PrivateSubForm_Click()Dimd(36)AsDouble,nAsIntegerd(1)=0d(2)=0d(3)=1Forn=4To36d(n)=d(n-1)+d(n-2)+d(n-3)NextnPrintd(36)EndSub33计算机等级考试2、计算y=1+2/3+3/5+4/7+…+n/(2*n-1)(n=50),要求：按四舍五入的方式精确到小数点后第二位。(26.47)PrivateSubForm_Click()DimsAsSingle,nasintegers=0Forn=1To50s=s+n/(2*n-1)NextnPrintRound(s,2)EndSub3、求数列2/1,3/2,5/3,8/5,……，的前10项的和。（16.47991）33计算机等级考试方法一：privatesubform_click()dimI%,a%,b%,t%,s!a=2:b=1forI=1to10step1s=s+a/bt=aa=a+bb=tnextIprintsendsub方法二：PrivateSubForm_Click()Dimd(10)AsSingle,nAsInteger,sAsSingled(1)=2/1s=2/1Forn=2To10d(n)=1+1/d(n-1)s=s+d(n)NextnPrintsEndSub33计算机等级考试4、编程求fibonacci数列：1，1，2，3，5，8……的前30个数的和。(2178308)33计算机等级考试方法一：PrivateSubForm_Click()Dima&,b&,c&,s&a=1:b=1:s=2Fori=3To30c=a+bs=s+ca=bb=cnexti33\n计算机等级考试printsEndSub方法二：PrivateSubForm_Click()Dimd(30)AsDouble,nAsInteger,sAsDoubled(1)=1d(2)=1s=2Forn=3To30d(n)=d(n-1)+d(n-2)NextiPrintsEndsubNextnPrintsEndsub33计算机等级考试1、编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是26、之积是880。（4720）PrivateSubForm_Click()Dima%,b%Fora=0To6Forb=0To3Ifa+(a+b)+(a+2*b)+(a+3*b)=26Anda*(a+b)*(a+2*b)*(a+3*b)=880ThenPrinta^3+(a+b)^3+(a+2*b)^3+(a+3*b)^3+(a+4*b)^3EndIfNextbNextaEndSub2、猴子吃桃问题：猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。(1534)33计算机等级考试方法一：PrivateSubForm_Click()DimdayAsInteger,sumAsIntegerday=10:sum=1DoWhileday>1sum=(sum+1)*2day=day-1LoopPrintsumEndSub方法二：PrivateSubForm_Click()DimdayAsInteger,sumAsIntegerday=10:sum=1Forday=9To1Step-1sum=(sum+1)*2NextdayPrintsumEndSub33计算机等级考试3、我国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?（9）PrivateSubCommand1_Click()Dims&,n%n=0s=45600DoWhiles<45600*2s=s*1.09n=n+1LoopPrintnEndSub题型二：求某个范围内满足条件的数的和、积、个数：关键在于如何表示所谓的“条件”。1、编写程序，编写程序，求在10~1000之间所有能被4除余3，被7除余4，被9除余4的数的平方和。(1109620)PrivateSubForm_Click()33\n计算机等级考试Dims#,n%s=0Forn=10To1000IfnMod4=3AndnMod7=4AndnMod9=4Thens=s+n^2EndIfNextnPrintsEndSub1、编写程序，统计200~300之间的所有满足三个数字之积为24，三个数字之和为10的数的个数。（2）privatesubform_click()dimI%,a%,b%,c%,n%n=0方法二：a=i\100'百位b=(imod100)\10'十位c=iMod10'个位forI=200to300step1a=Int(i/100)‘百位b=int((I-a*100)/10)‘十位c=Imod10‘个位ifa*b*c=24anda+b+c=10thenn=n+1endifnextIprintnendsub2、编写程序，计算1000以内有多少个这样的数，其十位数为6且能被8整除。（15）PrivateSubForm_Click()Dimn%,i%,a%,b%n=0Fori=1To1000a=i\100b=(i-a*100)\10Ifb=6AndiMod8=0Thenn=n+1EndIfNextiPrintnEndSub3、"水仙花数"是指这样的数，其各位数字的立方和等于该数本身。编写程序求100至999的范围内有多少个水仙花数。（4）PrivateSubForm_Click()Dimi%,n%,a%,b%,c%n=0Fori=100To999a=i\100b=(i-a*100)\10c=iMod10Ifi=a^3+b^3+c^3Thenn=n+133\n计算机等级考试EndIfNextiPrintnEndSub1、编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。（110）PrivateSubForm_Click()Dimi%,n%,a%,b%,c%n=0Fori=1000To9999a=i\1000b=(i-a*1000)\100c=(i-a*1000-b*100)\10IfiMod8=0Anda+b=b+cThenn=n+1EndIfNextiPrintnEndSub2、所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，计算从1981年开始到3000年为止，共有多少个年号是回文数年号。（11）PrivateSubForm_Click()DimI%,a%,b%,c%,d%,n%ForI=1981To3000Step1a=Int(I/1000)b=Int((I-a*1000)/100)c=Int((I-a*1000-b*100)/10)d=IMod10Ifa=dAndb=cThenn=n+1EndIfNextIPrintnEndSub3、计算在0至99的范围内有多少个数，其每位数的乘积大于每位数的和。（63）PrivateSubForm_Click()Dimi%,n%,a%,b%n=0Fori=0To99a=i\10b=iMod10Ifa*b>a+bThenn=n+1EndIfNextiPrintn33\n计算机等级考试EndSub1、有一个三位数满足下列条件:(1)三位数字各不相同;(2)此数等于它的各位数字的立方和。PrivateSubForm_Click()Dimi%,n%,a%,b%,c%n=0Fori=100To999a=i\100b=(i-a*100)\10c=iMod10Ifa<>bAndb<>canda<>cAnda^3+b^3+c^3=iThenn=n+1EndIfNextiPrintnEndSub题型三：用“穷举法”将所有可能的结果组合都考虑到，然后从这些结果组合中根据给定条件选择出满足题目要求的结果组合。1、求方程8x－5y=3在|x|<=150,|y|<=200内的(1)整数解的组数;(50)(2)|x|*|y|的最大值;(24676)PrivateSubForm_Click()Dimx%,y%,n%,max&n=0:max=1Forx=-150To150Fory=-200To200If8*x-5*y=3Thenn=n+1IfAbs(x)*Abs(y)>maxThenmax=Abs(x)*Abs(y)EndIfEndIfNextyNextxPrintn,maxEndSub2、把50元钱分成一元、二元和五元的纸币且纸币张数共为20张的分法有多少种？（注：在兑换中，一元、二元、五元的纸币张数可以为0）PrivateSubForm_Click()Dimi%,j%,k%,n%n=0Fori=0To20Forj=0To20Fork=0To20If1*i+2*j+5*k=50Andi+j+k=20Thenn=n+1EndIf33\n计算机等级考试NextkNextjNextiPrintnEndSub1、百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。（3）PrivateSubForm_Click()Dimi%,j%,k%,n%n=0Fori=1To100Forj=1To100Fork=1To100If5*i+3*j+k/3=100Andi+j+k=100Thenn=n+1EndIfNextkNextjNextiPrintnEndSub2、求共有几组i、j、k符合算式ijk+kji=1534，其中i、j、k是0~9之间的一位整数。（5）privatesubform_click()Dimi%,j%,k%,n%n=0fori=0to9forj=0to9fork=0to9ifi*100+j*10+k+k*100+j*10+i=1534thenn=n+1endifnextknextjnextiprintnendsub3、有30个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？（9）PrivateSubForm_Click()Dimi%,j%,k%,n%n=0Fori=1To30Forj=1To30Fork=1To30If3*i+2*j+k=50Andi+j+k=30Thenn=n+133\n计算机等级考试EndIfNextkNextjNextiPrintnEndSub1、求方程9x+4y=1000的正整数解的组数以及|x-y|的最大值。（27，237）PrivateSubForm_Click()Dimx%,y%,n%,max&n=0:Max=0Forx=1To111Fory=1To250If9*x+4*y=1000Thenn=n+1IfAbs(x-y)>MaxThenMax=Abs(x-y)EndIfEndIfNextyNextxPrintn,MaxEndSub7、有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值多少钱？（23）题型四：也是求某范围内满足条件的数的和，但不能遍历给定范围的所有数，因为题目要求在满足另一条件时强制结束循环。1、求1到5000之间的能被5整除的前若干个偶数之和，直到和大于500为止。（550）33计算机等级考试方法一：PrivateSubForm_Click()Dims%,x%s=0Forx=2To5000Step2IfxMod5=0Thens=s+xEndIfIfs>500ThenExitForEndifNextxPrintsEndSub方法二：PrivateSubForm_Click()Dims%,x%s=0x=1DoWhiles<=500IfxMod5=0AndxMod2=0Andx<=5000Thens=s+xEndIfx=x+1LoopPrintsEndSub33计算机等级考试2、已知：S=1+3+5+7+9+…，求S不大于750的最大值。（729）33计算机等级考试方法一：PrivateSubForm_Click()Dims%,x%s=1x=1DoWhiles<=750x=2+xs=s+x33\n计算机等级考试Loops=s-xPrintsEndSub方法二：PrivateSubForm_Click()Dims%,x%s=0x=1DoWhile1'1恒为trues=s+xIfs>750Thens=s-x's此时已经>750,必须减去刚加上去的xExitDo'跳出dowhile…loop循环EndIfx=x+2LoopPrintsEndSub33计算机等级考试1、已知：S=2+4+8+16+32+…，求S不大于1500的最大值。（1022）PrivateSubForm_Click()Dims%,x%s=2x=2DoWhiles<=1500x=2*xs=s+xLoops=s-xPrintsEndSub题型五：完全平方数弄清楚完全平方数所具有的特征，再将此特征作为选择语句的条件对指定范围内的数进行判断。1、统计1000~9999之间的完全平方数的个数，如：25=5^2，25就是一个完全平方数。（68）33计算机等级考试方法一：PrivateSubForm_Click()Dimi%,n%,j%n=0Fori=1000To9999Forj=30To100Ifi=j*jThenn=n+1EndIfNextjNextiPrintnEndSub方法二：PrivateSubForm_Click()Dimi%,n%n=0Fori=1000To9999IfSqr(i)=Int(Sqr(i))Thenn=n+1EndIfNextiPrintnEndSub33计算机等级考试2、统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1位与第3位数字之和为12，第2位与第4位数字之积为24。（1）PrivateSubForm_Click()Dimi%,n%方法二：a=i\1000'千位b=i\100mod10'百位c=i\10mod10'十位d=imod10'个位n=0Fori=1000To9999a=i\100033\n计算机等级考试b=(i-1000*a)\100c=(i-1000*a-100*b)\10d=iMod10IfSqr(i)=Int(Sqr(i))Anda+c=12Andb*d=24Thenn=n+1EndIfNextiPrintnEndSub题型六：与因子有关的问题，需要用双重循环来解决。1、求[100,200]间有奇数个不同因子的整数的个数。（5）PrivateSubForm_Click()m=0‘保存有奇数个不同因子的整数的个数Fori=100To200n=0‘保存i的不同因子的个数Forj=1ToiIfiModj=0Thenn=n+1EndIfNextjIfnMod2=1Then‘判断i的不同因子的个数是否是奇数m=m+1EndIfNextiPrintmEndSub2、求[200,300]之间的有奇数个不同因子的最大整数。（289）33计算机等级考试方法一：PrivateSubForm_Click()Dimm%,i%,n%,j%,max%m=0:Max=1Fori=200To300n=0Forj=1ToiIfiModj=0Thenn=n+1EndIfNextjIfnMod2=1ThenMax=iEndIfNextiPrintMaxEndSub方法二：PrivateSubForm_Click()Dimi%,j%,n%Fori=300To200step-1n=0Forj=1ToiIfiModj=0Thenn=n+1EndIfNextjIfnMod2=1ThenPrintiExitForEndIfNextiEndSub33计算机等级考试3、已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。问[100,300]之间有多少个这样的数。（19）33\n计算机等级考试PrivateSubForm_Click()Dimm%,i%,n%,j%m=0Fori=100To300n=0Forj=1ToiIfiModj=0Thenn=n+1EndIfNextjIfiModn=0Thenm=m+1EndIfNextiPrintmEndSub1、一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出400以内的所有完数之和。(34)PrivateSubForm_Click()Dims%,i%,t%,j%s=0'保存完数的和Fori=1To400t=0'保存i的所有小于它本身的因子之和Forj=1Toi-1IfiModj=0Thent=t+jEndIfNextjIft=iThen'判断i是否符合完数的条件s=s+iEndIfNextiPrintsEndSub其他：关键在于弄清楚要选择出来的数所具备的特征。1、[3，500]内所有素数之和。（21534）33计算机等级考试方法一：PrivateSubForm_Click()dimi%,s%s=0‘保存素数的和fori=3to500forj=2toi-1‘若内循环正常结束，说明i是素数，此时j的值为i；否则i不是素数，此时j的值小于等于i-1ifimodj=0thenexitforendifnextjifj=ithen‘根据j的取值，判断i是否为素数s=s+iendifnextiprintsendsub33\n计算机等级考试方法二：PrivateSubForm_Click()Dimi%,s%s=0'保存素数的和Fori=3To500n=0'n用来统计i的因子的个数Forj=2Toi-1IfiModj=0Thenn=n+1EndIfNextjIfn=0Thens=s+iEndIfNextiPrintsEndSub33计算机等级考试1、求[1，1000]之间有多少个同构数。同构数是这样一个数，它出现在它的平方数的右侧，例如：5的平方是25，25的平方是625，故5和25都是同构数。(7)Privatesubform_click()Dimi&,n%n=0Fori=1to1000j=i*iIfi=(jmod10)ori=(jmod100)ori=(jmod1000)then‘i有可能为1位数、2位数、3位数,所以三个条件中只要满足一个条件即可。n=n+1EndifNextiPrintnEndsub3、编写程序，求出3到200之间的所有非偶数非素数的数的个数。（54）PrivateSubForm_Click()Dims%,n%,i%s=0Forn=3To200Step2Fori=2Ton-1IfnModi=0Thens=s+1ExitFor'i是n的一个因子，所以n是非素数，exitfor调出内层循环，去取下一个nEndIfNextiNextnPrintsEndSub原始稿36计算机等级考试1.编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是0~9之间的一位整数。62.编写程序，求四位数的偶数中，所有各位数字之和是15的倍数的数的和。15923763.编写程序，求三位数的偶数中，所有各位数字之和是15的倍数的数的和。204544.编写程序，求三位数的奇数中，所有各位数字之和是15的倍数的数的和。197315.编写程序，求三位数的奇数中，所有各位数字之和是12的倍数的数的和。202926.编写程序，求三位数的奇数中，所有各位数字之和是12的倍数的数的个数。387.编写程序，求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。12985158.编写程序，求三位数的偶数中，所有各位数字之和是15的倍数的数的个数。349.编写程序，求在四位数的偶数中，所有各位数字之和是30的倍数的数的和。28884010.编写程序，求1到5000之间的能被5整除的前若干个偶数之和，当和值大于500时退出，输出该和值。55011.编写程序，求在3000以内能被17或者23整除的正整数的个数。29912.编写程序，求在1000以内能被17或者23整除的正整数的个数。9913.一个数如果刚好与它所有的因子之和相等，则称该数为一个"完数"，如：6=1+2+3，则6就是一个完数。求出200到500之间所有的完数之和。49614.编写程序，求在5000以内能被17或者23整除的正整数的个数。49915.36\n计算机等级考试一个数如果刚好与它所有的因子之和相等，则称该数为一个"完数"，如：6=1+2+3，则6就是一个完数。求出1000以内的所有的完数之和。5301.编写程序，求四位数的偶数中，所有各位数字之和是15的倍数的数的个数。3062.一个数如果刚好与它所有的因子之和相等，则称该数为一个"完数"，如：6=1+2+3，则6就是一个完数。求出1000以内的完数的个数。33.已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。3347457774.一个数如果刚好与它所有的因子之和相等，则称该数为一个"完数"，如：6=1+2+3，则6就是一个完数。求出10000以内的完数的个数。45.编写程序，求四位数的偶数中，所有各位数字之和是24的倍数的数的个数。1876.一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出400以内的所有完数之和。347.编写程序，求四位数的偶数中，所有各位数字之和是24的倍数的数的和。12983288.编写程序，计算在0~50的范围内有多少个数，其每位数的乘积大于每位数的和。239.编写程序，求出1~7000以内能被3或者7整除的数的个数。300010.编写程序，计算在0~50的范围内有多少个数，其每位数的乘积小于每位数的和。2611.编写程序，求出1~3000以内能被3或者5整除的数的个数。140012.用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为50枚，问共有多少种换法？(注：在兑换中，一分、两分或五分的硬币数可以为0枚)1313.编写程序，求出1~5000以内能被3或者7整除的数的个数。214214.用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为30枚，问共有多少种换法？(注：在兑换中，一分、两分或五分的硬币数可以为0枚)415.编写程序，求出1~6000以内能被3或者5整除的数的个数。280016.用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为60枚，问共有多少种换法？(注：在兑换中，一分、两分或五分的硬币数可以为0枚)1117.把18元钱分成一元、二元和五元的纸币且纸币张数共为10张的分法有多少种？（注：在兑换中，一元、二元、五元的纸币张数可以为0）318.把50元钱分成一元、二元和五元的纸币且纸币张数共为20张的分法有多少种？（注：在兑换中，一元、二元、五元的纸币张数可以为0）419.编写程序，求出1~4000以内能被3或者11整除数的个数。157520.编写程序，求出100到500之间同时满足除5余4和除7余2条件的数的个数。1221.编写程序，求出100到500之间同时满足除5余4和除7余2条件的数的和。367822.编写程序，求四位数的奇数中，所有各位数字之积（且不为0）是125的倍数的数的和。16109523.编写程序，求出100到400之间同时满足除3余2和除5余3条件的数的个数。2024.编写程序，求四位数的奇数中，所有各位数字之积（且不为0）是60的倍数的数的和。345625425.编写程序，求出100到400之间同时满足除3余2和除5余3条件的数的和。511026.编写程序，求出100到200之间同时满足除3余2和除5余3条件的数的个数。627.所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100-900之间的所有回文数的个数。8028.所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100-200的范围内所有回文数的和。146029.所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在100-900的范围内所有能被3整除的回文数的个数。2630.编写程序，求出1到300之间同时满足除3余2和除5余3条件的数的个数。2031.编写程序，求出100到500之间同时满足除3余2和除5余3条件的数的个数。2632.所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在100-900的范围内所有能被3整除的回文数的和。1298733.编写程序，求出1到400之间同时满足除3余2和除5余3条件的数的个数。2734.编写程序，求出100到600之间同时满足除3余2和除5余3条件的数的个数。3335.编写程序，求出1到600之间同时满足除3余2和除5余3条件的数的个数。4036.编写程序，已知：S=2+4+8+16+32+…，求S不大于2500的最大值。204637.有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值多少钱？2338.有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求兔值多少钱？2939.“水仙花数”是指这样的数，其各位数字的立方和等于该数本身。编写程序求100至400的范围内有多少个水仙花数。340.编写程序，求在四位数的偶数中，所有各位数字之积（且不为0）是30的倍数的数的和。341520641.编写程序，求在四位数的偶数中，所有各位数字之积（且不为0）是18的倍数的数的和。863859642.编写程序，求在四位数的偶数中，所有各位数字之和是6的倍数的数的和。413524843."水仙花数"是指这样的数，其各位数字的立方和等于该数本身。编写程序，计算从100年开始到2000年为止，共有多少个年号是水仙花数年号。444.所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，计算从1981年开始到3000年为止，共有多少个年号是回文数年号。1145.所谓素数是指这样的自然数，除1和它本身外不再有其它因子。编写程序，计算从1981年开始到3000年为止，我们将遇到多少个素数年号。13146.编写程序，计算[1，1000]以内有多少个这样的数，该数既能被6整除又能被8整除。4147.编写程序，求出3到200之间的所有非偶数非素数的数之和。577448.编写程序，求出3到100之间的所有非偶数非素数的数之和。144149.编写程序，求出3到100之间的所有非偶数非素数的数的个数。2550.编写程序，求出3到200之间的所有非偶数非素数的数的个数。5451.36\n计算机等级考试编写程序，计算在0至99的范围内有多少个数，其每位数的乘积大于每位数的和。631.编写程序，计算在0至99的范围内有多少个数，其每位数的乘积小于等于每位数的和。372."水仙花数"是指这样的数，其各位数字的立方和等于该数本身。编写程序求100至500的范围内有多少个水仙花数。43.编写程序，求在10~1000之间所有能被4除余3，被7除余5，被9除余2的数之和。17004.编写程序，求在200~1000之间所有能被4除余3，被7除余5，被9除余2的数之和。16535.编写程序，计算1000以内有多少个这样的数，其个位数为6且该数能被9整除。116.编写程序，计算1000以内有多少个这样的数，其十位数为6且能被8整除。157.编写程序，求出1到5000之间的能被7整除的前若干个数之和，当和值大于等于1500时退出并输出和值。16178."水仙花数"是指这样的数，其各位数字的立方和等于该数本身。编写程序求100至999的范围内有多少个水仙花数。49.编写程序，求出1到3000之间的能被3整除的前若干个数之和，当和值大于600时退出并输出和值。63010.一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，求出600以内的所有完数的平方和。24683611.编写程序，求出1到2000之间的能被9整除的前若干个数之和，当和值大于500时退出并输出和值。59412.编写程序，求在10~1000之间所有能被4除余3，被7除余4，被9除余4的数之和。178013.编写程序，求出1到6000之间的能被5整除的前若干个偶数之和，当和值大于650时退出并输出和值。66014.编写程序，求在200~1000之间所有能被4除余3，被7除余4，被9除余4的数之和。171315.编写程序，求出1到7000之间的能被5整除的前若干个偶数之和，当和值大于500时退出并输出和值。55016.编写程序，求在200~1000之间所有能被5除余3，被7除余5，被9除余7的数之和。188417.编写程序，求出1到4000之间的能被5整除的前若干个偶数之和，当和值大于400时退出并输出和值。45018.编写程序，求在500~1000之间所有能被5除余3，被7除余5，被9除余7的数的平方和。128363319.编写程序，求出1到8000之间的能被5整除的前若干个偶数之和，当和值大于750时退出并输出和值。78020.编写程序，求在10~1000之间所有能被4除余3，被7除余4，被9除余4的数的平方和。110962021.一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3。求出10000以内的所有完数之和。865822.一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，求出1000以内的所有完数的平方和。24683623.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。11024.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是18的倍数，且D=6,A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。1025.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是16的倍数，且B=8，,A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。526.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是18的倍数，且C=7，A+B=C+D，即第1位数加上第2位数等于第3位数加上第4位数。927.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+D=B+C，即第1位数加上第4位数等于第2位数加上第3位数。7728.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是15的倍数，且A+D=B+C，即第1位数加上第4位数等于第2位数加上第3位数。4529.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是9的倍数，且A=B+C，即第2位数加上第3位数等于第1位数。6430.编写程序，求在200~2000之间所有能被4除余2，被7除余3，被9除余5的数之和。7910编写程序，求在10~1000之间所有能被4除余2，被7除余3，被9除余5的数之和。200031.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是11的倍数，且A=B+C，即第2位数加上第3位数等于第1位数。4932.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+C=B，即第1位数加上第3位数等于第2位数。5733.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是5的倍数，且A+D=B+C，即第1位数加上第4位数等于第2位数加上第3位数。12334.编写程序，求一正整数等差数列的前六项的平方和，该数列的前四项之和是26、之积是880。69935.编写程序，统计200~400之间的所有满足三个数字之积为42，三个数字之和为12的数的个数。436.编写程序，统计200~300之间的所有满足三个数字之积为24，三个数字之和为10的数的个数。237.编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1位与第3位数字之和为10，第2位与第4位数字之积为12。238.已知一个数列的前3个数为0，1，2，以后每个数为前3个数的和，编写程序求此数列的第30项。2454865539.编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1位与第3位数字之和为12，第2位与第4位数字之积为24。140.已知一个数列的前3个数为0，1，1，以后每个数为前3个数的和，编程序求此数列的第20项。3589041.编写程序，求一正整数等差数列的前六项的和，该数列前四项之和是26，四项之积是880。5742.已知一个数列的前3个数为0，1，2，以后每个数为前3个数的和，编程序求此数列的第25项。116622043.有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求羊值多少钱？17744.已知一个数列的前3个数为1，2，3，以后每个数为前3个数的和，编程序求此数列的第20项。10190245.有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求犬值多少钱？12146.已知一个数列的前3个数为0，1，2，以后每个数为前3个数的和，编程序求此数列的第35项。36\n计算机等级考试5167433781.编写程序，计算在[0，60]的范围内有多少个数，其每位数的乘积大于每位数的和。312.已知一个数列的前3个数为1，2，3，以后每个数为前3个数的和，编程序求此数列的第35项。9504392513.编写程序，求一正整数等差数列的前三项的和，该数列前四项之和是26、之积是880。154.已知一个数列的前3个数为3，4，5，以后每个数为前3个数的和，编程序求此数列的第28项。255274485.编写程序，求一正整数等差数列的前五项的和，该数列前四项之和是26、之积是880。406.已知一个数列的前3个数为3，4，5，以后每个数为前3个数的和，编程序求此数列的第33项。5373467397.编写程序，求一正整数等差数列的前三项的平方和，该数列前四项之和是26、之积是880。938.已知一个数列的前3个数为3，4，5，以后每个数为前3个数的和，编程序求此数列的第26项。75458569.编写程序，求一正整数等差数列的前五项的平方和，该数列前四项之和是26、之积是880。41010.编写程序，已知：S=2+4+8+16+32+…，求S不大于1500的最大值。102211.编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1、3位数字之和为6，第2、4位数字之积为24。112.编写程序，已知：S=2+4+8+16+32+…，求S不大于980的最大值。51013.有30个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？914.编写程序，已知：S=2+4+8+16+32+…，求S不大于3000的最大值。204615.有50个学生一起买小吃，共花钱100元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？2416.编写程序，已知：S=2+4+8+16+32+…，求S不大于5000的最大值。409617.编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是26、之积是880。472018.编写程序，已知：S=1+3+5+7+9+…，求S不大于750的最大值。72919.编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该数是一个完全平方数，且第1、2位数字之和为12，第3、4位数字之积为24。120.编写程序，已知：S=1+3+5+7+9+…，求S不大于1200的最大值。115621.编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该数是一个完全平方数，且其第1、2位数字之和为10，第3、4位数字之积为18。122.编写程序，已知：S=2+4+8+16+32+…，求S不大于9000的最大值。819023.编写程序，求四位数的奇数中，每位数字之和是15的倍数的数的和。153345924.编写程序，已知：S=1+3+5+7+9+…，求S不大于1300的最大值。129625.有40个学生一起买小吃，共花钱100元，其中每个大学生花5元，每个中学生花3元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？1426.编写程序，已知：S=1+3+5+7+9+…，求S不大于9000的最大值。883627.有36个学生一起买小吃，共花钱100元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？328.编写程序，已知：S=1+3+5+7+9+…，求S不大于1000的最大值。96129.有50个学生一起买小吃，共花钱200元，其中每个大学生花5元，每个中学生花3元，每个小学生花2元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？830.有50个学生一起买小吃，共花钱120元，其中每个大学生花4元，每个中学生花3元，每个小学生花2元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？931.有60个学生一起买小吃，共花钱100元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？1932.有50个学生一起买小吃，共花钱120元，其中每个大学生花4元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？1333.有20个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？434.编写程序，求[1，1000]既能被6整除又能被7整除的数的个数。2335.有48个学生一起买小吃，共花钱120元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？1136.编写程序，求[1，500]既能被3整除又能被5整除的数的个数。3337.编写程序，求[1，500]既能被6整除又能被7整除的数之和。277236