试题B 西南财经大学天府学院VB复习资料试题B及答案.doc

西南财经大学天府学院试卷(A卷)考试科目：VB与动态网页设计_本年级层次教学班 姓名： 学号：记分表试题号一二三四五六总分考分阅卷人注意：1、本次考试为闭卷考试，考试时间120分钟。2、请将答案依次写在专用答题纸上。3、全卷共两部分，满分为100分。一、单项选择题（共40题，每题1分，共计40分）1、Visual Basic 是一种面向对象的程序设计语言，构成对象的3要素是（ B ）。A、属性、控件和方法 B、属性、事件和方法 C、窗体、控件和过程 D、控件、过程和模块2、不能打开“代码编辑器”窗口的操作是（ B ）。A、双击窗体设计器的任何地方 B、按下F4键 C、单击“工程”窗口中的“查看代码”按钮 D、选择“视图”下拉菜单中的“代码窗口”命令3、下列程序代码中说法正确的是（ B ）。Text1.Left = 400Text1.Top = 1000A、Text1对象左边界距窗体的左边界400twip，上边界距屏幕的上边界1000twip B、Text1对象左边界距窗体的左边界400twip，上边界距窗体的上边界1000twipC、Text1对象的高度为400twip，宽度为1000twip D、Text1对象的高度为400点，宽度为1000点4、设置窗体最小化时的图标可通过（ D ）属性来实现。A、Image B、Picture C、MouseIcon D、Icon5、如果要实现当鼠标暂时停留在一文本框上时，显示提示信息，应设置此文本框的（ B ）属性。A、Text B、ToolTipText C、Caption D、HelpContextId6、当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（ C ）。A、Click B、Load C、GotFocus D、UnLoad7、当文本框的MaxLength属性值取（ C ）时，该文本框能容纳的字符数最多。A、512 B、256 C、0 D、-18、若使用Textbox控件时，为对用户输入的内容立即进行检查，就对Textbox控件的（ A ）事件编程。A、Change B、Interval C、Left D、Top9、所有控件都具备的属性是（ B ）。A、Text B、Name C、ForeColor D、Caption10、在VB中，下面4个数作为常量有语法错误的是（ B ）。A、2.56D4 B、2E1.4 C、1234！ D、1.8E-511、下面的变量名合法的是（ A ）。A、k_name B、k name C、name D、k-name12、表达式123 & 100 + 300的值是（ C ）。A、123400 B、523 C、123400 D、12310030013、VB6.0中执行下面的4个语句时出现错误的是（ C ）。A、 x = Cos(0) B、x = Sqr(4) C、 x = Exp(800) D、x = Sin(0)14、设有如下声明：Dim x As Integer如果Sgn(x)的值为-1，则x的值是（ D ）。A、整数 B、大于0的整数 C、等于0的整数 D、小于0的数15、以下说法中不正确的是（ B ）。A、使用ReDim语句可以改变数组的维数B、使用ReDim语句可以改变数组的类型C、使用ReDim语句可以改变数组的每一维的大小D、使用ReDim语句可以对数组中的所有元素重新进行初始化16、在VB中声明了Variant变量，但未赋值，则系统默认其初始化值为（ C ）。A、Null B、0 C、Empty D、False17、确定字符串str2在字符串str1中起始位置的函数是（ D ）。A、Left B、Mid C、String D、Instr18、表达式# 7/10/2009 + 5 的运算结果是（ A ）。A、2009-7-15 B、2009-12-10 C、2014-7-10 D、无法运算19、m、n是整数，且n m，在下面4个语句中，能将x赋值为一个m,n之间（包含m,n）的任意整数的是（ D ）。A、x = Int(Rnd * (n-m) + m B、x = Int(Rnd * n) + m C、x = Int(Rnd * m) + m D、x = Int(Rnd * (n-m+1) + m20、运行下面的程序后，单击命令按钮，则在窗体上输出（ B ）。Private Sub Command1_Click( ) Print Format( 1234.567，#.#%)End SubA、123456.7 B、123456.7% C、1234.57% D、123456.70%21、执行下列程序，单击命令按钮后在窗体上输出结果是（ C ）。Private Sub Command1_Click( ) Dim A As Integer A% = 456 A = 232.45 B = 235 Print A，A%End SubA、456 232.45 B、232.45 232.45 C、232 232 D、显示出错信息22、执行以下程序段a$ = “abbacddcba”For i = 6 To 2 Step -2 X = Mid(a,i,i) Y = Left(a,i) Z = Right(a,i) Z = UCase(X & Y & Z)Next iPrint Z输出结果为（ ）。A、ABA B、BBABBA C、ABBABA D、AABAAB23、如下程序：Private Sub Command1_Click( ) x1 = InputBox(请输入) Print x1 + 111; x1 + 111End Sub运行程序，单击命令按钮并输入111，则在窗体上输出结果是（ B ）。A、111111 222 B、222 111111 C、111111 111111 D、显示出错信息24、下列关于MsgBox函数的说法中，正确的是（ B ）。A、MsgBox函数的第二个参数是Prompt，表示在对话框中要显示用户的信息B、MsgBox函数的第三个参数是Title，表示对话框的标题显示在对话框窗口顶部的标题栏区C、MsgBox函数的必须有Title参数D、MsgBox函数的可以不要Prompt参数25、对象.print方法对（ B ）控件有效。A、窗体、图像框 B、窗体、图片框 C、屏幕、窗体 D、图像框、图片框26、若想使时钟控制每隔0.15秒触发一次Timer( )事件，则可将Interval属性值设为（ C ）。A、0.15 B、15 C、150 D、150027、（ A ）组中的所有控件，可以在用户界面上作为其他控件的容器。A、窗体、图形框、框架 B、窗体、图形框、组合框 C、窗体、图形框、文本框 D、窗体、文本框、命令按钮28、在窗体上画一个名称为Check1的复选框，在程序运行的过程中，若选中复选框，则Check1.Value的值是（ C ）。 A、True B、0 C、1 D、229、在窗体上有一条直线，将窗体分成两部分。直线上方有2个单选按钮，直线下方有3个单选按钮，则程序运行时可以同时选中（ A ）个单选按钮。 A、1 B、2 C、3 D、430、引用列表框List1最后一个数据项应使用（ C ）。A、List1.List(ListCount) B、List1.List(ListCount - 1)C、List1.List(List1.ListCount - 1) D、List1.List(List1.ListCount)31、窗体的MouseDown事件过程Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single )有4个参数，关于这些参数，正确的描述是（ B ）。A、Shift参数只能用来确定是否按下Shift键B、通过Button参数判定当前按下的是哪一个鼠标键C、Shift参数只能用来确定是否按下Alt和Ctrl键D、参数X、Y用来设置鼠标当前位置的坐标32、在一个列表框List1中已按序放入ONE、TWO、THREE、FOUR、FIVE、SIX 6个字符串数据项，执行下面的程序后： Private Sub Form_Click( ) For i = 1 To 3 List1.RemoveItem i Next i End Sub 列表中的数据项是（ ）。 A、ONE、FIVE、SIX B、TWO、FOUR、SIX C、FOUR、FIVE、SIX D、ONE、THREE、FIVE33、假定有以下循环结构Do Until 条件 循环体Loop则正确的描述是（ B ）。 A、如果“条件”是一个为0的常数，则一次循环体也不执行 B、如果“条件”是一个为0的常数，则无限次执行循环体 C、如果“条件”是一个不为0的常数，则至少执行一次循环体 D、不论条件是否为真，至少要执行一次循环体34、如下程序：Private Sub Form_Click( ) c = 4 x = Val(InputBox(请输入一个数) While x -999 If x c Then c = xx = Val(InputBox(请输入一个数)WendPrint c; Abs(x) End Sub 运行后，单击窗体并输入9，8，2，-999，输出的结果是（ D ）。A、9 2 B、9 8 C、2 999 D、9 99935、执行下面的程序后，x的值为（ C ）。x 50For i = 1 To 20 Step 2 x = x + i 5Next i A、68 B、69 C、66 D、1636、在窗体上画两个名称分别是Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim x As Integer, n As Integer x = 1 n = 0 Do While x 20 x = x * 3 n = n + 1 Loop Text1.Text = Str(x) Text2.Text = Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是（ B ）。 A、15和1 B、27和3 C、195和3 D、600和437、如下程序：For i = 1 To 3 For j = 5 To 1 Step -1 Print i * j Next jNext i运行程序，则语句Print i * j的执行次数及i、j的值分别是（ A ）。A、15 4 0 B、16 3 1 C、17 4 0 D、18 3 138、将当前页面跳转到Test.asp的ASP代码是（ C ）。A、Response.Goto “Test.asp” B、Request.Goto Test.aspC、Response.Redirect Test.asp D、Request.Redirect Test.asp39、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa= Array(5,4,3,2,1)For i=1 To UBound(a)a(i) = a(i) + i - 1Next iPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ D ）。A、4 B、7 C、6 D、540、如下程序：Private Sub Form_Click(D ) Dim a As Integer, b As Integer a = 8 b = 3 Call test(6,a,b+1) Print 主程序,6,a,bEnd SubSub test(x As Integer, y As Integer, z As Integer) Print 子程序,x,y,z x = 2 y = 4 z = 9End Sub当运行程序后，显示的结果是（ ）。A、子程序6 4 3 B、主程序6 4 3 C、主程序6 8 4 D、子程序6 8 4 主程序 6 8 4 子程序6 8 4 子程序6 4 3 主程序6 4 3二、填空题（共30空，每空1分，共计30分）1、MsgBox函数的第3个参数是用来设置对话框的_对话框标题_，InputBox函数的第3个参数是用来设置对话框的_输入区的默认值_。2、表达式32*2+3 Mod 104的值是_，表达式33*33 Mod 3的值是_。3、在运行时把程序所在文件夹内的图形文件1.jpg装入图片框Picture1，使用的语句为Picture1.picture = _ load pcture(“1.jpg”)_。4、在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动事件是_。5、语句Dim a(-2 To 1, 1 To 3, 2) As Long定义的是_3_维数组，数组类型为_型，数组元素有_36_个。6、在VB中，若要改变动态数组的大小，且保留数组中的数据，应在ReDim语句后加关键字_preserve_。7、下面程序的功能是：输出100以内能被3整除且个位数为4的所有整数。请在下划线处填入适当内容，将程序补充完整。 Private Sub Command1_Click( ) For i = 0 To _9_ j = i * 10 + 4 If _ Then Print j End If Next i End Sub8、执行语句s = Len(可视化Basic, 4)后，s的值是_。9、命令按钮Command1_Click事件中的程序为： Private Sub Command1_Click( ) Static a As Integer, b As Integer a = 1 a = a + 5 b = 5 + b Print a，b End Sub 程序运行时，单击命令按钮两次后，窗体上显示的结果为_和_。10、下列VB表达式( x + y ) + z 80 5(C + D)正确的形式是_。11、设x = 3，y = 2，z = 1，表达式x z) Or z x的值是_。12、以下程序判断从文本框Text1中输入的数据，如果该数据满足条件（除以3余2，并且除以5余3），则输出该数据；否则，选中文本框Text1中的内容，请在下划线处填空，将程序补充完整。 Private Sub Command1_Click( ) x = Val(Text1.Text) If _ Then Print x Else Text1.SelStart = 0 Text1.SelLength = _ End If End Sub13、已知 a = -5.5，则Int(a) = _-6_，Fix(a) = _-5_，Cint(a) = _-6_。14、设有如下程序Private Sub Form_Click( ) Dim a As Integer, s As Integer n = 6 s = 0 Do n = n 1 s = s + n Loop until n max Then _ Next i Print 最大值是： ；max End Sub16、在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），写如下几个事件过程。程序运行后，单击窗体，将在标签中显示当前时间，每隔1s变换一次，请填空。 Private Sub Form_Load( ) Timer1.Enabled = False Timer1.Interval = _ End Sub Private Sub Form_Click( ) Timer1.Enabled = _ End Sub Private Sub Timer1_Timer( ) Label1.Caption = _ End Sub17、补充下面的程序代码，单击窗体上的命令按钮Command1时，窗体上的文本框对象Text1隐藏，再次单击Commadn1，又重新显示。 Private Sub Command1_Click( ) Text1.Visible = _ End Sub三、判断题（共10题，每题1分，共计10分。你认为正确的，用“”表示，你认为错误的，用“”表示）1、如果用户在键盘上按下一个键，则会产生一个单击事件。 （ ）2、函数str(23)与函数str(-23)的值的长度相同。 （ ）3、InputBox函数和MsgBox函数一样，返回的是字符串。 （ ）4、变量名的第一个字符必须是字母。 （ ）5、改变窗体的标题也就是改变其属性窗口的name属性。 （ ）6、通过设置对象的Index属性值可以改变Tab键的顺序。 （ ）7、在定义了一个函数后，可以像调用任何一个VB内部函数一样使用它，可以在表达式、语句或函数中引用它。 （ ）8、在VB中，运算级从高到低的顺序是：算术运算、字符连接运算、关系运算、逻辑运算。（ ）9、在程序执行的过程中，变量的值始终保持不变，常量的值随时改变。 （ ）10、程序代码的基本结构有三种，分别是顺序结构、选择结构和循环结构。 （ ）四、综合题（共4题，每题5分，共计20分）1、编一程序，显示100 999之间的所有水仙花数。所谓水仙花数，是指一个3位正整数，其各位数字的立方和等于该数字本身。例如：371是水仙花数，因为371 33 + 73 + 13。2、编写程序，判断任意输入的年份是否是闰年。（某一年为闰年的条件有两种：如果该年份能被400整除，则是闰年；或者该年份能被4整除，但不能被100整除，则是闰年。如果以上两个条件都不满足，则不是闰年。）3、编一学号和密码输入的检验程序，对输入的学号和密码规定如下：(1)学号、密码均为4位，密码以*代替。(其中假设学号为：123 密码为：321)(2)如果输入正确则弹出对话框，内容：”欢迎使用”.输入不正确弹出对话框，内容：”学号密码不正确，请请重新输入”， 焦点定位在原学号文本框，总共的输入机会只有3次，3次都不正确则弹出对话框，内容：”你无权使用”,选择取消停止程序的运行。4、学习VB程序设计之后，你有何想法，谈谈你对这门课程的感想，并举一个利用VB解决实际问题的例子。期末考试参考答案及评分标准考试科目:VB与动态网页设计_本试题（B）制卷人： 陈婷2 审核人 ： 一、 单项选择题（每题1分，共40分）1、B 2、B 3、B 4、D 5、B 6、B 7、C 8、A 9、B 10、B 11、A 12、C13、C 14、D 15、B 16、C 17、D 18、A 19、D 20、B 21、C 22、B 23、B24、B 25、B 26、C 27、A 28、C 29、A 30、C 31、B 32、D 33、B 34、D35、C 36、B 37、A 38、C 39、D 40、D二、 填空题（每空1分，共30分）1、 对话框标题；输入区的默认值2、 19；03、 LoadPicture( 1.jpg )4、 Scroll5、 3；长整型；366、 Preserve7、 9；j Mod 3 = 08、 59、 6 5；6 1010、 ( x + y ) + z) * 80 5 * (C + D)11、 True12、 x Mod 3 = 2 And x Mod 5 = 3；Len(Text1.Text)13、 -6；-5；-614、 1415、 Array；max；max = arr1(i)16、 100；True；Time( )或Time17