VB考试题及答案课件

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

2、5 B、2 C、 6D、10 5 表达式 15 Mod 4 + 13 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2) 执行后，A=（ A ）。A、157B、12334C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C).A、,B、;C、:D、8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。A、将True转换为 1 ，将False转换为 0B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1D、将True转换

3、为 -1 ，将False转换为 0 9 表达式2+3*45-SIN(X+1)/2中最先进行的运算是(D).A、SINB、45C、3*4D、x+110 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。A、不能计算B、 True C、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、窗

4、体文件D、程序模块文件13 INT(100*RND(1)产生的随机整数的闭区间是(B).A、1,100B、0,99C、0,100D、1,9914 下列数据类型中,占用内存最小的是(D).A、IntegerB、SingleC、BooleanD、Byte15 VisualBasic是一种()程序设计语言.BA、过程式B、非过程式C、机器D、低级16 函数Int(10*Rnd)是在(A)范围内的整数. A、0,9B、0,1C、1,9D、1,1017 以下合法的一组Visual Basic用户标识符是 CA、Sum 和 8abcB、a#x 和 PiC、ForLoop 和 TotalD、Const 和

5、DoWhile18 函数Len(Str(Val("123.4")的值为(B).A、5B、6C、8D、1119 Int(198.555*100+0.5)/100的值为BA、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)21 MsgBox()的正确语法是（ D ）。A、 MsgBox(标题 ，提示信息 ，按钮类型)B、 MsgBox(提示信息，标题 ，按

6、钮类型)C、MsgBox(标题 ，按钮类型 ，提示信息)D、 MsgBox(提示信息 ，按钮类型 ，标题)22 3>8-3 OR 10+2 <=3*4 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=IIf(a>5,-1,0)后,x的值为(D).A、5B、0C、6D、-125 下面关于VB的叙述中，不正确的是（ A ）。A、用VB编写的程序可以在任何操作系统环境中运行。B、VB是面向对象的可视化的软件开发工具。C、VB是在20世纪60

7、年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。 D、VB是由美国Microsoft（微软）公司开发程序设计语言。26 表达式16 / 4-25*8 / 4 Mod 5 2 = ( A )。A、4 B、0C、-2 D、 -627 声明符号常量应该用关键字(B).A、PrivateB、ConstC、StaticD、V26/ariant28 下列数据类型中,占用内存最大的是(D).A、BooleanB、IntegerC、ByteD、Single29 下列VB数据类型中，占用内存最少的是（ D ）。A、CurrencyB、Integer C、Boolean D、Byte 30

8、RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB(红.绿.蓝),括号中红、绿、蓝三基色的成分使用0255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置(B)属性.A、Scroll和ChangeB、Max和MinC、Smallchange和 LargeChangeD、Value31 k=12.5 ，len( str( k ) )=( B ) 。 A、 4 B、5 C、 3 D、 232 表达式Abs(-5)*55/5的值是 DA、1B、5C、-25D、2533 产生10,37之间的随机整数的VisualBasic表达式是(C).A、Int(Rnd(1)

9、*27)+11B、Int(Rnd(1)*28)+11C、Int(Rnd(1)*28)+10D、In t(Rnd(1)*27)+1034 工具栏中的"启动"按钮的作用是(B).A、工程管理窗口B、运行一个应用程序C、打开被选中对象的代码窗口D、运行一个窗体35 不需要编译，计算机便可直接执行的程序是（ B ）。 A、C语言程序B、 机器语言程序C、 汇编语言程序 D、 Visual Basic语言程序 36 Val (“123ab”)=（ D ）。 A、0 B、 不能转换C、1230 D、123 37 表达式16/4-25*8/4MOD52的值为 AA、4B、2C、14D、2

10、038 删除字符串前导和尾随空格的函数是(D).A、Rtrim( )B、Ltrim()C、LcaseD、Trim()39 下列表达式中,其值为0的是(C).A、15 mod 9B、7/9C、79D、7 mod 1540 表达式Len("123程序设计ABC")的值是 BA、17B、10C、14D、2041 Int(-3.1)+round (-4.6)=_C_。 A、-8B、-6 C、-9 D、-7 42 、/、Mod、*等4个算术运算符中,优先级最低的是(A).A、ModB、/C、*D、43 下面正确的赋值语句是（ D ）。A、x=y=1 B、x+2=y2+2C、x+y=1

11、 D、x=y+z1 44 Len("实践应用能力")的值是(A).A、6B、4C、不能确定D、845 表达式Mid("SHANGHAI",6,3)的值是(C).A、ANGHB、SHAC、HAID、SHANGH46 表达式253 mod 3 *Int(4.5)的值为(B).A、1B、8C、4D、547 下面变量名称正确的是（ C ）。A、x 1 B、integer C、 x_1_y D、 x , y48 不能正确表示条件"两个整型变量A和B之一为0,但不能同时为0"的布尔表达式(D).A、A*B=0ANDA<>BB、(A=0

12、ORB=0)ANDA<>BC、A=0ANDB<>0ORA<>0AND B=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、关系表达式51VisualBasic的编程机制是(B).A、面向图形B、事件驱动C、面向对象D、可视化52 下面4项中合

13、法的变量名是(A).A、X_yzB、X-YC、123abcD、integer53 以下可以作为VB变量名的是(C).A、COS(X)B、X(-1)C、CO1D、SIN54 表达式(73+1)*(185-1)的值是(B).A、8.76B、6C、6.67D、7.855 下列哪个变量名的取法是不正确的(C).A、sTmeB、T_12C、T12%D、T_Temp56 可以同时删除字符串前导和尾部空白的函数是(B).A、LtrimB、TrimC、MidD、Rtrim57 VB窗体文件的扩展名是(A).A、FRMB、VBWC、VBPD、BAS58 一个具有图形用户界面的“标准EXE”工程必须包含的文件是（

14、 A ）。 A、工程文件和窗体文件。 B、窗体文件和标准模块文件。C、工程文件和资源文件。D、工程文件和标准模块文件。59 数学式3X5写成VB表达式是（ A ）。A、3<=X and X<5 B、X>=3 and 5<XC、3<=X or X<5D、3<=X<5 60 表达式INT(8*SQR(36)*10(-2)*10+0.5)/10的值是(A).A、.5B、0.48C、.05D、0.04861 变量未赋值时,数值型变量的值为(C).A、空B、无任何值C、0D、162 正确的变量名是（ A ）。A、xy_01 B、sa t01 C、3xyD、

15、integer63 当Ucase$(C$)>”A” and Ucase$(C$)<”Z”为true时，则C$是_A_。A、字母 B、大写字母 C、 小写字母 D、 不一定64 表达式(-1)*Sgn(-100+Int(Rnd*100)的值是(A).A、1B、-1C、随机数D、065 表达式print Len(trim(" abcd ")&"123")的结果是 DA、abcdB、9C、123D、766 Rnd函数不可能产生的()值.BA、0B、1C、0.1234D、.0000567 下面变量名称不正确的是（ B ）。A、x1 B、1x

16、C、 x1yD、x_1 68 下列哪个变量名的取法是不正确的(B).A、T_TempB、T32#C、T32D、TName69 选中复选框控件时,value属性的值,可以是(C).A、TrueB、falseC、1D、070 程序运行时，如果复选框被用户选中，那么其Value属性值为（ A ）。A、1 B、FalseC、 True D、 0 71 程序运行时，如果单选框被用户选中，那么其Value属性值为（ D ）。A、0 B、1 C、FalseD、True 72 下列()是窗体文件的扩展名.AA、frmB、clsC、dllD、bas73要使标签能透出窗体的背景,必须设置(C)属性.A、Appea

17、ranceB、BorderStyleC、BackStyleD、BackColor74 当窗体被关闭时，系统自动执行该窗体的（ A ）事件过程。A、Unload B、Load C、LostFocusD、Click75 要使窗体运行时充满整个屏幕，应设置其（ D ）属性。A、AutoRedrawB、Width C、 Height D、WindowState 76 要使得窗体一开始运行就充满整个屏幕则须设置()属性. AA、windowstateB、borderstyleC、appearanceD、drawmode77 要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为Tru

18、e,然后再将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预先设计好的,用户不能改变8

19、1 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、Locked D、MultiLine 85 事件的名称(D).A、是不固定的B、有

20、的由用户定义,有的由系统定义C、都要由用户定义D、都是由系统预先定义86若设置窗体的BorderStyle=1，则在程序运行时窗体的行为是（ A ）。A、窗体没有最大化和最小化按钮，窗体可以移动，但不能改变大小。B、窗体有最大化和最小化按钮，窗体既可以移动，也可以改变大小。C、窗体没有最大化和最小化按钮，窗体既不能移动，也不能改变大小。D、窗体有最大化和最小化按钮，窗体可以移动，但不能改变大小。87 如果要设置窗体的标题栏,应选择以下那种属性(D).A、TipsB、NameC、TextD、Caption88 要把一个命令按钮设置成无效,应设置其哪一属性值(D).A、VisibleB、Defau

21、ltC、CancelD、Enabled89 将焦点主动设置到指定的控件或窗体上,应采用(C)方法.A、SetTextB、GetGataC、SetFocusD、SetData90 要使标签控件的大小随Caption 属性值而自动调整，应设置其（ B ）属性。A、AlignmentB、AutoSize C、WidthD、Caption 91 能够改变窗体边框线类型的属性是(C).A、FontStyleB、BorderC、BorderStyleD、BackStyle92 要使Form1窗体的标题栏显示"欢迎使用VB",以下语句正确的是(A).A、Form1.Caption=欢迎使

22、用VBB、Form1.Caption="欢迎使用VB"C、Form1.Caption=欢迎使用VBD、Form1.Caption=欢迎使用VB93 文本框所没有的属性是(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 要使鼠标指向“命令按钮”时，出现一个提示文

23、本，应设置其（A ）属性。A、ToolTipTextB、StyleC、Picture D、Caption 97不论何控件,共同具有的属性是(B).A、ForeColorB、NameC、CaptionD、Text98 要使标签控件标题内容居中显示，应设置其（ B ）属性。A、 ToolTipTextB、 AlignmentC、 BackStyle D、 Appearance 99 使命令按钮获得“焦点”的方法是（ A ）。A、SetFocus B、MoveC、RefreshD、LinkSend100 改变控件在窗体中的上下位置应修改控件的()属性. CA、HeightB、WideC、TopD、L

24、eft101、语句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、Set

25、FocusD、GetFocus105、如果要给字体加删除线,可以选择下列那种属性( C).A、FontSizeB、FontNameC、FontStrikethruD、FontUnderLine106、要设置标签控件字体的大小，应设置其（ A ）属性。A、FontB、Height C、Width D、Caption107、每个窗体对应一个窗体文件,窗体文件的扩展名是( A ).A、.frmB、.vbpC、.basD、.cls108、标签控件最重要的属性是(A).A、captionB、textC、nameD、width109、(A)对象不具有Caption属性.A、TimerB、FormC、Opt

26、ionD、Label110、一个窗体上有三个文本框，按放置顺序分别是：Text1，Text2，Text3 ，若使程序运行时Text3首先获得“焦点”，那么，应设置其（ B ）属性值为 0 。A、IndexB、TabindexC、Tag D、Top 111、如果要改变窗体的标题,则需要设置的属性是( D ).A、BorderStyleB、NameC、BackColorD、Caption112、欲使某命令按钮失效,应修改命令按钮的(C)属性.A、EnableB、CaptionC、EnabledD、Visible113、为使文本框显示滚动条,必须首先设置的属性是(D).A、AutosizeB、Scr

27、ollbarsC、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=True 117、要使文本框获得输入焦点,则应采用文本框控件的哪个方法(D).A、KeyPre

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

29、tureB、VisibleC、DefaultD、Enabled120、一个窗体上有两个文本框，按放置顺序分别是：Text1，Text2 ，要想在Text1中按“回车”键，“焦点”自动转到Text2上，应在（ D ）事件过程中编写程序。A、Private Sub Text1_Click()B、Private Sub Text2_GotFocus() C、Private Sub Text1_LostFocus() D、Private Sub Text1_KeyPress(KeyAscii As Integer)121、文本框中选定的内容,由下列( A )属性反映.A、SeltextB、Captio

30、nC、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、AutoRedraw B、ControlBoxC、Moveable D、MaxBu

31、tton 126、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、Cont

32、rolBoxD、Enabled131、若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的(D)属性.A、BORDERSTYLEB、BACKCOLORC、FORECOLORD、BACKSTYLE132、要使“命令按钮”在程序运行时不可见，可以将其（ C ）属性设置为False。A、CancelB、Default C、VisibleD、Enabled 133、下列赋值语句正确的是(D).A、T=Text1.Name+Text2.NameB、Text1.Caption=Text1.Caption+Text2.CaptionC、Text1.Enable=Text1.Enable

33、+Text2.EnableD、Text1.text=Text.text+Text2.text134、不具有输入数据功能的控件是(C)控件.A、列表框B、选项按钮C、窗体D、文本框135、程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是(A).A、LoadB、ClickC、MouseDownD、MouseUp136、列表框和组合框的（ B ）属性的值，表示其列表中项目的个数。A、 ListIndex B、 ListCountC、List D、Text137、在定义静态数组时，关于下标的叙述中，正确的是（ A ）。 A、省略下界，一般系统默认为：下界是 0 B、下标可以是字符型C、下标下界

34、最小为：-32768 ，下标上界最大为：32767 D、下标可以是变量。138、下列程序：Private Sub Textl _Change()Print Textl；End Sub当在文本框输入"1234"这4个字符时，窗体上显示的是 DA、1234 B、1 12 123 1234C、1 2 3 4D、1121231234 139、下面()对象在运行时一定不可见. CA、LineB、OptionC、TimerD、Text140、若要清除列表框的所有内容,可用什么方法实现 CA、以上均不可以B、ClsC、ClearD、RemoveItem141、要使时钟控件Timer1的T

35、imer事件不起作用,以下正确的语句是 AA、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.AddItemChina,0B、List1.AddItemChina,1C、List1.AddItem 0, C

36、hinaD、List1.AddItem 1,China144、在程序代码中修改滚动条的value 属性时将激发滚动条的( D)事件.A、scrollB、dragdropC、gotfocusD、change145、循环结构For I%= -1 to -17 Step -2 共执行( C)次.A、6B、5C、9D、8146、执行下面的程序段后,x 的值为( D)x=5For i=1 To 20 Step 2x=x+i5Next iA、24B、23C、22D、21147、由For k=10 to 0 step 3:next k循环语句控制的循环次数是( D).A、-11B、12C、-10D、0148

37、、下列方法中可用于列表框动态添加数据的是( D).A、removeitemB、addlistC、addD、additem149、组合框控件是将()组合成一个控件. AA、列表框控件和文本框控件B、复选框控件和选项按钮控件C、标签控件和列表框控件D、标签控件和文本框控件150、下面程序段输出的结果是 DPrivate Sub Command1_Click() x = 8 For i = 0 To 20 Step 5 x = x + i Next Print "X=" xEnd SubA、X=50B、X=218C、X=210D、X=58151、定时器的Interval属性以()

38、为单位指定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

39、、3C、2D、0156、引用列表框的最后一项应使用(). DA、List1.List(ListCount-1)B、List1.List(List1.ListCount)C、List1.List(ListCount)D、List1.List(List1.ListCount-1)157、列表框控件中的列表内容是通过()属性设置的. AA、ListB、CaptionC、NameD、Text填空1.在窗体上已建立多个控件，如Text1，Label1，Command1，若要使程序一运行焦点就定位在Command1控件上，应对Command1控件的_tabindex_属性设置为_TabIndex_。2.日

40、期表达式 #2/24/02# - #2/12/02# 的值为_12_。3 .已知a=2.5，b=5.0，c=2.5，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_的属性进行设置。6.Int(-2.6)、Int(2.6)、Fix(-2.6)、Fix(3.6)的值分别是_-3_、_2_、_-2_、_3_。7.Label和TextBox控件用来显示和输入文本，如果

41、仅需要让应用程序在窗体中显示文本信息，可使用_label_控件；若允许用户输入文本，则应使用_Textbox_控件。8.若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。Private Sub Cmdopen_Click()_frm1.show_end sub9.表达式93 7 Mod 2 2 的值是_1_。10.表达式Ucase(Mid(“abcdefgh”,3,4)的值是_CDEF_。11.当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的_属性_窗口中，把此文本框的_text_属性设置成空白。12.已知a=3，b=

42、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_Click()ClsDim i As IntegerDim s As Singlei =0'*ERROR*s = 1Do'*ERROR* i = i + 2s =

43、s + i'*ERROR*Loop s > 3000Print "从1 到:" i; "的和是" sEnd Sub答案 【学生答案】i = i + 2【参考答案】i=i+12. '-'【程序改错】'-862'题目：以下程序段用于输出100-300的所有素数'-Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor n = 101 To 300 Step

44、 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 WendIf swit = 0 Then Print n;End IfNext nEnd Sub答案 【学生答案】swit = 1【参考答案】swit=0【学生答案】While swit = 0【参考答案】While i<=k And swit =0 While k>=i And swit=0 While swit=

45、0 And i<=kWhile swit=0 And k>=i【学生答案】i = i - 1【参考答案】i=i+13.Option ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30); "9*9 table"Print: PrintPrint " * "For i = 1 To 9'*ERROR* Print Tab(i * 6); iNext iPrintFor j = 1 To 9 Print j; &q

46、uot; " 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 j4.'-'【程序改错】'-'题目：以下程序段用于计算5的N次方。'-Option ExplicitPrivate Sub Form_C

47、lick() Dim n As Integer, k As Integer, s As Long n = InputBox(" Input n ")'*ERROR* k = 0'*ERROR* s = 0 Do While k <= n s = s * 5 k = k + 1'*ERROR* Next Print "5的" "n次方是" sEnd Sub答案 【学生答案】k = 0【参考答案】k=1【学生答案】s = 0【参考答案】s=1【学生答案】Next【参考答案】loop'-5.'【

48、程序改错】'-'题目：以下程序段用于打印如图1所示的九九乘法表：'-Option ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30); "9*9 table"Print: PrintPrint " * "For i = 1 To 9'*ERROR* Print Tab(i * 6); iNext iPrintFor j = 1 To 9 Print j; " "'*ER

49、ROR* For k = 1 To 9'*ERROR*Print Tab(j * 6); j * k; " " Next k PrintNext jEnd 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 Tab(k*6);j*k;" "6.'【程序改错】'-'题目：下面程序可输出如下图形：' *'