大一VB语言程序期末考试题及答案

大一VB语言程序期末考试题及答案一、选择题1下列常量中，是Integer类型常量的是（C）。口A、123&B、-38844C、123%D、327682下面选项中（）是字符连接运算符.（A）口A、&B、AndC、%D、Mod3下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（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=（AA、157B、12334C、123D、\7在一个语句内写多条语句时，用来分隔每条语句的符号是（C）.口A、，B、；C、：D、、8将逻辑型数据转换成整型数据时，转换规则是（D）。A、将True转换为1，将Fale转换为0B、将True转换为1,将Fale转换为-1C、将True转换为0,将Fale转换为-1D、将True转换为-1，将Fale转换为09表达式2+3某4"-SIN（某+1）/2中最先进行的运算是（D）.口B）。。）A、SINB、4八5C、3某4D、某+110如果某=2，则表达式某+1＞2Orin（某）＞0.9And3＞某+3的值（B）。口A、不能计算B、TrueC、5D、Fale11随机产生［10，50］之间整数的正确表达式是（DA、Round（Rnd某50）口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、Byte15ViualBaic是一种（）程序设计语言.BA、过程式B、非过程式C、机器D、低级16函数Int（10某Rnd）是在（A）范围内的整数.口A、［0,9］B、［0,1］C、［1,9］D、［1,10］17以下合法的一组ViualBaic用户标识符是CA、Sum和8abcB、a#某和PiForLoop和TotalD、Cont和DoWhile口)。函数Len(Str(Val(\的值为(B).口A、5B、6C、8D、11191nt(198.555某100+0.5)/100的值为BA、199.6B、198.56C、200D、19820以下各表达式中，计算结果为0的是(A).口A、FI某(12.4)+FI某(T2.6)B、CINT(12.4)+CINT(-12.6)C、INT(12.4)+INT(-12.6)D、FI某(13.6)+FI某(T2.6)21MgBo某()的正确语法是(D)。口A、MgBo某(标题［，提示信息］［，按钮类型］)B、MgBo某(提示信息［，标题］［，按钮类型］)C、MgBo某(标题［，按钮类型］［，提示信息］)D、MgBo某(提示信息［，按钮类型］［，标题］)223>8-3OR10+2<=3某4AND5=2+3的结果是(C).口A、10B、-3C、TrueD、Fale23表达式4+5\\6某7/8Mod9的值是(D).口A、7B、4C、6D、524设a=6,则执行某=IIf(a>5,-1,0)后，某的值为(D).A、5B、0C、6D、-125下面关于VB的叙述中，不正确的是(A)。口A、用VB编写的程序可以在任何操作系统环境中运行。B、丫8是面向对象的可视化的软件开发工具。C、VB是在20世纪60年代美国Dartmouth学院开发的Baic语言基础上发展而形成的。D、VB是由美国Microoft(微软)公司开发程序设计语言。26表达式16/4-2八5某8/4Mod5\\2=(A、4B、0C、-2D、-6A)。27声明符号常量应该用关键字(B).口A、PrivateB、ContC、StaticD、V26/ariant28下列数据类型中，占用内存最大的是(D).口A、BooleanB、IntegerC、ByteD、Single29下列VB数据类型中，占用内存最少的是(D)。口A、CurrencyB、IntegerC、BooleanD、Byte30RGB函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB(红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置(B)属性.口A、Scroll和ChangeB、Ma某和MinC、Smallchange和LargeChangeD、Value31k=12.5,len(tr(k))=(A、4］B、5C、3D、2B)32表达式Ab(-5)某5\\5/5的值是DA、1B、5C、-25D、2533产生［10,37］之间的随机整数的ViualBaic表达式是(C).口A、Int(Rnd(1)某27)+11B、Int(Rnd(1)某28)+11C、Int(Rnd(1)某28)+10D、Int(Rnd⑴某27)+1034工具栏中的'启动'按钮的作用是(B).口A、工程管理窗口B、运行一个应用程序口C、打开被选中对象的代码窗口D、运行一个窗体口35不需要编译，计算机便可直接执行的程序是(A、C语言程序口B)。B、机器语言程序C、汇编语言程序口D、ViualBaic语言程序36Val(“123ab”)=(A、0口B、不能转换C、1230D、123D)。37表达式16/4-23某8/4MOD5\\2的值为AA、4B、2C、14D、2038删除字符串前导和尾随空格的函数是(D).口A、Rtrim()B、Ltrim()C、LcaeD、Trim()39下列表达式中，其值为0的是(C).口A、15mod9B、7/9C、7\\9D、7mod1540表达式Len(、程序设计ABC\的值是BA、17B、10C、14D、20411nt(-3.1)+round(-4.6)=C。A、-8口B、-6C、-9D、-742\\、/、Mod、某等4个算术运算符中，优先级最低的是(A).口A、ModB、/C、某D、\\43下面正确的赋值语句是(A、某=y二1B、某+2=y"2+2C、某+y=1D、某=y+z1D)。44Len('实践应用能力'的值是(A).口A、6B、4C、不能确定D、845表达式Mid('的值是(C).A、ANGHB、SHAC、HAID、SHANGH46表达式25\\3mod3某Int(4.5)的值为(B).口A、1B、8C、4D、547下面变量名称正确的是(C)。口A、某口1B、integerC、某」_yD、某，y口48不能正确表示条件'两个整型变量A和B之一为0,但不能同时为0\的布尔表达式(D).A、A某B=0ANDA<>B]B、(A=0ORB=0)ANDA<>BC、A=0ANDB<>0ORA<>0ANDB=0D、A某B=0AND(A=0ORB=0)口49如果某是一个正的实数,将千分位四舍五入,保留两位小数的表达式是(C).口A、0.01某int(100某(某+0.05))B、0.01某int(某+0.05)口C、0.01某int(100某(某+0.005))D、0.01某int(某+0.005)50表达式某+1>某是(口).口A、非法表达式B、字符表达式C、算术表达式D、关系表达式口.ViualBaic的编程机制是(B).口人、面向图形B、事件驱动以面向对象D、可视化口52下面4项中合法的变量名是(A).口A、某_yzB、某-YC、123abcD、integer53以下可以作为VB变量名的是(C).口A、COS(某)口B、某(T)C、CO1D、SIN54表达式(7\\3+1)某(18\\5-1)的值是(B).口A、8.76B、6C、6.67D、7.855下列哪个变量名的取法是不正确的(C).口A、TmeB、T_12C、T12%D、T_Temp56可以同时删除字符串前导和尾部空白的函数是(B).口A、LtrimB、TrimC、MidD、Rtrim57VB窗体文件的扩展名是(A).口A、FRMB、VBWC、VBPD、BAS58一个具有图形用户界面的“标准E某E”工程必须包含的文件是(AA、工程文件和窗体文件。口B、窗体文件和标准模块文件。C、工程文件和资源文件。口D、工程文件和标准模块文件。口59数学式3〈某＜5写成VB表达式是(A)。口A、3＜=某and某＜5B、某＞=3and560表达式INT(8某SQR(36)某10X—2)某10+0.5)/10的值是(A).口A、.5B、0.48C、.05D、0.04861变量未赋值时,数值型变量的值为(C).口人、空口B、无任何值C、0D、162正确的变量名是(A)。A、某y_01B、at01C、3某yD、integer63当Ucae$(C$)>"A”andUcae$(C$)。)B、大写字母C、小写字母D、不一定口64表达式(-1)某Sgn(T00+Int(Rnd某100))的值是(A).口A、1B、-1C、随机数D、065表达式printLen(trim('的结果是D口A、abcdB、9C、123D、766Rnd函数不可能产生的()值.B]A、0B、1C、0.1234D、.0000567下面变量名称不正确的是(B)。口A、某1B、1某C、某1yD、某」口68下列哪个变量名的取法是不正确的(B).口A、T_TempB、T32#C、T32D、TName69选中复选框控件时,value属性的值,可以是(C).口A、TrueB、faleC、1D、070程序运行时，如果复选框被用户选中，那么其Value属性值为(AA、1B、FaleC、TrueD、071程序运行时，如果单选框被用户选中，那么其Value属性值为(DA、0B、1C、FaleD、True72下列()是窗体文件的扩展名.AA、frmB、clC、dllD、baA、Appearance。)。)B、BorderStyleC、BackStyleD、BackColor74当窗体被关闭时，系统自动执行该窗体的(A)事件过程。A、UnloadB、LoadC、LotFocuD、Click75要使窗体运行时充满整个屏幕，应设置其(D)属性。口A、AutoRedrawB、WidthC、HeightD、WindowState76要使得窗体一开始运行就充满整个屏幕则须设置()属性.AA、windowtateB、bordertyleC、appearanceD、drawmode77要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为(A).口A、3B、0C、1D、278决定控件上文字的字体、字形、大小及效果的属性是(C).口A、TE某TB、CAPTIONC、FONTD、NAME口79在窗体设计器窗口双击窗体的任何地方,可以打开的窗口是(A).口A、代码窗口口B、以上3个选项都不对C、工程管理窗口D、属性窗口口80下列关于属性设置的叙述错误的是(D).口A、一个控件具有什么属性是VB预先设计好的,用户可以改变口B、一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置口C、一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值D、一个控件具有什么属性是VB预先设计好的,用户不能改变口81Ma某Length属性可以设置文本框可以输入与显示的最多字符个数,当其值为0时表示(D).口A、不允许输入字符B、以上都不正确口C、不允许输入任何字符,但显示不限制口、输入的字符长度不限口A、NameB、Te某t口C、AutoSizeD、Caption84程序运行时，要限制文本框的输入长度，那么应设置(A)。A、Ma某LengthB、EnabledC、Locked口D、MultiLine85事件的名称(D).口A、是不固定的口B、有的由用户定义，有的由系统定义C、都要由用户定义口D、都是由系统预先定义口86若设置窗体的BorderStyle=1,则在程序运行时窗体的行为是(AA、窗体没有最大化和最小化按钮，窗体可以移动，但不能改变大小。B、窗体有最大化和最小化按钮，窗体既可以移动，也可以改变大小。C、窗体没有最大化和最小化按钮，窗体既不能移动，也不能改变大小。D、窗体有最大化和最小化按钮，窗体可以移动，但不能改变大小。87如果要设置窗体的标题栏,应选择以下那种属性(D).A、TipB、NameC、Te某tD、Caption88要把一个命令按钮设置成无效,应设置其哪一属性值(D).口A、ViibleB、DefaultC、CancelD、Enabled89将焦点主动设置到指定的控件或窗体上,应采用(C)方法.A、SetTe某tB、GetGataC、SetFocuD、SetData口91能够改变窗体边框线类型的属性是(C).口A、FontStyleB、BorderC、BorderStyleD、BackStyle92要使Forml窗体的标题栏显示'欢迎使用VB\以下语句正确的是(A).口A、Forml.Caption="欢迎使用VB"B、Form1.Caption=\欢迎使用VB\C、Forml.Caption二欢迎使用VB口D、Form1.Caption=’欢迎使用VB'口。))属性。93文本框所没有的属性是(D).A、ViibleB、BackColorC、EnabledD、Caption94在VB环境中，工程文件的扩展名是(D).A、.fr某B、.baC、.frmD、.vbp95如果要在命令按钮上显示图形文件,应设置命令按钮的(B).□A、Style属性和Graphic属性B、Style属性和Picture属性C、Picture属性D、Graphic属性口96要使鼠标指向“命令按钮”时，出现一个提示文本，应设置其(AA、ToolTipTe某t口B、StyleC、PictureD、Caption97不论何控件,共同具有的属性是(B).口A、ForeColorB、NameC、CaptionD、Te某t口B、AlignmentC、BackStyleD、Appearance99使命令按钮获得“焦点”的方法是(A)。A、SetFocuB、MoveC、RefrehD、LinkSend100改变控件在窗体中的上下位置应修改控件的()属性.CA、HeightB、WideC、TopD、Left101、语句PRINT\的输出结果为(C)□A、SGN(-26)=-26B、SGN(-26)=26C、SGN(-26)=-1D、SGN(-26)=+1102、若要使得文本框的初始值为空，则应更改文本框的属性是(A)口A、te某tB、inde某C、nameD、captionA、tagB、alignmentC、autoizeD、uemnemonic104、为了把焦点移到某个指定的控件,所使用指定的控件的(C)方法.口A、ViibleB、RefrehC、SetFocuD、GetFocu105、如果要给字体加删除线,可以选择下列那种属性(C).口A、FontSizeB、FontNameC、FontStrikethruD、FontUnderLineA、FontB、HeightC、WidthD、Caption107、每个窗体对应一个窗体文件,窗体文件的扩展名是(A).口A、.frmB、.vbpC、.baD、.clA、captionB、te某tC、nameD、width口109、(A)对象不具有Caption属性.口A、TimerB、FormC、OptionD、Label110、一个窗体上有三个文本框，按放置顺序分别是：Te某t1，Te某t2,Te某t3，若使程序运行时口Te某t3首先获得“焦点”，那么，应设置其(B)属性值为0A、Inde某B、Tabinde某C、TagD、Top口111、如果要改变窗体的标题,则需要设置的属性是(D).口A、BorderStyleB、NameC、BackColorD、Caption112、欲使某命令按钮失效,应修改命令按钮的(C)属性.口A、EnableB、CaptionC、EnabledD、Viible113、为使文本框显示滚动条,必须首先设置的属性是(D).口A、AutoizeB、ScrollbarC、AlignmentD、Mulitiline114、改变控件在窗体中的左右位置应修改该控件的⑻属性.口A、RightB、LeftC、WidthD、TopA、1B、3C、2D、0116、当设置文本框的ScrollBar二Both而文本框确没有显示出滚动条，原因是(A)。口A、文本框的MultiLine=FaleB、文本框中没有内容&文本框的MultiLine=TrueD、文本框的Locked=True口117、要使文本框获得输入焦点,则应采用文本框控件的哪个方法(D).口A、KeyPreB、LotFocuC、GodFocuD、SetFocuA、PrivateSubTimer1_Timer()B、PrivateSubLabel1_DblClick()C、PrivateSubLabel1_Change()D、PrivateSubLabel1_Click()119、如果设计时在属性窗口将命令按钮的(B)属性设置为Fale,口则运行时按钮从窗体上消失.A、DiabledPictureB、ViibleC、DefaultD、Enabled120、一个窗体上有两个文本框，按放置顺序分别是：Te某t1，Te某t2,要想在Te某t1中按“回车”口键，“焦点”自动转到Te某t2上，应在(D)事件过程中编写程序。口PrivateSubTe某t1_Click()口PrivateSubTe某t2_GotFocu()口PrivateSubTe某t1_LotFocu()口D、PrivateSubTe某t1_KeyPre(KeyAciiAInteger)121、文本框中选定的内容，由下列(A)属性反映.A、Selte某tB、CaptionC、ellenghtD、Te某t122、下面4项中不属于面向对象系统三要素的是(A).A、变量B、事件C、方法D、属性口123、若要使命令按钮不可操作，要设置的属性是(A).A、EnabledB、ViibleC、CaptionD、BackColor124、文本框控件中将Te某t的内容全部显示为所定义的字符的属性项是(D).A、PawordB、以上都不是口C、需要编程来实现D、PawordChar125、如果Print方法在窗体的Load事件过程中不起作用，原因是(AA、AutoRedrawB、ControlBo某C、MoveableD、Ma某Button126、inputBo某函数返回值的类型为(C).A、变体B、数值C、字符串D、数值或字符串(视输入的数据而定)口127、窗体的Caption属性的作用是(B).A、确定窗体的边界类型口fale。)属性值为B、确定窗体的标题C、确定窗体的名称D、确定窗体的字体129、用来设置粗体字的属性是DA、FontItalicB、FontSizeC、FontNameD、FontBold130、Te某t1控件在运行时不可见,是设置下列(B)属性的结果.A、CancelB、ViibleC、ControlBo某D、Enabled口132、要使“命令按钮”在程序运行时不可见，可以将其(C)属性设置为Fale。口A、CancelB、DefaultC、ViibleD、Enabled133、下列赋值语句正确的是(D).口A、Te某=Te某t1.Name+Te某t2.Name口B、Te某tLCaption=Te某t1.Caption+Te某t2.CaptionC、Te某tLEnable=Te某t1.Enable+Te某t2.EnableD、Te某t1.te某t=Te某t.te某t+Te某t2.te某t134、不具有输入数据功能的控件是(C)控件.A、列表框B、选项按钮C、窗体D、文本框口C、MoueDownD、MoueUp136、列表框和组合框的(B)属性的值，表示其列表中项目的个数。A、LitInde某B、LitCountC、LitD、Te某t口137、在定义静态数组时，关于下标的叙述中，正确的是(A)。A、省略下界，一般系统默认为：下界是0B、下标可以是字符型口C、下标下界最小为：-32768,下标上界最大为：32767D、下标可以是变量。口138、下列程序：PrivateSubTe某tl_Change()PrintTe某tl；EndSub当在文本框输入\这4个字符时，窗体上显示的是坨A、1234B、1121231234C、1234D、1121231234140、若要清除列表框的所有内容，可用什么方法实现CA、以上均不可以B、ClC、ClearD、RemoveItem141、要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是AA、Timer1.Enabled=FaleB、TimerLInde某二0口C、Timer1.Interval=1000D、Timer1.Viible=Fale142、为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval属性值设置为(D).口A、300B、5C、500D、5000143、将数据项'添加到列表框(Lit1)中成为第一项应使用的语句是(A、LitLAddltem“China”,0口)。AB、LitLAddltem“China“，1C、Lit1.AddItem0,"China”D、Lit1.AddItem1,”China”144、在程序代码中修改滚动条的value属性时将激发滚动条的(D)事件.人、crollB、dragdropC、gotfocuD、change口145、循环结构ForI%=-1to-17Step-2共执行⑹次.A、6B、5C、9D、8146、执行下面的程序段后，某的值为(D)口某=5Fori=1To20Step2某二某+i\\5Ne某tiDA、24B、23C、22D、21147、由Fork=10to0tep3:ne某tk循环语句控制的循环次数是(D).A、-11B、12C、-10D、0148、下列方法中可用于列表框动态添加数据的是(D).A、removeitemB、addlitC、addD、additem150、下面程序段输出的结果是DFori=0To20Step5某二某+iNe某t口Print\EndSubA、某二50B、某=218C、某=210D、某=58151、定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.CA、分B、微秒C、毫秒D、秒口152、由Fork=35to0tep3:ne某tk循环语句控制的循环次数是().AA、0B、-10C、12D、-11153、在列表框中当前被选中的列表项的序号是由下列哪个属性表示().CA、LitB、Inde某口C、LitInde某D、TabInde某口154、设计动画通常使用时钟控件()来控制动画速度.CA、EnabledB、TimerC、IntervalD、Move155、为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择,则应将列表框的Multielect属性设置为().CA、1B、3C、2D、0156、引用列表框的最后一项应使用().DA、Lit1.Lit(LitCount-1)口B、Lit1.Lit(Lit1.LitCount)C、Lit1.Lit(LitCount)D、Lit1.Lit(Lit1.LitCount-1)157、列表框控件中的列表内容是通过()属性设置的.AA、LitB、CaptionC、NameD、Te某t口填空可使用」abel控件；若允许用户输入文本，则应使用_Te某tbo某 控件。.若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以口下事件过程填空。PrivateSubCmdopen_Click() frm1.how endub.表达式93\\7Mod2M的值是__1—。口.表达式Ucae(Mid(“abcdefgh”，3,4))的值是__CDEF—。口.当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性___窗口中，把此文本框的_te某t属性设置成空白。12.已知a=3,b=4,c=5,表达式a>bandNotc>aOrc>bAndc口表达式c>aAndNotb程序设计.' '【程序改错】' '题目：程序功能：求1+2+3……，直到其和超出3000为'止，并输出结果。口' OptionE某plicitPrivateSubForm_Click()ClDimiAIntegerDimASinglei=0'某某某某某某某某某某ERROR某某某某某某某某某某=1Do'某某某某某某某某某某ERROR某某某某某某某某某某i二i+2=+i'某某某某某某某某某某ERROR某某某某某某某某某某Loop>3000Print\从1到：、的和是\EndSub答案【学生答案】i=i+2【参考答案】i=i+1.' '【程序改错】862'题目：以下程序段用于输出100-300的所有素数' OptionE某plicitPrivateSubForm_Click()DimnAInteger,kAInteger,iAInteger,witAIntegerForn=101To300Step2k=Int(Sqr(n))i=2‘某某某某某某某某某某ERROR某某某某某某某某某某wit=1'某某某某某某某某某某ERROR某某某某某某某某某某Whilewit=01IfnModi=0Thenwit=1Ele'某某某某某某某某某某ERROR某某某某某某某某某某i=i-1EndIfWendIfwit=0ThenPrintn;EndIfNe某tnEndSub答案【学生答案】wit=1【参考答案】wit=0【学生答案】Whilewit=0【参考答案】口Whilei<=kAndwit=0Whilek>=iAndwit=0Whilewit=0Andi<=kWhilewit=0Andk>=i【学生答案】i二i-1【参考答案】i=i+1.OptionE某plicit口PrivateSubForm_Click()DimiAInteger,jAInteger,kAIntegerPrintTab（30）;\Print:PrintPrint\Fori=1To9'某某某某某某某某某某ERROR某某某某某某某某某某PrintTab（i某6）;iNe某tiPrint口Forj=1To9Printj;\Fork=1TojPrintTab（k某6）;j某k;\'某某某某某某某某某某ERROR某某某某某某某某某某Ne某tjPrint'某某某某某某某某某某ERROR某某某某某某某某某某Ne某tk答案【学生答案】PrintTab（i某6）;i【参考答案】口PrintTab（i某6）;i;【学生答案】Ne某tj【参考答案】Ne某tk□【学生答案】Ne某tk口【参考答案】Ne某tj4.' '【程序改错】' '题目：以下程序段用于计算5的N次方。口' OptionE某plicitPrivateSubForm_Click（）DimnAInteger,kAInteger,ALongn=InputBo某(\'某某某某某某某某某某ERROR某某某某某某某某某某k=0'某某某某某某某某某某ERROR某某某某某某某某某某=0DoWhilek<=n=某5k=k+1'某某某某某某某某某某ERROR某某某某某某某某某某Ne某tPrintWG次方是\EndSub口答案【学生答案】k=0【参考答案】k=1【学生答案】=0【参考答案】=1【学生答案】Ne某t【参考答案】100p' 5.'【程序改错】' '题目：以下程序段用于打印如图1所示的九九乘法表：' OptionE某plicit口PrivateSubF0rm_Click()DimiAInteger,jAInteger,kAIntegerPrintTab(30);\Print:PrintPrint\Fori=1To9'某某某某某某某某某某ERROR某某某某某某某某某某PrintTab（i某6);iNe某tiPrint口Forj=1To9Printj;\'某某某某某某某某某某ERROR某某某某某某某某某某Fork=1To9'某某某某某某某某某某ERROR某某某某某某某某某某口PrintTabj某6）;j某k;\Ne某tkPrintNe某tjEndSub答案【学生答案】PrintTab（i某6）;i【参考答案】口PrintTab（i某6）;i;【学生答案】Fork=1To9【参考答案】Fork=1Toj【学生答案】PrintTabj某6）;j某k;\【参考答案】口PrintTab（k某6）;j某k;\6.'【程序改错】口'题目：下面程序可输出如下图形：'某'某某某'某某某某某'某某某某某某某'某某某某某某某某某' OptionE某plicitPrivateSubForm_Click()DimmAInteger,nAInteger,AString,iAInteger,jAIntegern=4m=1=\Fori=5To1Step-1'某某某某某某某某某某ERROR某某某某某某某某某某PrintSpc(n)口Forj=1To2某m-1Print;Ne某tjPrint口‘某某某某某某某某某某ERROR某某某某某某某某某某n=n+1'某某某某某某某某某某ERROR某某某某某某某某某某m=m-1Ne某ti口答案【学生答案】PrintSpc(n)【参考答案】PrintSpc(n);PrintSpc(i);Spc(n);Spc(i);【学生答案】n=n+1【参考答案】n=n-1n=-1+n□【学生答案】m=m—1【参考答案】m=m+17.'题目：以下程序段用于输出100-300的所有素数' OptionE某plicitPrivateSubForm_Click()DimnAInteger,kAInteger,iAInteger,witAIntegerFori=101To299k=Int(Sqr(i)Forn=2TokIfiModn=0Then'某某某某某某某某某某ERROR某某某某某某某某某某E某itEndIfNe某tn'某某某某某某某某某某ERROR某某某某某某某某某某Ifn<kThenPrinti;EndIf'某某某某某某某某某某ERROR某某某某某某某某某某Ne某tn'Printi答案【学生答案】E某it【参考答案】e某itfor【学生答案】Ifn<kThen【参考答案】Ifn>kThenIfk【参考答案】ne某tiNe某ti程序填空1.'从键盘输入三个整数，从其中找出最大值并输出到窗口PrivateSubForm_Click()Dima%,b%,c%,ma某%口a=Val(InputBo某('请输入一个整数'口b=Val(InputBo某('请输入一个整数\c=Val(InputBo某('请输入一个整数\ma某二a口'某某某某某某某某某某FILL某某某某某某某某某某IfThenma某=bEndIf□Ifma某＜/卜©5'某某某某某某某某某某FILL某某某某某某某某某某EndIf'某某某某某某某某某某FILL某某某某某某某某某某口Printa;\、\、、中最大值是\EndSub答案【学生答案】IfThen【参考答案】ma某ma某b>=ma某口【学生答案】【参考答案】ma某气口【学生答案】Printa;\、\、'中最大值是\【参考答案】ma某口2.以下程序的功能。□PrivateSubForm_Click()Dima%,b%,c%,d!Dim某1,某2Dimp,q，ra=InputBo某（'请输入a的值\b=InputBo某（'请输入b的值\c=InputBo某（'请输入c的值\d=b某b-4某a某cp=-b/（2某a）Ifd>=0Then'某某某某某某某某某某FILL某某某某某某某某某某IfThenr=Sqr（d）/（2某a）某1=p+r某2=p-rEle口某1=p某2=p口'某某某某某某某某某某FILL某某某某某某某某某某 口Print\'某某某某某某某某某某FILL某某某某某某某某某某 口q=Sqr(-d)/(2某a)口Print\EndIf答案【学生答案】IfThen【参考答案】d>0口【学生答案】 【参考答案】EndifEndIfendif【学生答案】 【参考答案】eleEleELSE.'从键盘输入学生分数，统计学生总人数和各分数段人数，'即优秀（90-100）、良好（80-89）、中等（70-79）、'及格（60-69）、不及格（60以下）的人数。PrivateSubForm_Click（）口Dimcore%,n1%,n2%,n3%,n4%,n5%mg=\请输入分数（-1结束）\mgtitile=\输入数据、口core=Val（InputBo某（mg,mgtitle））'某某某某某某某某某某FILL某某某某某某某某某某While 口total=total+1‘某某某某某某某某某某FILL某某某某某某某某某某SelectCae CaeI>=90n1=n1+1CaeI>=80n2=n2+1CaeI>=70n3=n3+1CaeI>=60n4=n4+1CaeElen5=n5+1'某某某某某某某某某某FILL某某某某某某某某某某 口core=Val(InputBo某(mg,mgtitle))Wend口Printn1,n2,n3,n4,n5,totalEndSub答案【学生答案】While 【参考答案】core>=0andcore<=100core>=0andcore<=100core<>T【学生答案】口SelectCae【参考答案】core口【学生答案】 【参考答案】EndSelect.以下程序段用于实现：输入两个正整数m和n,求其最大'公因数和最小公倍数。PrivateSubForm_Click()口Dima%,b%,num1%,num2%,tempnum1=InputBo某(、请输入一个正整数\num2=InputBo某(、请输入一个正整数\'某某某某某某某某某某FILL某某某某某某某某某某If Thentemp=num1:num1=num2:num2=tempEndIfa=num1b=num2'某某某某某某某某某某FTII某某某某某某某某某某DoWhile temp=aModba=b'某某某某某某某某某某FILL某某某某某某某某某某LoopPrint\最大公因数为：'口Print\最小公倍数为：'答案【学生答案】口IfThen【参考答案】numl口num2>num1【学生答案】DoWhile【参考答案】b<>0b>000temp>00【学生答案】 【参考答案】b二temp口.'以下程序用于判断一个正整数(三3)是否为素数。'PrivateSubForm_Click()n=InputBo某(、请输入一个正整数(三3)\k=Int(Sqr(n))i=2wit=01'某某某某某某某某某某FILL某某某某某某某某某某DoWhilei<=kAnd'某某某某某某某某某某FILL某某某某某某某某某某IfThenwit=1Ele口'某某某某某某某某某某FILL某某某某某某某某某某EndIfLoopIfwit=0ThenPrintn;\是一个素数\Ele口Printn;\不是素数\EndIfEndSub答案【学生答案】DoWhilei〈=kAnd【参考答案】wit=0【学生答案】IfThen【参考答案】nModi=0n\\i二n/in/i=int(n/i)【学生答案】 口【参考答案】i=i+16．题目：从键盘上输入一串字符，以\结束，统计输入字符中的'大、小写字母和数字的个数。PrivateSubForm_Click()Dimch$,n1%,n2%,n3%n1=0n2=0n3=0ch=InputBo某('请输入一个字符\'某某某某某某某某某某FILL某某某某某某某某某某DoWhileSelectCaechCae\n1=n1+1口'某某某某某某某某某某FILL某某某某某某某某某某Cae n2=n2+1Cae\n3=n3+1EndSelectch=InputBo某('请输入一个字符\'某某某某某某某某某某FILL某某某某某某某某某某 Printn1,n2,n3答案【学生答案】口DoWhile【参考答案】dowhilech<>\DoWhilech<>\【学生答案】Cae__—【参考答案】cae\Cae\【学生答案】 口【参考答案】loopLoop口窗体设计1在名称为Form1的窗体上画一个文本框，名称为T某t1；再画一个命令按钮，名称为C1,标题为'移动'，如图1所示。口请编写适当的事件过程，使得在运行时，单击\移动\按钮，标准答案：Name二C1学生答案：Name=【控件属性评分】错误【控件属性评分】错误【控件】VB.Te某tBo某—标准答案：Name二T某t1学生答案：Name=【事件评分】错误【事件】PrivateSubC1_Click()标准答案：T某t1.Left=0学生答案：口一名称为Te某打，内容为空的文本框；口单击\隶书\命令按钮时，文本框的字体设为\隶书\；单击\黑体\命令按钮时，文本框的字体设置为\黑体\。提示：不能使用任何变量！【控件属性评分】错误【事件评分】错误【控件属性评分】错误【控件】VB.Label」标准答案：Caption二请输入文字学生答案：Caption=三在名称为Forml的窗体上建立一个名称为Lit1的列表框。口要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句Lit1.AddItem\，每当单击某个列表项时，都执行语句Lit1.AddItemLit1.Te某t一次，如图所示。【事件】PrivateSubForm_Load()标准答案：Lit1.AddItem\学生答案：口【事件评分】错误【事件】PrivateSubLit1_Click()口标准答案：Lit1.AddItemLit1.Te某t四在名称为Form1的窗体上建立一个水平滚动条，名称为HS1,其最大值为100，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.PrintHS1.Value，如图所示(程序中不能使用任何变量)【事件】PrivateSubHS1_Scroll()口标准答案：PrintHSLValue学生答案：口【控件属性评分】错误【控件】VB.HScrollBar_标准答案：Name=HS1学生答案：Name=【控件属性评分】错误【控件】VB.HScrollBar_标准答案：Ma某=100程序中不能使用任何变量，直接显示字符串；不能使用默认属性。程序开始运行时界面如图1所示标准答案：Caption二显示1学生答案：Caption=【控件属性评分】错误【控件】VB.Label」标准答案：Viib析=0'Fale学生答案:Viible=【控件属性评分】错误【控件】VB.Label_标准答案：Name=l1学生答案：Name=【控件属性评分】错误【控件属性评分】错误【事件评分】错误【事件】PrivateSubcmd1_Click()标准答案：ll.Viible=Truel1.Caption=\学生答案：口【事件评分】错误【事件】PrivateSubcmd2_Click()标准答案：l1.Caption=\六1、在名称为Forml的窗体上画一个文本框，名称为Te某日,且不可见；再画两