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

1、大一VB语言程序设计期末考试题 一、选择题 C）。下列常量中，是类型常量的是（1 Integer A、123& B、-38844 C、123% D、32768 A） ()是字符连接运算符.2（下面选项中A、& B、And C、% D、Mod B。）的叙述中，不正确的是（）3下面关于的集成开发环境（ IDEVB 程序的工具。是设计、调试、运行VBA、IDE 中的窗口。、用户不能随意关闭IDEB 窗口是用来设计应用程序界面（窗体）的。窗体设计C、 菜单中。/ 关闭各窗口的命令主要在IDE的视图D、打开 C。程序设计 ”)=( ) 4len(“vb 5 A、 2B、 6C、 10D、D 2 的值是5

2、 + 13 * 54表达式 15 Mod A、7 B、0 C、2 D、4A。（）执行后，6赋值语句 A= “123456”,3,2) + A=123 Mid$( 、A157 、12334B 、123C 、?DC 7在一个语句内写多条语句时,用来分隔每条语句的符号是(). ,A、 ;B、 C、: D、D。）8将逻辑型数据转换成整型数据时，转换规则是（ 0、将True转换为，将1 False转换为A 1 ，将False转换为TrueB、将转换为-1 -1转换为、将CTrue转换为0 ，将False 转换为0False TrueD、将转换为-1，将D ).(中最先进行的运算是2+3*45-SIN(X

3、+1)/2表达式9A、SIN B、45 C、3*4 D、x+1 B）的值（。10如果，则表达式 Orsin(x)0.9 And x=23x+3x+12A、不能计算 B、 True C、5 D、False D。），11随机产生之间整数的正确表达式是（ 10 50 Rnd*50)A、Round( Int(Rnd*40+10)B、 Rnd*51)C、Round( 10+Int(Rnd*41)D、C 每建立一个窗体,工程管理器窗口中就会增加一个().12 A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件B ).产生的随机整数的闭区间是13(INT(100*RND(1) A、1,100 B0

4、,99、 0,100C、 1,99D、D ).14(下列数据类型中,占用内存最小的是 、IntegerA 、SingleB 、BooleanC ByteD、B VisualBasic是一种()程序设计语言.15 、过程式A B、非过程式 C、机器 D、低级A .)16范围内的整数函数Int(10*Rnd)是在( 0,9A、 、0,1B 、1,9C 1,10D、C Visual Basic17用户标识符是以下合法的一组 和8abcSumA、 a#xB、Pi和 Total和ForLoopC、 DoWhile 和 Const、D(B) . Len(Str(Val(S.4)18的值为函数A、5 B、6

5、 C、8 D、11 B 的值为Int(198.555*100+0.5)/10019A、199.6 B、198.56 C、200 D、198 A ). 的是(, 计算结果为200以下各表达式中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) D的正确语法是（）。 21 MsgBox()A、 MsgBox(标题 ，提示信息 ，按钮类型) B、 MsgBox(提示信息，标题 ，按钮类型) C、MsgBox(标题 ，按钮类型 ，提示信息) D、 MsgBox(提示信

6、息 ，按钮类型 ，标题) (C) . 5=2+3 10+2 8-3 ORA、10 B、-3 C、True D、False D) .( 的值是Mod 9 * 7 / 8 23表达式4+5 6A、7 B、4 C、6 D、5 D) .( 后,x24的值为设a=6,则执行x=IIf(a5,-1,0)A、5 B、0 C、6 D、-1 A）。下面关于的叙述中，不正确的是（25 VB A、用VB编写的程序可以在任何操作系统环境中运行。 B、VB是面向对象的可视化的软件开发工具。 C、VB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。 D、VB是由美国Microsoft

7、（微软）公司开发程序设计语言。 A。表达式26 )/ 4-25*8 4Mod 52=(/16 A、4 B、0 C、-2 -6 、D(B) .声明符号常量应该用关键字 27A、Private B、Const C、Static D、V26/ariant (D) .占用内存最大的是28 下列数据类型中,A、Boolean B、Integer C、Byte D、Single D）数据类型中，占用内存最少的是（。29下列 VBA、Currency B、Integer C、Boolean D、Byte RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB 30(红.绿.蓝),括号中红、绿、蓝三

8、基色的成分使用0255之间 的整数.若使用三个滚动条分别输入三种基色,为保证输入数值 (B)属性.则应设置 有效,A、Scroll和Change B、Max和Min C、Smallchange和 LargeChange D、Value B。， ) )=( str( k )31 k=12.5 len(A、 4 B、5 C、 3 D、 2 D 表达式Abs(-5)*55/532的值是A、1 B、5 C、-25 D、25 (C) .表达式是 产生10,37之间的随机整数的33VisualBasicA、Int(Rnd(1)*27)+11 B、Int(Rnd(1)*28)+11 C、Int(Rnd(1)

9、*28)+10 D、In t(Rnd(1)*27)+10 (B). 按钮的作用是34工具栏中的启动A、工程管理窗口 B、运行一个应用程序 C、打开被选中对象的代码窗口 D、运行一个窗体 B）。35不需要编译，计算机便可直接执行的程序是（ 语言程序C、AB、 机器语言程序 C、 汇编语言程序 D、 Visual Basic语言程序 D）。（ Val (“123ab”)= 36 A、0 B、 不能转换 C、1230 D、123 A 的值为表达式16/4-25*8/4MOD5237A、4 B、2 C、14 D、20 (D). 38删除字符串前导和尾随空格的函数是A、Rtrim( ) B、Ltrim(

10、) C、Lcase D、Trim() (C). 的是其值为390下列表达式中,A、15 mod 9 B、7/9 C、79 D、7 mod 15 B 的值是 表达式Len(S程序设计40ABC) 17A、 10B、 14C、 20D、_C_。 (-4.6)=_41_Int(-3.1)+roundA、-8 -6、BC、-9 D、-7 (A) .优先级最低的是 等4个算术运算符中,42、/Mod、*A、Mod B、/ C、* D、 D）。43下面正确的赋值语句是（ A、x=y=1 B、x+2=y2+2 C、x+y=1 D、x=y+z1 (A) . 的值是实践应用能力44敌?)6、AB、4 C、不能确

11、定 D、8 (C). Mid(SHANGHAI,6,3)45的值是表达式A、ANGH B、SHA C、HAI D、SHANGH (B) . *Int(4.5)的值为表达式253 mod 346A、1 B、8 C、4 D、5 C）47下面变量名称正确的是（。 A、x 1 B、integer C、 x_1_y D、 x , y 不能正确表示条件两个整型变量A和B之一为0,48但不能同时为尰 (D). 的布尔表达式A、A*B=0ANDAB B、(A=0ORB=0)ANDAB C、A=0ANDB0ORA0AND B=0 D、A*B=0AND(A=0ORB=0) (C). 保留两位小数的表达式是,将千分

12、位四舍五入49,如果X是一个正的实数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) (D). 是表达式50X+1XA、非法表达式 B、字符表达式 C、算术表达式 D、关系表达式 51 (B).的编程机制是VisualBasic 、面向图形A 、事件驱动B 、面向对象C 、可视化D52 (A).4项中合法的变量名是下面 X_yzA、 X-Y、B 123abc、C integerD、53 (C).变量名的是VB以下可以作为 COS(X)、A X(-1)B、 CO1C、 S

13、IND、54 (B).(73+1)*(185-1)的值是表达式 8.76A、 6B、 6.67C、 7.8D、55 (C).下列哪个变量名的取法是不正确的 sTmeA、 T_12B、 T12%C、 T_TempD、56 (B).可以同时删除字符串前导和尾部空白的函数是 LtrimA、 Trim、B Mid、C Rtrim、D57 (A).窗体文件的扩展名是VB FRM、A VBW、B VBP、C BAS、D58 一个具有图形用户界面的“标准EXE”工程必须包含的文件是（ A ）。 、工程文件和窗体文件。A 、窗体文件和标准模块文件。B 、工程文件和资源文件。C 、工程文件和标准模块文件。D59

14、 数学式3X5写成VB表达式是（ A ）。 X5A、3=Xand 5=3andB X53=Xor、C 3=X5、D60 (A).的值是表达式INT(8*SQR(36)*10(-2)*10+0.5)/10 .5、A 0.48、B .05、C 0.048、D61 (C).,数值型变量的值为变量未赋值时 、空A 、无任何值B 0C、 1、D A ）。 62正确的变量名是（ xy_01A、 t01saB、 3xy、C integer、D 。_A_是C$时，则true为Ucase$(C$)”A”当 63 、字母A 、大写字母B 小写字母、 C 不一定、 D64 (A).(-1)*Sgn(-100+Int

15、(Rnd*100)的值是表达式 1A、 -1B、 、随机数C 0D、 D的结果是abcd )&S)65 表达式print 敌?牴浩尨 abcdA、 9B、 123、C 7、D66 .B值Rnd函数不可能产生的() 0、A 1、B 0.1234、C .00005、D67 下面变量名称不正确的是（ B ）。 x1、A 1x、B x1y C、 x_1、D68 (B).下列哪个变量名的取法是不正确的 T_TempA、 T32#B、 T32C、 TNameD、69 (C).,可以是选中复选框控件时,value属性的值 TrueA、 falseB、 1、C 0、D70 程序运行时，如果复选框被用户选中，那

16、么其Value属性值为（ A。 ） 1、A False、B True C、 0 D、 ）。属性值为（71 程序运行时，如果单选框被用户选中，那么其Value D 0、A 1B、 FalseC、 True、D 72.A下列()是窗体文件的扩展名 frmA、 cls、B dllC、 basD、73.属性(C)必须设置,要使标签能透出窗体的背景 AppearanceA、 BorderStyleB、 BackStyleC、 BackColorD、 当窗体被关闭时，系统自动执行该窗体的（ A ）事件过程。 74 UnloadA、 LoadB、 LostFocusC、 ClickD、75 要使窗体运行时充

17、满整个屏幕，应设置其（ D ）属性。 AutoRedrawA、 WidthB、 HeightC、 WindowStateD、 76A ()属性. 要使得窗体一开始运行就充满整个屏幕则须设置 windowstate、A borderstyle、B appearance、C drawmode、D 77MultiLine则应先将其要使一个文本框具有水平和垂直滚动条, (A).属性设置为然后再将ScrollBar属性设置为True, 3、A 0B、 1C、 2D、78 (C).决定控件上文字的字体、字形、大小及效果的属性是 TEXTA、 CAPTIONB、 FONTC、 NAMED、79 (A).可以

18、打开的窗口是在窗体设计器窗口双击窗体的任何地方, 、代码窗口A 个选项都不对3B、以上 、工程管理窗口C 、属性窗口D 80(D).下列关于属性设置的叙述错误的是 用户可以改变预先设计好的VB,A、一个控件具有什么属性是 也可以用程序代码设置、一个控件的属性即可以在属性窗口中设置,B 还可以利用程序代码为其设置新值、一个控件的属性在属性窗口中设置,C 用户不能改变,VBD、一个控件具有什么属性是预先设计好的81 (D).时表示当其值为0属性可以设置文本框可以输入与显示的最多字符个数MaxLength, 、不允许输入字符A 、以上都不正确B 但显示不限制、不允许输入任何字符,C 、输入的字符长度

19、不限D 82.Caption属性(C) 下面控件不具有 、标签框A 、命令按钮B 、文本框C、单选钮D83 (D).,则在程序中应设置其哪一属性的值要使标签能够显示所需要的东西 NameA、 TextB、 AutoSizeC、 CaptionD、 程序运行时，要限制文本框的输入长度，那么应设置（ A ）。 84 MaxLengthA、 EnabledB、 LockedC、 MultiLine、D85 (D).事件的名称 、是不固定的A 有的由系统定义,B、有的由用户定义 、都要由用户定义C 、都是由系统预先定义D86若设置窗体的BorderStyle=1，则在程序运行时窗体的行为是（ A ）。

20、 、窗体没有最大化和最小化按钮，窗体可以移动，但不能改变大小。A 、窗体有最大化和最小化按钮，窗体既可以移动，也可以改变大小。B 、窗体没有最大化和最小化按钮，窗体既不能移动，也不能改变大小。C 、窗体有最大化和最小化按钮，窗体可以移动，但不能改变大小。D 87(D). 如果要设置窗体的标题栏,应选择以下那种属性 TipsA、 NameB、 TextC、 CaptionD、 88(D).应设置其哪一属性值要把一个命令按钮设置成无效, Visible、A Default、B CancelC、 EnabledD、 89.(C)方法 将焦点主动设置到指定的控件或窗体上,应采用 SetText、A G

21、etGata、B SetFocus、C SetData、D）属性。 属性值而自动调整，应设置其（ B 90 要使标签控件的大小随Caption AlignmentA、 AutoSizeB、 Width、C Caption、D 91(C).能够改变窗体边框线类型的属性是 FontStyleA、 BorderB、 BorderStyle、C BackStyleD、 92(A).要使Form1窗体的标题栏显示欢迎使用VB,以下语句正确的是 Form1.Caption=、欢迎使用VBA ?、B潆浲?慃瑰潩?欢迎使用VB欢迎使用Form1.Caption=、C VB、Form1.Caption=欢迎使用

22、 D 93(D). 文本框所没有的属性是 VisibleA、 BackColorB、 EnabledC、 CaptionD、 94(D).,工程文件的扩展名是 在VB环境中 .frxA、 .basB、 .frmC、 .vbpD、95 (B).,应设置命令按钮的如果要在命令按钮上显示图形文件 属性属性和GraphicsA、Style 属性Picture、Style属性和B 属性PictureC、 属性GraphicsD、96 要使鼠标指向“命令按钮”时，出现一个提示文本，应设置其（A ）属性。 ToolTipTextA、 Style、B Picture、C Caption、D 97(B).共同具

23、有的属性是不论何控件, ForeColor、A Name、B Caption、C Text、D 要使标签控件标题内容居中显示，应设置其（）属性。B 98 ToolTipText A、 Alignment B、 BackStyle、C Appearance、 D ）。焦点”的方法是（ A “ 使命令按钮获得99 SetFocus、A Move、B RefreshC、 LinkSendD、 100C改变控件在窗体中的上下位置应修改控件的()属性. Height、A Wide、B TopC、 LeftD、 ）C101、语句PRINTSGN(-26)=;SGN(-26)的输出结果为（ SGN(-26)

24、=-26A、 SGN(-26)=26B、 SGN(-26)=-1、C SGN(-26)=+1D、 ）,、若要使得文本框的初始值为空则应更改文本框的属性是 （A102 textA、 indexB、name、C captionD、103、 .C)属性进行设置要使得标签能自动扩充以满足字体大小则可对其( tagA、 alignmentB、 autosizeC、 usemnemonicD、104、 .)方法所使用指定的控件的(C为了把焦点移到某个指定的控件, VisibleA、 RefreshB、 SetFocus、C GetFocus、D105、 C).(如果要给字体加删除线,可以选择下列那种属性

25、FontSize、A FontName、B FontStrikethru、C FontUnderLine、D106、要设置标签控件字体的大小，应设置其（ A ）属性。 Font、A Height、B Width、C Caption、D107、 ).(A窗体文件的扩展名是每个窗体对应一个窗体文件, .frmA、 .vbpB、 .basC、 .clsD、108、 (A).标签控件最重要的属性是 captionA、 text、B name、C width、D109、 .属性(A)对象不具有Caption Timer、A Form、B Option、C LabelD、 110、一个窗体上有三个文本框，

26、按放置顺序分别是：Text1，Text2，Text3 ，若使程序运行时 B ）属性值为 0焦点”，那么，应设置其（ 。 首先获得Text3“ Index、A TabindexB、 TagC、 Top、D 111、 ).D(如果要改变窗体的标题,则需要设置的属性是 BorderStyle、AName、B BackColorC、 CaptionD、112、 .(C)属性欲使某命令按钮失效,应修改命令按钮的 EnableA、 CaptionB、 Enabled、C Visible、D 113、 (D).必须首先设置的属性是为使文本框显示滚动条, Autosize、A Scrollbars、B Ali

27、gnment、C Mulitiline、D 114、 .属性改变控件在窗体中的左右位置应修改该控件的(B) Right、A Left、B Width、C Top、D 115、 (A).Alignment则应将其属性设置为要使标签中显示的文本靠右显示, 1A、 3B、 2C、 0D、116、当设置文本框的ScrollBars=Both 而文本框确没有显示出滚动条，原因是（ A ）。 MultiLine=False、文本框的A 、文本框中没有内容B MultiLine=True、文本框的C Locked=True、文本框的D 117、 (D).则应采用文本框控件的哪个方法要使文本框获得输入焦点,

28、KeyPress、A LostFocus、B GodFocus、C SetFocusD、 118、假设窗体上有一个标签控件（Label1）和一个时钟控件（Timer），要想每隔1秒钟，在标 ）事件过程中编写实现该功能的程序。 A上显示一次系统当前时间，应在（签Label1 Timer1_Timer()Sub 、APrivate Label1_DblClick() Private Sub、B Label1_Change() C、PrivateSub Label1_Click() Sub Private、D119、 False,(B)属性设置为如果设计时在属性窗口将命令按钮的 .则运行时按钮从窗体

29、上消失 DisabledPictureA、 VisibleB、 DefaultC、 EnabledD、 120、一个窗体上有两个文本框，按放置顺序分别是：Text1，Text2 ，要想在Text1中按“回车” 键，焦点”自动转到Text2上，应在（ D ）事件过程中编写程序。 “ Text1_Click()Sub 、Private A Text2_GotFocus() Private SubB、 Text1_LostFocus() Private SubC、 Integer) Text1_KeyPress(KeyAscii As、Private Sub D 、121.属性反映 ),由下列( A

30、文本框中选定的内容 Seltext、A Caption、B sellenght、C Text、D 、122).A4项中不属于面向对象系统三要素的是( 下面 、变量A 、事件B 、方法C 、属性D 、123).要设置的属性是(A若要使命令按钮不可操作, Enabled、A Visible、B Caption、C BackColor、D 、124(D).的内容全部显示为所定义的字符的属性项是文本框控件中将Text Password、A 、以上都不是B 、需要编程来实现C PasswordCharD、如果Print方法在窗体的Load事件过程中不起作用，原因是（ A ）属性值为 。false、125

31、 AutoRedrawA、 ControlBoxB、 Moveable、C MaxButton、D 、126(C).inputBox函数返回值的类型为 、变体A 、数值B 、字符串C )视输入的数据而定(D、数值或字符串 、127(B).属性的作用是Caption窗体的 、确定窗体的边界类型A 、确定窗体的标题B 、确定窗体的名称C 、确定窗体的字体D 、128(A).必须设置属性欲使标签的内容自动换行, WordWrap、A AutoSize、B Alignment、C left、D 、129D用来设置粗体字的属性是 FontItalic、A FontSize、B FontName、C Fo

32、ntBold、D 、130.属性的结果是设置下列(B)Text1控件在运行时不可见, Cancel、A Visible、B ControlBoxC、 EnabledD、 、131.(D)属性,不覆盖其背景内容,应设置标签控件的若要使标签控件显示时 BORDERSTYLEA、 BACKCOLORB、 FORECOLORC、 BACKSTYLE、D 要使“命令按钮”在程序运行时不可见，可以将其（ C ）属性设置为False。 、132 Cancel、A Default、B Visible、C EnabledD、 、133(D).下列赋值语句正确的是 T=Text1.Name+Te

33、xt2.NameA、 Text1.Caption=Text1.Caption+Text2.Caption、B Text1.Enable=Text1.Enable+Text2.Enable、C Text1.text=Text.text+Text2.text、D 、134.(C)不具有输入数据功能的控件是控件 、列表框A 、选项按钮B 、窗体C 、文本框D 、135(A).此时窗体不会接收到的事件是,程序运行后在窗体上单击鼠标, Load、AClick、B MouseDownC、 MouseUpD、 列表框和组合框的（ B ）属性的值，表示其列表中项目的个数。 、136 ListIndex、 A

34、ListCount、 B List、C Text、D ）。 在定义静态数组时，关于下标的叙述中，正确的是（ A、137 0A、省略下界，一般系统默认为：下界是 、下标可以是字符型B 32767，下标上界最大为：、下标下界最小为：-32768 C 、下标可以是变量。D 、138下列程序： _Change() Sub TextlPrivate ；TextlPrint Sub End D4个字符时，窗体上显示的是当在文本框输入?尴这 1234B、1123A、123412 432C、1 1121231234D、 、139C()对象在运行时一定不可见. 下面 LineA、 OptionB、 TimerC

35、、 TextD、 、140C若要清除列表框的所有内容,可用什么方法实现 、以上均不可以A Cls、B Clear、C RemoveItem、D 、141A以下正确的语句是 ,Timer1的Timer事件不起作用要使时钟控件 Timer1.Enabled=FalseA、 Timer1.Index=0B、 Timer1.Interval=1000C、 Timer1.Visible=False、D 、142则应),(Timer事件5为使计时器控件每隔秒钟产生一个计时器事件 D).(Interval将其属性值设置为 300A、 5、B 500、C 5000D、 、143。）A中成为第一项应使用的语句是

36、（(List1)添加到列表框?楨慮将数据项 ,0ChinaA、List1.AddItem ,1ChinaB、List1.AddItem ChinaList1.AddItem 0, C、 China、List1.AddItem 1,D 、144.D)属性时将激发滚动条的(事件在程序代码中修改滚动条的value scrollA、 dragdropB、 gotfocusC、 changeD、 、145.(次C) Step -2 共执行循环结构For I%= -1 to -17 6、A 5、B 9、C 8、D 、146D)的值为(执行下面的程序段后,x x=5 2 Step To 20For i=1

37、x=x+i5 iNext 24A、 23B、 22C、 21D、 、147D).k循环语句控制的循环次数是(0 step 3:next 由For k=10to -11、A 12、B -10、C 0、D 、148D).(下列方法中可用于列表框动态添加数据的是 removeitemA、 addlistB、 addC、 additem、D 、149A组合成一个控件.组合框控件是将() 、列表框控件和文本框控件A 、复选框控件和选项按钮控件B 、标签控件和列表框控件C 、标签控件和文本框控件D 、150D下面程序段输出的结果是 Command1_Click() Private Sub 8 = x 5S

38、tep 20 = i 0 ToFor i+ x x = Next xX=; Print Sub End X=50、A X=218、B X=210、C X=58、D 、151CTimer事件之间的时间间隔.定时器的Interval属性以()为单位指定 、分A 、微秒B 、毫秒C 、秒D 、152A().k 3:next For循环语句控制的循环次数是k=35 to 0 step由 0A、 -10B、 12C、 -11D、 、153C().在列表框中当前被选中的列表项的序号是由下列哪个属性表示 ListA、 Index、B ListIndex、C TabIndex、D 、154C来控制动画速度.设

39、计动画通常使用时钟控件() Enabled、A Timer、B IntervalC、 MoveD、 、155则应键进行多个列表项的选择,Ctrl和Shift为了能在列表框中利用 CMultiselect属性设置为().将列表框的 1、A 3、B 2C、 0D、 、156D引用列表框的最后一项应使用(). List1.List(ListCount-1)A、 List1.List(List1.ListCount)、B List1.List(ListCount)、CList1.List(List1.ListCount-1)、D 、157A ()属性设置的.列表框控件中的列表内容是通过 List、A

40、Caption、B Name、C Text、D 填空 1.在窗体上已建立多个控件，如Text1，Label1，Command1，若要使程序一运行焦点就定位在 Command1控件上，应对Command1控件的_tabindex_属性设置为_TabIndex_。 2.日期表达式 #2/24/02# - #2/12/02# 的值为_12_。 3 .已知 a=2.5，b=5.0，c=2.5，d=True，则表达式：a=0 AND a+cb+3 OR NOT d 的值是 _false_。 4.表示x是5的倍数或是9的倍数的逻辑表达式为_x mod 5 = 0 OR x mod 9 = 0_。 5.在刚

41、建立工程时，使窗体上的所有控件具有相同的字体格式，就对_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，程序要求单击该命令按钮时，打开一个窗口frm1，请对以 下事件过程填空。 Private Sub Cmdopen_Click()_ _frm1.show_ end sub

42、 9.表达式93 7 Mod 2 2 的值是_1_。 10.表达式 Ucase(Mid(“abcdefgh”,3,4)的值是_CDEF_。 11.当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的_属性 _窗口中，把此文本框的_text_属性设置成空白。 12.已知a=3，b=4，c=5，表达式ab and Not ca Or cb And ca And Not b 3000 Print 从1 到:; i; 的和是; s End Sub 答案 【学生答案】 i = i + 2 【参考答案】 i=i+1 2. - 【程序改错】 - 862 题目：以下程序段用于输出100-30

43、0的所有素数 - Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2 k = Int(Sqr(n) i = 2 *ERROR* swit = 1 *ERROR* While swit = 0 If n Mod i = 0 Then swit = 1 Else *ERROR* i = i - 1 End If Wend If swit = 0 Then Print n; End If Next

44、 n End Sub 【学生答案】 答案swit = 1 【参考答案】 swit=0 【学生答案】 While swit = 0 【参考答案】While i=i And swit=0 While swit=0 And i=i 【学生答案】 i = i - 1 【参考答案】 i=i+1 3.Option Explicit Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Print Tab(30); 9*9 慴汢履 Print: Print ; *Print For i = 1 To 9 *ERROR* P

45、rint Tab(i * 6); i Next i Print For j = 1 To 9 Print j; ; For k = 1 To j Print Tab(k * 6); j * k; ; *ERROR* Next j Print *ERROR* Next k 答案 【学生答案】 Print Tab(i * 6); i 【参考答案】 Print Tab(i * 6); i; 【学生答案】 Next j 【参考答案】 Next k 【学生答案】 Next k 【参考答案】 Next j 4.- 【程序改错】 - 题目：以下程序段用于计算5的N次方。 - Option Explicit

46、Form_Click() Sub PrivateDim n As Integer, k As Integer, s As Long n = 湉異?硯尨 Input n ) *ERROR* k = 0 *ERROR* s = 0 Do While k = n s = s * 5 k = k + 1 *ERROR* Next Print _x0005_的; 次方是; s End Sub 答案 【学生答案】 k = 0 【参考答案】 k=1 【学生答案】 s = 0 【参考答案】 s=1 【学生答案】 Next 【参考答案】 loop - 5.【程序改错】 - 题目：以下程序段用于打印如图1所示的九

47、九乘法表： - Option Explicit Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Print Tab(30); 9*9 慴汢履 Print: Print ; *Print For i = 1 To 9 *ERROR* Print Tab(i * 6); i Next i Print For j = 1 To 9 Print j; ; *ERROR* For k = 1 To 9 *ERROR* ; k; * j 6); * Tab(j PrintNext k Print Next j En

48、d Sub 答案 【学生答案】 Print Tab(i * 6); i 【参考答案】 Print Tab(i*6);i; 【学生答案】 For k = 1 To 9 【参考答案】 For k = 1 To j 【学生答案】 Print Tab(j * 6); j * k; ; 【参考答案】 Print 慔?樻欪尻 ; 6.【程序改错】 - 题目：下面程序可输出如下图形： * * * * * - Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4 m = 1 s = ? For i = 5 To 1 Step -1 *ERROR* Print Spc(n) For j = 1 To 2 * m - 1 Print s; Next j Print *ERROR* n = n + 1 *ERROR* m = m - 1 Next i 答案 【学生答案】 Print Spc(n) 【参考答案】 Spc(n); PrintPrint Spc(i); ?Spc(n); ?Spc(i); 【学生答案】 n = n + 1 【参考答案】 n=n-1 n=-1+n 【学生答案】 m = m - 1 【参考答案】