西南财经大学天府学院VB复习资料试题A及答案.docx
《西南财经大学天府学院VB复习资料试题A及答案.docx》由会员分享,可在线阅读,更多相关《西南财经大学天府学院VB复习资料试题A及答案.docx(15页珍藏版)》请在冰豆网上搜索。
西南财经大学天府学院VB复习资料试题A及答案
4の西南财经大学天府学院试卷(A卷)
考试科目:
VB与动态网页设计_本
年级 层次 教学班姓名:
学号:
记
分
表
试题号
一
二
三
四
五
六
总分
考分
阅卷人
注意:
1、本次考试为闭卷考试,考试时间120分钟。
2、请将答案依次写在专用答题纸上。
3、全卷共两部分,满分为100分。
一、单项选择题(共40题,每题1分,共计40分)
1、VisualBasic是一种面向对象的程序设计语言,(C)不是面向对象系统所包含的三要素。
A、属性B、事件
C、变量D、方法
2、在设计窗体时双击窗体的任何地方,可以打开的窗口是(A)。
A、代码窗口B、属性窗口
C、工具箱窗口D、工程资源管理器窗口
3、以下说法正确的是(B)。
A、工程文件的扩展名是.frmB、一个窗体对应一个窗体文件
C、VB中的一个工程只包含一个窗体D、VB中的一个工程最多可以包含256个窗体
4、设置窗体标题栏上的图标可通过(D)属性来实现。
A、ImageB、Picture
C、MouseIconD、Icon
5、如果要实现当鼠标暂时停留在一命令按钮上时,显示提示信息,应设置此命令按钮的(B)属性。
A、TextB、ToolTipText
C、CaptionD、HelpContextId
6、如果要实现窗体从内存中卸载,其实现的方法是(D)。
A、ShowB、Load
C、HideD、UnLoad
7、当文本框的MaxLength属性值取(C)时,该文本框能容纳的字符数最多。
A、512B、256
C、0D、-1
8、使文本框获得焦点的方法是(C)。
A、ChangeB、GotFocus
C、SetFocusD、LostFocus
9、下列的(B)对象不支持DblClick事件。
A、文本框B、命令按钮
C、标签D、窗体
10、下列4个选项中,不是VB数值常量的是(B)。
A、2E8B、2E1.4
C、1234D、1.8E-5
11、下面的变量名不合法的是(B)。
A、Mark_2B、M-d
C、constAD、Tempval
12、表达式"321"&100+"200"的值是(C)。
A、321300B、621
C、"321300"D、321100200
13、VB6.0中执行下面的4个语句时出现错误的是(B)。
A、x=Cos(0)B、x=Sqr(-4)
C、x=Log
(2)D、x=Sin(0)
14、设有如下声明:
DimxAsInteger
如果Sgn(x)的值为-1,则x的值是(D)。
A、整数B、大于0的整数
C、等于0的整数D、小于0的数
15、以下关于VB的叙述中正确的是(A)。
A、数组下标的下界在默认情况下从0开始
B、Dima,bAsInteger变量声明语句将a、b声明为整型
C、在VB中一个西文字符占一个字节,一个汉字占两个字节
D、当Boolean类型的值转换为数值类型的数时,False转化成0,而True转换成1
16、在VB中声明了Variant变量,但未赋值,则系统默认其初始化值为(C)。
A、NullB、0
C、EmptyD、False
17、确定字符串str2在字符串str1中起始位置的函数是(D)。
A、LeftB、Mid
C、StringD、Instr
18、表达式#9/10/2009–5的运算结果是(A)。
A、2009-9-5B、2009-4-10
C、2004-9-10D、无法运算
19、表达式Int(Rnd*30+2)的取值范围为(C)。
A、[2,29]B、[2,30]
C、[2,31]D、[2,32]
20、运行下面的程序后,单击命令按钮,则在窗体上输出(B)。
PrivateSubCommand1_Click()
PrintFormat(4123.479,"###.##%")
EndSub
A、412347.9B、412347.9%
C、4123.48%D、4123.47%
21、执行下列程序,单击命令按钮后在窗体上输出结果是(C)。
PrivateSubCommand1_Click()
DimAAsInteger
A%=456:
A=232.45
B=235
PrintA%,A
EndSub
A、456232.45B、232.45232.45
C、232232D、显示出错信息
22、执行以下程序段
a$=“abbacddcba”
Fori=6To1Step-2
X=Mid(a,i,i)
Y=Left(a,i)
Z=Right(a,i)
Z=UCase(X&Y&Z)
Nexti
PrintZ
输出结果为(B)。
A、ABAB、BBABBA
C、ABBABAD、AABAAB
23、如下程序:
PrivateSubCommand1_Click()
x1=InputBox("请输入")
Printx1+111;x1+“111”
EndSub
运行程序,单击命令按钮并输入123,则在窗体上输出结果是(B)。
A、123111234B、234123111
C、123111123111D、显示出错信息
24、下列关于MsgBox函数的说法中,正确的是(B)。
A、MsgBox函数的第二个参数是Prompt,表示在对话框中要显示用户的信息
B、MsgBox函数的第三个参数是Title,表示对话框的标题显示在对话框窗口顶部的标题栏区
C、MsgBox函数的必须有Title参数
D、MsgBox函数的可以不要Prompt参数
25、对象.cls方法对(B)控件有效。
A、窗体、图像框B、窗体、图片框
C、屏幕、窗体D、图像框、图片框
26、若想使时钟控制每隔0.25秒触发一次Timer()事件,则可将Interval属性值设为(C)。
A、0.25B、25
C、250D、2500
27、若希望分成两组使用多个OptionButton控件,能完成这一功能的控件是(C)。
A、PictureBoxB、ImageBox
C、FrameD、Shape
28、在窗体上画一个名称为Check1的复选框,在程序运行的过程中,若选中复选框,则Check1.Value的值是(D)。
A、TrueB、2
C、0D、1
29、每次单击滚动条两端箭头时,滚动条输出的变化值是5,应设置它的(A)属性。
A、SmallChangeB、LargeChange
C、ValueD、Fast
30、引用列表框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(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
有4个参数,关于这些参数,正确的描述是(B)。
A、Shift参数只能用来确定是否按下Shift键
B、通过Button参数判定当前按下的是哪一个鼠标键
C、Shift参数只能用来确定是否按下Alt和Ctrl键
D、参数X、Y用来设置鼠标当前位置的坐标
32、在一个列表框List1中已按序放入ONE、TWO、THREE、FOUR、FIVE、SIX6个字符串数据项,执行下面的程序后:
PrivateSubForm_Click()
Fori=1To3
List1.RemoveItemi
Nexti
EndSub
列表中的数据项是(D)。
A、ONE、FIVE、SIX
B、TWO、FOUR、SIX
C、FOUR、FIVE、SIX
D、ONE、THREE、FIVE
33、DoUntil…Loop循环命令的功能是(C)。
A、先进入循环执行语句段落后,再判断是否再进入循环
B、先进入循环执行语句段落后,再判断是否不再进入循环
C、执行前先判断是否不满足条件,若不满足才进入循环
D、执行前先判断是否不满足条件,若满足才进入循环
34、执行下面的程序后,x的值为(A)。
x=50
Fori=1To20Step2
x=x+i\5
Nexti
A、66B、16C、68D、69
35、如下程序:
PrivateSubForm_Click()
c=4
x=Val(InputBox("请输入一个数"))
Whilex<>-999
Ifx>cThenc=x
x=Val(InputBox("请输入一个数"))
Wend
Printc;Abs(x)
EndSub
运行后,单击窗体并输入9,8,2,-999,输出的结果是(C)。
A、98B、92
C、9999D、2999
36、在窗体上画两个名称分别是Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimxAsInteger,nAsInteger
x=1
n=0
DoWhilex<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
EndSub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)。
A、15和1B、27和3
C、195和3D、600和4
37、如下程序:
Fori=1To3
Forj=5To1Step-1
Printi*j
Nextj
Nexti
运行程序,则语句Printi*j的执行次数及i、j的值分别是(A)。
A、1540B、1631
C、1740D、1831
38、将当前页面跳转到"Test.asp"的ASP代码是(C)。
A、Response.Goto"Test..asp"B、Request.Goto"Test.asp"
C、Response.Redirect"Test.asp"D、Request.Redirect“Test.asp”
39、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
OptionBase1
PrivateSubCommand1_Click()
Dima
a=Array(1,2,3,4,5)
Fori=1ToUBound(a)
a(i)=a(i)+i-1
Nexti
Printa(3)
EndSub
程序运行后,单击命令按钮,则在窗体上显示的内容是(B)。
A、4B、5
C、6D、7
40、如下程序:
PrivateSubForm_Click()
DimaAsInteger,bAsInteger
a=8
b=3
Calltest(6,a,b+1)
Print"主程序",6,a,b
EndSub
Subtest(xAsInteger,yAsInteger,zAsInteger)
Print"子程序",x,y,z
x=2
y=4
z=9
EndSub
当运行程序后,显示的结果是(D)。
A、子程序643B、主程序643C、主程序684D、子程序684
主程序684子程序684子程序643主程序643
二、填空题(共30空,每空1分,共计30分)
1、InputBox函数返回值的类型为____字符串______,MsgBox函数返回值的类型为____数值型______。
2、表达式6^4Mod34\3^2的值是___0______,表达式3\3*3\3Mod3的值是___0_______。
3、D盘根目录下的一个名为pic2.gif的图形文件,要在运行期间把该文件装入一个图片框(Picture1),应执行的语句是________picture1.picture=loadpicture(“D:
\pic2.gif”)______________________________________。
4、在程序运行期间,如果拖动滚动条上的滚动块,则触发的滚动事件是___scroll_______。
5、按照VB默认规定,数组声明Dimmarray(2,1To3,5)共有____54______个元素。
6、VB中,若要设定每个数组默认的下界固定为1,其声明的语句是__optionbase1________________。
7、下面程序的功能是:
输出100以内能被3整除且个位数为4的所有整数。
请在下划线处填入适当内容,将程序补充完整。
PrivateSubCommand1_Click()
Fori=0To__9________
j=i*10+4
If_jmodI=0_________Then
Printj
EndIf
NextI
EndSub
8、对于窗体上的菜单按钮,如果不允许进行操作,应通过____enabled______属性进行设置。
9、命令按钮Command1_Click事件中的程序为:
PrivateSubCommand1_Click()
StaticaAsInteger,bAsInteger
a=1
a=a+5
b=5+b
Printa,b
EndSub
程序运行时,单击命令按钮两次后,窗体上显示的结果为__6b________和___11_______。
10、要将数学表达式Sin3(x+y)+4e2写成VB表达式,正确的形式是____________________。
11、设x=4,y=8,z=7,表达式xz)Orz12、以下程序判断从文本框Text1中输入的数据,如果该数据满足条件(除以3余2,并且除以5余3),则输出该数据;否则,选中文本框Text1中的内容,请在下划线处填空,将程序补充完整。
PrivateSubCommand1_Click()
x=Val(Text1.Text)
Ifxmod3=2andxmod5=3__________Then
Printx
Else
Text1.SelStart=0
Text1.SelLength=_Len(text1.text)_________
EndIf
EndSub
13、对Forj=11To-5Step-2语句,共循环_____14_____次。
14、设有如下程序
PrivateSubForm_Click()
DimaAsInteger,sAsInteger
n=6
s=0
Do
n=n–1
s=s+n
Loopuntiln<0
Prints
EndSub
以上程序运行后,单击窗体,输出结果为____5______。
15、程序的功能是:
用Array()函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。
请填空。
OptionBase1
PrivateSubCommand1_Click()
Dimarr1,maxAsInteger
arr1=_Array_________(12,435,76,24,78,54,866,43)
___max_______=arr1
(1)
Fori=1To8
Ifarr1(i)>maxThen__max=arr1(i)________
Nexti
Print"最大值是:
";max
EndSub
16、在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),写如下几个事件过程。
程序运行后,单击窗体,将在标签中显示当前时间,每隔1s变换一次,请填空。
PrivateSubForm_Load()
Timer1.Enabled=False
Timer1.Interval=_1000_________
EndSub
PrivateSubForm_Click()
Timer1.Enabled=__true________
EndSub
PrivateSubTimer1_Timer()
Label1.Caption=__time________
EndSub
17、补充下面的程序代码,单击窗体上的命令按钮Command1时,窗体上的文本框对象Text1隐藏,再次单击Commadn1,又重新显示。
PrivateSubCommand1_Click()
Text1.Visible=_not(text1.VISIBLE_________
EndSub
18、___clear_______方法可以清除列表框的所有内容。
19、VB提供了结构化程序设计的3种基本结构,这3种基本结构是___选择型_______、__顺序型________和___循环型_______。
三、判断题(共10题,每题1分,共计10分。
你认为正确的,用“√”表示,你认为错误的,用“×”表示)
1、通过设置对象的Index属性值可以改变Tab键的顺序。
(X)Tabindex
2、滚动条的Value属性用来返回或设置滚动块在滚动条中的位置。
(√)
3、CheckBox控件是用来做单项选择而OptionButton是用来做多项选择的。
()
4、框架移动时框架上的控件也会随着框架一起移动。
(√)
5、命令按钮的Value属性值为True时表示该按钮被按下,该属性可以在“属性”窗口中设置。
(×)
6、表达式x\2=0可以判断x是否为偶数。
(×)
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值,单击“求阶乘的和”的命令按钮Command1,则在文本框Text2中输出1!
+2!
+3!
+…+n!
之和。
请编写按钮的单击事件。
3、编写程序,判断任意输入的年份是否是闰年。
(某一年为闰年的条件有两种:
如果该年份能被400整除,则是闰年;或者该年份能被4整除,但不能被100整除,则是闰年。
如果以上两个条件都不满足,则不是闰年。
)
4、学习VB程序设计之后,你有何想法,谈谈你对这门课程的感想,并举一个利用VB解决实际问题的例子。
期末考试参考答案及评分标准
考试科目:
《VB与动态网页设计_本》试题(A)
制卷人:
陈婷2
审核人:
一、单项选择题(每题1分,共40分)
1、C2、A3、B4、D5、B6、D7、C8、C9、B10、B11、B12、C
13、B14、D15、A16、C17、D18、A19、C20、B21、C22、B23、B
24、B25、B26、C27、C28、D29、A30、C31、B32、D33、C34、A
35、C36、B37、A38、C39、B40、D
二、填空题(每空1分,共30分)
1、字符型;数值型
2、0;0
3、Picture1.Picture=LoadPicture("D:
\pic2.gif")
4、Scroll
5、54
6、OptionBase1
7、9;jMod3=0
8、Enabled
9、65;610
10、Sin(x+y)^3+4*Exp
(2)
11、False
12、xMod3=2AndxMod5=3;Len(Text1.Text)
13、9
14、14
15、Array;max;max=arr1(i)
16、100;True;Time()或Time
17、NotText1.Visible
18、Clear
19、顺序结构;选择结构;循环结构
三、判断题(每题1分,共10分)
1–5×√×√×6–10×√×××
四、综合题(每题5分,共20分)
1、(参考代码)
DimiAsInteger,jAsInteger,kAsInteger
DimnAsInteger,mAsInteger
DimsAsString
m=0
Forn=100To999
i=n\100
j=n\10-i*10
k=nMod10
Ifi^3+j^3+k^3=nThen
m=m+1
s="第"&Str(m)&"个水仙花数为:
"
Prints;n
EndIf
Nextn
2、(参考代码)
DimnAsInteger,iAsInteger,factAsInteger
n=Val(Text1.Text)
i=1
fact=1
Whilei<=n
fact=fact*i
i=i+1
Wend
Text2.Text=Str(fact)
3