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

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

2、=（ C ） 。A、 5B、 2C、 6D、 1015 Mod 4 + 13 5 * 2 的值是DA、 7B、 0C、 2D、 4A=123 + Mid$（ “ 123456” ,3,2执行后，）A=（ A ） 。A、 157B、 12334C、 123D、 "12334", 用来分隔每条语句的符号是（ C）.A、 ,B、 ;C、 :D、 D ）。A 将True转换为1,将False转换为0日将True转换为1,将False转换为-1C 将True转换为 0 ,将False转换为-1D 将True转换为-1,将False转换为0表达式2+3*4A5-SIN（X+1）/2中最

3、先进行的运算是（D）.A、 SIN日4A5C、 3*4D、 x+110 如果x=2,则表达式 x+1>2 Or sin(x)>0.9 And 3>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类模块文件日工程文件C窗体文件D程序模块文件13 INT(100*RND(1) 产生的随机整数的闭区间

4、是( B).A、 1,100B、 0,99C、 0,100D、 1,9914 下列数据类型中, 占用内存最小的是( D).A、 IntegerB、 SingleC、 BooleanD、 Byte15 VisualBasic 是一种 () 程序设计语言. BA过程式日非过程式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 和 DoWhile18 函数 Len(Str(

5、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用V啕写的程序可以在任何操作系统环境中运行。B V提面向对象的可视化的软

7、件开发工具。C V提在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。D、丫跟由美国Microsoft(微软)公司开发程序设计语言。26 表达式 16 / 4-2A5*8 / 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、 Curren

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

9、 5C、 -25D、 2533 产生 10,37 之间的随机整数的VisualBasic 表达式是(C) .A、 Int(Rnd(1)*27)+11B、 Int(Rnd(1)*28)+11C、 Int(Rnd(1)*28)+10D、 In t(Rnd(1)*27)+1034 工具栏中的" 启动 " 按钮的作用是(B).A工程管理窗口日运行一个应用程序C打开被选中对象的代码窗口D运行一个窗体35 不需要编译，计算机便可直接执行的程序是(B ) 。A C语言程序B、 机器语言程序C、 汇编语言程序D、 Visual Basic 语言程序36 Val ( “ 123ab( ” )

10、= D ) 。A、 0B、 不能转换C、 1230D、 12337 表达式 16/4-2A5*8/4MOD52 的值为 AA、 4B、 2C、 14D、 2038 删除字符串前导和尾随空格的函数是(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、 -6C、 -9D、 -7

11、E、 / 、 Mod、 * 等 4个算术运算符中, 优先级最低的是(A) .A、 ModB、 /C、 *D、 43 下面正确的赋值语句是(D ) 。A、 x=y=1B x+2=yA2+2C、 x+y=1D、 x=y+z144 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 下面变量名称正确

12、的是(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<>0AND B=0D、 A*B=0AND(A=0ORB=0)49如果熄一个正的实数，将千分位四舍五入，保留两位小数的表达式是 (C).A、 0.01*int(100*(x+0.05)E、 0.01*int(x+0.05)F、 0.01*int(100*(x+0

13、.005)G、 0.01*int(x+0.005)50 表达式 X+1>X(D).A非法表达式以字符表达式C算术表达式DX关系表达式51 VisualBasic 的编程机制是(B).A、面向图形B、事件驱动C、面向对象D可视化52 下面4项中合法的变量名是(A).A、 X_yzB、 X-YC、 123abcD、 integer53以下可以作为V嚷量名的是(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、

14、T_12C、 T12%D、 T_Temp56 可以同时删除字符串前导和尾部空白的函数是(B).A、 LtrimB、 TrimC、 MidD、 Rtrim57 VB1体文件的扩展名是(A).A、 FRMB、 VBWC、 VBPD、 BAS58 一个具有图形用户界面的“标准 EXE ”工程必须包含的文件是(A ) 。A、工程文件和窗体文件。B、窗体文件和标准模块文件。C、工程文件和资源文件。D工程文件和标准模块文件。59数学式3W X V 5写成VB表达式是( A )。A、 3<=X and X<5B、 X>=3 and 5<XC、 3<=X or X<5D、

15、3<=X<560 表达式 INT(8*SQR(36)*10A(-2)*10+0.5)/10 的值是(A).A、 .5B、 0.48C、 .05D、 0.04861 变量未赋值时, 数值型变量的值为(C).A、空B、无任何值C、 0D、 162 正确的变量名是(A ) 。A、 xy_01B、 sa t01C、 3xyD、 integer63 当 Ucase$(C$)> " A" andcase$(C$)< " Z'true时，贝U C$ 是 AA、字母B、大写字母C、 小写字母D、 不一定64 表达式 (-1)*Sgn(-100+In

16、t(Rnd*100) 的值是 (A). A1B -1C、随机数 D065 表达式 print Len(trim(" abcd ")&"123")的结果是DA abcdB9 C 123D766 Rnd函数不可能产生的()值.B A0B1 C 0.1234 D .00005 67 下面变量名称不正确的是(B ) 。A x1 B 1x C x1y D x_168 下列哪个变量名的取法是不正确的(B).A T_TempB T32#C T32 D TName 69 选中复选框控件时,value 属性的值, 可以是 (C).A True B falseC1

17、D070程序运行时，如果复选框被用户选中，那么其 Value属性值为( A )。 A1B False C True D 071程序运行时，如果单选框被用户选中，那么其 Value属性值为(D )。 A0B1 C False D True 72 下列 () 是窗体文件的扩展名.AA frm B cls C dll D bas 73要使标签能透出窗体的背景, 必须设置(C) 属性 .A AppearanceB、 BorderStyleC、 BackStyleD、 BackColor74 当窗体被关闭时，系统自动执行该窗体的(A )事件过程。A、 UnloadB、 LoadC、 LostFocusD

18、、 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、

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

20、不限制D输入的字符长度不限82 下面 (C) 控件不具有Caption 属性 .A、标签框B、命令按钮C、文本框D单选钮83 要使标签能够显示所需要的东西, 则在程序中应设置其哪一属性的值(D).A、 NameB、 TextC、 AutoSizeD、 Caption84 程序运行时，要限制文本框的输入长度，那么应设置(AA、 MaxLengthB、 EnabledC、 LockedD、 MultiLine85 事件的名称(D).A、是不固定的B、有的由用户定义，有的由系统定义C、都要由用户定义DK都是由系统预先定义86若设置窗体的BorderStyle=1 ，则在程序运行时窗体的行为是(A、窗

21、体没有最大化和最小化按钮，窗体可以移动，但不能改变大小。B、窗体有最大化和最小化按钮，窗体既可以移动，也可以改变大小。C、窗体没有最大化和最小化按钮，窗体既不能移动，也不能改变大小。D窗体有最大化和最小化按钮，窗体可以移动，但不能改变大小。87 如果要设置窗体的标题栏, 应选择以下那种属性(D).A、 TipsB、 NameC、 TextD、 Caption88 要把一个命令按钮设置成无效, 应设置其哪一属性值(D).A、 VisibleB、 DefaultC、 CancelD、 Enabled89 将焦点主动设置到指定的控件或窗体上, 应采用 (C) 方法 .A、 SetTextB、 Get

22、GataC、 SetFocusD、 SetData90 要使标签控件的大小随Caption 属性值而自动调整，应设置其(A、 AlignmentB、 AutoSizeC、 WidthD、 Caption91 能够改变窗体边框线类型的属性是(C).A、 FontStyleB、 BorderC、 BorderStyleD、 BackStyle92要使Forml窗体的标题栏显示"欢迎使用VB",以下语句正确的是(A).A、 Form1.Caption= 欢迎使用VBB、 Form1.Caption=" 欢迎使用VB"C、 Form1.Caption= 欢迎使用

23、VBA)。B )属性。D> Form1.Caption= "欢迎使用 VB,93 文本框所没有的属性是(D).A、 VisibleB、 BackColorC、 EnabledD、 Caption94在V科境中，工程文件的扩展名是(D).A、 .frxB、 .basC、 .frmD、 .vbp95 如果要在命令按钮上显示图形文件, 应设置命令按钮的(B).A、 Style 属性和Graphics 属性B、 Style 属性和Picture 属性C、 Picture 属性D、 Graphics 属性96 要使鼠标指向“命令按钮”时，出现一个提示文本，应设置其(A )属性。A、 To

24、olTipTextB、 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、 Left1

25、01 、语句 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、 Vi

26、sibleB、 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、 width

27、109、 (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、 Captio

28、nC、 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、文本框

29、中没有内容C、文本框的 MultiLine=TrueD> 文本框的 Locked=True117、 要使文本框获得输入焦点, 则应采用文本框控件的哪个方法(D).A、 KeyPressB、 LostFocusC、 GodFocusD、 SetFocus118、假设窗体上有一个标签控件(Label1 )和一个时钟控件(Timer) ，要想每隔1秒钟，在标签 Label1 上显示一次系统当前时间，应在(A )事件过程中编写实现该功能的程序。A、 Private Sub Timer1_Timer()B、 Private Sub Label1_DblClick()C、 Private Sub L

30、abel1_Change()D、 Private Sub Label1_Click()119、 如果设计时在属性窗口将命令按钮的(B) 属性设置为False,则运行时按钮从窗体上消失A、 DisabledPictureB、 VisibleC、 DefaultD、 Enabled120、一个窗体上有两个文本框，按放置顺序分别是：键，焦点”自动转到Text2上，应在( DText1， Text2 ，要想在Text1 中按 “回车 ”)事件过程中编写程序。A、 Private Sub Text1_Click()B、 Private Sub Text2_GotFocus()C、 Private Sub

31、 Text1_LostFocus()D、 Private Sub Text1_KeyPress(KeyAscii As Integer)121 、 文本框中选定的内容, 由下列 ( A ) 属性反映.A、 SeltextB、 CaptionC、 sellenghtD、 Text122、 下面4项中不属于面向对象系统三要素的是( A ).A、变量B、事件C、方法D属性123、 若要使命令按钮不可操作, 要设置的属性是( A ).A、 EnabledB、 VisibleC、 CaptionD、 BackColor124、 文本框控件中将Text 的内容全部显示为所定义的字符的属性项是(D).A、

32、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

33、、 AutoSizeC、 AlignmentD、 left129、 用来设置粗体字的属性是DA、 FontItalicB、 FontSizeC、 FontNameD、 FontBold130、 Text1 控件在运行时不可见, 是设置下列(B) 属性的结果.A、 CancelB、 VisibleC、 ControlBoxD、 Enabled131、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的(D)属，性.A、 BORDERSTYLEB、 BACKCOLORC、 FORECOLORD、 BACKSTYLEE、 2、 要使 “命令按钮”在程序运行时不可见，可以将其(C )属性设置为Fa

34、lse。A、 CancelB、 DefaultC、 VisibleD、 Enabled133 、 下列赋值语句正确的是(D).A、 T=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、窗体DK文本框135 、 程序运行后, 在窗体上单击鼠标, 此时窗体不会接收到的事件是

35、(A).A、 LoadB、 ClickC、 MouseDownD、 MouseUp136 、 列表框和组合框的(B )属性的值，表示其列表中项目的个数。A、 ListIndexB、 ListCountC、 ListD、 Text137 、 在定义静态数组时，关于下标的叙述中，正确的是(A ) 。A、省略下界，一般系统默认为：下界是 0B、下标可以是字符型C、下标下界最小为：-32768 ,下标上界最大为：32767D下标可以是变量。138 、 下列程序：Private Sub Textl _Change()Print Textl ；End Sub当在文本框输入"1234"

36、这 4个字符时，窗体上显示的是DA、 1234 B 、 1 121231234C、 1 2 34D、 1121231234139 、 下面 () 对象在运行时一定不可见. CA、 LineB、 OptionC、 TimerD、 Text140 、 若要清除列表框的所有内容, 可用什么方法实现CA、以上均不可以B、 ClsC、 ClearD、 RemoveItem141、要使时钟控件TimeU的Timer事件不起作用，以下正确的语句是 AA、 Timer1.Enabled=FalseB、 Timer1.Index=0C、 Timer1.Interval=1000D、 Timer1.Visible

37、=False142、 为使计时器控件每隔5秒钟产生一个计时器事件(Timer 事件 ), 则应将其 Interval 属性值设置为( D).A、 300B、 5C、 500D、 5000143、 将数据项"China" 添加到列表框(List1) 中成为第一项应使用的语句是(A )。A、 List1.AddItem China ,0B、 List1.AddItem China ,1C、 List1.AddItem 0, ChinaD、 List1.AddItem 1, China 144、 在程序代码中修改滚动条的value 属性时将激发滚动条的( D) 事件 .A、 sc

38、rollB、 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、 下列方法中可用于列表框动态添加数据的是( D).A、 removeitemB、 addl

39、istC、 addD、 additem149、 组合框控件是将() 组合成一个控件. AA、列表框控件和文本框控件B、复选框控件和选项按钮控件C、标签控件和列表框控件D标签控件和文本框控件150、 下面程序段输出的结果是DPrivate Sub Command1_Click()x = 8For i = 0 To 20 Step 5 x = x + iNextPrint "X=" xEnd SubA、 X=50B、 X=218C、 X=210D、 X=58151、定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.CA、分B、微秒C、毫秒D秒152、 由

40、 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

41、 、 引用列表框的最后一项应使用(). 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 .在窗体上已建立多个控件，如 Textl , Labell , Command1若要使程序一运行焦点就定位在 Command1件上，应对 Command1件的 _tabindex 属性设置为 _TabI

42、ndex。2 . 日期表达式#2/24/02# - #2/12/02#的值为 _12 。3 . 已知 a=2.5 ， b=5.0 ， c=2.5 ， d=True， 则表达式：a>=0 ANDa+c>b+3 ORNOTd 的值是 _false 。4 .表示x是5的倍数或是9的倍数的逻辑表达式为 _x mod 5 = 0 OR x mod 9 = 0。5 . 在刚建立工程时，使窗体上的所有控件具有相同的字体格式，就对_font_ 的属性进行设置。1.1 nt(-2.6)、 Int(2.6) 、 Fix(-2.6) 、 Fix(3.6) 的值分别是_-3、 _2_、 _-2_、 3_。

43、7. Label 和 TextBox 控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用 _label _ 控件；若允许用户输入文本，则应使用_Textbox 控件。8. 若命令按钮的名称为Cmdopen ，程序要求单击该命令按钮时，打开一个窗口frm1 ，请对以下事件过程填空。Private Sub Cmdopen _Click() _frm1.show end sub9. 表达式93 7 Mod 2 A 2 的值是_1 。10. 表达式 Ucase(Mid( “abcdefgh ”,3,4) 的值是_CDEF_。11. 当程序运行时，要求窗体中的文本框呈现空白，则在设

44、计时，应当在此文本框的_ 属性 _窗口中，把此文本框的_ 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_Click()ClsDim i As IntegerDim s As Sin

45、gle i =0 *ERROR*DoQ*ERROR*Q*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

46、 To 300 Step 2k = Int(Sqr(n)i = 2Q*ERROR*swit = 1Q*ERROR*While swit = 0If n Mod i = 0 Thenswit = 1ElseQ*ERROR*i = i - 1End IfWendIf swit = 0 ThenPrint n;End IfNext nEnd Sub答案 【学生答案】swit = 1【参考答案】swit=0【学生答案】While swit = 0【参考答案】While i<=k And swit =0While k>=i And swit=0While swit=0 And i<=k

47、While 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 9k = 0Q*ERROR*Print Tab(i * 6); iNext iPrintFor j = 1 To 9Print j; " "For

48、 k = 1 To jPrint Tab(k * 6); j * k; " "Q*ERROR*Next jPrintQ*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_Click()Dim n As Integer, k As

49、 Integer, s As Longn = InputBox(" Input n ")Q*ERROR*Q*ERROR*Do While k <= ns = s * 5k = k + 1Q*ERROR*NextPrint "5 的 " "n 次方是 " sEnd Sub答案 【学生答案】 k = 0 【参考答案】 k=1 【学生答案】 s = 0 【参考答案】 s=1 【学生答案】 Next 【参考答案】 loop»5 .' 【程序改错】'' 题目：以下程序段用于打印如图1 所示的九九乘法表：&

50、#187;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 9Q*ERROR*Print Tab(i * 6); iNext iPrintFor j = 1 To 9 Print j; " "Q*ERROR*For k = 1 To 9Q*ERROR*Print Tab(j * 6); j * k;

51、 " "Next kPrintNext j End 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 .' 【程序改错】题目：下面程序可输出如下图形：*Option ExplicitPrivate Sub Form_Click()Dim m As Integer,

52、n As Integer, s As String, i As Integer, j As Integer n = 4 s = "*"For i = 5 To 1 Step -1Q*ERROR*Print Spc(n)For j = 1 To 2 * m - 1Print s;Next jPrintQ*ERROR*Q*ERROR*m = m - 1Next i答案 【学生答案】Print Spc(n)【参考答案】Print Spc(n);Print Spc(i);?Spc(n);?Spc(i);【学生答案】n=n-1 n=-1+n 【学生答案】m=m+17.' 题目：以下程序段用于输出100-300的所有素数Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Intege