(完整word版)VB程序设计试题题库及答案

VB程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 笔试 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 题库一、选择题1下列常量中，是Integer类型常量的是（C）。A、123&B、-38844C、123%D、327682下面选项中()是字符连接运算符.（A）A、&B、AndC、%D、Mod3下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（B）。A、IDE是设计、调试、运行VB程序的工具。B、用户不能随意关闭IDE中的窗口。C、"窗体设计"窗口是用来设计应用程序界面（窗体）的。D、打开/关闭各窗口的命令主要在IDE的"视图"菜单中。4len(“程序设计vb”)=(C)。A、5B、2C、6D、105表达式15Mod4+13\5*2的值是DA、7B、0C、2D、46赋值语句A=123+Mid$(“123456”,3,2)执行后，A=（A）。A、157B、12334C、123D、"12334"7在一个语句内写多条语句时,用来分隔每条语句的符号是(C).A、,B、;C、:D、、8将逻辑型数据转换成整型数据时，转换规则是（D）。A、将True转换为1，将False转换为0B、将True转换为1，将False转换为-1C、将True转换为0，将False转换为-1D、将True转换为-1，将False转换为09表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).A、SINB、4^5C、3*4D、x+110如果x=2，则表达式x+1>2Orsin(x)>0.9And3>x+3的值（B）。A、不能计算B、TrueC、5D、False11随机产生[10，50]之间整数的正确表达式是（D）。A、Round(Rnd*50)B、Int(Rnd*40+10)C、Round(Rnd*51)D、10+Int(Rnd*41)12每建立一个窗体, 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 管理器窗口中就会增加一个(C).A、类模块文件B、工程文件C、窗体文件D、程序模块文件13INT(100*RND(1))产生的随机整数的闭区间是(B).A、[1,100]B、[0,99]C、[0,100]D、[1,99]14下列数据类型中,占用内存最小的是(D).A、IntegerB、SingleC、BooleanD、Byte15VisualBasic是一种(B)程序设计语言.A、过程式B、非过程式C、机器D、低级16函数Int(10*Rnd)是在(A)范围内的整数.A、[0,9]B、[0,1]C、[1,9]D、[1,10]17以下合法的一组VisualBasic用户标识符是（C）A、Sum和8abcB、a#x和PiC、ForLoop和TotalD、Const和DoWhile18函数Len(Str(Val("123.4")))的值为(B).A、5B、6C、8D、1119Int(198.555*100+0.5)/100的值为（B）A、199.6B、198.56C、200D、19820以下各表达式中,计算结果为0的是(A).A、FIX(12.4)+FIX(-12.6)B、CINT(12.4)+CINT(-12.6)C、INT(12.4)+INT(-12.6)D、FIX(13.6)+FIX(-12.6)21MsgBox()的正确语法是（D）。A、MsgBox(标题[， 提示 春节期间物业温馨提示小区春节期间温馨提示物业小区春节温馨提示春节物业温馨提示物业春节期间温馨提示 信息][，按钮类型])B、MsgBox(提示信息[，标题][，按钮类型])C、MsgBox(标题[，按钮类型][，提示信息])D、MsgBox(提示信息[，按钮类型][，标题])223>8-3OR10+2<=3*4AND5=2+3的结果是(C).A、10B、-3C、TrueD、False23表达式4+5\6*7/8Mod9的值是(D).A、7B、4C、6D、524设a=6,则执行x=IIf(a>5,-1,0)后,x的值为(D).A、5B、0C、6D、-125下面关于VB的叙述中，不正确的是（A）。A、用VB编写的程序可以在任何操作系统环境中运行。B、VB是面向对象的可视化的软件开发工具。C、VB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。D、VB是由美国Microsoft（微软）公司开发程序设计语言。26表达式16/4-2^5*8/4Mod5\2=(A)。A、4B、0C、-2D、-627声明符号常量应该用关键字(B).A、PrivateB、ConstC、StaticD、V26/ariant28下列数据类型中,占用内存最大的是(D).A、BooleanB、IntegerC、ByteD、Single29下列VB数据类型中，占用内存最少的是（D）。A、CurrencyB、IntegerC、BooleanD、Byte30RGB函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB(红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置(B)属性.A、Scroll和ChangeB、Max和MinC、Smallchange和LargeChangeD、Value31k=12.5，len(str(k))=(B)。A、4B、5C、3D、232表达式Abs(-5)*5\5/5的值是（D）A、1B、5C、-25D、2533产生[10,37]之间的随机整数的VisualBasic表达式是(C).A、Int(Rnd(1)*27)+11B、Int(Rnd(1)*28)+11C、Int(Rnd(1)*28)+10D、Int(Rnd(1)*27)+1034工具栏中的"启动"按钮的作用是(B).A、工程管理窗口B、运行一个应用程序C、打开被选中对象的代码窗口D、运行一个窗体35不需要编译，计算机便可直接执行的程序是（B）。A、C语言程序B、机器语言程序C、汇编语言程序D、VisualBasic语言程序36Val(“123ab（”)=D）。A、0B、不能转换C、1230D、12337表达式16/4-2^5*8/4MOD5\2的值为（A）A、4B、2C、14D、2038删除字符串前导和尾随空格的函数是(D).A、Rtrim()B、Ltrim()C、LcaseD、Trim()39下列表达式中,其值为0的是(C).A、15mod9B、7/9C、7\9D、7mod1540表达式Len("123程序设计ABC")的值是（B）A、17B、10C、14D、2041Int(-3.1)+round(-4.6)=（C）。A、-8B、-6C、-9D、-7、/、Mod、*等4个算术运算符中,优先级最低的是(A).A、ModB、/C、*D、\43下面正确的赋值语句是（D）。A、x=y=1B、x+2=y^2+2C、x+y=1D、x=y+z144Len("实践应用能力")的值是(A).A、6B、4C、不能确定D、845表达式Mid("SHANGHAI",6,3)的值是(C).A、ANGHB、SHAC、HAID、SHANGH46表达式25\3mod3*Int(4.5)的值为(B).A、1B、8C、4D、547下面变量名称正确的是（C）。A、x□1B、integerC、x_1_yD、x,y48不能正确表示条件"两个整型变量A和B之一为0,但不能同时为0"的布尔表达式(D).A、A*B=0ANDA<>BB、(A=0ORB=0)ANDA<>BC、A=0ANDB<>0ORA<>0ANDB=0D、A*B=0AND(A=0ORB=0)49如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是(C).A、0.01*int(100*(x+0.05))B、0.01*int(x+0.05)C、0.01*int(100*(x+0.005))D、0.01*int(x+0.005)50表达式X+1>X是(D).A、非法表达式B、字符表达式C、算术表达式D、关系表达式51．VisualBasic的编程机制是(B).A、面向图形B、事件驱动C、面向对象D、可视化52下面4项中合法的变量名是(A).A、X_yzB、X-YC、123abcD、integer53以下可以作为VB变量名的是(C).A、COS(X)B、X(-1)C、CO1D、SIN54表达式(7\3+1)*(18\5-1)的值是(B).A、8.76B、6C、6.67D、7.855下列哪个变量名的取法是不正确的(C).A、sTmeB、T_12C、T12%D、T_Temp56可以同时删除字符串前导和尾部空白的函数是(B).A、LtrimB、TrimC、MidD、Rtrim57VB窗体文件的扩展名是(A).A、FRMB、VBWC、VBPD、BAS58一个具有图形用户界面的“ 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 EXE”工程必须包含的文件是（A）。A、工程文件和窗体文件。B、窗体文件和标准模块文件。C、工程文件和资源文件。D、工程文件和标准模块文件。59数学式3≤X＜5写成VB表达式是（A）。A、3<=XandX<5B、X>=3and5”A”andUcase$(C$)<”Z为”true时，则C$是_（A）______。A、字母B、大写字母C、小写字母D、不一定64表达式(-1)*Sgn(-100+Int(Rnd*100))的值是(A).A、1B、-1C、随机数D、065表达式printLen(trim("abcd")&"123")的结果是(D)A、abcdB、9C、123D、766Rnd函数不可能产生的值是.（B）A、0B、1C、0.1234D、.0000567下面变量名称不正确的是（B）。A、x1B、1xC、x1yD、x_168下列哪个变量名的取法是不正确的(B).A、T_TempB、T32#C、T32D、TName69选中复选框控件时,value属性的值,可以是(C).A、TrueB、falseC、1D、070程序运行时，如果复选框被用户选中，那么其Value属性值为（A）。A、1B、FalseC、TrueD、071程序运行时，如果单选框被用户选中，那么其Value属性值为（D）。A、0B、1C、FalseD、True72下列()是窗体文件的扩展名.（A）A、frmB、clsC、dllD、bas73要使标签能透出窗体的背景,必须设置(C)属性.A、AppearanceB、BorderStyleC、BackStyleD、BackColor74当窗体被关闭时，系统自动执行该窗体的（A）事件过程。A、UnloadB、LoadC、LostFocusD、Click75要使窗体运行时充满整个屏幕，应设置其（D）属性。A、AutoRedrawB、WidthC、HeightD、WindowState76要使得窗体一开始运行就充满整个屏幕则须设置(A)属性.A、windowstateB、borderstyleC、appearanceD、drawmode77要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为(A).A、3B、0C、1D、278决定控件上文字的字体、字形、大小及效果的属性是(C).A、TEXTB、CAPTIONC、FONTD、NAME79在窗体设计器窗口双击窗体的任何地方,可以打开的窗口是(A).A、代码窗口B、以上3个选项都不对C、工程管理窗口D、属性窗口80下列关于属性设置的叙述错误的是(D).A、一个控件具有什么属性是VB预先设计好的,用户可以改变B、一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置C、一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值D、一个控件具有什么属性是VB预先设计好的,用户不能改变81MaxLength属性可以设置文本框可以输入与显示的最多字符个数,当其值为0时表示(D).A、不允许输入字符B、以上都不正确C、不允许输入任何字符,但显示不限制D、输入的字符长度不限82下面(C)控件不具有Caption属性.A、标签框B、命令按钮C、文本框D、单选钮83要使标签能够显示所需要的东西,则在程序中应设置其哪一属性的值(D).A、NameB、TextC、AutoSizeD、Caption84程序运行时，要限制文本框的输入长度，那么应设置（A）。A、MaxLengthB、EnabledC、LockedD、MultiLine85事件的名称(D).A、是不固定的B、有的由用户定义,有的由系统定义C、都要由用户定义D、都是由系统预先定义86若设置窗体的BorderStyle=1，则在程序运行时窗体的行为是（A）。A、窗体没有最大化和最小化按钮，窗体可以移动，但不能改变大小。B、窗体有最大化和最小化按钮，窗体既可以移动，也可以改变大小。C、窗体没有最大化和最小化按钮，窗体既不能移动，也不能改变大小。D、窗体有最大化和最小化按钮，窗体可以移动，但不能改变大小。87如果要设置窗体的标题栏,应选择以下那种属性(D).A、TipsB、NameC、TextD、Caption88要把一个命令按钮设置成无效,应设置其哪一属性值(D).A、VisibleB、DefaultC、CancelD、Enabled89将焦点主动设置到指定的控件或窗体上,应采用(C)方法.A、SetTextB、GetGataC、SetFocusD、SetData90要使标签控件的大小随Caption属性值而自动调整，应设置其（B）属性。A、AlignmentB、AutoSizeC、WidthD、Caption91能够改变窗体边框线类型的属性是(C).A、FontStyleB、BorderC、BorderStyleD、BackStyle92要使Form1窗体的标题栏显示"欢迎使用VB",以下语句正确的是(A).A、Form1.Caption=〞欢迎使用VB〞B、Form1.Caption="欢迎使用VB"C、Form1.Caption=欢迎使用VBD、Form1.Caption=ˊ欢迎使用VBˊ93文本框所没有的属性是(D).A、VisibleB、BackColorC、EnabledD、Caption94在VB环境中,工程文件的扩展名是(D).A、.frxB、.basC、.frmD、.vbp95如果要在命令按钮上显示图形文件,应设置命令按钮的(B).A、Style属性和Graphics属性B、Style属性和Picture属性C、Picture属性D、Graphics属性96要使鼠标指向“命令按钮”时，出现一个提示文本，应设置其（A）属性。A、ToolTipTextB、StyleC、PictureD、Caption97不论何控件,共同具有的属性是(B).A、ForeColorB、NameC、CaptionD、Text98要使标签控件标题内容居中显示，应设置其（B）属性。A、ToolTipTextB、AlignmentC、BackStyleD、Appearance99使命令按钮获得“焦点”的方法是（A）。A、SetFocusB、MoveC、RefreshD、LinkSend100改变控件在窗体中的上下位置应修改控件的()属性.CA、HeightB、WideC、TopD、Left101、语句PRINT"SGN(-26)=";SGN(-26)的输出结果为（C）A、SGN(-26)=-26B、SGN(-26)=26C、SGN(-26)=-1D、SGN(-26)=+1102、若要使得文本框的初始值为空,则应更改文本框的属性是（A）A、textB、indexC、nameD、caption103、要使得标签能自动扩充以满足字体大小则可对其(C)属性进行设置.A、tagB、alignmentC、autosizeD、usemnemonic104、为了把焦点移到某个指定的控件,所使用指定的控件的(C)方法.A、VisibleB、RefreshC、SetFocusD、GetFocus105、如果要给字体加删除线,可以选择下列那种属性(C).A、FontSizeB、FontNameC、FontStrikethruD、FontUnderLine106、要设置标签控件字体的大小，应设置其（A）属性。A、FontB、HeightC、WidthD、Caption107、每个窗体对应一个窗体文件,窗体文件的扩展名是(A).A、.frmB、.vbpC、.basD、.cls108、标签控件最重要的属性是(A).A、captionB、textC、nameD、width109、(A)对象不具有Caption属性.A、TimerB、FormC、OptionD、Label110、一个窗体上有三个文本框，按放置顺序分别是：Text1，Text2，Text3，若使程序运行时Text3首先获得“焦点”，那么，应设置其（B）属性值为0。A、IndexB、TabindexC、TagD、Top111、如果要改变窗体的标题,则需要设置的属性是(D).A、BorderStyleB、NameC、BackColorD、Caption112、欲使某命令按钮失效,应修改命令按钮的(C)属性.A、EnableB、CaptionC、EnabledD、Visible113、为使文本框显示滚动条,必须首先设置的属性是(D).A、AutosizeB、ScrollbarsC、AlignmentD、Mulitiline114、改变控件在窗体中的左右位置应修改该控件的(B)属性.A、RightB、LeftC、WidthD、Top115、要使标签中显示的文本靠右显示,则应将其Alignment属性设置为(A).A、1B、3C、2D、0116、当设置文本框的ScrollBars=Both而文本框确没有显示出滚动条，原因是（A）。A、文本框的MultiLine=FalseB、文本框中没有内容C、文本框的MultiLine=TrueD、文本框的Locked=True117、要使文本框获得输入焦点,则应采用文本框控件的哪个方法(D).A、KeyPressB、LostFocusC、GodFocusD、SetFocus118、假设窗体上有一个标签控件（Label1）和一个时钟控件（Timer），要想每隔1秒钟，在标签Label1上显示一次系统当前时间，应在（A）事件过程中编写实现该功能的程序。A、PrivateSubTimer1_Timer()B、PrivateSubLabel1_DblClick()C、PrivateSubLabel1_Change()D、PrivateSubLabel1_Click()119、如果设计时在属性窗口将命令按钮的(B)属性设置为False,则运行时按钮从窗体上消失.A、DisabledPictureB、VisibleC、DefaultD、Enabled120、一个窗体上有两个文本框，按放置顺序分别是：Text1，Text2，要想在Text1中按“回车”键，“焦点”自动转到Text2上，应在（D）事件过程中编写程序。A、PrivateSubText1_Click()B、PrivateSubText2_GotFocus()C、PrivateSubText1_LostFocus()D、PrivateSubText1_KeyPress(KeyAsciiAsInteger)121、文本框中选定的内容,由下列(A)属性反映.A、SeltextB、CaptionC、sellenghtD、Text122、下面4项中不属于面向对象系统三要素的是(A).A、变量B、事件C、方法D、属性123、若要使命令按钮不可操作,要设置的属性是(A).A、EnabledB、VisibleC、CaptionD、BackColor124、文本框控件中将Text的内容全部显示为所定义的字符的属性项是(D).A、PasswordB、以上都不是C、需要编程来实现D、PasswordChar125、如果Print方法在窗体的Load事件过程中不起作用，原因是（A）属性值为false。A、AutoRedrawB、ControlBoxC、MoveableD、MaxButton126、inputBox函数返回值的类型为(C).A、变体B、数值C、字符串D、数值或字符串(视输入的数据而定)127、窗体的Caption属性的作用是(B).A、确定窗体的边界类型B、确定窗体的标题C、确定窗体的名称D、确定窗体的字体128、欲使标签的内容自动换行,必须设置属性(A).A、WordWrapB、AutoSizeC、AlignmentD、left129、用来设置粗体字的属性是DA、FontItalicB、FontSizeC、FontNameD、FontBold130、Text1控件在运行时不可见,是设置下列(B)属性的结果.A、CancelB、VisibleC、ControlBoxD、Enabled131、若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的(D)属性.A、BORDERSTYLEB、BACKCOLORC、FORECOLORD、BACKSTYLE132、要使“命令按钮”在程序运行时不可见，可以将其（C）属性设置为False。A、CancelB、DefaultC、VisibleD、Enabled133、下列赋值语句正确的是(D).A、Text1.name=Text1.Name+Text2.NameB、Text1.Caption=Text1.Caption+Text2.CaptionC、Text1.Enable=Text1.Enable+Text2.EnableD、Text1.text=Text.text+Text2.text134、不具有输入数据功能的控件是(C)控件.A、列表框B、选项按钮C、窗体D、文本框135、程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是(A).A、LoadB、ClickC、MouseDownD、MouseUp136、列表框和组合框的（B）属性的值，表示其列表中项目的个数。A、ListIndexB、ListCountC、ListD、Text137、在定义静态数组时，关于下标的叙述中，正确的是（A）。A、省略下界，一般系统默认为：下界是0B、下标可以是字符型C、下标下界最小为：-32768，下标上界最大为：32767D、下标可以是变量。139、下面(C)对象在运行时一定不可见.A、LineB、OptionC、TimerD、Text140、若要清除列表框的所有内容,可用什么方法实现(C)A、以上均不可以B、ClsC、ClearD、RemoveItem141、要使时钟控件Timer1的Timer事件不起作用,以下正确的语句是(A)A、Timer1.Enabled=FalseB、Timer1.Index=0C、Timer1.Interval=1000D、Timer1.Visible=False142、为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为(D).A、300B、5C、500D、5000143、将数据项"China"添加到列表框(List1)中成为第一项应使用的语句是（A）。A、List1.AddItem〞China〞,0B、List1.AddItem〞China〞,1C、List1.AddItem0,〞China〞D、List1.AddItem1,〞China〞144、在程序代码中修改滚动条的value属性时将激发滚动条的(D)事件.A、scrollB、dragdropC、gotfocusD、change145、循环结构ForI%=-1to-17Step-2共执行(C)次.A、6B、5C、9D、8146、执行下面的程序段后,x的值为(D)x=5Fori=1To20Step2x=x+i\5NextiA、24B、23C、22D、21147、由Fork=10to0step3:nextk循环语句控制的循环次数是(D).A、-11B、12C、-10D、0148、下列方法中可用于列表框动态添加数据的是(D).A、removeitemB、addlistC、addD、additem149、组合框控件是将()组合成一个控件.(A)A、列表框控件和文本框控件B、复选框控件和选项按钮控件C、标签控件和列表框控件D、标签控件和文本框控件151、定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.(C)A、分B、微秒C、毫秒D、秒152、由Fork=35to0step3:nextk循环语句控制的循环次数是(A).A、0B、-10C、12D、-11153、在列表框中当前被选中的列表项的序号是由下列哪个属性表示(C).A、ListB、IndexC、ListIndexD、TabIndex154、设计动画通常使用时钟控件()来控制动画速度.(C)A、EnabledB、TimerC、IntervalD、Move155、为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择,则应将列表框的Multiselect属性设置为(C).A、1B、3C、2D、0156、引用列表框的最后一项应使用(D).A、List1.List(ListCount-1)B、List1.List(List1.ListCount)C、List1.List(ListCount)D、List1.List(List1.ListCount-1)157、列表框控件中的列表内容是通过(A)属性设置的.A、ListB、CaptionC、NameD、Text二、填空题：1.在窗体上已建立多个控件，如Text1，Label1，Command1，若要使程序一运行焦点就定位在Command1控件上，应对Command1控件的__tabindex___属性设置为____0____。2.日期表达式#2/24/02#-#2/12/02#的值为_12____。3.已知a=2.5，b=5.0，c=2.5，d=True，则表达式：a>=0ANDa+c>b+3ORNOTd的值是_false____。4.表示x是5的倍数或是9的倍数的逻辑表达式为__xmod5=0ORxmod9=0___。5.在刚建立工程时，使窗体上的所有控件具有相同的字体格式，就对__font___的属性进行设置。6.Int(-2.6)、Int(2.6)、Fix(-2.6)、Fix(3.6)的值分别是_-3____、___2__、__-2___、____3_。7.Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用_label___控件；若允许用户输入文本，则应使用_Textbox____控件。8.若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口form1，请对以下事件过程填空。PrivateSubCmdopen_Click()_form1.show____endsub9.表达式93\7Mod2^2的值是__1___。10.表达式Ucase(Mid(“abcdefgh”,3,4))的值是__CDEF___。11.当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性___窗口中，把此文本框的__text___属性设置成空白。12.已知a=3，b=4，c=5，表达式a>bandNotc>aOrc>bAndcaAndNotb3000Print"从1到:";i;"的和是";sEndSub【答案】ERROR1语句改为：（s=1）ERROR2语句改为:（i=i+1）ERROR3语句改为:（Loopuntils>3000）'------------------------------------------------'2.【程序改错】'------------------------------------------------'题目：以下程序段用于输出100-300的所有素数'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,iAsInteger,switAsIntegerForn=101To300Step2k=Int(Sqr(n))i=2'**********ERROR1**********swit=1'**********ERROR2**********Whileswit=0IfnModi=0Thenswit=1Else'**********ERROR3**********i=i-1EndIfWendIfswit=0ThenPrintn;EndIfNextnEndSub【答案】ERROR1语句改为：（swit=0）ERROR2语句改为:（Whilei<=kAndswit=0）ERROR3语句改为:（i=i+1）'------------------------------------------------'3.【程序改错】'------------------------------------------------'题目：以下程序段用于输出九九乘法表'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsIntegerClsPrintTab(30);"9*9table"Print:PrintPrint"*";Fori=1To9'**********ERROR1**********PrintTab(i*6);iNextiPrintForj=1To9Printj;"";Fork=1TojPrintTab(k*6);j*k;"";'**********ERROR2**********NextjPrint'**********ERROR3**********NextkEndSub【答案】ERROR1语句改为：（PrintTab(i*6);i;）ERROR2语句改为:（Nextk）ERROR3语句改为:（Nextj）'------------------------------------------------'4.【程序改错】'------------------------------------------------'题目：以下程序段用于计算5的N次方。'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,sAsLongn=InputBox("Inputn")'**********ERROR1**********k=0'**********ERROR2**********s=0DoWhilek<=ns=s*5k=k+1'**********ERROR3**********NextPrint"5的";"n次方是";sEndSub【答案】ERROR1语句改为：（k=1）ERROR2语句改为:（s=1）ERROR3语句改为:（Loop）'------------------------------------------------'5.【程序改错】''------------------------------------------------'题目：下面程序可输出如下图形：'*'***'*****'*******'*********'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimmAsInteger,nAsInteger,sAsString,iAsInteger,jAsIntegern=4m=1s="*"Fori=5To1Step-1'**********ERROR1**********PrintSpc(n)Forj=1To2*m-1Prints;NextjPrint'**********ERROR2**********n=n+1'**********ERROR3**********m=m-1NextiEndSub【答案】ERROR1语句改为：（PrintSpc(n);或：PrintSpc(i);）ERROR2语句改为:（n=n-1）ERROR3语句改为:（m=m+1）------------------------------------------------'6.【程序改错】'------------------------------------------------'题目：以下程序段用于输出100-300的所有素数'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,iAsInteger,switAsIntegerFori=101To299k=Int(Sqr(i)Forn=2TokIfiModn=0Then'**********ERROR1**********ExitEndIfNextn'**********ERROR2**********IfnkThen）ERROR3语句改为:（Nexti）五、程序填空1.以下程序功能是：从键盘输入三个整数，从其中找出最大值并输出到窗口：PrivateSubForm_Click()Dima%,b%,c%,max%a=Val(InputBox("请输入一个整数"))b=Val(InputBox("请输入一个整数"))c=Val(InputBox("请输入一个整数"))max=a'**********FILL1**********If________________Thenmax=bEndIfIfmax=0Then'**********FILL1**********If__________Thenr=Sqr(d)/(2*a)x1=p+rx2=p-rElsex1=px2=p'**********FILL2**********__________Print"x1=";x1,"x2=";x2'**********FILL3**********__________q=Sqr(-d)/(2*a)Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"EndIfEndSub【答案】FILL1空格处语句为：（d>0）FILL2空格处语句为:（EndIf）FILL3空格处语句为:（Else）3.以下程序功能是：从键盘输入学生分数，统计学生总人数和各分数段人数，即优秀（90-100）、良好（80-89）、中等（70-79）、及格（60-69）、不及格（60以下）的人数。PrivateSubForm_Click()Dimscore%,n1%,n2%,n3%,n4%,n5%msg="请输入分数（输入0-100以外数据结束）"msgtitile="输入数据"score=Val(InputBox(msg,msgtitle))'**********FILL1**********While__________total=total+1'**********FILL2**********SelectCase__________CaseIs>=90n1=n1+1CaseIs>=80n2=n2+1CaseIs>=70n3=n3+1CaseIs>=60n4=n4+1CaseElsen5=n5+1'**********FILL3**********_______________score=Val(InputBox(msg,msgtitle))WendPrint“优秀：”;n1,“良好”;n2,“中等”;n3,“及格”;n4,“不及格”;n5,”学生总数：”;totalEndSub【答案】FILL1空格处语句为：（score>=0andscore<=100）FILL2空格处语句为:（score）FILL3空格处语句为:（EndSelect）4．以下程序段用于实现：输入两个正整数num1和num2，求其最大公因数和最小公倍数。PrivateSubForm_Click()Dima%,b%,num1%,num2%,tempnum1=InputBox("请输入第一个正整数")num2=InputBox("请输入第二个正整数")'**********FILL1**********If__________Thentemp=num1:num1=num2:num2=tempEndIfa=num1b=num2'**********FILL2**********DoWhile__________temp=aModba=b'**********FILL3**********__________LoopPrint"最大公因数为：";aPrint"最小公倍数为：";num1*num2/aEndSub【答案】FILL1空格处语句为：（num1num1）FILL2空格处语句为:（b>0或：b<>0）FILL3空格处语句为:（b=temp）5．以下程序用于判断一个正整数（≥3）是否为素数。PrivateSubForm_Click()n=InputBox("请输入一个正整数（≥3）")k=Int(Sqr(n))i=2swit=0'**********FILL1**********DoWhilei<=kand_________'**********FILL**********If_________Thenswit=1Else'**********FILL2**********_____________EndIfLoopIfswit=0ThenPrintn;"是一个素数"ElsePrintn;"不是素数"EndIfEndSub【答案】FILL1空格处语句为：（swit=0）FILL2空格处语句为:（nModi=0）FILL3空格处语句为:（i=i+1）6．以下程序段用于实现：从键盘上输入一串字符，以"?"结束，统计输入字符中的大、小写字母和数字的个数。PrivateSubForm_Click()Dimch$,n1%,n2%,n3%n1=0n2=0n3=0ch=InputBox("请输入一个字符")'**********FILL1**********DoWhile__________SelectCasechCase"a"To"z"n1=n1+1'**********FILL2**********Case__________n2=n2+1Case"0"To"9"n3=n3+1EndSelectch=InputBox("请输入一个字符")'**********FILL3**********__________Printn1,n2,n3EndSub【答案】FILL1空格处语句为：（ch<>"?"）FILL2空格处语句为:（"A"to"Z"）FILL3空格处语句为:（Loop）7.以下程序功能是：输入任意长度的字符串，将字符顺序倒置后输出，例如，输入的字符串为“ABCDEF123”,倒置变换后为“321FEDCBA”。PrivateSubForm_Click()Dims$,t$,r$,l%,n%s=InputBox(“请输入一个任意字符串”)'**********FILL1**********n=t=""Fori=1Tonr=Mid(s,i,1)'**********FILL2**********t='**********FILL3**********Print“你输入的字符串是：”&s;“倒置后的字符串是：”&tEndSub【答案】FILL1空格处语句为：（Len(s)）FILL2空格处语句为:（r&t）FILL3空格处语句为:（Nexti）六、编程题1、求1到100的奇数和。程序界面如下图所示，请写出命令按钮的代码。（命令按钮代码如下：）PrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To100Step2s=s+iNextiPrint"1到100的奇数和为："&sEndSub2、求100以内的素数，程序界面如下图所示，请写出命令按钮的代码。（命令按钮代码如下：）PrivateSubCommand1_Click()DimiAsInteger,mAsInteger,tagAsBooleanj=0Form=2To100tag=TrueFori=2Tom-1If(mModi)=0Thentag=FalseEndIfNextiIftagThenPrintm;"";j=j+1EndIfIfj=10Thenj=0PrintEndIfNextmEndSub3、输出100~300之间所有能被3和7整除的数，计算它们之和并输出，程序运行界面如下，请写出命令按钮的代码。（命令按钮代码如下：）PrivateSubCommand1_Click()Dimi%,s%s=0Print"100~300之间所有能被3和7整除的数："Fori=100To300IfiMod3=0AndiMo