vb第1次测验复习题单选、判断、程序填空改错练习.doc

一、判断 共19题 （共计19分）第1题 （1.0分） 题号:684在窗体的form_load事件过程里定义的变量是局部变量。第2题 （1.0分） 题号:380VB规定窗体文件的扩展名是 .vbp。3题 （1.0分） 题号:681对于动态数组，在过程中可多次使用redim语句改变数组的大小。第4题 （1.0分） 题号:285所有的控件在程序运行以后都是可见的。第5题 （1.0分） 题号:677通常用show方法来显示通用对话框第6题 （1.0分） 题号:683控件数组中的各个元素由caption属性区分。第7题 （1.0分） 题号:680通用对话框控件在运行的时候，是不可见的。第8题 （1.0分） 题号:361设A=3,B=4,C=5,D=6,则表达式AB And CC 的值是 False。第9题 （1.0分） 题号:313“菜单编辑器”中至少要填“名称”和“标题”这两个框，才能真确完成菜单栏的设计。第10题 （1.0分） 题号:325VB若同一个工程有许多窗体，可以指定任一窗体为启始窗体。第11题 （1.0分） 题号:335通过改变属性窗口中的Name属性，可以改变窗体上显示的标题。第12题 （1.0分） 题号:324如果一个菜单项的Visible属性为False，则它的子菜单也不会显示。第13题 （1.0分） 题号:678鼠标mousedown事件可以返回一个参数button用于判断用户按下的是鼠标的左键、右键、还是滑轮。第14题 （1.0分） 题号:254有的对象属性既可在属性窗口中设定又可在程序代码中设定。第15题 （1.0分） 题号:686时钟控件的interval属性的单位是毫秒。第16题 （1.0分） 题号:248对象的可见性用enabled属性设置，可用性用visible属性设置。第17题 （1.0分） 题号:682Dim（4,5）定义数组元素个数是20个。第18题 （1.0分） 题号:685dim a（1 to 5）定义的数组是2维数组。第19题 （1.0分） 题号:679用户可以通过设置菜单项的hide属性值为false来使该菜单项失效。二、单项选择 共46题 （共计46分）第1题 （1.0分） 题号:1044双击窗体的任何地方，可以打开的窗口是（）。A:代码窗口B:属性窗口C:工程管理窗口D:以上3个选项都不对第2题 （1.0分） 题号:1071VB认为下面（）组变量是同一个变量。A:A1和a1B:SUM和SUMMARYC:AVER和AVERAGED:A1和A_1第3题 （1.0分） 题号:1118决定控件上文字的字体、字形、大小及效果的属性是（）。A:TEXTB:CAPTIONC:NAMED:FONT第4题 （1.0分） 题号:1013下列（）是窗体的扩展名。A:frmB:basC:clsD:dll第5题 （1.0分） 题号:2298关于VB源代码的编写,下列说法错误的是A:一个语句必须写在一行中,不可分成多行来书写B:同一行可以写多个语句C:可以适当添加注释有利于程序的维护和调试D:VB源代码中不区分字母的大小写第6题 （1.0分） 题号:2313如果在窗体上画一个命令按钮Command1,然后编写如下实事件代码: Private Sub Command1_ Click () x=2 For i=1 To 10 Step 2 x=x+i Next i Print x End Sub那么,程序运行后,单击命令按钮,其窗体上显示的结果是A:26B:27C:38D:57第7题 （1.0分） 题号:2304使程序设计在当前窗体上输出的语句是A:Print 程序设计B:Picture1.Print 程序设计C:Printer.Print 程序设计D:Text.Print 程序设计第8题 （1.0分） 题号:724下面( ) 是合法的变量名.A:X_yzB:123abcC:integerD:X-Y第9题 （1.0分） 题号:1006以下关于vb 语言的说法中，正确的是（）。A:vb 是一种面向过程的语言B:vb 是一种面向对象语言C:vb是一种低级语言D:vb 是一种机器语言第10题 （1.0分） 题号:1052设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（）。A:cmdcB:cmdbC:cmdAD:Command1第11题 （1.0分） 题号:736下面正确的赋值语句是( ) .A:x+y=30B:y= * r * rC:y=x+30D:3y=x第12题 （1.0分） 题号:995要想清除文本框中的内容则可利用（）进行。A:CaptionB:TextC:ClearD:Cls第13题 （1.0分） 题号:1068MSGBOX函数中有4个参数，其中必须写明的参数是（）。A:指定对话框中显示按钮的数目B:设置对话框标题C:提示信息D:所有参数都是可选的第14题 （1.0分） 题号:727下面( ) 是合法的单精度型变量A:num!B:sum%C:xinte$D:mm#第15题 （1.0分） 题号:2301用InputBox()函数设计的对话框,其功能是A:只能接收用户输入的数据,但不会返回任何信息B:能接收用户输入的数据,并能返回用户输入的信息C:既能用于接收用户输入的信息,又能用于输出信息D:专门用于输出信息第16题 （1.0分） 题号:961将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。A:VisibleB:ValueC:CaptionD:Enabled第17题 （1.0分） 题号:1176执行下面的程序段后，x的值为（）。x=5 For i=1 To 20 Step 2 x=x+i5 Next i A:21B:22C:23D:24第18题 （1.0分） 题号:967由For k=10 to 0 step 3:next k循环语句控制的循环次数是（）。A:12B:0C:-11D:-10第19题 （1.0分） 题号:2309Do循环语句是根据条件决定循环的语句的,下列说法正确的是A:While和Until都是在条件变为真的之前重复循环B:Until是当条件为真时执行循环,而While是在条件变为真的之前重复C:While和Until都是当条件为真时执行循环D:While是当条件为真时执行循环,而Until是在条件变为真的之前重复第20题 （1.0分） 题号:1177用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是（）。A:6B:7C:8D:9第21题 （1.0分） 题号:2307以下Case语句中错误的是A:Case 0 To 10B:Case Is10C:Case 3, 5, Is10D:Case Is10 And Is50第22题 （1.0分） 题号:2303可以实现从键盘输入一个作为双精度变量a的值的语句是A:a=InputBox()B:a=InputBox(请输入一个值)C:a=Val(InputBox(请输入一个值) )D:a=Val(InputBox() )第23题 （1.0分） 题号:1092窗体的Caption属性的作用是（）。A:确定窗体的名称B:确定窗体的标题C:确定窗体的边界类型D:确定窗体的字体第24题 （1.0分） 题号:933函数Int(10*Rnd)是在（）范围内的整数。A:0,1B:1,10C:1,9D:0,9第25题 （1.0分） 题号:1128以下（）程序段可以实施X、Y变量值的变换。A:Y=X:X=YB:Z=X:Y=Z:X=YC:Z=X:X=Y:Y=ZD:Z=X:W=Y:Y=Z:X=Y第26题 （1.0分） 题号:939循环结构For I%= -1 to 17 Step 2 共执行（）次。A:5B:6C:8D:9第27题 （1.0分） 题号:1022下面（）是日期型常量。A:12/19/99B:12/19/99C:#12/19/99#D:12/19/99第28题 （1.0分） 题号:742VB提供了结构化程序调计的三种基本结构,三种基本结构是( ) .A:递归结构、选择结构、循环结构B:选择结构、过程结构、顺序结构C:过程结构、输入输出结构、转向结构D:选择结构、循环结构、顺序结构第29题 （1.0分） 题号:1055表达式Mid(SHANGHAI,6,3)的值是（）。A:SHANGHB:SHAC:ANGHD:HAI第30题 （1.0分） 题号:705有程序代码如下:Text.Text=Text1.text则Text1、Text、Text1.text分别代表 .A:对象、值、属性B:对象、方法、属性C:对象,属性、值D:属性、对象、值第31题 （1.0分） 题号:1172表达式4+56*7/8Mod9的值是（）。A:4B:5C:6D:7第32题 （1.0分） 题号:740语句:PrintSqr(9)= ;Sqr(9)的输出结果是( ) .A:Sqr(9)= Sqr(9)B:Sqr(9)=3C:3=3D:3= Sqr(9)第33题 （1.0分） 题号:739赋值语句:a=123 &Mid(123456,3,2)执行后,a变量中的值是( ) .A:12334B:123C:12334D:157第34题 （1.0分） 题号:2312执行语句For i=1 to 3: i=i+1 :Next i后变量i的值是A:3B:4C:5D:6第35题 （1.0分） 题号:703在Visual Basic中最基本的对象是( ) ,它是应用程序的基石,是其他控件的容器.A:文本框B:命令按钮C:窗体D:标签第36题 （1.0分） 题号:2310关于DoLoop Until循环正确的描述是A:不论条件表达式是否为真,至少要执行一次循环体B:如果条件表达式的值为假,则一次循环体也不执行C:如果条件表达式的值为真,则一次循环体也不执行D:如果条件表达式的值为真,则要继续执行循环体第37题 （1.0分） 题号:2302在默认情况下,InputBox()函数返回值的类型为A:逻辑类型B:字符串型C:数值型D:变体类型第38题 （1.0分） 题号:735表达式Len(123程序设计ABC)的值是( ) .A:10B:14C:20D:17第39题 （1.0分） 题号:2308下面程序段执行结果为( )x=Int(Rnd() + 3) Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print 及格 Case Else Print 不及格End SelectA:优秀B:良好C:及格D:不及格第40题 （1.0分） 题号:960要改变控件的宽度，应修改该控件的（）属性。A:TopB:WidthC:LeftD:Height第41题 （1.0分） 题号:1087在一个语句行内写多条语句时，语句之间应该用（）分隔。A:逗号B:分号C:顿号D:冒号第42题 （1.0分） 题号:2311执行下列程序段输出结果是( )x%=2Do while x8Print *;x=x+4LoopA:*B:*C:*D:*第43题 （1.0分） 题号:729数学表达式3x10在VB中的逻辑表达式为( ) .A:3=x10B:3=x ANDx=3 OR x10D:3=x AND10第44题 （1.0分） 题号:2299以下说法错误的是A:注释语句用来对程序或程序中某些语句做注释,使程序便于理解B:注释语句是非执行语句C:任何字符都可以放在注释行中作为注释内容D:注释语句不能放在执行语句的后面第45题 （1.0分） 题号:936改变控件在窗体中的上下位置应修改控件的（）属性。A:TopB:LeftC:WideD:Height第46题 （1.0分） 题号:1007下列的逻辑表达式中不正确的是（）。A:AB AND C=DB:XY2 AND 31D:XY AND 1=2三、程序填空 共9题 （共计90分）第1题 （10.0分） 题号:526-【程序填空】-题目：在窗体上建立两个文本框Text1(输入数)及Text2(显示结果)， 一个命令按钮Command1(判断)。单击按钮时判断Text1中输入的数值 是否是4的倍数。请在【】处填入正确的内容-Private Sub Command1_Click() Dim x As Integer *SPACE* If IsNumeric(Text1.Text) = 【?】 Then Text2.Text = 输入错误 Exit Sub End If *SPACE* x = val(【?】) *SPACE* If 【?】 = 0 Then Text2.Text = 是4的倍数 Else Text2.Text = 不是4的倍数 End If End Sub答案： 1). False 2). Text1.Text 或 Text1 3). x Mod 4第2题 （10.0分） 题号:527-【程序填空】-题目：窗体上建立了一个文本框Text1，用于显示结果。单击按钮弹出输入对话框录入0-6之间的数值， 判断输入值为星期几。请在【】处填入正确的内容-Private Sub Command1_Click() Dim x As Integer *SPACE* x = Val(【?】(请输入星期几(06) *SPACE* Select Case 【?】 Case Is = 0 Text1.Text = 星期日(Sunday) Case Is = 1 Text1.Text = 星期一(Monday) Case Is = 2 Text1.Text = 星期二(Tuesday) Case Is = 3 Text1.Text = 星期三(Wednesday) Case Is = 4 Text1.Text = 星期四(Thursday) Case Is = 5 Text1.Text = 星期五(Friday) Case Is = 6 Text1.Text = 星期六(Saturday) *SPACE* Case 【?】 Text1.Text = 输入错误 End SelectEnd Sub答案： 1). InputBox 2). x 3). Else第3题 （10.0分） 题号:519-【程序填空】-题目：该程序通过For循环计算一个表达式的值，这个表达式是 1/2+2/3+3/4+4/5请在【】处填入正确的内容-Private Sub Command1_Click() *SPACE* Dim 【?】 As Double, x As Double Dim n As Long Dim i As Integer *SPACE* sum = 【?】 n = 0 For i = 1 To 5 x = n / i n = n + 1 *SPACE* sum = 【?】 Next Form1.Print sum End Sub答案： 1). sum 2). 0 3). sum + x 或 x + sum第4题 （10.0分） 题号:524Option Explicit-【程序填空】-题目：下面是一个体操评分程序，10位评委，除去一个最 高分和一个最低分，计算平均分 (设满分为 10 分) 。请在【】处填入正确的内容-Private Sub Command1_Click() Dim s As Integer Dim Max, Min As Integer Dim i, n, p As Integer *SPACE* 【?】 Min = 10 For i = 1 To 10 n = Val(InputBox( 请输入分数： ) *SPACE* If n Max Then【?】 If n b Then m = aElse m = bEnd If*SPACE*If 【?】 Then max = mElse max = cEnd IfEnd Function答案： 1). max(max1, 73, 352) 2). ByVal a As Integer, ByVal b As Integer, ByVal c As Integer 或 a As Integer, b As Integer, c As Integer 或 a %,b%,c% 或 ByVal a %，ByVal b%，ByVal c% 3). m c 或 c max Then 【?】 If b min Then min = b *SPACE* If 【?】 Then max = c If c max 或 max X(J) Then *FOUND* Temp = X(I) X(J) = X(I) X(I) = Temp End If Next J Print X(I); Next I PrintEnd SubPrivate Sub Command1_Click() CreateRNDEnd Sub答案： 1). X(I) = Int(10 + Rnd() * 90) 或 X(I) = Int(10 + Rnd * 90) 或 x(i)=int(rnd*90+10) 或 x(i)=int(rnd()*90+10) 2). If X(I) X(J) Then 或 If X(I) X(I) Then 或 If X(J) = X(I) Then 3). temp = X(J)第2题 （10.0分） 题号:146-【程序改错】题目：用辗转相除法求两个整数的最大公约数。-注意：不可增加或删除程序行，也不可以更改程序结构-Function gcd(m As Integer, n As Integer) As Integer Dim r As Integer r = m Mod n Do While r 0*FOUND* n = m n = r r = m Mod n Loop*FOUND* gcd = rEnd FunctionPrivate Sub Form_Click() Dim a As Integer, b As Integer, c As Integer a = InputBox(输入一个整数) b = InputBox(输入一个整数) a = Val(a) b = Val(b)*FOUND* Call gcd(a, b) Print a, b, cEnd Sub答案： 1). m = n 2). gcd = n 3). c = gcd(a, b)第3题 （10.0分） 题号:463-【程序改错】-题目：以下程序功能是输入三个数，由大到小排序。-注意：不可增加或删除程序行，也不可以更改程序结构-Dim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click() Dim nTemp As Integer A = Val(InputBox(Please input first integer, 输入正整数) B = Val(InputBox(Please input second integer, 输入正整数) C = Val(InputBox(Please input third integer, 输入正整数) *FOUND* If A = C Then nTemp = A A = B B = nTemp End If *FOUND* If B = C Then nTemp = A A = C C = nTemp End If *FOUND* If A = B Then nTemp = B B = C C = nTemp End If Print The integers in order is; A; B; CEnd Sub答案： 1). If A = A Then 或 if AA Then 2). If A = A Then 或 if AA Then 3). If B = B Then 或 If BB Then第4题 （10.0分） 题号:132-【程序改错】-题目：求s=2!+4!+6!+8!，阶乘的计算