2009vb期末模拟.doc

2009vb期末模拟1、单项选择题(本题共计80分)1、VisualBasic是用于开发_环境下的应用程序的工具。 ( )A、DOS B、WindowsC、DOS和WindowsD、UNIX2、VisualBasic中的工程文件的扩展名是_。 ( )A、.regB、.frmC、.basD、.vbp3、VisualBasic中的窗体文件的扩展名是_。 ( )A、.regB、.frmC、.basD、.vbp4、VB的使用目的是_。 ( )A、开发Windows应用程序B、图像处理C、制作WAV文件D、文字处理5、VisualBasic是一种面向_的程序设计语言。 ( )A、过程B、用户C、方法D、对象6、单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的_中安排适当的单选按钮，即可实现。 ( )A、框架控件(Frame)或图象控件(Image)B、组合框(ComboBox)或图象控件(Image)C、组合框(ComboBox)或图片框(PictureBox)D、框架控件(Frame)或图片框(PictureBox)7、在VisualBasic最基本的对象是_，它是应用程序的基石。 ( )A、标签B、窗体C、文本框D、命令按钮8、只能由系统触发的是_事件。 ( )A、ResizeB、DblClickC、TimerD、Paint9、在一个工程中，可以多个_。 ( )A、资源文件B、工程文件C、机器代码文件D、窗体文件10、列表框的_属性代表着列表框中项目的数目。 ( )A、ListB、ListIndexC、ListCountD、Seleted11、下列控件中，可以接收焦点的是_。 ( )A、文本框B、图像框C、框架D、形状12、为了使标签Label1显示文字姓名，可把Label1的_属性设置为姓名。 ( )A、CaptionB、TextC、WordD、Name13、判断在文本框内是否按下了回车键，应通过_事件过程。 ( )A、ChangeB、KeyPressC、GotFocusD、Click14、在设计列表框时，若实现输入多行文字的目的，应使用_键实现文本的换行。 ( )A、EnterB、Alt+EnterC、Ctrl+Shift+EnterD、Ctrl+Enter15、某些对象有只读属性，如Name属性，这种属性在设计阶段设置，不能在运行期间改变。以下_属性为只读属性。 ( )A、ControBoxB、EnabledC、BorderStyleD、WindowState16、VisualBasic集成的主窗口中包括_。 ( )A、标题栏B、工具栏C、菜单栏D、以上三者均有17、工程组文件扩展名为_。 ( )A、vbpB、vbgC、clsD、bas18、无法响应Click事件的控件是_。 ( )A、LabelB、TimerC、TextBoxD、DrivelistBox19、窗体上有多个控件，在Form_Activate()事件过程中添加_语句，就可以保每次运行程序时，都将光标定位在文本框Text1上。 ( )A、Text1.Text= B、Text1.SetFocusC、Form1.SetFocusD、Text1.Visible=True20、复选框的Value属性为1时，表示_。 ( )A、复选框未被选中B、复选框被选中C、复选框内有灰色的勾D、复选框操作有错误21、窗体Form1的名称属性是frm，它的Load事件过程名是_。 ( )A、Form-LoadB、Form_LoadC、frm_LoadD、Me_CmdOK22、在以下有关对象属性的叙述中，不正确的是_。 ( )A、一个对象的属性可分为外观、行为等若干类。B、不同属性可能具有不同的数据类型。C、一个对象的所有属性都可在属性窗口的列表中进行设置。D、属性窗口中的属性列表既可按字母序也可按类别排列。23、对正实数X的第四位小数四舍五入的VB表达式是_。 ( )A、0.001*Int(x+0.0005)B、0.001*(1000*x+0.5)C、0.001*Int(1000*x+5)D、0.001*Int(1000*(x+0.0005)24、函数Cint(3.5)，Int(3.5)，Fix(3.5)的值分别是_。 ( )A、-3，4，3B、-4，4，3C、-3，4，4D、-4，3，325、执行语句Print format(5459.478,#,#0.00)，正确的输出结果是_。 ( )A、5459.48B、5,459.48C、5,459.478D、5,459.4726、VB表达式Sqr(a+b)3*2中优先进行运算的是_。 ( )A、Sqr函数B、+C、D、*27、执行以下程序段后，变是c$的值为_。Private Sub Command1_Click( )A$ = Viaual BASIC programmingB$ = B$& UCase(Mid$(A$, 7, 6) & Right$(A$, 12)Print B$End Sub ( )A、Viaual BASIC ProgrammingB、Basic ProgrammingC、basic programmingD、BASIC PROGRAMMING28、有如下程序：Private Sub Command1_Click( )s = Fix(23.1)e = Int(-23.1)Print Sgn(e+s)End Sub运行时输出的结果是_。 ( )A、-1B、0C、1D、2329、用于除去字符串左侧的空格的函数是_。 ( )A、Rtrim( )B、Ltrim( )C、LeftTrim( )D、Trim( )30、语句Print 4 + 56*7/8 Mod 9的值是_。 ( )A、4B、5C、6D、731、下列_是双精度型变量。 ( )A、AAA%B、BBBC、CCC！D、DDD#32、下列_是合法的VB变量名。 ( )A、_5aB、我_ABC、5nameD、Use&DASF33、设变量x、y是整型变量，且y0，下列赋值语句中错误的是_。 ( )A、Myv1&=5*x%3+x%Mod y%B、Myv2%=5*x%3+x%Mod y%C、Myv3&=”5*x%3+x%Mod y%”D、Myv4$=5*x%3+x%Mod y%34、下列字符串中_是合法变量。 ( )A、char_1,student,No,a1234B、exp,123,x * yC、x y ,xyD、end ,1bcx35、Rnd函数不可能为下列_值。 ( )A、0B、1C、0.1234D、0.000536、数学关系3=x10表示成正确的VB表达式为_。 ( )A、3=x0B、3=x AND x=3 OR x10D、3=x AND 1037、一句语句要在一行继续写，用_符号作为续行符。 ( )A、+B、&C、_D、38、若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用_关键字在该过程中定义局部变量。 ( )A、DimB、PrivateC、PublicD、Static39、设变量x、y是整型变量，且y0，下列赋值语句中错误的是_。 ( )A、Myv1&=5*x%3+x%Mod y%B、Myv2%=5*x%3+x%Mod y%C、Myv3&=5*x%3+x%Mod y%D、Myv4$=5*x%3+x%Mod y%40、语句x=x+1的正确含义是_. ( )A、变量X的值与X+1的值相等B、将变量X的值存在X+1中去C、将变量X的值加1后赋给变量XD、变量X的值为141、下列语句中的语句可以用来正确地声明一个动态数组。 ( )A、Private A(n) As IntegerB、Dim A() As IntegerC、Dim A(,) As IntegerD、Dim A(1 to n)42、下列程序：Private Sub Form_Click( )For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub运行后输出的结果是_。 ( )A、1B、15C、90D、12043、设有如下语句： strl=InputBox(输入,练习)从键盘上输入字符串示例后，strl的值是_。 ( )A、“输入”B、“”C、“练习”D、“示例”44、下面是计算1100奇数的和的程序，请补充完整，填空应为_。Private Sub Command1_Click() Dim s As Long, x As Integer s = 0 For x = _ Step -2 s = s + x Next x Print sEnd SubA、100 To 1B、1 To 100C、99 To 1D、1 To 9945、在窗体上建立3个文本框：Text1、Text2、Text3，如果在Text1中输入200，在Text2中输入150，则执行下列程序段后，Text3的值为_。 ( )Dim m As Integer, n As Integerm=Val(Text1)n=Val(Text2)If n*m=0 Then Exit SubIf mn Thent=m: m=n: n=tEnd IfDor=m Mod nm=nn=rLoop While r0Text3=mA、200B、150C、100D、5046、下列语句正确的是_。 ( )A、If KN Then N=K3B、If KN Then N=K3C、If KN Then N=K3D、If KN Then N=K*347、假设X的值是5，则执行以下语句时，可得到的输出结果是 ABCDEF 的 SelectCase 语句是_。 ( )A、Select Case XCase 10 TO 1Print “ABCDEF”End SelectB、Select Case XCase Is15, Is5, 1, 3, TO 10Print “ABCDEF”End SelectD、Select Case XCase 1, 3, Is5Print “ABCDEF”End Select48、下面程序的内层循环次数是_。For i=1 TO 3For j=1 TO iFor k=j TO 3.Next kNext jNext i ( )A、3B、14C、9D、2149、结构化程序设计方法的核心是规定了三种基本结构：_结构、分支结构、循环结构。 ( )A、条件B、顺序C、当型D、逻辑50、计算机算法可以分为两大类：一类是_算法，另一类是_算法。 ( )A、计算机辅助设计、财务B、数值计算、非数值计算C、步骤管理、通信D、排序、查找51、语句If x=1Then y=1，下列说法正确的是_。 ( )A、x=1和y=1均为赋值语句B、x=1和y=l均为关系表达式C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=l为关系表达式52、在过程中有语句ForI=N1 To N2 Step N3，在该循环体内有下列四条语句，其中_会影响循环执行的次数。 N1=N1+I N2=N2+N3 I=I+N3 N3=2*N3 ( )A、B、C、D、53、表达式（73+1）*(185-1)的值是_. ( )A、8.67B、7.8C、6D、6.6754、VisualBasic认为下面_组变量是同一个变量。 ( )A、A1和a1B、Sum 和SummaryC、Aver 和 AverageD、A1 和A_155、下列有关数组的说法中，不正确的是_。 ( )A、在窗体模块中不可以定义全局数据组B、可以使用Erase语句释放所有数组所占据的存储储空间C、语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组D、形参数组的类型可以是定长符串类型56、在窗体上添加一个命令按钮，名为Command1，事件过程如下。执行结果是_。Sub pb(b( ) As Integer)For i=1 To 4B(i)=2*iNext iEnd SubPrivate Sub Command1_Click( )Dim a(1 To 4) As Integera(1)=5:a(2)=6: a(3)=7:a(4)=8pb aFor i=1 To 4Print a(i);Next iEnd Sub ( )A、2 4 6 8B、1 3 5 7C、3 6 6 12D、4 8 12 1657、以下程序的输出结果是_。Option Base 1Private Sub Command1_Click()Dim a(10) As Integer, p(3) As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub ( )A、33B、28C、35D、3758、以下程序段的输出结果是_。 ( Dim B(2, 2) As IntegerDim i, j, t As IntegerFor i = 1 To 2 For j = 0 To 2 B(i, j) = j Next jNext it = 1For i = 0 To 2 For j = 0 To 2 t = t + B(i, B(j, j) Next jNext iPrint tA、3B、4C、1D、759、下列程序段的输出结果是_。( )Dim i As IntegerDim a(8) As Integery = 18: i = 0Do a(i) = y Mod 2 i = i + 1 y = y 2Loop Until y =1Int1=Int1-1Loop14、本程序用于验证一个自然数N的立方等于N个连续奇数之和，其中最大的奇数P=N*（N+1）-1例如，43=19+17+13，最大奇数为19。当程序执行后，分别给对话框输入4和6时，问计算结果分别为_(1)_和_(2)_ 。Private Sub Command1_Click( )Dim s As Stringn = InputBox(输入一个自然数)num = n * n * np = n * (n + 1)-1x = pk = 1Do Until x = nump = p-2x = x + pk = k + 1LoopPrintPrint k; pEnd Sub15、用100元买100鸡，条件是公鸡x每只5元，母鸡y每只3元，小鸡z只1元3只。程序中的选项是_。Private Sub Command1_Click( )For x = 0 To 100For y = 0 To 100z=100-x-yIf _(1)_Then Print x, y, zNext yNext xEnd Sub16、已知下列程序运行结果是ABCD，请在_处将程序补充完整。Private Sub Command1_Click( )a =For n = 65 To 68a =a+_Next nPrint aEnd Sub17、表达式72Mod 523的值为_18、两质数的差为2，称此对质数为质数对，下列程序是找出100以内的质数对，并成对显示结果。其中，函数IsP判断参数m是否为质数。Public Function IsP(m) As BooleanDim i%_For i=2 To Int(Sqr(m)If _ Then IsP=FalseNext iEnd FunctionPrivate Sub Commandl_Click()Dim i%Pl=IsP(3)For i=5 To 100 Step 2p2=IsP(i)If _Then Print i-2,ip1 _Next iEnd Sub19.下面程序的功能是:通过键盘输入一个正整数 N ，找出所有分母为N ，且数值介于 1/3 和1/4 之间的最简分数（即分子、分母除1以外无公因子）。Private Sub Command1_Click() dimi As Integer, J As Integer,n As Integer, Flag As Boolean n = Val(InputBox(“输入分母 N ：”, ,11) fori = 1 To n1 Call Sub1(I,N,Flag) If Then Print CStr(I); “/”; CStr (N) End If nextiEnd SubPrivate Sub Sub1(K As Integer, N As Integer , F As Boolean) dimi As Integer ifThen fori = 2 To k IfThen Exit Sub End If next if = Trueend If End Sub20.用随机数模拟掷骰子，统计掷50次，骰子各点出现的次数。(提示:骰子点数只能是16一位随机整数)Option Base 1Private Sub Command1_Click( ) Dim For i = 1 To 50 n = d(n)= Next i For i = 1 To 6 Print i; 点出现的次数:; d(i) Next iEnd Sub21.运行下列程序，在窗体上显示的第一行是 _；第二行是。 Private Function t(n As Integer, k As Integer) As Integer t = 0 Do While k 0 t = n Mod 10 n = n 10 k = k - 1 LoopEnd FunctionPrivate Sub Form_Click() Print t(1234, 2) Print t(1234, 4)End sub22、下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示1！+2！+3！+.+10！的和。完善下列程序。Private Sub Form_Click( )Dim s As Long,I As Integers=0For i=1 To 10s=s+ _Next iPrint sEnd SubPrivate Function fact(ByVal n As Integer)As LongDim i As Integer,f As Longf=1For i=2 To nf=f*iNext i_End Function23、下程序的功能是找出此数各位数字的阶乘相加之和等于该数，并在列表框List1中显示。阶乘由Function计算。在(1)、(2)处填上正确内容。Private Sub Command1_Click( )For k=1 To 1000a=LTrim(Str(k)n=0For i=1 To Len(a)p=Val(Mid(a,i,1)n=n+fact(p)Next iIf n=k Then_(1)_Next kEnd SubPrivate Function fact(x)if x=1 Thenfact=1Elsefact=_(2) _End IfEnd Function24、运行下面程序，单击窗体后在窗体上显示的第二行结果是 _(1)_ ；第四行结果是 _(2) _。Dim y As IntegerPrivate Sub Form_Click()Dim x As Integerx = 1: y = 1Print x1=; x, y1=; yTestPrint x4=; x, y4=; yEnd SubPrivate Sub Test()Dim x As IntegerPrint x2=; x, y2=; yx = 2: y = 3Print x3=; x, y3=; yEnd Sub25、如下程序，运行的结果是_(1)_，若将A语句改为Static i%，运行的结果是_(2)_。Public Sub Proc(a%()Dim i% ADoa(i)=a(i)+a(i+1)i=i+1Loop While i=, 7.dim x(),x(1 to 20), 8.Int(1+6*Rnd),d(n)+1, 9.Abs(x1-x2)0.000001, 10.2 22009vb期末模拟参考答案1.b,2.d,3.b,4.a,5.d,6.d,7.b,8.c,9.d,10.c,11.a,12.a,13.b,14.d,15.c,16.d,17.b,18.b,19.b,20.b,21.b,22.c,23.d,24.b,25.b,26.b,27.d,28.a,29.b,30.b,31.d,32.a,33.c,34.a,35.b,36.b,37.c,38.d,39.c,40.c,41.b,42.b,43.d,44.c,45.d,46.a,47.a,48.b,49.b,50.b,51.c,52.c,53.c,54.a,55.b,56.a,57.a,58.d,59.b,60.b,61.a,62.d,63.c,64.d,6