VB实验教材模拟练习有答案报告.docx
《VB实验教材模拟练习有答案报告.docx》由会员分享，可在线阅读，更多相关《VB实验教材模拟练习有答案报告.docx（71页珍藏版）》请在冰豆网上搜索。
VB实验教材模拟练习有答案报告
模拟练习一
第一部分 计算机信息技术基础知识
选择题（共20分，每题2分）
1．IP地址通常分为固定IP地址和动态IP地址，目前国内大多数家庭上Internet网的用户的IP地址都是B的。
A．相同B．动态C．可以相同D．固定
2．下列四个不同进位制的数中，数值最大的是B。
A．十进制数73.5B．二进制数1001101.01
C．八进制数115.1D．十六进制数4C.4
3．下列关于台式PC机芯片组的叙述中，错误的是D。
A．芯片组是主板上最为重要的部件之一，存储器控制、I/O控制等功能主要由芯片组实现
B．芯片组与CPU同步发展，有什么样功能和速度的CPU，就需要什么样的芯片组
C．芯片组决定了主板上能安装的内存最大容量及可使用的内存条类型
D．同CPU一样，用户可以很方便，很简单地更换主板上的芯片组
4．路由器（Router）用于异构网络的互连，它跨接在几个不同的网络之间，所以它需要使用的IP地址个数为_D_。
A．1B．2C．3D．所连接的物理网络的数目
5．为了既能与国际标准UCS（Unicode）接轨，又能保护现有的中文信息资源，我国政府发布了_C汉字编码国家标准，它与以前的汉字编码标准保持向下兼容，并扩充了UCS/Unicode中的其他字符。
A．ASCIIB．GB2312
C．GB18030D．GBK
6．在下列有关通信技术的叙述中，错误的是 C 。
A．目前无线电广播主要还是采用模拟通信技术
B．数字传输技术最早是被长途电话系统采用的
C．数字通信系统的信道带宽就是指数据的实际传输速率（简称“数据速率”）
D．局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号
7．在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是 C 。
A．通常用户需要付费才能得到商品软件的合法使用权
B．共享软件是一种“买前免费试用”的具有版权的软件
C．自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播
D．软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利
8．下列有关Internet的叙述错误的是_A。
A．随着Modem性能的提高，电话拨号上网的速度越来越快，目前可达1Mbps以上
B．用户从不同的网站下载信息，其速度通常有所不同
C．从Internet上搜索到的信息，有时不能下载到本地计算机
D．网页上的图片大多为GIF和JPEG格式
9．下面有关I／O操作的说法中正确的是_A_。
A．为了提高系统的效率，I／O操作与CPU的数据处理操作通常是并行进行的
B．CPU执行I／O指令后，直接向I／O设备发出控制命令，I／O设备便可进行操作
C．某一时刻只能有一个I／O设备在工作
D．各类I／O设备与计算机主机的连接方法基本相同
10．在未压缩情况下，图像文件大小与下列因素无关的是A。
A．图像内容B．水平分辨率C．垂直分辨率D．像素深度
第二部分 VisualBasic程序设计
一、选择题（共10分，每题2分）
1．数学表达式
对应的VB表达式为B。
A．Log（x）/Log（10）+Abs（Sqr（x^2+y^2））/（Exp（x+1）-Cos（60*3.14159/180））
B．（Log（x）/Log（10）+Abs（Sqr（x*x+y*y）））/（Exp（x+1）-Cos（60*3.14159/180））
C．（Log（x）+Abs（Sqr（x^2+y^2）））/（Exp（x+1）-Cos（60*3.14159/180））
D．（Log（x）+Abs（Sqr（x*x+y*y）））/（e^（x+1）-Cos（60*3.14159/180））
2．已知XB，则下列表达式中，结果为True的是_C。
A．Sgn（X-Y）+Sgn（A-B）=-1B．Sgn（X-Y）+Sgn（A-B）=-2
C．Sgn（Y-X）+Sgn（A-B）=2D．Sgn（Y-X）+Sgn（A-B）=0
3．以下对数组参数的说明中，错误的是_A_。
A．在过程中可以用Dim语句对形参数组进行声明
B．形参数组只能按地址传递
C．实参为动态数组时，可用ReDim语句改变对应形参数组的维界
D．只需把要传递的数组名作为实参，即可调用过程
4．在文本框Text1中输入数字12，在文本框Text2中输入数字34，执行以下语句，可在文本框Text3中显示46的是_B。
A．Text3.Text=Text1.Text&Text2.Text
B．Text3.Text=Val（Text1.Text）+Val（Text2.Text）
C．Text3.Text=Text1.Text+Text2.Text
D．Text3.Text=Val（Text1.Text）&Val（Text2.Text）
5．Print方法可在_A上输出数据。
①窗体②文本框③图片框④标签⑤列表框⑥立即窗口
A．①③⑥B．②⑨⑤C．①②⑤D．③④⑥
二、填空题（共20分，每空2分）
1．执行下面程序，单击命令按钮Command1，在弹出的InputBox对话框中输入8，并按“确定”按钮，则a
（1）的值是21，a（5）的值是_3_
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
Dima（）AsInteger,iAsInteger,nAsInteger
n=InputBox（"输入N",,8）
ReDima（n）
Callprocess（a,1,1）
Fori=1Ton
Printa（i）
Nexti
EndSub
PrivateSubprocess（a（）AsInteger,mAsInteger,nAsInteger）
DimiAsInteger
i=UBound（a）
a（i）=m
a（i-1）=n
i=i-2
DoWhilei>=1
a（i）=a（i+1）+a（i+2）
i=i-1
Loop
EndSub
2．执行下面的程序，单击Command1，则数组元素a（1,2）的数值是15，a（2,3）的数值是9，a（4,3）的值是2。
OptionExplicit
PrivateSubCommand1_Click（）
Dima（4,4）AsInteger,iAsInteger
DimjAsInteger,kAsInteger,nAsInteger
n=16:
k=2
Do
Fori=1To4
Forj=1To4
Ifi+j=kThen
a（i,j）=n
n=n-1
EndIf
Nextj
Nexti
k=k+1
LoopUntilk>8
Fori=1To4
Forj=1To4
PrintRight（""&a（i,j）,3）;
Nextj
Print
Nexti
EndSub
3．执行下面程序，单击按钮Command1，在窗体上第一行显示的内容是 0.6，第三行显示的内容是 5.4。
OptionExplicit
PrivateSubCommand1_Click（）
DimxAsSingle,iAsInteger
x=1.2
Fori=1To3
x=x*i
Printfun1（x）
Nexti
EndSub
PrivateFunctionfun1（xAsSingle）AsSingle
StaticyAsSingle
y=y+x
fun1=y/2
EndFunction
4．运行下面程序，单击CmdRun，在窗体上显示a的值是-25，b的值是14_，i的值是13_。
OptionExplicit
PrivateSubCmdRun_Click（）
DimiAsInteger,aAsInteger,bAsInteger
a=1:
b=10
Fori=aTobStepa+1
a=a-i–1:
b=b+1:
i=i+1
Nexti
Printa,b,i
EndSub
三、操作题（共50分）
１．完善程序。
（共12分）
【要求】
打开“C:
\学生文件夹”中“P1.vbp”文件，按参考界面形式编辑窗体界面，完善程序后，直接保存所有文件。
【题目】本程序的功能是，找出使用公式
（m=1~100）生成的一个数据序列中的所有非素数，分别输出这些非素数的全部真因子。
所谓数据n的真因子是指除1和n之外的因子。
OptionExplicit
PrivateSubCommand1_Click（）
DimmAsInteger,pAsLong
Dimst1AsString
Form=1To100
st1=_'""
p=m*m-m+41
IfNotprime（p）Then
Callfac（p,st1）
List1.AddItem"第"&m&"项"&p&":
"&st1
EndIf
Nextm
EndSub
PrivateFunctionprime（nAsLong）AsBoolean
DimkAsInteger
Fork=2ToSqr（n）
IfnModk=0Then_'ExitFunction
Nextk
prime=True
EndFunction
PrivateSubfac（）'nAsLong,stAsString
DimiAsInteger
Fori=2Ton\2
IfnModi=0Then
st='st&I&","
EndIf
Nexti
st=Left（st,Len（st）-1）
EndSub
２．改错题（共16分）
【要求】
（1）打开“C:
\学生文件夹”中“P2.vbp”文件，按参考界面形式编辑窗体界面，改正程序中的错误后，直接保存所有文件；
（2）改错时，不得增加或删除语句，但可适当调整语句位置。
【题目】求在区间[2，1000]上的完数。
一个数如果恰好等于它的因子之和，这个数称为完数。
一个数的因子是指除了该数本身以外能够被其整除的数。
例如，6是一个完数，因为6的因子是1，2，3，而且6=1+2+3。
OptionExplicit
PrivateSubCommand1_Click（）
DimiAsInteger,jAsInteger
Dimb（）AsInteger
Fori=2To1000
Ifwanshu（i,b）=TrueThen
Picture1.Printi;"=";
Forj=1ToUBound（b）
Picture1.Printb（j）;"+";
Nextj
Picture1.Printb（j）'输出最后一个因子
EndIf
Nexti
EndSub
PrivateFunctionwanshu（xAsInteger,b（）AsInteger）AsBoolean
DimiAsInteger,jAsInteger,sumAsInteger
ReDimb
（1）
b
（1）=1
j=1
Fori=2Tox-1
sum=1
IfxModi=0Then
sum=sum+i
j=j+1
ReDimb（j）
b（j）=i
EndIf
Nexti
Ifsum=xThenwanshu=True
EndFunction
3．编程题（22分）
【要求】
（1）打开“C:
\学生文件夹”中“P3.vbp”文件，根据题目要求编写和调试程序后，直接保存所有文件。
（2）程序代码书写应呈锯齿形，否则适当扣分。
【题目】编写程序，生成两个均由两位随机整数组成的数组，每个数组中的10个元素互不相同，找出存在于这两个数组中的相同的数并输出。
【编程要求】
1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2．运行程序，按“生成”按钮，调用arry过程随机生成两个数组，并分别按图示格式输出到文本框1与文本框2中；按“查找”按钮，则找出两个数组中共同存在的数据，输出到文本框3中，若没有共同的数据，则输出“无共同元素”；按“清除”按钮，将3个文本框清空；
3．程序中应定义一个名为arry的通用Sub过程，用于生成无重复数的两个数组。
PrivateSubCommand1_Click（）
DimiAsInteger
Callarry（a（）,b（））
Fori=1To10
Text1=Text1&a（i）&""
Text2=Text2&b（i）&""
Nexti
EndSub
PrivateSubCommand2_Click（）
DimiAsInteger,jAsInteger
Fori=1To10
Forj=1To10
Ifa（i）=b（j）ThenText3=Text3&a（i）&""
Nextj
Nexti
IfLen（Text3）=0ThenText3="无相同元素"
EndSub
PrivateSubCommand3_Click（）
Text1=""
Text2=""
Text3=""
EndSub
PrivateSubarry（a（）AsInteger,b（）AsInteger）
DimmAsInteger,nAsInteger,iAsInteger,kAsInteger
ReDimPreservea
（1）
a
（1）=Int（Rnd*90+10）
Do
m=Int（Rnd*90+10）
Fori=1ToUBound（a）
Ifm=a（i）ThenExitFor
Nexti
Ifi=UBound（a）+1Then
ReDimPreservea（i）
a（i）=m
EndIf
LoopUntilUBound（a）=10
ReDimPreserveb
（1）
b
（1）=Int（Rnd*90+10）
Do
n=Int（Rnd*90+10）
Fori=1ToUBound（b）
Ifn=b（i）ThenExitFor
Nexti
Ifi=UBound（b）+1Then
ReDimPreserveb（i）
b（i）=n
EndIf
LoopUntilUBound（b）=10
EndSub
模拟练习二
第一部分 计算机信息技术基础知识
选择题（共20分，每题2分）
1．下列有关PC机及CPU芯片的叙述正确的是D。
A．目前PC机所用CPU芯片均为Intel公司生产
B．PC机只能安装MS-DOS或Windows操作系统
C．PC机主板型号与CPU型号是一一对应的，不同的主板对应不同的CPU
D．PentiumMMX中的“MMX”是“多媒体扩展指令集”的英文缩写
2．计算机中使用的图像文件格式有多种。
下面关于常用图像文件的叙述中，错误的是A。
A．JPG图像文件不会在网页中使用
B．BMP图像文件在Windows环境下得到几乎所有图像应用软件的支持
C．TIF图像文件在扫描仪和桌面印刷系统中得到广泛应用
D．GIF图像文件能支持动画，数据量很小
3．随着Internet的飞速发展，其提供的服务越来越多。
在下列有关Internet服务及相关协议的叙述中，错误的是_C_。
A．电子邮件是Internet最早的服务之一，主要使用SMTP/POP3协议
B．WWW是目前Internet上使用最广泛的一种服务，常使用的协议是HTTP
C．文件传输协议（FTP）主要用在Internet上浏览网页时控制网页文件的传输
D．远程登录也是Internet提供的服务之一，它采用的协议称为Telnet
4．在下列图像格式（标准）中，由ISO和IEC这两个国际机构联合组成的专家组所制订的是_C。
A．BMPB．GIFC．JPEGD．TIF
5．二进数10111000和11001010进行逻辑“或”运算，结果再与10100110进行逻辑“与”运算，最终结果的十六进制形式为B。
A．95B．A2C．AED．DE
6．以下关于汉字编码标准的叙述中，错误的是A。
A．Unicode和GB18030中的汉字编码是相同的
B．GB18030汉字编码标准兼容GBK标准和GB2312标准
C．我国台湾地区使用的汉字编码标准主要是BIG5
D．GB18030编码标准收录的汉字数目超过2万个
7．近年来由于平板电脑/智能手机的迅猛发展，再加上安卓系统的开发性，大量的第三方软件开发商和自由软件开发者都在为安卓系统开发应用软件。
目前安卓应用开发主要是基于D。
A．汇编语言B．BASIC语言C．C语言D．JAVA语言
8．目前在网络互连中用得最广泛的是TCP／IP协议。
事实上，TCP／IP是一个协议系列，它已经包含了100多个协议。
在下列TCP／IP协议中，传输层使用的协议是 D 。
A．TELNETB．FTPC．HTTPD．UDP
9．MP3是一种广泛使用的数字声音格式。
下列关于MP3的叙述正确的是C。
A．表达同一首乐曲时，MP3的数据量比MIDI声音要少得多
B．MP3声音的质量与CD唱片声音的质量大致相当
C．MP3声音适合在网上实时播放
D．同一首乐曲经过数字化后产生的MP3文件与WAV文件的大小基本相同
10．下面描述正确的是D。
A．只要不使用U盘，就不会使系统感染病毒
B．只要不执行U盘中和程序，就不会使系统感染病毒
C．软盘比U盘更容易感染病毒
D．设置写保护后使用U盘就不会使U盘内的文件感染病毒
第二部分 VisualBasic程序设计
一、选择题（共10分，每题2分）
1．以下的Sub过程定义语句中，正确的是_A_。
A．PrivateSubSP（a（）AsInteger,ByValbAsSingle,cAsInteger）
B．PrivateSubSP（a（）AsInteger,ByValbAsSingle,cAsInteger）AsInteger
C．PrivateSubSP（ByVala（）AsInteger,bAsSingle,cAsInteger）
D．PrivateSubSP（ByVala（）AsInteger,ByValbAsSingle,cAsInteger）
2．以下有关数组定义的说法中，错误的是B。
A．固定大小数组必须先说明后使用
B．动态数组的数据类型可以在用ReDim语句重定义是改变
C．固定大小数组某一维的下届可以是负整数
D．可以使用已定义的符号常数名说明数组的维界（即说明数组的大小）
3．表达式CInt（4.5）+CInt（-4.51）+Int（4.9）+Int（-4.1）+Fix（-1.9）+0Mod2的运算结果是D。
A．1B．-1C．-2D．-3
4．若要使逻辑表达式x>yXoryA．x=3、y=3、z=4B．x=2、y=l、z=2
C．x=l、y=3、z=2D．x=2、y=2、z=2
5．在VB中均可以作为容器的是B_。
A．Form、TextBox、PictureBoxB．Form、PictureBox、Frame
C．Form、TextBoX、LabelD．PictureBox、TextBox、ListBox
二、填空题（共20分，每空2分）
1．执行下面程序，单击“生成数组”命令按钮Command1后，“数组:
”图片框Picture1中显示的内容如图所示，再单击“处理”命令按钮Command2，则“结果：
”图片框Picture2中第一行显示的x值是0，y值是73_,最后一行显示的y值是87。
OptionBase1
Dima（3,5）AsInteger
PrivateSubCommand1_Click（）'生成数组
DimiAsInteger,jAsInteger
Fori=1To3
Forj=1To5
a（i,j）=Int（Rnd*90）+10
Picture1.Printa（i,j）;
Nextj
Picture1.Print
Nexti
EndSub
PrivateSubCommand2_Click（）'处理
DimiAsInteger,jAsInteger
Dimb（5）AsInteger,xAsInteger,yAsInteger
Fori=1To3
Forj=1To5
b（j）=a（i,j）
Nextj
Callm（b,x,y）
Picture2.Printx,y
Nexti
EndSub
PrivateSubm（a（）AsInteger,ByValxAsInteger,yAsInteger）
DimiAsInteger
x=a
（1）
y=x
Fori=2ToUBound（a）
Ifa（i）Mod2=0Anda（i）
升级会员 