大一VB语言程序设计期末考试题一、选择题1 下列常量中,是Integer类型常量的是 C ;A、123&B、-38844C、123%D、327682 下面选项中是字符连接运算符. AA、&B、AndC、%D、Mod3 下面关于VB的集成开发环境IDE的叙述中,不正确的是 B ;A、IDE是设计、调试、运行VB程序的工具;B、用户不能随意关闭IDE中的窗口;C、"窗体设计" 窗口是用来设计应用程序界面窗体的;D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中;4 len“vb程序设计”= C ;A、 5B、2C、 6D、105 表达式 15 Mod 4 + 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+34^5-SINX+1/2中最先进行的运算是D.A、SINB、4^5C、34D、x+110 如果x=2,则表达式x+1>2 Or sinx> And 3>x+3的值 B ;A、不能计算B、 TrueC、5D、False11 随机产生 10,50 之间整数的正确表达式是 D ;A、Round Rnd50B、 IntRnd40+10C、Round Rnd51D、 10+IntRnd4112 每建立一个窗体,工程管理器窗口中就会增加一个C.A、类模块文件B、工程文件C、窗体文件D、程序模块文件13 INT100RND1产生的随机整数的闭区间是B.A、1,100B、0,99C、0,100D、1,9914 下列数据类型中,占用内存最小的是D.A、IntegerB、SingleC、BooleanD、Byte15 VisualBasic是一种程序设计语言.BA、过程式B、非过程式C、机器D、低级16 函数Int10Rnd是在A范围内的整数.A、0,9D、1,1017 以下合法的一组Visual Basic用户标识符是 CA、Sum 和 8abcB、ax 和 PiC、ForLoop 和 TotalD、Const 和 DoWhile18 函数LenStrVal""的值为B.A、5B、6C、8D、1119 Int100+/100的值为BA、B、C、200D、19820 以下各表达式中, 计算结果为0的是A.A、FIX+FIXB、CINT+CINTC、INT+INTD、FIX+FIX21 MsgBox的正确语法是 D ;A、 MsgBox标题 ,提示信息 ,按钮类型B、 MsgBox提示信息,标题 ,按钮类型C、MsgBox标题 ,按钮类型 ,提示信息D、 MsgBox提示信息 ,按钮类型 ,标题22 3>8-3 OR 10+2 <=34 AND 5=2+3的结果是C.A、10B、-3C、TrueD、False23 表达式4+5 \ 6 7 / 8 Mod 9 的值是D.A、7B、4C、6D、524 设a=6,则执行x=IIfa>5,-1,0后,x的值为D.A、5B、025 下面关于VB的叙述中,不正确的是 A ;A、用VB编写的程序可以在任何操作系统环境中运行;B、VB是面向对象的可视化的软件开发工具;C、VB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的;D、VB是由美国Microsoft微软公司开发程序设计语言;26 表达式16 / 4-2^58 / 4 Mod 5 \ 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、Byte30 RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB红.绿.蓝,括号中红、绿、蓝三基色的成分使用0~255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置B属性.A、Scroll和ChangeB、Max和MinC、Smallchange和 LargeChangeD、Value31 k= ,len str k = B ;A、 4B、5C、 3D、 232 表达式Abs-55\5/5的值是 DA、1B、5C、-25D、2533 产生10,37之间的随机整数的VisualBasic表达式是C.A、IntRnd127+11B、IntRnd128+11C、IntRnd128+10D、In tRnd127+1034 工具栏中的"启动"按钮的作用是B.A、工程管理窗口B、运行一个应用程序C、打开被选中对象的代码窗口D、运行一个窗体35 不需要编译,计算机便可直接执行的程序是 B ;A、C语言程序B、机器语言程序C、汇编语言程序D、 Visual Basic语言程序36 Val “123ab”= D ;A、0B、不能转换C、1230D、12337 表达式16/4-2^58/4MOD5\2的值为 AA、4B、2C、14D、2038 删除字符串前导和尾随空格的函数是D.A、RtrimB、LtrimC、LcaseD、Trim39 下列表达式中,其值为0的是C.A、15 mod 9B、7/9C、7\9D、7 mod 1540 表达式Len"123程序设计ABC"的值是 BA、17B、10C、14D、2041 Int+round =________C_________;A、-8B、-6C、-9D、-742 \、/、Mod、等4个算术运算符中,优先级最低的是A.A、ModB、/C、D、\43 下面正确的赋值语句是 D ;A、x=y=1B、x+2=y^2+2C、x+y=1D、x=y+z144 Len"实践应用能力"的值是A.A、6B、4C、不能确定D、845 表达式Mid"SHANGHAI",6,3的值是C.A、ANGHB、SHAC、HAID、SHANGH46 表达式25\3 mod 3 Int的值为B.A、1B、8C、4D、547 下面变量名称正确的是 C ;A、x □1B、integerC、 x_1_yD、 x , y48 不能正确表示条件"两个整型变量A和B之一为0,但不能同时为0" 的布尔表达式D.A、AB=0ANDA<>BB、A=0ORB=0ANDA<>BC、A=0ANDB<>0ORA<>0AND B=0D、AB=0ANDA=0ORB=049 如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是C.A、int100x+B、intx+C、int100x+D、intx+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、COSXB、X-1C、CO1D、SIN54 表达式7\3+118\5-1的值是B.A、B、6C、D、55 下列哪个变量名的取法是不正确的C.A、sTmeB、T_12C、T12%D、T_Temp56 可以同时删除字符串前导和尾部空白的函数是B.A、LtrimB、TrimC、MidD、Rtrim57 VB窗体文件的扩展名是A.A、FRMB、VBWD、BAS58 一个具有图形用户界面的“标准EXE”工程必须包含的文件是 A ;A、工程文件和窗体文件;B、窗体文件和标准模块文件;C、工程文件和资源文件;D、工程文件和标准模块文件;59 数学式3≤X＜5写成VB表达式是 A ;A、3<=X and X<5B、X>=3 and 5<XC、3<=X or X<5D、3<=X<560 表达式INT8SQR3610^-210+/10的值是A.A、.5B、C、.05D、61 变量未赋值时,数值型变量的值为C.A、空B、无任何值C、0D、162 正确的变量名是 A ;A、xy_01B、sa t01C、3xyD、integer63 当Ucase$C$>”A” and Ucase$C$<”Z”为true时,则C$是__A______;A、字母B、大写字母C、小写字母D、不一定64 表达式-1Sgn-100+IntRnd100的值是A.A、1B、-1C、随机数D、065 表达式print Lentrim" abcd "&"123"的结果是 DA、abcdB、9C、123D、766 Rnd函数不可能产生的值.BA、0B、1C、D、.0000567 下面变量名称不正确的是 B ;A、x1B、1xC、 x1y68 下列哪个变量名的取法是不正确的B.A、T_TempB、T32C、T32D、TName69 选中复选框控件时,value属性的值,可以是C.A、TrueB、falseC、1D、070 程序运行时,如果复选框被用户选中,那么其Value属性值为 A ;A、1B、FalseC、 TrueD、 071 程序运行时,如果单选框被用户选中,那么其Value属性值为 D ;A、0B、1C、FalseD、True72 下列是窗体文件的扩展名.AA、frmB、clsC、dllD、bas73要使标签能透出窗体的背景,必须设置C属性.A、AppearanceB、BorderStyleC、BackStyleD、BackColor74 当窗体被关闭时,系统自动执行该窗体的 A 事件过程;A、UnloadB、LoadC、LostFocusD、Click75 要使窗体运行时充满整个屏幕,应设置其 D 属性;A、AutoRedrawB、WidthC、 HeightD、WindowState76 要使得窗体一开始运行就充满整个屏幕则须设置属性. AA、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预先设计好的,用户不能改变81 MaxLength属性可以设置文本框可以输入与显示的最多字符个数,当其值为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、=〞欢迎使用VB〞B、="欢迎使用VB"C、=欢迎使用VBD、=ˊ欢迎使用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的输出结果为CA、SGN-26=-26B、SGN-26=26C、SGN-26=-1D、SGN-26=+1102、若要使得文本框的初始值为空,则应更改文本框的属性是 AA、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、Private Sub Timer1_TimerB、Private Sub Label1_DblClickC、Private Sub Label1_ChangeD、Private Sub Label1_Click119、如果设计时在属性窗口将命令按钮的B属性设置为False,则运行时按钮从窗体上消失.A、DisabledPictureB、VisibleC、DefaultD、Enabled120、一个窗体上有两个文本框,按放置顺序分别是：Text1,Text2 ,要想在Text1中按“回车”键,“焦点”自动转到Text2上,应在 D 事件过程中编写程序;A、Private Sub Text1_ClickB、Private Sub Text2_GotFocusC、Private Sub Text1_LostFocusD、Private Sub Text1_KeyPressKeyAscii As Integer121、文本框中选定的内容,由下列 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、=+B、=+C、=+D、=+134、不具有输入数据功能的控件是C控件.A、列表框B、选项按钮C、窗体D、文本框135、程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是A.A、LoadB、ClickC、MouseDownD、MouseUp136、列表框和组合框的 B 属性的值,表示其列表中项目的个数;A、 ListIndexB、 ListCountC、ListD、Text137、在定义静态数组时,关于下标的叙述中,正确的是 A ;A、省略下界,一般系统默认为：下界是 0B、下标可以是字符型C、下标下界最小为：-32768 ,下标上界最大为：32767D、下标可以是变量;138、下列程序：Private Sub Textl _ChangePrint Textl；End Sub当在文本框输入"1234"这4个字符时,窗体上显示的是 DA、1234B、1 12 123 1234C、1 2 3 4D、139、下面对象在运行时一定不可见. CA、LineB、OptionC、TimerD、Text140、若要清除列表框的所有内容,可用什么方法实现 CA、以上均不可以B、ClsC、ClearD、RemoveItem141、要使时钟控件Timer1的Timer事件不起作用,以下正确的语句是 AA、=FalseB、=0C、=1000D、=False142、为使计时器控件每隔5秒钟产生一个计时器事件Timer事件,则应将其Interval属性值设置为 D.A、300B、5C、500D、5000143、将数据项"China"添加到列表框List1中成为第一项应使用的语句是 A;A、〞China〞,0B、〞China〞,1C、 0, 〞China〞D、 1,〞China〞144、在程序代码中修改滚动条的value 属性时将激发滚动条的 D事件.A、scrollB、dragdropC、gotfocusD、change145、循环结构For I%= -1 to -17 Step -2 共执行 C次.A、6B、5C、9D、8146、执行下面的程序段后,x 的值为 Dx=5For i=1 To 20 Step 2x=x+i\5Next iA、24B、23C、22D、21147、由For k=10 to 0 step 3:next k循环语句控制的循环次数是 D. A、-11C、-10D、0148、下列方法中可用于列表框动态添加数据的是 D.A、removeitemB、addlistC、addD、additem149、组合框控件是将组合成一个控件. AA、列表框控件和文本框控件B、复选框控件和选项按钮控件C、标签控件和列表框控件D、标签控件和文本框控件150、下面程序段输出的结果是 DPrivate Sub Command1_Clickx = 8For i = 0 To 20 Step 5x = x + iNextPrint "X="; xEnd SubA、X=50B、X=218C、X=210D、X=58151、定时器的Interval属性以为单位指定Timer事件之间的时间间隔. CA、分B、微秒C、毫秒D、秒152、由For k=35 to 0 step 3:next k循环语句控制的循环次数是. AA、0B、-10C、12D、-11153、在列表框中当前被选中的列表项的序号是由下列哪个属性表示. CA、ListB、IndexC、ListIndexD、TabIndex154、设计动画通常使用时钟控件来控制动画速度. CA、EnabledB、TimerC、IntervalD、Move155、为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择,则应将列表框的Multiselect属性设置为. CA、1B、3C、2D、0156、引用列表框的最后一项应使用. DA、ListCount-1B、C、ListCount157、列表框控件中的列表内容是通过属性设置的. AA、ListB、CaptionC、NameD、Text填空1.在窗体上已建立多个控件,如Text1,Label1,Command1,若要使程序一运行焦点就定位在Command1控件上,应对Command1控件的__tabindex___属性设置为_TabIndex____;2.日期表达式 2/24/02 - 2/12/02 的值为_12____;3 .已知a=,b=,c=,d=True,则表达式：a>=0 AND a+c>b+3 OR NOT d的值是_false____;4.表示x是5的倍数或是9的倍数的逻辑表达式为__x mod 5 = 0 OR x mod 9 = 0___;5.在刚建立工程时,使窗体上的所有控件具有相同的字体格式,就对__font___的属性进行设置;、Int、Fix、Fix的值分别是_-3____、___2__、__-2___、____3_;和TextBox控件用来显示和输入文本,如果仅需要让应用程序在窗体中显示文本信息,可使用_label___控件；若允许用户输入文本,则应使用_Textbox____控件;8.若命令按钮的名称为Cmdopen,程序要求单击该命令按钮时,打开一个窗口frm1,请对以下事件过程填空;Private Sub Cmdopen_Click_____end sub9.表达式93 \ 7 Mod 2 ^ 2 的值是__1___;10.表达式UcaseMid“abcdefgh”,3,4的值是__CDEF___;11.当程序运行时,要求窗体中的文本框呈现空白,则在设计时,应当在此文本框的__属性___窗口中,把此文本框的__text___属性设置成空白;12.已知a=3,b=4,c=5,表达式a>b and Not c>a Or c>b And c<a+b的值是__true___;表达式c>a And Not b<c的值是__false___;程序设计1.'------------------------------------------------'程序改错'------------------------------------------------'题目：程序功能：求1+2+3……,直到其和超出3000为' 止,并输出结果;'------------------------------------------------Option ExplicitPrivate Sub Form_ClickClsDim i As IntegerDim s As Singlei =0s = 1Do'ERRORi = i + 2s = s + i'ERRORLoop s > 3000Print "从1 到:"; i; "的和是"; sEnd Sub答案学生答案i = i + 2参考答案i=i+12. '------------------------------------------------'程序改错'------------------------------------------------862'题目：以下程序段用于输出100-300的所有素数'------------------------------------------------Option ExplicitPrivate Sub Form_ClickDim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2k = IntSqrni = 2'ERRORswit = 1'ERRORWhile swit = 0If n Mod i = 0 Thenswit = 1Else'ERRORi = i - 1End IfWendIf swit = 0 ThenPrint n;End IfNext n答案学生答案swit = 1参考答案swit=0学生答案While swit = 0参考答案While i<=k And swit =0While k>=i And swit=0While swit=0 And i<=kWhile swit=0 And k>=i学生答案i = i - 1参考答案i=i+1ExplicitPrivate Sub Form_ClickDim i As Integer, j As Integer, k As Integer Print Tab30; "99 table"Print: PrintPrint " ";For i = 1 To 9'ERRORPrint Tabi 6; iNext iPrintFor j = 1 To 9Print j; " ";For k = 1 To jPrint Tabk 6; j k; " ";'ERRORNext jPrint'ERRORNext k答案学生答案Print Tabi 6; i参考答案Print Tabi 6; i;学生答案Next j参考答案Next k学生答案Next k参考答案Next j4.'------------------------------------------------ '程序改错'------------------------------------------------ '题目：以下程序段用于计算5的N次方;'------------------------------------------------ Option ExplicitPrivate Sub Form_ClickDim n As Integer, k As Integer, s As Long n = InputBox" Input n "'ERRORk = 0'ERRORs = 0Do While k <= ns = s 5k = k + 1'ERRORNextPrint "5的"; "n次方是"; sEnd Sub答案学生答案k = 0参考答案k=1学生答案s = 0参考答案s=1学生答案Next参考答案loop'------------------------------------------------ 5.'程序改错'------------------------------------------------ '题目：以下程序段用于打印如图1所示的九九乘法表：'------------------------------------------------ Option ExplicitPrivate Sub Form_ClickDim i As Integer, j As Integer, k As IntegerPrint Tab30; "99 table"Print: PrintPrint " ";For i = 1 To 9'ERRORPrint Tabi 6; iNext iPrintFor j = 1 To 9Print j; " ";'ERRORFor k = 1 To 9'ERRORPrint Tabj 6; j k; " ";Next kPrintNext jEnd Sub答案学生答案Print Tabi 6; i参考答案Print Tabi6;i;学生答案For k = 1 To 9参考答案For k = 1 To j学生答案Print Tabj 6; j k; " ";参考答案Print Tabk6;jk;" ";6.'程序改错'------------------------------------------------ '题目：下面程序可输出如下图形：''''''------------------------------------------------Option ExplicitPrivate Sub Form_ClickDim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4m = 1s = ""For i = 5 To 1 Step -1'ERRORPrint SpcnFor j = 1 To 2 m - 1Print s;Next jPrint'ERRORn = n + 1'ERRORm = m - 1Next i答案学生答案Print Spcn参考答案Print Spcn;Print Spci;Spcn;Spci;学生答案n = n + 1参考答案n=n-1n=-1+n学生答案m = m - 1参考答案m=m+17.'题目：以下程序段用于输出100-300的所有素数'------------------------------------------------Option ExplicitPrivate Sub Form_ClickDim n As Integer, k As Integer, i As Integer, swit As Integer For i = 101 To 299k = IntSqriFor n = 2 To kIf i Mod n = 0 Then'ERRORExitEnd IfNext n'ERRORIf n < k ThenPrint i;End If'ERRORNext n'Print i答案学生答案Exit参考答案exit for学生答案If n < k Then参考答案If n>k ThenIf k<n Then学生答案Next n参考答案next iNext i程序填空1.'从键盘输入三个整数,从其中找出最大值并输出到窗口Private Sub Form_ClickDim a%, b%, c%, max%a = ValInputBox"请输入一个整数"b = ValInputBox"请输入一个整数"c = ValInputBox"请输入一个整数"max=a'FILLIf ______Thenmax=bEnd IfIf max < c Then'FILL________End If'FILLPrint a; "、"; b; "、"; c; "中最大值是";______End Sub答案学生答案If ______Then参考答案max<bmax<=bb>maxb>=max学生答案________参考答案max=c学生答案Print a; "、"; b; "、"; c; "中最大值是";______参考答案max2.以下程序的功能;'Private Sub Form_ClickDim a%, b%, c%, dDim x1, x2Dim p, q, ra = InputBox"请输入a的值"b = InputBox"请输入b的值"c = InputBox"请输入c的值"d = b b - 4 a cp = -b / 2 aIf d >= 0 Then'FILLIf _____ Thenr = Sqrd / 2 ax1 = p + rx2 = p - rElsex1 = px2 = p'FILL_____Print "x1="; x1, "x2="; x2'FILL_____q = Sqr-d / 2 aPrint "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i" End If答案学生答案If _____ Then参考答案d>0学生答案_____参考答案End ifEnd Ifend if学生答案_____参考答案elseElseELSE3.'从键盘输入学生分数,统计学生总人数和各分数段人数, '即优秀90-100、良好80-89、中等70-79、' 及格60-69、不及格60以下的人数;Private Sub Form_ClickDim score%, n1%, n2%, n3%, n4%, n5%msg = "请输入分数-1结束"msgtitile = "输入数据"score = ValInputBoxmsg, msgtitle'FILLWhile _____total = total + 1'FILLSelect Case _____Case Is >= 90n1 = n1 + 1Case Is >= 80n2 = n2 + 1Case Is >= 70n3 = n3 + 1Case Is >= 60n4 = n4 + 1Case Elsen5 = n5 + 1'FILL_____score = ValInputBoxmsg, msgtitleWendPrint n1, n2, n3, n4, n5, totalEnd Sub答案学生答案While _____参考答案score>=0 and score<=100score>=0 and score<=100score<>-1学生答案Select Case _____参考答案score学生答案_____参考答案End Select4．以下程序段用于实现：输入两个正整数m和n,求其最大'公因数和最小公倍数;Private Sub Form_ClickDim a%, b%, num1%, num2%, tempnum1 = InputBox"请输入一个正整数"num2 = InputBox"请输入一个正整数"'FILLIf _____ Thentemp = num1: num1 = num2: num2 = tempEnd Ifa = num1b = num2Do While _____temp = a Mod ba = b'FILL_____LoopPrint "最大公因数为："; aPrint "最小公倍数为："; num1 num2 / a答案学生答案If _____ Then参考答案num1<num2num2>num1学生答案Do While _____参考答案b<>0b>00<btemp<>0temp>00<tempNot b=0Not 0=b学生答案_____参考答案b=temp5．'以下程序用于判断一个正整数≥3是否为素数;' Private Sub Form_Clickn = InputBox"请输入一个正整数≥3"k = IntSqrni = 2swit = 0'FILLDo While i <= k And _____'FILLIf _____ Thenswit = 1Else_____End IfLoopIf swit = 0 ThenPrint n; "是一个素数"ElsePrint n; "不是素数"End IfEnd Sub答案学生答案Do While i <= k And _____参考答案swit=0学生答案If _____ Then参考答案n Mod i = 0n \ i = n / in / i = int n / i学生答案_____参考答案i = i + 16．题目：从键盘上输入一串字符,以""结束,统计输入字符中的' 大、小写字母和数字的个数;Private Sub Form_ClickDim ch$, n1%, n2%, n3%n1 = 0n2 = 0n3 = 0ch = InputBox"请输入一个字符"'FILLDo While _____Select Case chCase "a" To "z"n1 = n1 + 1'FILLCase _____n2 = n2 + 1Case "0" To "9"n3 = n3 + 1End Selectch = InputBox"请输入一个字符"'FILL_____Print n1, n2, n3答案学生答案Do While _____参考答案do while ch<>""Do While ch<>""学生答案Case _____参考答案case "A" to "Z"Case "A" to "Z"学生答案_____参考答案loopLoop窗体设计1 在名称为Form1的窗体上画一个文本框,名称为Txt1；再画一个命令按钮,名称为C1,标题为"移动",如图1所示;请编写适当的事件过程,使得在运行时,单击"移动"按钮,文本框水平移动到窗体的最左端如图2所示;程序中不得使用任何变量;注意：完成题目后,必须保存工程后再关闭;控件标准答案：Name=C1学生答案：Name=控件属性评分错误控件标准答案：Caption=移动学生答案：Caption=控件属性评分错误控件标准答案：Name=Txt1学生答案：Name=事件评分错误事件Private Sub C1_Click标准答案： = 0学生答案：二 1、利用 VB设计上面的程序界面;窗体的标题为"字体修改"；其中包括一名称为Label1,标题为"请输入文字"的标签；一名称为Text1,内容为空的文本框；名称为Command1,标题为"隶书",名称为Command2,标题为"黑体"的两个命令按钮;2、程序功能：单击"隶书"命令按钮时,文本框的字体设为"隶书"；单击"黑体"命令按钮时,文本框的字体设置为"黑体";提示：不能使用任何变量事件Private Sub Command2_Click标准答案： = "黑体"学生答案：控件属性评分错误控件标准答案：Caption=隶书学生答案：Caption=事件评分错误事件Private Sub Command1_Click标准答案： = "隶书"学生答案：控件属性评分错误控件标准答案：Caption=请输入文字学生答案：Caption=三在名称为Form1的窗体上建立一个名称为List1的列表框;要求：在程序运行后,通过Form_Load事件过程加载窗体时,执行语句 "AAA",每当单击某个列表项时,都执行语句一次,如图所示;事件Private Sub Form_Load标准答案： "AAA"学生答案：事件评分错误事件Private Sub List1_Click标准答案：四在名称为Form1的窗体上建立一个水平滚动条,名称为HS1,其最大值为100,最小值为0;要求程序运行后,每次移动滚动框时,都执行语句 ,如图所示程序中不能使用任何变量事件Private Sub HS1_Scroll标准答案： Print学生答案：控件属性评分错误控件标准答案：Name=HS1学生答案：Name=控件属性评分错误控件标准答案：Max=100五 1、在名称为Form1的窗体上建立一个名称为l1的标签,并设置他不可见；两个名称为cmd1和cmd2,标题分别为"显示1"和"显示2"的命令按钮;2、编写适当的事件过程,要求程序运行后,如果单击"显示1"命令按钮,则标签可见并显示字符串"aaa"；如果单击"显示2"命令按钮,则标签可见并显示字符串"bbb";程序中不能使用任何变量,直接显示字符串；不能使用默认属性;程序开始运行时界面如图1所示标准答案：Caption=显示1学生答案：Caption=控件属性评分错误控件标准答案：Visible=0 'False学生答案：Visible=控件属性评分错误控件标准答案：Name=l1学生答案：Name=控件属性评分错误控件标准答案：Name=cmd2学生答案：Name=控件属性评分错误控件标准答案：Name=cmd1学生答案：Name=事件评分错误事件Private Sub cmd1_Click标准答案： = True= "aaa"学生答案：事件评分错误事件Private Sub cmd2_Click标准答案： = "bbb"六 1、在名称为Form1的窗体上画一个文本框,名称为Text1,且不可见；再画两个命令按钮,名称分别为c1和c2,标题分别为"隐藏"和"显示";2、请编写适当的事件过程,使得在运行时,如果单击"隐藏"按钮,则文本框消失；如果单击"显示"按钮,则文本框显示出来,如图1和图2所示;程序中不得使用任何变量;控件属性评分错误控件标准答案：Name=c2学生答案：Name=控件属性评分错误控件标准答案：Caption=显示学生答案：Caption=控件属性评分错误控件标准答案：Name=c1学生答案：Name=控件属性评分错误控件标准答案：Caption=隐藏学生答案：Caption=控件属性评分错误控件标准答案：Visible=0 'False学生答案：Visible=事件评分错误事件Private Sub c2_Click标准答案： = True学生答案：事件评分错误事件Private Sub c1_Click标准答案： = False学生答案：七标题为"输出"的命令按钮,如图1-12所示;要求程序运行后,在文本框输入几个字符,单击"输出"按钮,则在窗体上显示文本框中的文字;注意：在程序中不能使用任何变量,不能使用默认属性;控件属性评分错误控件标准答案：Name=Cmd1学生答案：Name=控件属性评分错误控件标准答案：Caption=输出学生答案：Caption=事件评分错误事件Private Sub Cmd1_Click标准答案： Print学生答案：八在名为Form1的窗体上画一个框架,名称为Frm1,标题为"框架",高度为2500,宽度为4000,框架内建立一文本框,距左边框600,距框架的上边框1200,文本框中的初始内容设置为"文本框",如图所示;注意：完成试题后,必须保存,然后关闭窗口;控件属性评分错误控件标准答案：Name=Frm1学生答案：Name=控件属性评分错误控件标准答案：Height=2500学生答案：Height=控件属性评分错误控件标准答案：Width=4000学生答案：Width=控件属性评分错误控件标准答案：Left=600学生答案：Left=控件属性评分错误控件标准答案：Text=文本框学生答案：Text=控件属性评分错误控件标准答案：Top=1200学生答案：Top=九 2、界面中窗体的标题为：密码的显示；3、窗体中包括两个文本框,他们的名称分别为p asstxt和showtxt,其中：passtxt用于密码输入,当在其中输入信息时,显示为""；4、showtxt文本框,在程序运行时不能用,只能显示密码;5、具体功能：程序运行时,当在文本框passtxt中输入密码时,showtxt中同时将输入的内容原样显示;提示：不能使用任何变量,不能使用默认属性窗体属性评分错误窗体标准答案：Caption=密码的显示学生答案：Caption=Form1控件属性评分错误控件标准答案：Name=showtxt学生答案：Name=控件属性评分错误控件标准答案：Enabled=0 'False学生答案：Enabled=。
