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

1、西南财经大学天府学院VB复习资料试题A及答案4西南财经大学天府学院试卷(A卷)考试科目：VB与动态网页设计_本年级层次 教学班 姓名： 学号：记分表试题号一二三四五六总分考分阅卷人注意：1、本次考试为闭卷考试，考试时间120分钟。 2、请将答案依次写在专用答题纸上。3、全卷共两部分，满分为100分。一、单项选择题（共40题，每题1分，共计40分）1、Visual Basic 是一种面向对象的程序设计语言，（ C ）不是面向对象系统所包含的三要素。A、属性 B、事件 C、变量 D、方法2、在设计窗体时双击窗体的任何地方，可以打开的窗口是（ A ）。A、代码窗口 B、属性窗口 C、工具箱窗口 D、

2、工程资源管理器窗口3、以下说法正确的是（ B ）。A、工程文件的扩展名是 .frm B、一个窗体对应一个窗体文件C、VB中的一个工程只包含一个窗体 D、VB中的一个工程最多可以包含256个窗体4、设置窗体标题栏上的图标可通过（ D ）属性来实现。A、Image B、Picture C、MouseIcon D、Icon5、如果要实现当鼠标暂时停留在一命令按钮上时，显示提示信息，应设置此命令按钮的（ B ）属性。A、Text B、ToolTipText C、Caption D、HelpContextId6、如果要实现窗体从内存中卸载，其实现的方法是（ D ）。A、Show B、Load C、Hid

3、e D、UnLoad7、当文本框的MaxLength属性值取（ C ）时，该文本框能容纳的字符数最多。A、512 B、256 C、0 D、-18、使文本框获得焦点的方法是（ C ）。A、Change B、GotFocus C、SetFocus D、LostFocus9、下列的（ B ）对象不支持DblClick事件。A、文本框 B、命令按钮 C、标签 D、窗体10、下列4个选项中，不是VB数值常量的是（ B ）。A、2E8 B、2E1.4 C、1234 D、1.8E-511、下面的变量名不合法的是（ B ）。A、Mark_2 B、M-d C、constA D、Tempval12、表达式321

4、& 100 + 200的值是（ C ）。A、321300 B、621 C、321300 D、32110020013、VB6.0中执行下面的4个语句时出现错误的是（ B ）。A、x = Cos(0) B、x = Sqr(-4) C、x = Log(2) D、x = Sin(0)14、设有如下声明：Dim x As Integer如果Sgn(x)的值为-1，则x的值是（ D ）。A、整数 B、大于0的整数 C、等于0的整数 D、小于0的数15、以下关于VB的叙述中正确的是（ A ）。A、数组下标的下界在默认情况下从0开始B、Dim a，b As Integer 变量声明语句将a、b声明为整型C、在

5、VB中一个西文字符占一个字节，一个汉字占两个字节D、当Boolean类型的值转换为数值类型的数时，False转化成0，而True转换成116、在VB中声明了Variant变量，但未赋值，则系统默认其初始化值为（ C ）。A、Null B、0 C、Empty D、False17、确定字符串str2在字符串str1中起始位置的函数是（ D ）。A、Left B、Mid C、String D、Instr18、表达式# 9/10/2009 5 的运算结果是（ A ）。A、2009-9-5 B、2009-4-10 C、2004-9-10 D、无法运算19、表达式Int ( Rnd * 30 + 2 )的

6、取值范围为（ C ）。A、2，29 B、2，30 C、2，31 D、2，3220、运行下面的程序后，单击命令按钮，则在窗体上输出（ B ）。Private Sub Command1_Click( ) Print Format( 4123.479，#.#%)End SubA、412347.9 B、412347.9% C、4123.48% D、4123.47%21、执行下列程序，单击命令按钮后在窗体上输出结果是（ C ）。Private Sub Command1_Click( ) Dim A As Integer A% = 456 : A = 232.45 B = 235 Print A%，AEn

7、d SubA、456 232.45 B、232.45 232.45 C、232 232 D、显示出错信息22、执行以下程序段a$ = “abbacddcba”For i = 6 To 1 Step -2 X = Mid(a,i,i) Y = Left(a,i) Z = Right(a,i) Z = UCase(X & Y & Z)Next iPrint Z输出结果为（ B ）。A、ABA B、BBABBA C、ABBABA D、AABAAB23、如下程序：Private Sub Command1_Click( ) x1 = InputBox(请输入) Print x1 + 111; x1 +

8、“111”End Sub运行程序，单击命令按钮并输入123，则在窗体上输出结果是（ B ）。A、123111 234 B、234 123111 C、123111 123111 D、显示出错信息24、下列关于MsgBox函数的说法中，正确的是（ B ）。A、MsgBox函数的第二个参数是Prompt，表示在对话框中要显示用户的信息B、MsgBox函数的第三个参数是Title，表示对话框的标题显示在对话框窗口顶部的标题栏区C、MsgBox函数的必须有Title参数D、MsgBox函数的可以不要Prompt参数25、对象.cls方法对（ B ）控件有效。A、窗体、图像框 B、窗体、图片框 C、屏幕、

9、窗体 D、图像框、图片框26、若想使时钟控制每隔0.25秒触发一次Timer( )事件，则可将Interval属性值设为（ C ）。A、0.25 B、25 C、250 D、250027、若希望分成两组使用多个Option Button控件，能完成这一功能的控件是（ C ）。A、PictureBox B、ImageBox C、Frame D、Shape28、在窗体上画一个名称为Check1的复选框，在程序运行的过程中，若选中复选框，则Check1.Value的值是（ D ）。 A、True B、2 C、0 D、129、每次单击滚动条两端箭头时，滚动条输出的变化值是5，应设置它的（ A ）属性。

10、A、SmallChange B、LargeChange C、Value D、Fast30、引用列表框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个参数，关于这些参数，正确的描述是（

11、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 列表中的数据项是（ D ）。 A、ONE、FIVE、SIX B、TWO、FOUR、SIX C、FOUR、FIV

12、E、SIX D、ONE、THREE、FIVE33、Do UntilLoop循环命令的功能是（ C ）。 A、先进入循环执行语句段落后，再判断是否再进入循环 B、先进入循环执行语句段落后，再判断是否不再进入循环 C、执行前先判断是否不满足条件，若不满足才进入循环 D、执行前先判断是否不满足条件，若满足才进入循环34、执行下面的程序后，x的值为（ A ）。x 50For i = 1 To 20 Step 2 x = x + i 5Next i A、66 B、16 C、68 D、6935、如下程序：Private Sub Form_Click( ) c = 4 x = Val(InputBox(请输

13、入一个数) While x -999 If x c Then c = xx = Val(InputBox(请输入一个数)WendPrint c; Abs(x) End Sub 运行后，单击窗体并输入9，8，2，-999，输出的结果是（ C ）。A、9 8 B、9 2 C、9 999 D、2 99936、在窗体上画两个名称分别是Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim x As Integer, n As Integer x = 1 n = 0 Do While x 20 x

14、= 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的AS

15、P代码是（ C ）。A、Response.Goto Test.asp B、Request.Goto Test.aspC、Response.Redirect Test.asp D、Request.Redirect “Test.asp”39、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i) + i - 1Next iPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显

16、示的内容是（ B ）。A、4 B、5 C、6 D、740、如下程序：Private Sub Form_Click( ) 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当运行程序后，显示的结果是（ D ）。A、子程序6 4 3 B、主程序6 4 3 C、主程序6 8 4 D、子程序6 8 4 主程

17、序 6 8 4 子程序6 8 4 子程序6 4 3 主程序6 4 3二、填空题（共30空，每空1分，共计30分）1、InputBox函数返回值的类型为_字符串_，MsgBox函数返回值的类型为_数值型_。2、表达式64 Mod 3432的值是_0_，表达式33*33 Mod 3的值是_0_。3、 D盘根目录下的一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框（Picture1），应执行的语句是_picture1.picture=load picture(“D:pic2.gif”)_。4、在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动事件是_scroll_。5、按照

18、VB默认规定，数组声明Dim marray(2, 1 To 3, 5)共有_54_个元素。6、VB中，若要设定每个数组默认的下界固定为1，其声明的语句是_option base1_。7、下面程序的功能是：输出100以内能被3整除且个位数为4的所有整数。请在下划线处填入适当内容，将程序补充完整。 Private Sub Command1_Click( ) For i = 0 To _9_ j = i * 10 + 4 If _j mod I = 0_ Then Print j End If Next I End Sub8、对于窗体上的菜单按钮，如果不允许进行操作，应通过_enabled_属性进行

19、设置。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 程序运行时，单击命令按钮两次后，窗体上显示的结果为_6 b_和_11_。10、要将数学表达式Sin3(x+y)+4e2写成VB表达式，正确的形式是_。11、设x = 4，y = 8，z = 7，表达式x z) Or z x的值是_false_。12、以下程序判断从文本框Text1中输入的数据，如果该数据满足条件（除以3

20、余2，并且除以5余3），则输出该数据；否则，选中文本框Text1中的内容，请在下划线处填空，将程序补充完整。 Private Sub Command1_Click( ) x = Val(Text1.Text) If x mod 3=2 and x mod 5=3_ Then Print x Else Text1.SelStart = 0 Text1.SelLength = _Len(text1.text)_ End If End Sub13、对For j = 11 To -5 Step -2语句，共循环_14_次。14、设有如下程序Private Sub Form_Click( ) Dim a

21、 As Integer, s As Integer n = 6 s = 0 Do n = n 1 s = s + n Loop until n max Then _max=arr1(i)_ Next i Print 最大值是： ；max End Sub16、在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），写如下几个事件过程。程序运行后，单击窗体，将在标签中显示当前时间，每隔1s变换一次，请填空。 Private Sub Form_Load( ) Timer1.Enabled = False Timer1.Interval = _1000_ End Sub Priva

22、te Sub Form_Click( ) Timer1.Enabled = _true_ End Sub Private Sub Timer1_Timer( ) Label1.Caption = _time_ End Sub17、补充下面的程序代码，单击窗体上的命令按钮Command1时，窗体上的文本框对象Text1隐藏，再次单击Commadn1，又重新显示。 Private Sub Command1_Click( ) Text1.Visible = _not (text1.VISIBLE _ End Sub18、_clear_方法可以清除列表框的所有内容。19、VB提供了结构化程序设计的3种

23、基本结构，这3种基本结构是_选择型_、_顺序型_和_循环型_。三、判断题（共10题，每题1分，共计10分。你认为正确的，用“”表示，你认为错误的，用“”表示）1、通过设置对象的Index属性值可以改变Tab键的顺序。 （ X ）Tabindex2、滚动条的Value属性用来返回或设置滚动块在滚动条中的位置。 （ ）3、CheckBox控件是用来做单项选择而OptionButton是用来做多项选择的。（ ）4、框架移动时框架上的控件也会随着框架一起移动。 （ ）5、命令按钮的Value属性值为True时表示该按钮被按下，该属性可以在“属性”窗口中设置。（ ）6、表达式x 2 0可以判断x是否为偶

24、数。 （ ）7、文本框只有Text属性而没有Caption属性。 （ ）8、对象的任何属性既可以通过属性窗口设定，也可以通过程序语言设定。 （ ）9、Print方法可以输出多个表达式值，若使用标准格式输出，各表达式的分隔符号是冒号。（ ）逗号、空格、分号10、Ctrl + F 可以打开立即窗口。 （ ）Ctrl+g四、综合题（共4题，每题5分，共计20分）1、编一程序，显示100 999之间的所有水仙花数。所谓水仙花数，是指一个3位正整数，其各位数字的立方和等于该数字本身。例如：371是水仙花数，因为371 33 + 73 + 13。2、在文本框Text1中输入一个n值，单击“求阶乘的和”的命

25、令按钮Command1，则在文本框Text2中输出1！+ 2！+ 3！+ + n!之和。请编写按钮的单击事件。3、编写程序，判断任意输入的年份是否是闰年。（某一年为闰年的条件有两种：如果该年份能被400整除，则是闰年；或者该年份能被4整除，但不能被100整除，则是闰年。如果以上两个条件都不满足，则不是闰年。）4、学习VB程序设计之后，你有何想法，谈谈你对这门课程的感想，并举一个利用VB解决实际问题的例子。期末考试参考答案及评分标准考试科目:VB与动态网页设计_本试题（A）制卷人： 陈婷2 审核人 ： 一、 单项选择题（每题1分，共40分）1、C 2、A 3、B 4、D 5、B 6、D 7、C

26、8、C 9、B 10、B 11、B 12、C13、B 14、D 15、A 16、C 17、D 18、A 19、C 20、B 21、C 22、B 23、B24、B 25、B 26、C 27、C 28、D 29、A 30、C 31、B 32、D 33、C 34、A35、C 36、B 37、A 38、C 39、B 40、D二、 填空题（每空1分，共30分）1、 字符型；数值型2、 0；03、 Picture1.Picture = LoadPicture( D:pic2.gif )4、 Scroll5、 546、 Option Base 17、 9；j Mod 3 = 08、 Enabled9、 6

27、5；6 1010、 Sin(x + y)3 + 4 * Exp(2)11、 False12、 x Mod 3 = 2 And x Mod 5 = 3；Len(Text1.Text)13、 914、 1415、 Array；max；max = arr1(i)16、 100；True；Time( )或Time17、 Not Text1.Visible18、 Clear19、 顺序结构；选择结构；循环结构三、 判断题（每题1分，共10分）1 5 6 10 四、 综合题（每题5分，共20分）1、（参考代码）Dim i As Integer, j As Integer, k As IntegerDim

28、n As Integer, m As IntegerDim s As Stringm = 0For n = 100 To 999i = n 100j = n 10 - i * 10k = n Mod 10If i 3 + j 3 + k 3 = n Then m = m + 1 s = 第 & Str(m) & 个水仙花数为： Print s; nEnd IfNext n2、（参考代码）Dim n As Integer, i As Integer, fact As Integern = Val(Text1.Text)i = 1fact = 1While i = n fact = fact * i i = i + 1WendText2.Text = Str(fact)3