VB期末考试样题.pdf

《VB期末考试样题.pdf》由会员分享，可在线阅读，更多相关《VB期末考试样题.pdf（19页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、云南师范大学2 0 1 0-2 0 1 1学年下学期统一考试 计算机技术基础（V B 6.0）期末考试试卷考试方式（闭卷）考试时量：1 0 0 分钟 试卷编号（A 卷）一、判断题：（每题1 分，共 1 0 分）1 .工具箱在不用时可以关闭，若要再显示，需重新启动V B。A.对 B.错2 .所 谓“事件驱动”就是事件触发后程序段才会运行，没有事件发生，则程序同样可以处于运行状态。A.对 B.错3 .表达式 F i x（-4 5.6 9）+I nt（-2 9.3 2）的值为-7 4。A.对 B.错4 .利用I npu tB ox函数可以输入字符数据。A.对 B.错5 .利用A rra y 对数组各

2、元素赋值，声明的数组类型只能是V a ri a ntA.对 B.错6 .直观地说，子过程是用来编写完成行为性功能的过程，它没有返回值。A.对 B.错7 .设置框架时，可先在窗体上画好框架，再往框架内添置控件；也可以先设置控件，在建立框架，然后将已有控件拖动到框架中。A.对 B.错8 .除了 C li c k事件之外，菜单项还能响应其他的事件。（）A.对 B.错9 .在打开或另存为对话框中，用户选择的文件名可以由f i le ti tle 属性返回。A.对 B.错1 0 .动器列表框、目录列表和文件列表框都具有列表框L i stb ox中 的 li st、L i stC ou nt 和 L i

3、sti nd e x 属性。A.对 B.错二、单选题(在本题的每一小题的被选答案中只有一个正确答案，多选不给分，每题1分，共40分)11.对象列表框可存储并显示当前被选中的_ _ _ _0A.过程名 B.窗体和控件名C.程序代码 D.以上都不对12.下列命令不包括在“工程”菜单中的是 oA.添 加 窗 体B.添 加 工 程C.添 加 模 块D.添加类模块13.在VB的代码窗口编写程序代码时，当用户输入“对象名.”后，系统会提供一个下拉列表提供对象的属性和方法，这 种 特 性 叫。A.自动语法检查B.自动列出成员C.自动缩进 D.自动显示快速信息14.VB主菜单中没有包含的是 oA.文件 B.工

4、程C.打包 D.调试15.VB可分为 oA.试用版、正式版和测试版。B.学生版、专家版和企业版。C.学习版、专业版和企业版。D.英文版、中文版和法文版。16.执行下面程序后，变量x的值为_ _ _ _oPrivate Sub Command1_C1ick()For j=l To 5a=a+jNext jx=jMsgBox xEnd SubA.4 B.5C.6 D.1717.以下程序的循环次数是 oPrivate Sub Command1_C1ick()For j=8 To 35 Step 3Print j;Next jEnd SubA.10 B.9C.27 D.2818.执行下面程序段后，变量

5、x 的值为x=5For i=l To 20 step 2x=x+i5Next iA.21 B.22C.23 D.2419.下列选项中，合法的变量名是_oA.c%aaaaB.sum_3C.ElseD.5persons20.Cis方法可清除窗体或图片框中的信息是_ _ _ _ _ oA.Picture属性设置的背景图案 B.在设计时放置的控件C.程序运行时产生的图形和文字 D.以上方法都对C.Max=x D.If y=x Then Max二 y21.下面程序段求两个数中的大数，_ _ _ _ _不正确。A.Max=IIf(xy,x,y)B.If xy Then Max=x Else Max=yPr

6、ivate Sub Form_Click()x=l:y=2:z=3x=y:y=z:z=xPrint zIf Y=x Then Max=y2 2.以下程序的输出结果是_ _ _ _ _ oMax=xEnd SubA.3 B.0 C.2 D.12 3 .以下程序的输出结果是 0P ri v a t e S u b C o m m a n d l C l i c k()D i m s u m A s I n t e g e rs u m%=1 9s u m=2.3 2P ri n t s u m%,s u mE n d S u bA.1 9 2.3 2 B.1 9 1 9C.2.3 2 2.3 2

7、D.2 22 4 .下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为P ri v a t e S u b C o m m a n d 1 _ C 1 i c k ()x=0D o W hi l e x 1 0 0p ri n t aE n d S u bA.1 0 0 B.1 2 0C.2 0 1 D.1 0 12 6 .有以下的语句：O p t i o n B a s e 0D i m x s c j (3,4,5)A s S t ri n g声明的数组x s c j 有 个数组元素。A.1 2 B.2 0 C.6 0 D.1 2 02 7 .在窗体上画一个命令按钮，其名称为C o

8、 m m a n d l,然后编写如下事件过程:O p t i o n B a s e 0P ri v a t e S u b C o m m a n d 1 _ C 1 i c k()D i m a b c()A s I n t e g e rR e D i m a b c(1 0)F o r i =1 T o 1 0a b c (i)=i *iN e x tR e D i m a b c (1 5)F o r j =1 1 T o 1 5a b c(j)=jN e x tP ri n t a b c(1 3)+a b c(8)E n d S u b程序运行后，单击命令按钮，在窗体上输出的是

9、 OA.1 3 B.7 7 C.6 4 D.1 6 92 8 .有如下程序：O p t i o n B a s e 0P ri v a t e S u b F o rm _ C l i c k()D i m a b ()A s I n t e g e rReDim ab(10)For i=1 To 10ab(i)=i*iNextReDim Preserve ab(15)For j=11 To 15ab(j)=jNextPrint ab(13)+ab(8)End Sub程序运行后，单击窗体，输入结果是_ _ _ _ _ _OA.13 B.77 C.64 D.16929.有如下程序：Option

10、Base 0Private Sub Form Click()Dim cj()cj=Array(65,75,96,85,45,87)Min=100For i=LBound(cj()To UBound(cj()If Min cj(i)Then Min=cj(i)NextPrint MinEnd Sub程序运行后，单击窗体，输入结果是 OA.45 B.65 C.87 D.9630.有如下程序：Private Sub Form_Click()Dim i As Integer,j As IntegerDim arrl(5,5)As IntegerF o r i =1 T o 3F o r j =2 T

11、o 4a rrl (i,j)=i *jN e x t jN e x t iP ri n t a rrl (2,3)+a rrl (3,4)E n d S u b程序运行后，单击窗体，输出结果为A.1 2 B.1 4 C.1 6 D.1 83 1 .阅读程序：O p t i o n B a s e 1D i m a rr()A s I n t e g e rP ri v a t e S u b F o rm _ C l i c k()D i m i A s I n t e g e r,j A s I n t e g e rR e D i m a rr(3,2)F o r i =1 T o 3F

12、o r j =1 T o 2a rr(i,j)=i +jN e x tN e x tR e D i m P re s e rv e a rr(3,4)F o r j =3 T o 4a rr(3,j)=jN e x tP ri n t a rr(3,1)+a rr(3,3)E n d S u b程序运行后，单击窗体，输入结果是A.1 0 B.1 2 C.7 D.2 73 2 .在窗体上画一个名称为C o m m a n d 1 的命令按钮，然后编写如下程序:O p t i o n B a s e 1P ri v a t e S u b C o m m a n d 1 _ C 1 i c k (

13、)D i m a A s V a ri a n ta =A rra y (1,2,3,4,5)S u m =0F o r i =1 T o 5S u m =S u m +a(i)N e x tx =S u m /5F o r i =1 T o 5I f a(i)x T he n P ri n t a(i);N e x tE n d S u b程序运行后，单击命令按钮，在窗体上显示的内容是 OA.1 2 B.1 2 3 C.3 4 5 D.4 53 3 .在窗体上画一个名称为C o m m a n d l 的命令按钮，然后编写如下事件过程:O p t i o n B a s e 1P ri v

14、a t e S u b C o m m a n d 1 C l i c k OD i m aa =A rra y (1,2,3,4,5)F o r i =1 T o U B o u n d(a)a(i)=a(i)+i -1N e x tP ri n t a(3)E n d S u b程序运行后，单击命令按钮，则在窗体上显示的内容是一 oA.4 B.5 C.6 D.73 4 .子过程与函数的最大判别在于 oA.函数可传回值，而子过程不行 B.函数需要输入参数，而子过程不用C,子过程可以用C a l l 语句调用，而函数不行 D.两者并无不同3 5 .不能通过 来删除列表框中的表项。A.R e m

15、 o v e ri t e m 方法 B.C l e a r 方法 C.T e x t 属性3 6 .为了使列表框中的项目分为多列显示，需要设置的属性为 oA.C o l u m n s B.S t y l e C.Li s t D.Mu l t i S e l e c t3 7.若要把“X X X”成为Li s t 清单中的第二项，则可执行语句 0A.Li s t l.A d d I t e m X X X”,2 B.Li s t l.A d d l t e m X X X,1C.Li s t l.A d d l t e m 2,X X X D.Li s t l.A d d l t e m

16、l,X X X”3 8.当拖动滚动条中的滚动块时，将触发的滚动条的事件是 oA.Mo ve B.C h an g C.S c o l l D.S e t F o c u s3 9.设计动画时通常用时钟控件 属性来控制动画速度。A.I n t e r val B.T i m e r C.Mo ve D.E n abl e d4 0 .用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是A.Li s t B.Li s t i n d e x C.T e x t D.Li s t C o u n t4 1 .控制菜单项是否可以复选的属性是 oA.C ap t i o n B.C h e c

17、 k e d C.V i s i bl e D.E n abl e d4 2 .使用通用对话框控件时，要在打开的对话框的标题栏上显示“保存文件”，应把这4个汉字赋给_ 属性。A.F o n t Nam e B.F i l e Nam e C.F i l e T i t l e D.D i al o g T i t l e4 3 .下列关于通用对话框的叙述中，错 误 的 是。A.在打开或另存为对话框中，用户选择的文件名可以经F i l e T i t l e 属性返回。B.C o m m o n D i al o g l.S h o w F o n t 显示字体对话框。C.在文件打开或另存为对话

18、框中，用户选择的文件名及其路径可以经F i l e Nam e 属性返回。D.通用对话框可以用来制作和显示帮助对话框。4 4 .在 V B 中 最 基 本 的 对 象 是,它是应用程序的基石。A.文本框C.窗体B.命令按钮D.标签45.记录长度最大可取的值是 字节。A、32767 B、32768 C、65535D、6553646.Printttl,STR1$中的 Print 是。A、顺序文件的写语句 B、在窗体上显示的方法C、子程序名 D、打印命令47.为了把个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为。A、G et文件号，记录号，变量名B、G et文件号，变量名，记录号C、P

19、 u t文件号，变量名，记录号D、P u t文件号，记录号，变量号48.在下面选项中，不能完成对顺序文件的读操作的是 oA Lineinput#语句 B、Input#语句C、Input。函数 D、Get()语句49.下列控件中，不属于文件系统控件的是 oA、驱动器列表框 B、文件列表框C、目录列表框 D、图象列表框50.使用驱动器列表框的 属性可以返回或设置磁盘驱动器的名称。A、ChDrive B、DiveC、ListD、Listindex三、填空题：(每题2 分，共 10分)。1.请用正确的内容填空。下面程序的功能是通过InputBox对话框接受一个二进制数，并把它转换成一个十进制数，结果显

20、示在窗体中。Private Sub Form_Click()b=InputBox(请输入一个二进制数)m=Len(b)Forj=l To mdec=dec*2+Val(Mid(b,j,1)Next jPrint b;”转换后的十进制数为：”;_dec.End Sub2.下列是一个求解一元二次方程的程序，请填空。Function Equation(a As Single,b As Single,c As Single,R()As Single)AsIntegerDim D As SingleD=b*b 4*a*cIf D0ThenEquation=2R(0)=(-b+Sqr(D)/(2*a)R(

21、l)=(-b-Sqr(D)/(2*a)End IfIf D=0ThenEquation=1R(0)=-b/(2*a)End IfIfD0ThenEquation=0End IfEnd FunctionPrivate Sub Command 1 _Click()Dim a As Single,b As Single,c As Single,Result()As SingleDim flag As Integera=l：b=4:c=4flag=equation(a,b,c result()_If flag=2 Then Print nxl=n;Result(0),x2=n;Result(l)If

22、flag=1 Then Print”xl=x2=；Result(O)If flag=0 Then Print”方程无实数解”End Sub3.在窗体中添加一个名称为T e x tl的文本框，两个名称分别为Com m andl和Command2的命令按钮。程序运行后，用户向文本框中输入字母，单击Commandl按钮则文本框中字母 全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写 oPrivate Sub Text 1 _KeyUp(KeyCode As Integer,Shift As Integer)Textl.Tag=Textl.TextEnd SubPrivate

23、Sub Command 1 _Click()Textl.Text=Ucase(Textl.Tag)End SubPrivate Sub Command2_ click()Textl.Text=Lcase(Textl.Tag)End Sub4.运行以下，在文本框Textl、Text2中输入96、4 0后，单击Commandl时窗体上的显示结果为8oP r i v a t e S u b Co m m a n dl _ Cl i c k()Dim a As Long,b As Long,r As Longa=Textl.Textb=Text2.TextWhile b _ 0r=a Mod b:a=

24、b:b=rWendPrint aEnd Sub5.C 盘根目录下建立一个名为Student.dat的顺序文件。要求用InputBox函数输入 10名学生的学号（StuNo）、姓 名（StuName）和性别（StuSex）。Private Sub Form _ Load（）Open tlC:Student.dat For Output As#1For I=to 10StuNo=InputBox（“请输入学号”）StuName=InputBox（“请输入姓名”）StuSex=InputBox（“请输入性别”）Write#1,stu No,StuName,stuSexNext IClose#1End

25、 Sub五、编程题：（共40分）1.窗体设计（7 分）请设计如图1 所示的界面。各控件和属性参照表1。图 1 学生成绩统计表 2 窗体控件与属性控件名 称(N am e)属性标 题(Caption)属性文 本(tex t)属性窗体forml学生成绩统计无框架Frame 1学生成绩统计无Frame2分数段统计无文本框Textl无a，Text2无a，Text3无“，Text4无a，Text5无a，Text6无a，Text7无a，Text8无“，Text9无a，Text10无a，标签Label 1总人数：无Label2最高分：无Label3及格率：无Label4请输入及格分数线：无Label5平均分

26、：无Label6最低分：无Label7优秀率：无Label8请输入优秀分数线：无Label9从第一个到N 各学生的成绩：无Label 10各分数段人数：无Label 110-59分人数无Label 1260-100分人数无列表框Listl无无命令按钮Command 1统计无Command2开始无评分标准:控件名 称(Name)属性标 题(Caption)属性文 本(te x t)属性评分标准窗体forml学生成绩统计无1框架Frame 1学生成绩统计无1Frame2分数段统计无文本框Textl无，1.5Text2无，Text3无U，Text4无“，Text5无“，Text6无“，Text7无，

27、Text8无U，Text9无“，TextlO无“，标签Label 1总人数：无1.5Label2最高分：无Label3及格率：无Label4请输入及格分数线：无Label5平均分：无Label6最低分：无Label7优秀率：无Label8请输入优秀分数线：无Label9从第一个到N 各学生的成绩：无Label 10各分数段人数：无Label 110-5 9 分人数无Label 1260-100分人数无列表框Listl无无1命令按钮Command 1统计无1Command2开始无2.菜单设计（7 分）请设计一个如图1与图2 所示的下拉菜单，各菜单的名称属性如表2 所示，要求使用菜单编辑器设置各级

28、菜单及相应热键。图 2 文件下拉菜单图 3 格式下拉菜单表 2 菜单属性值表标题名称上级菜单标题热键快捷键文件Mfile无F无新建MNew文件NCtrL+N打开MOpen文件OCtrL+O保存MSave文件SCtrL+S关闭MClose文件CCtrL+C分割线MSpl文件无无退出MExit文件ECtrL+E格式MChar无H无居左MLeft格式LCtrL+L居右MRight格式RCtrL+R居中MCenter格式MCtrL+M分割线MSp2格式无无字体MFont格式TCtrL+T评分标准：标题名称上级菜单标题热键快捷键评分标准文件Mfile无F无0.5新建MNew文件NCtrL+N0.5打开M

29、Open文件0CtrL+O0.5保存MSave文件SCtrL+S0.5关闭MClose文件CCtrL+C0.5分割线MSpl文件无无0.75退出MExit文件ECtrL+E0.5格式MChar无H无0.5居左MLeft格式LCtrL+L0.5居右MRight格式RCtrL+R0.5居中MCenter格式MCtrL+M0.5分割线MSp2格式无无0.75字体MFont格式TCtrL+T0.53.3、F o r循环语句编写以下程序：（7分）求:S=l+(1*2)+(1*2*3)+(1*2*3*4)+.+(1*2*3*.*6)参考程序：Private Sub Commond 1 _Click()Di

30、m s As IntegerDim j As Integer 0.5 分Dim i As Integer 0.5 分j=1：s=0 1 分For i=1 To 6 1 分j=j*I 1.5 分s=s+j 1 分Next I 1 分Text 1.text=s 1 分End Sub或Private Sub Commond l_Click()Dim s As IntegerDim j As IntegerDim i As Integerj=1:s=0For i=1 To 6Forj=1 Tois=s*jNext jNext itext 1.text=s0.5分0.5分0.5分1分1分1.5分1分0.

31、5分0.5分1 分End Sub4.使用Rnd函数生成5 个 0100 之间的随机整数，找出这5 个数中的最大数与最小数,并以升序重新排列这5 个数。窗体格式如图（9 分）参考答案：*界面设计(分)*Option ExplicitOption Base 1Dim a(5)As IntegerPrivate Sub Command 1 _Click()Dim max As IntegerDim min As IntegerDim i As IntegerDim j As IntegerDim t As IntegerDim s As String 存储最大数 存储最小数 循环变量 循环变量 交换

32、变量 存储排序后的5 个数，*求最大最小值(2 分)*max=0min=100Fori=1 To 5If max a(i)Then min=a(i)Next iText 1 .Text=maxText2.Text=min，*排序(2 分)*For i=1 To 5Forj=i+I To 5If a(i)a(j)Thent=a(i)a(i)=a(j)a(j)=tEnd IfNext jNext iFor i=1 To 5s=s+Str(a(i)Next iLabel4.Caption=sEnd SubPrivate Sub Form_Load()Dim i As IntegerDim s As StringLabel3.FontSize=18Label4.FontSize=18Text 1.FontSize=18Text2.FontSize=18，*初始化随机数(2 分)*For i=1 To 5a(i)=Int(Rnd*101)s=s+Str(a(i)Next iLabel3.Caption=sEnd Sub