VisualBasic程序设计复习题及参考答案.docx
- 文档编号:8020583
- 上传时间:2023-05-12
- 格式:DOCX
- 页数:15
- 大小:84.58KB
VisualBasic程序设计复习题及参考答案.docx
《VisualBasic程序设计复习题及参考答案.docx》由会员分享,可在线阅读,更多相关《VisualBasic程序设计复习题及参考答案.docx(15页珍藏版)》请在冰点文库上搜索。
VisualBasic程序设计复习题及参考答案
中南大学网络教育课程(专科)考试复习题及答案
《VisualBasic程序设计与应用》
一、选择题:
在每小题给出的四个选项中,只有一项是符合题目要求的,请把所选项前的字母填在题后的括号内。
1.VisualBasic程序中分隔一行中各语句的字符是(
A)‘
B):
C)\
D)_
下列可作为VisualBasic的变量名的是(
PrviateSubForm_Load()
EndSub
A:
命令按钮的单击
C;窗体的装载
5.Vb中描述文件扩展名的是
A:
Drive
C:
FileName
6.关于VisualBasic
事件是由
DblClick
7.
A)
B)
C)
D)
B:
命令按钮的装载
D:
窗体的单击
)属性。
B:
Pattern
D:
Path
中事件的说法中,不正确的为(
VisualBasic预先定义好的,能够被对象识别的动作
(双击)是VisualBasic中的一种事件
一个对象可以识别一个或多个事件
对于一个系统提供的对象可以识别哪些事件,需要程序员自己定义F列控件中可设置滚动条是()。
[]
A.
检查框(复选框)
B.
框架
C.
文本框
D.
标签框
8.
[
在VisualBasic中建立一个空窗体,()不会是其默认名。
]
A.Form1B.Form2C.FormxD.Form10
9.ConstOne&=1,贝UOne为()类型的常数。
A)
B)
C)
D)
整型字节型长整型单精度型
10.关于逻辑型数据,下列说法错误的是(
A.逻辑型数据只有两种可能值:
True或者False
B.当把逻辑值转换为数值时False转为0,True转为1
C.当把其他类型数据转换为逻辑数据时,非0数转换为True,0转换为False
D.逻辑型数据以2个字节存储
11.以下()不是VisualBasic的特点。
[]
A:
结构化程序设计B:
集成可视化程序开发环境
C:
事件驱动编程机制D:
可将用户的编程思想自动转换成程序代码
12.窗体的load事件可以被用来实现的功能为()。
[]
A:
确定窗体的位置B:
从内存中清楚一个窗体
D:
重画窗体
[]
C.PictureBoxD.Image
)属性为False。
C:
在程序启动时对属性和变量初始化
13.单复选框的控件名称为()。
A.OptionBottonB.CheckBox
14.若要禁止窗体被移动,可设置窗体的(
D:
ControlBox
A.MoveableB:
MoveC:
MinButton
15.若要设置定时器的定时间隔设为10秒,应将()属性值设为10000。
[]
A.IntervalB.ValueC.EnabledD.Text16•以下()是文件夹列表框。
A.DirListBoxB.DriveListBoxC.FileListBoxD.ComboBox
17.以下()可从通用对话框的“字体”对话框中返回用户选择的字体名。
A.FileNameB.PathC.FontNameD.Color
18.下列哪个操作可以清除文本框对象Text1的内容()。
A.Text1.Text=""B.Text1.clsC.Text=""D.cls
19.要想通过单击Command弹出Form2窗体,则可在Command1的单击事件中,使用()
命令。
A.LoadForm2B.Form2.ShowC.Form2.SetFocusD.Form2.PopupMenu
20.以下属性中只在运行时起作用的为()。
A.Caption属性B.Visible属性C.BorderStyle属性D.Picture属性
21.在运行时,若要使文本框获得输入焦点,可调用文本框对象的()方法来实现。
A.RefreshB.GetFocusC.SetFocusD.Tab
22.在窗体中利用Print方法输出文本信息时,信息的输出位置由()属性设置。
A.LeftB.TopC.x,yD.CurrentX,CurrentY
23.语句:
Dimstudent(10,5to100)定义的是一个()维数组。
A.2B.3C.5D.10
24.默认情况下,语句:
Dimstudent(10to11,4)定义的数组有()个元素。
A.20B.22C.10D.11
25.已知Eng
(1)=90,Math
(1)=80,Comp
(1)=95Total
(1)=Eng
(1)+Math
(1)+Comp
(1),贝U
Total
(1)=()。
A.265B.90C.80D.95
26.已知在“通用”代码有以下语句:
DimA()AsInteger
则,在某一事件代码中使用()是正确的。
A.ReDimA(30,4)B.ReDimA(4)As
C.ReDimA(100)D.ReDimA()
27.Int(-23.512)的值为()。
A.-23B.-24C.24D.23
28.将ASCII码转换成字符串的函数是()。
A.Chr$B.Str$C.AscD.Vai
29.表达式Mid("Beijing2008",4,4)的值是()。
A.BeijB.jingC.inj2D.2008
30.A$="+3.14+2",贝UVai(A$)的值为()。
A.+3.14+2B.+5.14C.3.14D.5.14
二、填空题:
请把答案填在题中横线上。
1.VisualBasic中有一种控件组合了文本框和列表框的特性,这种控件是。
2.VisualBasic提供的对数据文件的三种访问方式为随机访问方式,和二进
制访问方式。
3.为了能在运行时把d:
\pic文件夹下的图形a.jpg装入图片框Picture1,所使用的语
句为。
4.计时器控件能有规律的以一定时间间隔触发事件,并执行该事件过程中的程
序代码。
5.VisualBasic应用程序中标准模块文件的扩展名是。
6.与数学表达式cos2(a+b)—(3+x)+5对应的VisualBasic表达式是.
7.要同时选定窗体上的多个控件,可以按住或键,然后依次单击窗体上
的各控件.
8.在VisualBasic中最基本的对象是.
9.要在VisualBasic工程中添加一个新的窗体,可以在主窗口的工具栏中选择
按钮.
10.在代码窗口中,输入某行代码并按回车键之后,如果代码变成颜色,说明该行
代码有语法错误.
三、程序改错:
1.程序功能:
已知24有8个正整数因子(即:
1,2,3,4,6,8,12,24),而24正好被其因子个数8整除。
问[100,300]之间有多少个这样的数。
程序中有两行有错误。
改正错误,使它能输出正确的结果。
PrivateSubCommand1_Click()
Dimn1AsInteger,n2AsInteger
DimxAsInteger
DimiAsInteger
n2=0
Forx=100To300
n2=0
Fori=1To100
IfxModi=0Then
n1=n1+1
EndIf
Nexti
IfxModn1=0Then
n2=n2+1
EndIf
Nextx
Printn2
Endsub
2.程序功能:
利用函数pd计算1~5000之间能被17和37整除的数的个数。
程序中有错误,改正错误,使程序能输出正确的结果。
PrivateSubCommand1_Click()
DimiAsInteger
DimsAsInteger
s=0
Fori=1To5000
Ifpd(i)Thens=s+1
Nexti
Prints
EndSub
PrivateFunctionpd(xAsInteger)AsBoolean
IfxMod17=0OrxMod37=0Then
pd=True
Else
pd=False
EndIf
EndFuction
3.程序功能:
根据整型参数m计算100-999的平方根的倒数之和。
程序的函数fun()
中有一行有错误,改正错误,使它能输出正确的结果。
PrivateSubCommand1_Click()
PrintFormat(fun(100,999),"#.######")
EndSub
PrivateFunctionfun(mAsInteger,nAsInteger)AsSingle
y=0
Fori=mTon
t=1/Sqr(i)
y=y+t
Nexti
fun=t
EndFunction
四、程序填空题。
1•士兵在演练过程中,队伍变换成10、21、35、60行时,队形都能成为矩形。
问参加演练的
士兵最少有多少人?
PrivateSubForm_Click()
Dima%,b%,c%,d%,n%
a=10
b=21
c=35
d=60
n=60
DoWhile
n=n+1
Loop
Printn
EndSub
2.用cos(x)疋1—xA2/2!
+xA4/4!
-……+(-1)A(n)*(x^(2n))/(2n)!
的公式求近似值,直到最后一项绝对值小于0.00001为止。
设x=7。
PrivateSubForm_click()
DimxAsInteger,iAsInteger
DimxpowerAsSingle
DimyAsSingle
x=Val(InputBox("请输入x:
"))
i=0
z=1
y=1
DoWhileAbs(z)>0.00001
factor=1
i=i+1
Forj=1To2*i
factor=factor*j
Nextj
xpower=xa(2*i)y=y+z
Loop
Printformat(y,"0.######")
EndSub
3.已知一个数列的前3项为0,0,1,从第4项开始,每项为前3项的和,编程求此数列的第39个数。
PrivateSubForm_Click()
Dimi%,f0&,f1&,f2&,f3&
FontSize=14:
FontBold=True
f0=0
f1=0
f2=1
Fori=4to39
f0=flfl=f2
f2=f3
Nexti
Printf3
EndSub
五、编程题:
1、编写程序,验证输入的3位正整数是否为同构数。
X若出现在自己的平方数的末3位,则
X是同构数。
女口625的平方是390625,则625为同构数。
2•设有如下两组数据:
A:
1,2,3,4,5,6,7,8,9,10
B:
100,99,98,97,96,95,94,93,92,91,
编写一个程序,把上面两级数据分别读入两个数组中,然后把两个数组中对应的元素相加,即
1+100……10+91。
并把相应的结果放入三个数组中,最后输出第3个数组的值。
3.用Circle方法画圆弧和椭圆弧。
如下图所示。
要求:
中心点相同,圆弧长度和角度随机,颜色随机,圆弧数为20。
4.在图片框中用PSet方法随机地产生若干个彩色的点。
窗体上有3个命令按钮:
“画点”、“清除”、和“退出”。
如下图所示。
PSet方法:
[对象名.]Pset:
Step:
(x,y)[,颜色]
六、问答题(15分)
1.简述多文档及其特性。
简述对话框的分类和特点。
《VB程序设计与应用》答案
、选择题:
在每小题给出的四个选项中,只有一项是符合题目要求的,请把所选项前的字
母填在题后的括号内。
1
2
3
4
5
B
A
B
C
B
6
7
8
9
10
D
C
C
C
D
11
12
13
14
15
D
C
A
A
A
16
17
18
19
20
A
C
A
A
B
21
22
23
24
25
C
D
A
C
A
26
27
28
29
30
C
B
A
B
C
二、填空题:
请把答案填在题中横线上。
1.组合框
2.顺序访问方式
3.Picture1.picture=LoadPicture(d:
\pic\a.jpg”)
4.Timer
5..bas
6.(cos(a+b))A2/(3*x)+5
7.ShiftCtrl
8.窗体
9.添加窗体
10.红色
三、程序改错题
1.第七行n2=0改成n1=0
第八行Fori=1To100改成Fori=1Tox
2.第^一行Or改成And
3.第十行fun=t改成fun=y
四、程序填空题
1.(a*1000+b*100+c*10+d)*e=b*1000+c*100+d*10+e
2.100-i-j=(100-5*i-j)*2
3.c=(iMod100)\10
五、编程题:
1.编程代码为:
PrivateSubCommand1_Click()
Dimi,mAsInteger
Fori=100To999
m=(i*i)Mod1000
Ifi=mThen
Printi
EndIf
Nexti
EndSub
2.编程代码
PrivateSubCommand1_Click()
Dima(10),b(),c(10)AsInteger
Fori=1To10
a(i)=i
Nexti
b=Array(100,99,98,97,96,95,94,93,92,91)
Fori=1To10
c(i)=a(i)+b(i-1)
Printc(i)
Nexti
EndSub
3.
用Circle方法画圆弧和椭圆弧。
如下图所示。
要求:
中心点相同,圆弧长度和角度随机,颜色随机,圆弧数为20。
PrivateSubCommand2_Click()
pi=3.1415926
a1=0
c=1
DrawWidth=1
Forr=100To2000Step100
a2=(a2+(pi/2))Mod(2*pi)
Circle(1800,1200),r,QBColor(c),a1,a2
a1=a1+(pi/4)
c=c+1
DrawWidth=DrawWidth+1
Nextr
EndSub
PrivateSubCommand3_Click()
Cls
EndSub
4.编程代码为:
PrivateSubCommand1_Click()
Picturel.DrawWidth=10
Fori=1To100
r=Int(256*Rnd)
g=Int(256*Rnd)
b=Int(256*Rnd)
x=Rnd*Width
y=Rnd*Height
Picturel.PSet(x,y),RGB(r,g,b)
Nexti
EndSub
PrivateSubCommand2_Click()
Picturel.CIs
EndSub
PrivateSubCommand3_Click()
End
EndSub
六、问答题简述多文档及其特性。
答:
定义:
多文档界面(MDI,MultipleDocumentInterface)允许创建在单个容器窗体中包含多个窗体的应用程序。
绝大多数基于Windows的大型应用程序都是多文档界面,例如,MicrosoftWord和MicrosoftExcel等。
多文档界面可同时打开多个文档,它简化了
文档之间的信息交换。
多文档界面有如下特性:
(1)所有子窗体均显示在MDI窗体的工作区中。
用户可以改变、移动子窗体的大小,但被限制在MDI窗体中。
(2)当最小化子窗体时,它的图标将显示在MDI窗体上,而不是在任务栏中。
当最小
化MDI窗体时,所有的子窗体也被最小化,只有MDI窗体的图标出现在任务栏中。
(3)当最大化一个子窗体时,它的标题与MDI窗体的标题一起显示在MDI窗体的标题
栏上。
(4)MDI窗体和子窗体都可以有各自的菜单,当子窗体加载时覆盖MDI窗体的菜单。
2.简述对话框的分类和特点。
答:
分类:
对话框分为3种类型:
预定义对话框、通用对话框和自定义对话框
(1)预定义对话框也称预制对话框,是由系统提供的。
VB提供了两种预定义对话框,
即输入框和信息框(或消息框),前者用InputBox函数建立,后者用MsgBox函数建立,具体用法参见第4章。
(2)通用对话框是一种控件,用这种控件可以设计较为复杂的对话框。
(3)自定义对话框也称定制对话框,这种对话框由用户根据自己的需要进行定义。
输入框和信息框尽管很容易建立,但在应用上有一定的限制,很多情况下无法满足需要,用户可以根据具体需要建立自己的对话框。
本章将介绍后两种对话框,即通用对话框和自定义对话框。
特点:
(1)在一般情况下,用户没有必要改变对话框的大小,因此其边框是固定的。
(2)为了退出对话框,必须单击其中的某个按钮,不能通过单击对话框外部的某个地方关闭对话框。
(3)
以免被
在对话框中不能有最大化按钮(MaxButton)和最小化按钮(MinButton),意外地扩大或缩成图标。
(4)对话框不是应用程序的主要工作区,只是临时使用,使用后就必须关闭。
3.
4.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VisualBasic 程序设计 复习题 参考答案