VB程序设计期末考试题 一、选择题
1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768
2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod
3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。
C、\窗体设计\窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的\视图\菜单中。 4 len(\程序设计\。 A、 5 B、2 C、 6 D、10
5 表达式 15 Mod 4 + 13 \\ 5 * 2 的值是 D A、7 B、0 C、2 D、4
6 赋值语句 A=123 + Mid$( \执行后，A=（ A A、157 B、12334 C、123 D、\
7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、
8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0
B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0
9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN
）。。 ） B、4^5 C、3*4 D、x+1
10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False
11 随机产生 [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、窗体文件 D、程序模块文件
13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99]
14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte
15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级
16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10]
17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi
C、ForLoop 和 Total D、Const 和 DoWhile
18 函数Len(Str(Val(\的值为(B).
A、5 B、6 C、8 D、11
19 Int(198.555*100+0.5)/100的值为B A、199.6 B、198.56 C、200 D、198
20 以下各表达式中, 计算结果为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(提示信息[，标题] [，按钮类型]) C、MsgBox(标题 [，按钮类型] [，提示信息]) D、 MsgBox(提示信息 [，按钮类型] [，标题]) 22 3>8-3 OR 10+2 <=3*4 AND 5=2+3的结果是(C). A、10 B、-3 C、True D、False
23 表达式4+5 \\ 6 * 7 / 8 Mod 9 的值是(D). A、7 B、4 C、6 D、5
24 设a=6,则执行x=IIf(a>5,-1,0)后,x的值为(D). A、5 B、0 C、6 D、-1
25 下面关于VB的叙述中，不正确的是（ A ）。 A、用VB编写的程序可以在任何操作系统环境中运行。 B、VB是面向对象的可视化的软件开发工具。 C、VB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。 D、VB是由美国Microsoft（微软）公司开发程序设计语言。 26 表达式16 / 4-2^5*8 / 4 Mod 5 \\ 2 = ( A )。 A、4 B、0 C、-2 D、 -6
27 声明符号常量应该用关键字(B). A、Private B、Const C、Static D、V26/ariant
28 下列数据类型中,占用内存最大的是(D). A、Boolean B、Integer C、Byte D、Single
29 下列VB数据类型中，占用内存最少的是（ D ）。 A、Currency B、Integer C、Boolean D、Byte
30 RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB (红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间 的整数.若使用三个滚动条分别输入三种基色,为保证输入数值 有效,则应设置(B)属性. A、Scroll和Change B、Max和Min
C、Smallchange和 LargeChange D、Value
31 k=12.5 ，len( str( k ) )=( B ) 。 A、 4 B、5 C、 3 D、 2
32 表达式Abs(-5)*5\\5/5的值是 D A、1 B、5 C、-25 D、25
33 产生[10,37]之间的随机整数的VisualBasic表达式是(C). A、Int(Rnd(1)*27)+11 B、Int(Rnd(1)*28)+11 C、Int(Rnd(1)*28)+10 D、In t(Rnd(1)*27)+10
34 工具栏中的\启动\按钮的作用是(B). A、工程管理窗口 B、运行一个应用程序
C、打开被选中对象的代码窗口 D、运行一个窗体
35 不需要编译，计算机便可直接执行的程序是（ B ）。
A、C语言程序 B、 机器语言程序 C、 汇编语言程序
D、 Visual Basic语言程序 36 Val (\（ D ）。 A、0
B、 不能转换 C、1230 D、123
37 表达式16/4-2^5*8/4MOD5\\2的值为 A A、4 B、2 C、14 D、20
38 删除字符串前导和尾随空格的函数是(D). A、Rtrim( ) B、Ltrim() C、Lcase D、Trim()
39 下列表达式中,其值为0的是(C). A、15 mod 9 B、7/9 C、7\\9
D、7 mod 15
40 表达式Len(\程序设计ABC\的值是 B A、17 B、10 C、14 D、20
41 Int(-3.1)+round (-4.6)=________C_________。 A、-8 B、-6 C、-9 D、-7
42 \\、/、Mod、*等4个算术运算符中,优先级最低的是(A). A、Mod B、/ C、* D、\\
43 下面正确的赋值语句是（ D ）。 A、x=y=1 B、x+2=y^2+2 C、x+y=1 D、x=y+z1
44 Len(\实践应用能力\的值是(A). A、6 B、4
C、不能确定 D、8
45 表达式Mid(\的值是(C). A、ANGH B、SHA C、HAI D、SHANGH
46 表达式25\\3 mod 3 *Int(4.5)的值为(B). A、1 B、8 C、4 D、5
47 下面变量名称正确的是（ C ）。 A、x □1
B、integer C、 x_1_y D、 x , y
48 不能正确表示条件\两个整型变量A和B之一为0,但不能同时为0\的布尔表达式(D). A、A*B=0ANDA<>B
B、(A=0ORB=0)ANDA<>B
C、A=0ANDB<>0ORA<>0AND B=0 D、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、关系表达式
51．VisualBasic的编程机制是(B). A、面向图形 B、事件驱动 C、面向对象 D、可视化
52 下面4项中合法的变量名是(A). A、X_yz B、X-Y
C、123abc D、integer
53 以下可以作为VB变量名的是(C). A、COS(X) B、X(-1) C、CO1 D、SIN
54 表达式(7\\3+1)*(18\\5-1)的值是(B). A、8.76 B、6 C、6.67 D、7.8
55 下列哪个变量名的取法是不正确的(C). A、sTme B、T_12 C、T12% D、T_Temp
56 可以同时删除字符串前导和尾部空白的函数是(B). A、Ltrim B、Trim C、Mid D、Rtrim
57 VB窗体文件的扩展名是(A). A、FRM B、VBW C、VBP D、BAS
58 一个具有图形用户界面的\标准EXE\工程必须包含的文件是（ A、工程文件和窗体文件。 B、窗体文件和标准模块文件。 C、工程文件和资源文件。 D、工程文件和标准模块文件。
59 数学式3≤X＜5写成VB表达式是（ A ）。 A、3<=X and X<5 B、X>=3 and 5 60 表达式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是(A). A、.5 B、0.48 C、.05 D、0.048 61 变量未赋值时,数值型变量的值为(C). A、空 ）。 A B、无任何值 C、0 D、1 62 正确的变量名是（ A ）。 A、xy_01 B、sa t01 C、3xy D、integer 63 当Ucase$(C$)>\为true时，则C$是__A______。 A、字母 B、大写字母 C、 小写字母 D、 不一定 64 表达式(-1)*Sgn(-100+Int(Rnd*100))的值是(A). A、1 B、-1 C、随机数 D、0 65 表达式print Len(trim(\的结果是 D A、abcd B、9 C、123 D、7 66 Rnd函数不可能产生的()值.B A、0 B、1 C、0.1234 D、.00005 67 下面变量名称不正确的是（ B ）。 A、x1 B、1x C、 x1y D、x_1 68 下列哪个变量名的取法是不正确的(B). A、T_Temp B、T32# C、T32 D、TName 69 选中复选框控件时,value属性的值,可以是(C). A、True B、false C、1 D、0 70 程序运行时，如果复选框被用户选中，那么其Value属性值为（）。 A A、1 B、False C、 True D、 0 71 程序运行时，如果单选框被用户选中，那么其Value属性值为（ D ）。 A、0 B、1 C、False D、True 72 下列()是窗体文件的扩展名.A A、frm B、cls C、dll D、bas 73要使标签能透出窗体的背景,必须设置(C)属性. A、Appearance B、BorderStyle C、BackStyle D、BackColor 74 当窗体被关闭时，系统自动执行该窗体的（ A ）事件过程。 A、Unload B、Load C、LostFocus D、Click 75 要使窗体运行时充满整个屏幕，应设置其（ D ）属性。 A、AutoRedraw B、Width C、 Height D、WindowState 76 要使得窗体一开始运行就充满整个屏幕则须设置()属性. A A、windowstate B、borderstyle C、appearance D、drawmode 77 要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine 属性设置为True,然后再将ScrollBar属性设置为(A). A、3 B、0 C、1 D、2 78 决定控件上文字的字体、字形、大小及效果的属性是(C). A、TEXT B、CAPTION C、FONT D、NAME 79 在窗体设计器窗口双击窗体的任何地方,可以打开的窗口是(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、Name B、Text C、AutoSize D、Caption 84 程序运行时，要限制文本框的输入长度，那么应设置（ A ）。 A、MaxLength B、Enabled C、Locked D、MultiLine 85 事件的名称(D). A、是不固定的 B、有的由用户定义,有的由系统定义 C、都要由用户定义 D、都是由系统预先定义 86若设置窗体的BorderStyle=1，则在程序运行时窗体的行为是（ A ）。 A、窗体没有最大化和最小化按钮，窗体可以移动，但不能改变大小。 B、窗体有最大化和最小化按钮，窗体既可以移动，也可以改变大小。 C、窗体没有最大化和最小化按钮，窗体既不能移动，也不能改变大小。 D、窗体有最大化和最小化按钮，窗体可以移动，但不能改变大小。 87 如果要设置窗体的标题栏,应选择以下那种属性(D). A、Tips B、Name C、Text D、Caption 88 要把一个命令按钮设置成无效,应设置其哪一属性值(D). A、Visible B、Default C、Cancel D、Enabled 89 将焦点主动设置到指定的控件或窗体上,应采用(C)方法. A、SetText B、GetGata C、SetFocus D、SetData 90 要使标签控件的大小随Caption 属性值而自动调整，应设置其（ B ）属性。 A、Alignment B、AutoSize C、Width D、Caption 91 能够改变窗体边框线类型的属性是(C). A、FontStyle B、Border C、BorderStyle D、BackStyle 92 要使Form1窗体的标题栏显示\欢迎使用VB\以下语句正确的是(A). A、Form1.Caption=〞欢迎使用VB〞 B、Form1.Caption=\欢迎使用VB\C、Form1.Caption=欢迎使用VB D、Form1.Caption=ˊ欢迎使用VBˊ 93 文本框所没有的属性是(D). A、Visible B、BackColor C、Enabled D、Caption 94 在VB环境中,工程文件的扩展名是(D). A、.frx B、.bas C、.frm D、.vbp 95 如果要在命令按钮上显示图形文件,应设置命令按钮的(B). A、Style属性和Graphics属性 B、Style属性和Picture属性 C、Picture属性 D、Graphics属性 96 要使鼠标指向\命令按钮\时，出现一个提示文本，应设置其（A ）属性。 A、ToolTipText B、Style C、Picture D、Caption 97不论何控件,共同具有的属性是(B). A、ForeColor B、Name C、Caption D、Text 98 要使标签控件标题内容居中显示，应设置其（ B ）属性。 A、 ToolTipText B、 Alignment C、 BackStyle D、 Appearance 99 使命令按钮获得\焦点\的方法是（ A ）。 A、SetFocus B、Move C、Refresh D、LinkSend 100 改变控件在窗体中的上下位置应修改控件的()属性. C A、Height B、Wide C、Top D、Left 101、语句PRINT\的输出结果为（C） A、SGN(-26)=-26 B、SGN(-26)=26 C、SGN(-26)=-1 D、SGN(-26)=+1 102、若要使得文本框的初始值为空,则应更改文本框的属性是 （A） A、text B、index C、name D、caption 103、要使得标签能自动扩充以满足字体大小则可对其( C)属性进行设置. A、tag B、alignment C、autosize D、usemnemonic 104、为了把焦点移到某个指定的控件,所使用指定的控件的( C )方法. A、Visible B、Refresh C、SetFocus D、GetFocus 105、如果要给字体加删除线,可以选择下列那种属性( C). A、FontSize B、FontName C、FontStrikethru D、FontUnderLine 106、要设置标签控件字体的大小，应设置其（ A ）属性。 A、Font B、Height C、Width D、Caption 107、每个窗体对应一个窗体文件,窗体文件的扩展名是( A ). A、.frm B、.vbp C、.bas D、.cls 108、标签控件最重要的属性是(A). A、caption B、text C、name D、width 109、(A)对象不具有Caption属性. A、Timer B、Form C、Option D、Label 110、一个窗体上有三个文本框，按放置顺序分别是：Text1，Text2，Text3 ，若使程序运行时Text3首先获得\焦点\，那么，应设置其（ B ）属性值为 0 。 A、Index B、Tabindex C、Tag D、Top 111、如果要改变窗体的标题,则需要设置的属性是( D ). A、BorderStyle B、Name C、BackColor D、Caption 112、欲使某命令按钮失效,应修改命令按钮的(C)属性. A、Enable B、Caption C、Enabled D、Visible 113、为使文本框显示滚动条,必须首先设置的属性是(D). A、Autosize B、Scrollbars C、Alignment D、Mulitiline 114、改变控件在窗体中的左右位置应修改该控件的(B)属性. A、Right B、Left C、Width D、Top 115、要使标签中显示的文本靠右显示,则应将其Alignment属性设置为(A). A、1 B、3 C、2 D、0 116、当设置文本框的ScrollBars=Both 而文本框确没有显示出滚动条，原因是（ A ）。 A、文本框的MultiLine=False B、文本框中没有内容 C、文本框的MultiLine=True D、文本框的Locked=True 117、要使文本框获得输入焦点,则应采用文本框控件的哪个方法(D). A、KeyPress B、LostFocus C、GodFocus D、SetFocus 118、假设窗体上有一个标签控件（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、DisabledPicture B、Visible C、Default D、Enabled 120、一个窗体上有两个文本框，按放置顺序分别是：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、Seltext B、Caption C、sellenght D、Text 122、下面4项中不属于面向对象系统三要素的是( A ). A、变量 B、事件 C、方法 D、属性 123、若要使命令按钮不可操作,要设置的属性是( A ). A、Enabled B、Visible C、Caption D、BackColor 124、文本框控件中将Text的内容全部显示为所定义的字符的属性项是(D). A、Password B、以上都不是 C、需要编程来实现 D、PasswordChar 125、如果Print方法在窗体的Load事件过程中不起作用，原因是（ A ）属性值为false。 A、AutoRedraw B、ControlBox C、Moveable D、MaxButton 126、inputBox函数返回值的类型为(C). A、变体 B、数值 C、字符串 D、数值或字符串(视输入的数据而定) 127、窗体的Caption属性的作用是(B). A、确定窗体的边界类型 B、确定窗体的标题 C、确定窗体的名称 D、确定窗体的字体 128、欲使标签的内容自动换行,必须设置属性(A). A、WordWrap B、AutoSize C、Alignment D、left 129、用来设置粗体字的属性是D A、FontItalic B、FontSize C、FontName D、FontBold 130、Text1控件在运行时不可见,是设置下列(B)属性的结果. A、Cancel B、Visible C、ControlBox D、Enabled 131、若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的(D)属性. A、BORDERSTYLE B、BACKCOLOR C、FORECOLOR D、BACKSTYLE 132、要使\命令按钮\在程序运行时不可见，可以将其（ C ）属性设置为False。 A、Cancel B、Default C、Visible D、Enabled 133、下列赋值语句正确的是(D). A、Text1.name=Text1.Name+Text2.Name B、Text1.Caption=Text1.Caption+Text2.Caption C、Text1.Enable=Text1.Enable+Text2.Enable D、Text1.text=Text.text+Text2.text 134、不具有输入数据功能的控件是(C)控件. A、列表框 B、选项按钮 C、窗体 D、文本框 135、程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是(A). A、Load B、Click C、MouseDown D、MouseUp 136、列表框和组合框的（ B ）属性的值，表示其列表中项目的个数。 A、 ListIndex B、 ListCount C、List D、Text 137、在定义静态数组时，关于下标的叙述中，正确的是（ A ）。 A、省略下界，一般系统默认为：下界是 0 B、下标可以是字符型 C、下标下界最小为：-32768 ，下标上界最大为：32767 D、下标可以是变量。 138、下列程序： Private Sub Textl _Change() Print Textl； End Sub 当在文本框输入\这4个字符时，窗体上显示的是 D A、1234 B、1 12 123 1234 C、1 2 3 4 D、1121231234 139、下面()对象在运行时一定不可见. C A、Line B、Option C、Timer D、Text 140、若要清除列表框的所有内容,可用什么方法实现 C A、以上均不可以 B、Cls C、Clear D、RemoveItem 141、要使时钟控件Timer1的Timer事件不起作用,以下正确的语句是 A A、Timer1.Enabled=False B、Timer1.Index=0 C、Timer1.Interval=1000 D、Timer1.Visible=False 142、为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应 将其Interval属性值设置为( D). A、300 B、5 C、500 D、5000 143、将数据项\添加到列表框(List1)中成为第一项应使用的语句是（A、List1.AddItem〞China〞,0 B、List1.AddItem〞China〞,1 C、List1.AddItem 0, 〞China〞 D、List1.AddItem 1,〞China〞 144、在程序代码中修改滚动条的value 属性时将激发滚动条的( D)事件. A、scroll B、dragdrop C、gotfocus D、change 145、循环结构For I%= -1 to -17 Step -2 共执行( C)次. A、6 B、5 C、9 D、8 146、执行下面的程序段后,x 的值为( D) x=5 For i=1 To 20 Step 2 x=x+i\\5 Next i A、24 B、23 C、22 D、21 ）。 A 147、由For k=10 to 0 step 3:next k循环语句控制的循环次数是( D). A、-11 B、12 C、-10 D、0 148、下列方法中可用于列表框动态添加数据的是( D). A、removeitem B、addlist C、add D、additem 149、组合框控件是将()组合成一个控件. A A、列表框控件和文本框控件 B、复选框控件和选项按钮控件 C、标签控件和列表框控件 D、标签控件和文本框控件 150、下面程序段输出的结果是 D Private Sub Command1_Click() x = 8 For i = 0 To 20 Step 5 x = x + i Next Print \ End Sub A、X=50 B、X=218 C、X=210 D、X=58 151、定时器的Interval属性以()为单位指定Timer事件之间的时间间隔. C A、分 B、微秒 C、毫秒 D、秒 152、由For k=35 to 0 step 3:next k循环语句控制的循环次数是(). A A、0 B、-10 C、12 D、-11 153、在列表框中当前被选中的列表项的序号是由下列哪个属性表示(). C A、List B、Index C、ListIndex D、TabIndex 154、设计动画通常使用时钟控件()来控制动画速度. C A、Enabled B、Timer C、Interval D、Move 155、为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择,则应 将列表框的Multiselect属性设置为(). C A、1 B、3 C、2 D、0 156、引用列表框的最后一项应使用(). D A、List1.List(ListCount-1) B、List1.List(List1.ListCount) C、List1.List(ListCount) D、List1.List(List1.ListCount-1) 157、列表框控件中的列表内容是通过()属性设置的. A A、List B、Caption C、Name D、Text 填空 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+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控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用_label___控件；若允许用户输入文本，则应使用_Textbox____控件。 8.若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。 Private Sub Cmdopen_Click()_____ _frm1.show____ end sub 9.表达式93 \\ 7 Mod 2 ^ 2 的值是__1___。 10.表达式Ucase(Mid(\的值是__CDEF___。 11.当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性___窗口中，把此文本框的__text___属性设置成空白。 12.已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c 1.'------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：程序功能：求1+2+3......，直到其和超出3000为 ' 止，并输出结果。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim i As Integer Dim s As Single i =0 '**********ERROR********** s = 1 Do '**********ERROR********** i = i + 2 s = s + i '**********ERROR********** Loop s > 3000 Print \从1 到:\的和是\End Sub 答案 【学生答案】 i = i + 2 【参考答案】 i=i+1 2. '------------------------------------------------ '【程序改错】 '------------------------------------------------ 862 '题目：以下程序段用于输出100-300的所有素数 '------------------------------------------------ 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 n End Sub 答案 【学生答案】 swit = 1 【参考答案】 swit=0 【学生答案】 While swit = 0 【参考答案】 While i<=k And swit =0 While k>=i And swit=0 While swit=0 And i<=k While swit=0 And k>=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); \Print: Print Print \For i = 1 To 9 '**********ERROR********** Print 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 Private Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox(\'**********ERROR********** k = 0 '**********ERROR********** s = 0 Do While k <= n s = s * 5 k = k + 1 '**********ERROR********** Next Print \的\次方是\End Sub 答案 【学生答案】 k = 0 【参考答案】 k=1 【学生答案】 s = 0 【参考答案】 s=1 【学生答案】 Next 【参考答案】 loop '------------------------------------------------ 5.'【程序改错】 '------------------------------------------------ '题目：以下程序段用于打印如图1所示的九九乘法表： '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Print Tab(30); \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********** Print Tab(j * 6); j * k; \ Next k Print Next 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 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) 【参考答案】 Print Spc(n); Print Spc(i); ?Spc(n); ?Spc(i); 【学生答案】 n = n + 1 【参考答案】 n=n-1 n=-1+n 【学生答案】 m = m - 1 【参考答案】 m=m+1 7.'题目：以下程序段用于输出100-300的所有素数 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, i As Integer, swit As Integer For i = 101 To 299 k = Int(Sqr(i) For n = 2 To k If i Mod n = 0 Then '**********ERROR********** Exit End If Next n '**********ERROR********** If n < k Then Print i; End If '**********ERROR********** Next n 'Print i 答案 【学生答案】 Exit 【参考答案】 exit for 【学生答案】 If n < k Then 【参考答案】 If n>k Then If k 【参考答案】 next i Next i 程序填空 1.'从键盘输入三个整数，从其中找出最大值并输出到窗口 Private Sub Form_Click() Dim a%, b%, c%, max% a = Val(InputBox(\请输入一个整数\b = Val(InputBox(\请输入一个整数\c = Val(InputBox(\请输入一个整数\max=a '**********FILL********** If ______Then max=b End If If max < c Then '**********FILL********** ________ End If '**********FILL********** Print a; \、\、\中最大值是\End Sub 答案 【学生答案】 If ______Then 【参考答案】 maxmax b>=max 【学生答案】 ________ 【参考答案】 max=c 【学生答案】 Print a; \、\、\中最大值是\【参考答案】 max 2.以下程序的功能。 ' Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(\请输入a的值\b = InputBox(\请输入b的值\c = InputBox(\请输入c的值\ d = b * b - 4 * a * c p = -b / (2 * a) If d >= 0 Then '**********FILL********** If _____ Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p '**********FILL********** _____ Print \'**********FILL********** _____ q = Sqr(-d) / (2 * a) Print \End If 答案 【学生答案】 If _____ Then 【参考答案】 d>0 【学生答案】 _____ 【参考答案】 End if End If end if 【学生答案】 _____ 【参考答案】 else Else ELSE 3.'从键盘输入学生分数，统计学生总人数和各分数段人数， '即优秀（90-100）、良好（80-89）、中等（70-79）、 ' 及格（60-69）、不及格（60以下）的人数。 Private Sub Form_Click() Dim score%, n1%, n2%, n3%, n4%, n5% msg = \请输入分数（-1结束）\msgtitile = \输入数据\ score = Val(InputBox(msg, msgtitle)) '**********FILL********** While _____ total = total + 1 '**********FILL********** Select Case _____ Case Is >= 90 n1 = n1 + 1 Case Is >= 80 n2 = n2 + 1 Case Is >= 70 n3 = n3 + 1 Case Is >= 60 n4 = n4 + 1 Case Else n5 = n5 + 1 '**********FILL********** _____ score = Val(InputBox(msg, msgtitle)) Wend Print n1, n2, n3, n4, n5, total End Sub 答案 【学生答案】 While _____ 【参考答案】 score>=0 and score<=100 score>=0 and score<=100 score<>-1 【学生答案】 Select Case _____ 【参考答案】 score 【学生答案】 _____ 【参考答案】 End Select 4．以下程序段用于实现：输入两个正整数m和n，求其最大 '公因数和最小公倍数。 Private Sub Form_Click() Dim a%, b%, num1%, num2%, temp num1 = InputBox(\请输入一个正整数\num2 = InputBox(\请输入一个正整数\'**********FILL********** If _____ Then temp = num1: num1 = num2: num2 = temp End If a = num1 b = num2 '**********FILL********** Do While _____ temp = a Mod b a = b '**********FILL********** _____ Loop Print \最大公因数为：\ Print \最小公倍数为：\答案 【学生答案】 If _____ Then 【参考答案】 num1 【学生答案】 _____ 【参考答案】 b=temp 5．'以下程序用于判断一个正整数（≥3）是否为素数。' Private Sub Form_Click() n = InputBox(\请输入一个正整数（≥3）\k = Int(Sqr(n)) i = 2 swit = 0 '**********FILL********** Do While i <= k And _____ '**********FILL********** If _____ Then swit = 1 Else '**********FILL********** _____ End If Loop If swit = 0 Then Print n; \是一个素数\Else Print n; \不是素数\End If End Sub 答案 【学生答案】 Do While i <= k And _____ 【参考答案】 swit=0 【学生答案】 If _____ Then 【参考答案】 n Mod i = 0 n \\ i = n / i n / i = int ( n / i) 【学生答案】 _____ 【参考答案】 i = i + 1 6．题目：从键盘上输入一串字符，以\结束，统计输入字符中的 ' 大、小写字母和数字的个数。 Private Sub Form_Click() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0 ch = InputBox(\请输入一个字符\'**********FILL********** Do While _____ Select Case ch Case \ n1 = n1 + 1 '**********FILL********** Case _____ n2 = n2 + 1 Case \ n3 = n3 + 1 End Select ch = InputBox(\请输入一个字符\'**********FILL********** _____ Print n1, n2, n3 答案 【学生答案】 Do While _____ 【参考答案】 do while ch<>\Do While ch<>\【学生答案】 Case _____ 【参考答案】 case \Case \【学生答案】 _____ 【参考答案】 loop Loop 窗体设计 1 在名称为Form1的窗体上画一个文本框，名称为Txt1；再画一个命令按钮， 名称为C1，标题为\移动\，如图1所示。 请编写适当的事件过程，使得在运行时，单击\移动\按钮， 文本框水平移动到窗体的最左端如图2所示。程序中不得使用任何变量。 注意：完成题目后，必须保存工程后再关闭。 【控件】VB.CommandButton_ 标准答案：Name=C1 学生答案：Name= 【控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Caption=移动 学生答案：Caption= 【控件属性评分】 错误 【控件】VB.TextBox_ 标准答案：Name=Txt1 学生答案：Name= 【事件评分】 错误 【事件】Private Sub C1_Click() 标准答案： Txt1.Left = 0 学生答案： 二 1、 利用 VB设计上面的程序界面。窗体的标题为\字体修改\；其中包括一名称为Label1,标题为\请输入文字\的标签； 一名称为Text1，内容为空的文本框； 名称为Command1,标题为\隶书\，名称为Command2,标题为\黑体\的两个命令按钮。 2、程序功能： 单击\隶书\命令按钮时，文本框的字体设为\隶书\； 单击\黑体\命令按钮时，文本框的字体设置为\黑体\。 提示：不能使用任何变量！ 【事件】Private Sub Command2_Click() 标准答案： Text1.Font = \黑体\ 学生答案： 【控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Caption=隶书 学生答案：Caption= 【事件评分】 错误 【事件】Private Sub Command1_Click() 标准答案： Text1.Font = \隶书\ 学生答案： 【控件属性评分】 错误 【控件】VB.Label_ 标准答案：Caption=请输入文字 学生答案：Caption= 三 在名称为Form1的窗体上建立一个名称为List1的列表框。 要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem \， 每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次，如图所示。 【事件】Private Sub Form_Load() 标准答案： List1.AddItem \ 学生答案： 【事件评分】 错误 【事件】Private Sub List1_Click() 标准答案： List1.AddItem List1.Text 四 在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。 要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value， 如图所示（程序中不能使用任何变量） 【事件】Private Sub HS1_Scroll() 标准答案： Print HS1.Value 学生答案： 【控件属性评分】 错误 【控件】VB.HScrollBar_ 标准答案：Name=HS1 学生答案：Name= 【控件属性评分】 错误 【控件】VB.HScrollBar_ 标准答案：Max=100 五 1、在名称为Form1的窗体上建立一个名称为l1的标签，并设置他不可见；两个名称为cmd1和cmd2， 标题分别为\显示1\和\显示2\的命令按钮。 2、编写适当的事件过程，要求程序运行后， 如果单击\显示1\命令按钮，则标签可见并显示字符串\； 如果单击\显示2\命令按钮，则标签可见并显示字符串\。 程序中不能使用任何变量，直接显示字符串；不能使用默认属性。程序开始运行时界面如图1所示 标准答案：Caption=显示1 学生答案：Caption= 【控件属性评分】 错误 【控件】VB.Label_ 标准答案：Visible=0 'False 学生答案：Visible= 【控件属性评分】 错误 【控件】VB.Label_ 标准答案：Name=l1 学生答案：Name= 【控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Name=cmd2 学生答案：Name= 【控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Name=cmd1 学生答案：Name= 【事件评分】 错误 【事件】Private Sub cmd1_Click() 标准答案： l1.Visible = True l1.Caption = \ 学生答案： 【事件评分】 错误 【事件】Private Sub cmd2_Click() 标准答案： l1.Caption = \ 六 1、在名称为Form1的窗体上画一个文本框，名称为Text1,且不可见；再画两个命令按钮，名称分别为c1和c2， 标题分别为\隐藏\和\显示\。 2、请编写适当的事件过程，使得在运行时，如果单击\隐藏\按钮，则文本框消失； 如果单击\显示\按钮，则文本框显示出来，如图1和图2所示。程序中不得使用任何变量。 【控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Name=c2 学生答案：Name= 【控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Caption=显示 学生答案：Caption= 【控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Name=c1 学生答案：Name= 【控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Caption=隐藏 学生答案：Caption= 【控件属性评分】 错误 【控件】VB.TextBox_ 标准答案：Visible=0 'False 学生答案：Visible= 【事件评分】 错误 【事件】Private Sub c2_Click() 标准答案： Text1.Visible = True 学生答案： 【事件评分】 错误 【事件】Private Sub c1_Click() 标准答案： Text1.Visible = False 学生答案： 七 标题为\输出\的命令按钮，如图1-12所示。要求程序运行后，在文本框输入几个字符， 单击\输出\按钮，则在窗体上显示文本框中的文字。 注意：在程序中不能使用任何变量，不能使用默认属性。 控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Name=Cmd1 学生答案：Name= 【控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Caption=输出 学生答案：Caption= 【事件评分】 错误 【事件】Private Sub Cmd1_Click() 标准答案： Print Text1.Text 学生答案： 八 在名为Form1的窗体上画一个框架，名称为Frm1，标题为\框架\，高度为2500，宽度为4000， 框架内建立一文本框，距左边框600，距框架的上边框1200，文本框中的初始内容设置为\文本框\， 如图所示。 注意：完成试题后，必须保存，然后关闭窗口。 【控件属性评分】 错误 【控件】VB.Frame_ 标准答案：Name=Frm1 学生答案：Name= 【控件属性评分】 错误 【控件】VB.Frame_ 标准答案：Height=2500 学生答案：Height= 【控件属性评分】 错误 【控件】VB.Frame_ 标准答案：Width=4000 学生答案：Width= 【控件属性评分】 错误 【控件】VB.TextBox_ 标准答案：Left=600 学生答案：Left= 【控件属性评分】 错误 【控件】VB.TextBox_ 标准答案：Text=文本框 学生答案：Text= 【控件属性评分】 错误 【控件】VB.TextBox_ 标准答案：Top=1200 学生答案：Top= 九 2、界面中窗体的标题为：密码的显示； 3、窗体中包括两个文本框，他们的名称分别为passtxt和showtxt,其中： passtxt用于密码输入，当在其中输入信息时，显示为\； 4、showtxt文本框，在程序运行时不能用，只能显示密码。 5、具体功能： 程序运行时，当在文本框passtxt中输入密码时，showtxt中同时将输入的内容原样显示。 提示：不能使用任何变量，不能使用默认属性！ 窗体属性评分】 错误 【窗体】Form1.frm 标准答案：Caption=密码的显示 学生答案：Caption=Form1 【控件属性评分】 错误 【控件】VB.TextBox_ 标准答案：Name=showtxt 学生答案：Name= 【控件属性评分】 错误 【控件】VB.TextBox_ 标准答案：Enabled=0 'False 学生答案：Enabled= 【控件属性评分】 错误 【控件】VB.TextBox_ 标准答案：Name=passtxt 学生答案：Name= 【控件属性评分】 错误 【控件】VB.TextBox_ 标准答案：PasswordChar=* 学生答案：PasswordChar= 【事件评分】 错误 【事件】Private Sub passtxt_Change() 标准答案： showtxt.Text = passtxt.Text 学生答案： 十 在名称为Form1的窗体上建立一个名称为Cmd1，标题为\显示\的命令按钮， 编写适当的事件过程。程序运行后，如果单击\显示\命令按钮， 则在窗体上显示\呵呵，小菜一碟！\，如图1-1所示。 程序中不能使用任何变量，直接显示字符串。 注意：完成后必须保存，然后再关闭。 【控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Name=Cmd1 学生答案：Name= 【控件属性评分】 错误 【控件】VB.CommandButton_ 标准答案：Caption=显示 学生答案：Caption= 【事件评分】 错误 【事件】Private Sub Cmd1_Click() 标准答案： Print \呵呵，小菜一碟！\ 学生答案： 1-10 CABCD ACDDB 11-20 DCBDB ACBBA 21-30 DCDDA ABDDB 31-40 BDCBB DADCB 41-50 CADAC BCDCD 51-60 BACBC BAAAA 61-70CAAAD BBBCA 71-80DACAD AACAD 81-90DCDAD ADDCB 91-100CADDB ABBAC 101-110CACCC AAAAB 111-120DCDBA ADABD 121-130AAADA CBADB 131-140DCDCA BADCC 141-150ADADC DDDAD 151--CACCCDA