VB程序设计复习题及答案Word格式.docx
《VB程序设计复习题及答案Word格式.docx》由会员分享,可在线阅读,更多相关《VB程序设计复习题及答案Word格式.docx(13页珍藏版)》请在冰豆网上搜索。
![VB程序设计复习题及答案Word格式.docx](https://file1.bdocx.com/fileroot1/2022-10/28/cc9d8339-e4ba-4b79-9204-1ca0e0ee789a/cc9d8339-e4ba-4b79-9204-1ca0e0ee789a1.gif)
……
EndSub[]
命令按钮的单击B:
命令按钮的装载
C;
窗体的装载D:
窗体的单击
5.Vb中描述文件扩展名的是()属性。
DriveB:
Pattern
C:
FileNameD:
Path
6.关于VisualBasic中事件的说法中,不正确的为()。
A)事件是由VisualBasic预先定义好的,能够被对象识别的动作
B)DblClick(双击)是VisualBasic中的一种事件
C)一个对象可以识别一个或多个事件
D)对于一个系统提供的对象可以识别哪些事件,需要程序员自己定义
7.下列控件中可设置滚动条是()。
[]
A.检查框(复选框)
B.框架
C.文本框
D.标签框
8.在VisualBasic中建立一个空窗体,()不会是其默认名。
A.Form1B.Form2C.FormxD.Form10
9.ConstOne&
=1,则One为()类型的常数。
A)整型
B)字节型
C)长整型
D)单精度型
10.关于逻辑型数据,下列说法错误的是()。
[]
A.逻辑型数据只有两种可能值:
True或者False
B.当把逻辑值转换为数值时False转为0,True转为1
C.当把其他类型数据转换为逻辑数据时,非0数转换为True,0转换为False
D.逻辑型数据以2个字节存储
11.以下()不是VisualBasic的特点。
A:
结构化程序设计B:
集成可视化程序开发环境
事件驱动编程机制D:
可将用户的编程思想自动转换成程序代码
12.窗体的load事件可以被用来实现的功能为()。
确定窗体的位置B:
从内存中清楚一个窗体
在程序启动时对属性和变量初始化D:
重画窗体
13.单复选框的控件名称为()。
A.OptionBottonB.CheckBoxC.PictureBoxD.Image
14.若要禁止窗体被移动,可设置窗体的()属性为False。
A.MoveableB:
MoveC:
MinButtonD:
ControlBox
15.若要设置定时器的定时间隔设为10秒,应将()属性值设为10000。
[]
A.IntervalB.ValueC.EnabledD.Text
16.以下()是文件夹列表框。
A.DirListBoxB.DriveListBoxC.FileListBoxD.ComboBox
17.以下()可从通用对话框的“字体”对话框中返回用户选择的字体名。
A.FileNameB.PathC.FontNameD.Color
18.下列哪个操作可以清除文本框对象Text1的内容()。
A.Text1.Text="
"
B.Text1.clsC.Text="
D.cls
19.要想通过单击Command1弹出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),则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.Val
29.表达式Mid("
Beijing2008"
4,4)的值是()。
A.BeijB.jingC.inj2D.2008
30.A$="
+3.14+2"
,则Val(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
Nextx
Printn2
Endsub
2.程序功能:
利用函数pd计算1~5000之间能被17和37整除的数的个数。
程序中有错误,改正错误,使程序能输出正确的结果。
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),"
#.######"
)
PrivateFunctionfun(mAsInteger,nAsInteger)AsSingle
y=0
Fori=mTon
t=1/Sqr(i)
y=y+t
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
2.用cos(x)≈1-x^2/2!
+x^4/4!
-……+(-1)^(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=x^(2*i)
________________________________
y=y+z
Loop
Printfo