淮阴工学院VB试题库.doc

Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-date淮阴工学院VB试题库1、求一个三位正数N的十位数的正确方法是_C_。1、求一个三位正数N的十位数的正确方法是_C_。A、lnt（N/10)-lnt(N /100)B、N-lnt(N-1000)*100C、n 10 Mod 10D、lnt(N/10)-lnt(N/10)*102、表达式(-1)*Sgn(-100+Int(Rnd*100)的值是_A_。A、1B、0C、-1D、随机3、在程序中分别将变量IntA、Bl、st和D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是_A_。A、Bl=#True# B、st= "" C、D=#10/05/01#D、Inta=4.64、图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是_B_。A、AppearanceB、StretchC、AutoredrawD、Autosize5、使用_C_方法可将新的列表项添加到一个列表框中。A、Clear B、AddItem C、Print D、RemoveItem6、下列 _B_ 不是列表框的方法。A、Clear B、AddItem C、Print D、RemoveItem7、执行下列程序段，输出结果为 _B_。Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)A、出错B、7 0C、4 4D、7 7 9、执行下列程序段，输出结果为 _B_。Dim a() As IntegerDim i As IntegerReDim a(10)For i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)A、7 0B、出错C、7 7D、4 410、执行下面的程序，输出结果是_A_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y End FunctionA、18 30B、9 18C、7 18D、4 911、窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用_C_。A、Form1.KB、Form.KC、Frm1.kD、K12、一个工程中含有窗体Form1.Form2和标准模块Model1，如果在Form1中有语句 Public X As Integer 在Model1中有语句 Public Y As Integer 则以下叙述中正确的是BA、变量X.Y的作用域相同 B、在From1中可以直接使用XC、Y的作用域是Model1D、在Form2中可以直接使用X和Y13、VB是一种面向_C_的程序设计语言。A、过程 B、用户 C、对象D、方法14、以下叙述中错误的是_D_。A、事件可以由用户引发，也可以由系统引发B、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件C、保存Visual Basic程序时，应分别保存窗体文件及工程文件D、Visual Basic应用程序只能以解释方式执行15、VB是用于开发_A_环境下的应用程序的工具。A、WindowsB、DOSC、DOS和WindowsD、UNIX16、为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用_C_。A、字符串类型B、数组C、记录类型D、变体类型17、下面关于随机文件的描述不正确的是_A_。A、一个文件中记录号不必唯一B、每条记录的长度必须相同C、可通过编程对文件中的某条记录方便地修改D、文件的组织结构比顺序文件复杂18、以下关于文件的叙述中，错误的是_B_。A、顺序文件中的记录一个接一个地顺序存放B、随机文件中记录的长度是随机的C、LOF函数返回给文件分配的字节数D、执行打开文件的命令后，自动生成一个文件指针20、执行以下语句后，a的值为_C_。 Dim a As Integer a = 1 Do a = a + 2 Loop Until a = 100A、101B、100C、溢出D、9922、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() A = Inputbox("Enter An Integer") B = Inputbox("Enter An Integer") Text1.Text = B + AEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是_C_。A、出错B、60C、564D、45623、执行语句：A = Inputbox("Today", "Tomorrow", "Yesterday")将显示一个输入对话框，在对话框的输入区中显示的信息是_C_。A、Tomorrow B、Today C、Yesterday 26、下列程序段的执行结果是_A_。X = 2 Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 0A、False B、TrueC、-1D、127、在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() N = Text1.Text Select Case N Case 1 To 20 X = 10 Case 2, 4, 6 X = 20 Case Is < 10 X = 30 Case 10 X = 40 End Select Text2.Text = X End Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是D_。A、20B、30C、40D、1028、设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是 _A_。A、Menu1.Visible=FalseB、Munu1.Enabled=FalseC、Menu1.Visible=TrueD、Menu1.Enabled=True 29、以下使用方法的代码中，正确的是_D_。A、Form1.ClearB、Combo1.ClsC、Label1.SetFocus D、Text1.SetFocus30、设有一个命令按钮，若要实现按回车键等同按此键，应设置其_D_ 。A、Default属性设为FalseB、Cancel属性设为True C、Cancel属性设为FalseD、Default属性设为True 32、在用通用对话框控件建立"打开"或"保存"文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正确的描述格式是_A_。A、"文本文件(.txt)|*.txt"B、"text (.txt)"|(*.txt)C、"text(.txt)|(*.txt)"D、"text(.txt)(*.txt)"33、在以下4个逻辑表达式中，其逻辑值为"真"的是_B_。A、not (3+4<4+6) B、not(1>2)C、1>2 or 2>3 D、2>1and 3<2 34、设A="12345678"，则表达式Val(Left(A,4)+Mid(A,4,2)的值为_A_。A、123445B、123456C、8D、635、以下能够触发文本框Change事件的操作是_C_。A、文本框获得焦点B、设置文本框的焦点C、改变文本框的内容D、文本框失去焦点 36、VB中可以使用自己定义的Sub过程和Function过程，_D_ 过程称为函数，这种过程可以返回值。A、通用B、属性C、事件D、Function37、下面程序段的运行结果为_C_。 Dim s As Integer, i As Integer i = 1: s = 1 Do i = i + s Loop Until s > 10 Print i, sA、11 1 B、11 10C、溢出 D、10 1 38、以下关于窗体的描述中，错误的是_B_。A、窗体的Height、Width属性用于设置窗体的高和宽B、执行Unload Form1语句后，窗体Form1消失，但仍在内存中C、窗体的Load 事件在加载窗体时发生D、当窗体的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止39、以下叙述中错误的是_B_。A、下拉式菜单和弹出式菜单都用菜单编辑器建立B、如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见C、除分隔线外，所有菜单项都能接收Click事件D、在多窗体程序中，每个窗体都可以建立自己的菜单系统40、在程序中可以通过复选框和单选按钮的_A_属性值来判断它们的当前状态它。A、Value B、Caption C、Checked D、Selected42、运行如下程序后，输出结果为_。 Dim i As Integer, y As Integer For i = 3 To 15 Step 3 y = y + i i = i + 3 Next i Print i; y答案：21 2743、如果依次输入75,55,45,70,30,25,40,15,20,5,下列程序段的执行结果为_。 Dim c As Integer, k As Integer, d As Integer c = 70 For k = 11 To 20 x = InputBox("输入X的数值:") If x < c Then d = d + x: c = x Else d = d + c End If Next k Print d答案：33046、素互换，第2个元素与第9个元素互换分别输出数组原来各元素的值和对换后各元素的值。 Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer, j As Integer Print "原序列：" For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print For i = 1 To _ t = a(i) _ _ Next i Print "交换后的序列：" For i = 1 To 10 Print a(i); Next i Print End Sub答案：第一空：5 第二空：NYa(i)=a(11-i) 第三空：NYa(11-i)=t47、执行以下程序段，则第一行输出结果是_，第二行输出结果是_。Dim a(-3 To 5) As SingleDim b(3, 4) As IntegerPrint UBound(a), UBound(b, 1)Print LBound(a), LBound(b, 2)答案：第一空：5 3 第二空：NY-3 048、设有数组声明语句：Dim A(-1 To 2,-1 To 1) As Long，则数组A在内存中所占的字节数为_。答案：4849、顺序文件通过PRINT语句或_语句把缓冲区中的数据写入磁盘。答案：WRITE52、假设递归函数fact(n)用来求n的阶乘，请补充程序。 Private Function fact(n As Integer) As Long If n = 0 Or n = 1 Then fact = 1 Else fact = _ End If End Function答案：n*fact(n-1)54、执行以下程序，单击命令按钮后，如果在弹出的对话框中单击"是"按钮，则窗体上的输出内容是_。 Private Sub Command1_Click() Dim a As Integer a = MsgBox("非法数据！" & Chr(13) & Chr(10) & "请重新输入", vbYesNo+ vbCritical, "提示信息") Print a End Sub答案：655、运行下列程序，单击命令按钮后，在窗体上输出结果为_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3), s(3) Dim x, i% For i = 1 To 3 s(i) = 0 For j = 1 To 3 a(i, j) = i + j s(i) = s(i) + a(i, j) Next j Next i For Each x In s Print x; Next x End Sub答案：9 12 151下列符号常量的声明中，_D_是不合法的。Const a As single =1.1Const a As Integer =12Const a =OKCost a As Double =Sin(1)2在以下有关对象属性的叙述中错误的是_D_。只能在执行时设置或改变的属性为执行时属性所有对象都具有Name 属性 对象的某些属性只能在设计时设定，不能使用代码改变Enabled属性值设为False的控件对象在窗体上将不可见3以下关于图片框控件的说法中，错误的是_A_。用Stretch属性可以自动调整图片框中图形的大小清空图片框控件中图形的方法之一是加载一个空图形图片框控件可以作为容器使用可以通过Print方法在图片框中输出文本4设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是DList1.Index List1.Listindex List1.ListList1.Text5以下关于动态数组的语句中，正确的是_D_。ReDim a(3,4)：ReDim Preserve a(4,7)Dim a() As Integer：ReDim a(5) ：ReDim a(3,4)：a(4)=a(3)+1Dim a() As Integer：ReDim a(5) As SingleReDim a(k+1)：ReDim preserve a(10)6执行下面的程序，输出结果是_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y End Function18 308名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是_A_。Private Sub sort(A() As Integer)Private Sub sort(ByVal A() As Integer)Private Sub sort(A(10) As Integer)Private Sub sort(A( ，) As Integer)9以下叙述中错误的是_D_。Visual Basic应用程序不具有明显的开始和结束语句Visual Basic中控件的某些属性只能在运行时设置Visual Basic 是事件驱动型可视化编程工具Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性10 一只白色的足球被踢进球门，则白色、足球、踢、进球门是_。属性、对象、事件、方法11 以下叙述中正确的是_A_。随机文件中每个记录的长度是固定的Open命令的作用是打开一个已经存在的文件使用Input #语句可以从随机文件中读取数据一个记录中所包含的各个元素的数据类型必须相同13 假定在窗体上建立了通用对话框，其名称为CommonDialog1 ，用下面的语句可以建立一个对话框:CommonDialog1.Action = 2与该语句等价的语句是_A_。CommonDialog1.showsaveCommonDialog1.showopenCommonDialog1.showcolorCommonDialog1.showfont14 执行以下语句后，a的值为_3 _。 Dim a As Integer a = 1 Do a = a + 2 Loop While a = 100窗体Form1的名称属性是frm，它的Load事件过程名是_Form_Load16运行如下程序后，输出结果为_30_。 a = 0 For j = 1 To 30 Step 2 a = a + j mod 5 Next j Print a18 运行下列程序，单击命令按钮后，在窗体上输出结果为_9 12 15_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3), s(3) Dim x, i% For i = 1 To 3 s(i) = 0 For j = 1 To 3 a(i, j) = i + j s(i) = s(i) + a(i, j) Next j Next i For Each x In s Print x; Next x End Sub20 假设递归函数fact(n)用来求n的阶乘，请补充程序。 Private Function fact(n As Integer) As Long If n = 0 Or n = 1 Then fact = 1 Else fact = _n*fact(n-1)_ End If End Function22 执行以下程序，单击命令按钮后，如果在弹出的对话框中单击"是"按钮，则窗体上的输出内容是_6_。 Private Sub Command1_Click() Dim a As Integer a = MsgBox("非法数据！" & Chr(13) & Chr(10) & "请重新输入", vbYesNo+ vbCritical, "提示信息") Print a End Sub23 设有数组声明语句：Dim A(-1 To 2,-1 To 1) As Long，则数组A在内存中所占的字节数为_48_。1 以下可以作为Visual Basic变量名的是_D_。F1.1 a*b2FA F2A2 以下叙述中错误的是_。程序运行过程中，可以重新设置菜单的Visible属性在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的访问键在同一窗体的菜单项中，不允许出现标题相同的菜单项弹出式菜单也在菜单编辑器中定义3 下列程序段的执行结果为_。Dim a(10) As Integer, b() As IntegerDim i As IntegerReDim b(5)For i = 1 To 10 a(i) = i If i Mod 2 = 0 Then b(i/2) = a(i) End IfNext iPrint a(4); b(3)4 64 在调用过程时，下列说法中正确的是_C_。只能使用Call语句调用Sub过程调用Sub过程时，实际参数必须用括号括起来Function过程也可以使用Call语句调用Function过程也可以使用Call语句调用5 表达式Abs(-5)+Len("ABCDE")的值是_10_。5ABCDE 10 -5ABCDE 06 单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的_中安排适当的单选按钮，即可实现。框架控件（Frame）或图片框（PictureBox）7 阅读下面程序，当单击窗体后，窗体上输出的是17 13 3_。 Private Sub Form_Click() Dim i As Integer, k As Integer Dim a As Integer, b As Integer a = 5: b = 1 For i = 1 To a + b Step b i = i + 1 a = a + i b = b + i k = k + 1 Next i Print a; b; k End Sub9 下列程序的执行结果为_35 20_。 Private Sub Form_Click() Dim M As Integer, N As Integer M = 15: N = 20 Call try(M, N) Print M; N End Sub Sub try(x As Integer, Byval y As Integer) x = x + 20 y = x + y End Sub11 执行以下程序，单击命令按钮后，如果从键盘上输入5，则第一行输出结果是_1 2 3 4 5_，第二行输出结果是_(NY)00000000000_。 Private Sub Command1_Click() Dim a() As Integer Dim n As Integer, i As Integer n = InputBox("input n:") ReDim a(n) For i = 1 To n a(i) = i Print a(i); Next i Print ReDim a(10) For i =0 To 10 Print a(i); Next i End Sub12 执行下列程序，单击命令按钮在窗体上输出结果为_5 6 3_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer, k As Integer Dim i As Integer, j As Integer, n As Integer n = UBound(a, 1) For i = 1 To n - 2 For j = i To n - i a(i, j) = k + 1 a(j, n + 1 - i) = k + 2 a(n + 1 - i, n + 1 - j) = k + 3 a(n + 1 - j, i) = k + 4 k = k + 4 Next j Next i If n Mod 2 <> 0 Then a(n + 1) / 2, (n + 1) / 2) = k + 1 End If Print a(1, 2); a(2, 3); a(3, 3) End Sub14 执行下面的程序段，输出结果是_ABCBCD_。 Dim str1 As String, str2 As String str1 = "abc" str1 = UCase(str1) For i = 1 To 3 str2 = Chr(Asc(str1) + i) str1 = str1 & str2 Next i Print str115 执行下面程序段，如果运行时输入2，则在窗体上输出结果是_4_。 Dim x As Integer x = InputBox("input x") If x > 1 Then y = x + 2 ElseIf x < 5 Then y = x + 3 ElseIf x = 2 Then y = x End If Print y16 执行以下程序，单击命令按钮后，窗体上的输出结果是_-1_。 Private Sub Command1_Click() Dim a As Integer a = True * 6 + 5 Print a End Sub17 执行下面程序，若依次输入10，20，30，40，50，60，则输出结果是_10 30 50 20 40 60_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 2) As Integer Dim i%, j%, t For i = 1 To 3 For j = 1 To 2 a(i, j) = InputBox("请输入数组元素的值") Next j Next i For Each t In a Print t; Next t End Sub1 如果X是一个正数的实数，将千分位四舍五入，保留两位小数的表达式是_。0.01*Int(100*(X+0.005) 2 为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用_。记录类型下面所列四组数据中，全部是正确的VB常数的是_。ABCE，#02-03-2004#，E-23 窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用_。Frm1.k4 运行以下程序，单击命令按钮后，如果用户从键盘上输入6、5、4、3、2、1，则窗体上输出内容为_9_。Private Sub Command1_Click() Dim a() As Integer Dim i As Integer, j As Integer ReDim a(6) For i = 5 To 10 a(10 - i + 1) = InputBox("input number") Next i ReDim Preserve a(10) a(10) = a(5) + a(4) Print a(10)End Sub 5 以下叙述中错误的是_D_。一个工程中只能有一个Sub Main过程窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体窗体的Hide方法和Unload方法的作用完全相同 6 以下关于文件的叙述中，错误的是_A_。 随机文件中记录的长度是随机的顺序文件中的记录一个接一个地顺序存放执行打开文件的命令后，自动生成一个文件指针LOF函数返回给文件分配的字节数7 以下叙述中错误的是_A_。 在同一窗体的菜单项中，不允许出现标题相同的菜单项程序运行过程中，可以重新设置菜单的Visible属性在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的访问键弹出式菜单也在菜单编辑器中定义8 下面的程序是找出两个正整数a和b，使a<b、a+b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim m As Integer, n As Integer Dim r As Integer, k As Integer For a = 1 To 49 _b=99-a_ m = a: n = b Do _r=m mod n_ m = n n = r Loop Until r = 0 If m Mod 3 = 0 Then _k=k+1_ Print a; b End If Next a Print "符合条件的数对个数为" & k & "个" End Sub10 阅读下列程序，输出结果是_30 0_。 Private Sub Command1_Click() Dim i As Integer For i = 10 To 1 Step -2 s = s + i Next i Print s,i End Sub11 运行下面的程序，第二行显示结果是_11 22 33_。 Option Base 1 Private Sub Form_Click() Dim a, b(), i, j, k a = Array(11, 12, 13, 21, 22, 23, 31, 32, 33) ReDim b(3, 3) Call read(a, b) Call prt(b) End Sub Private Sub read(a, b) For i = 1 To 3 For j = 1 To 3 k = k + 1 b(i, j) = a(k) Next j Next i End Sub Private Sub prt(b) For i = 1 To 3 For j = 1 To 3 p = b(i, j) Mod 3 + 1 q = b(j, i) Mod 3 + 1 Print b(p, q); Next j Print Next i End Sub12 以下程序是求1到1000之间所有能被3整除的数的和，按要求完善程序。 Private Sub Command1_Click() Dim n As Integer, s As Long