西南财经大学天府学院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
升级会员 