vb理论题.docx
- 文档编号:28365858
- 上传时间:2023-07-10
- 格式:DOCX
- 页数:27
- 大小:21.58KB
vb理论题.docx
《vb理论题.docx》由会员分享,可在线阅读,更多相关《vb理论题.docx(27页珍藏版)》请在冰豆网上搜索。
vb理论题
VB理论题
一、选择题
1.工程资源管理器用来显示和管理工程所包含的D等全部项目。
A.变量和数组
B.变量和常数
C.过程和事件
D.窗体和模块
2.VB的使用目的是B。
A.制作WAV文件
B.开发Windows应用程序
C.文字处理
D.图像处理
3.一个应用程序A窗体。
A.可包括多个
B.应该有两个
C.只许有一个
D.可以没有
4.以下说法正确的是A。
A.A、B都正确
B.属性是对象的一部分
C.事件是对象的一部分
D.方法是对象的一部分
5.在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体中的窗口、属性窗口外,必不可少的
窗口是B。
A.立即窗口
B.代码窗口
C.窗体布局窗口
D.监视窗口
6.VisualBasic是一种面向D的程序设计语言。
A.过程
B.用户
C.工程
D.对象
7.在程序中可以通过复选框和单选框按钮的B属性值来判断它们的当前状态。
A.Checked
B.Value
C.Selected
D.Caption
8.任何控件都具有A属性。
A.Name
B.Text
C.Caption
D.ForeColor
9.在以下有关对象属性的叙述中,不正确的是A。
A.一个对象的所有属性都可在属性窗口的列表中进行设置。
B.一个对象的属性可分为外观、行为等若干类。
C.属性窗口中的属性列表既可按字母序也可按类别排列。
D.不同属性可能具有不同的数据类型。
10.窗体Form1的名称属性是frm,它的Load事件过程名是D。
A.frm_Load
B.Me_CmdOK
C.Form-Load
D.Form_Load
11.在用菜单编辑器设计菜单时,必须输入的项有B。
A.索引
B.名称
C.标题
D.快捷键
12.在设计列表框时,若实现输入多行文字的目的,应使用C键实现文本的换行。
A.Alt+Enter
B.Enter
C.Ctrl+Enter
D.Ctrl+Shift+Enter
13.若要使命令按钮不可操作,要对C属性设置。
A.Visible
B.Caption
C.Enabled
D.BackColor
14.要使一个标签透明且具有边框,则应B。
A.将其BackStyle属性设置为1,BorderStyle属性设置为1
B.将其BackStyle属性设置为0,BorderStyle属性设置为1
C.将其BackStyle属性设置为0,BorderStyle属性设置为0
D.将其BackStyle属性设置为1,BorderStyle属性设置为0
15.将数据项"China"添加到列表框(List1)中成为第一项应使用C语句。
A.List1.Addltem1,"China"
B.List1.Addltem"China",1
C.List1.Addltem"China",0
D.List1.Addltem0,"China"
16.下列控件中,C控件不能改变大小。
A.Label
B.Frame
C.Timer
D.TextBox
17.下列语句中的语句可以用来正确地声明一个动态数组A。
A.DimA()AsInteger
B.PrivateA(n)AsInteger
C.DimA(,)AsInteger
D.DimA(1ton)
18.以下有关控件数组的说法中错误的是C。
A.控件数组由一组具有共同名称和相同类型的控件组成
B.控件数组中的每个元素的下标由控件的Index属性指定
C.同一控件数组中的元素只能有相同的属性设置值
D.控件组中的每一个控件共享同样的事件过程
19.如下数组声明语句,则数组a包含元素的个数有D。
Dima(3,-2to2,5)
A.75
B.13
C.60
D.120
20.要分配存放如下方阵的数据,B数组声明语句能实现(不能浪费空间)。
每行三个元素,第一行为:
1.12.23.3第二行为:
4.45.56.6第三行为:
7.78.89.9
A.Dima(3,3)AsSingle
B.Dima(-1Tol,-5To-3)AsSingle
C.Dima(-3To-1,5To7)AsInteger
D.Dima(9)AsSingle
21.如下二维数组声明语句,B正确。
A.Dima(n,n)AsInteger
B.Dima(3,4)AsInteger
C.Dima(34)AsInteger
D.Dima[3,4]AsInteger
22.调用由语句PrivateSubConvert(YAsInteger)定义的Sub过程时,以下不是按值传递的语句是D。
A.Convert(X)
B.CallConvert(X*1)
C.CallConvert((X))
D.ConvertX
23.下面子过程语句说明合法的是C。
A.Subf1(ByValn%())
B.Functionf1%(f1%)
C.Functionf1(ByValn%)
D.Subf1(n%)AsInteger
24.窗体上画一个按钮,然后编写如下的事件代码。
在按钮上单击,输出为B。
PrivateSubfun()
StaticaAsInteger
a=a+2
Printa;
EndSub
PrivateSubCommand1_Click()
DimmAsInteger
Form=1To3
Callfun
Nextm
EndSub
A.000
B.246
C.222
D.248
25.在窗体的General段声明变量时,不能使用A关键字。
A.Static
B.Private
C.Public
D.Dim
26.系统默认的参数传递方式是C传递。
A.ByVal
B.按实参
C.按地址
D.按值
27.表达式Len("123程序设计ABC")的值是A。
A.10
B.20
C.17
D.14
28.Int(198.555*100+0.5)/100的值B。
A.199.6
B.198.56
C.200
D.198
29.与数学表达式(ab/3cd)对应,VB的不正确表达式是A。
A.a*b/3*c*d
B.a*b/3/c/d
C.a*b/(3*c*d)
D.a/3*b/c/d
30.在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释),要折行书写,可以在行末
使用续行字符B,表示下一行是当前行的继续。
A.直接回车
B.一个空格加一个下划字符(_)
C.一个下划字符(_)
D.一个空格加一个连字符(-)
31.下面叙述中正确的是B。
A.Space函数能用于Print方法中,也能用于表达式
B.以上说法均不对
C.Spc函数与Space函数均生成空格,没有区别
D.Spc函数能用于Print方法中,也能用于表达式
32.下列没有类型说明符的变量是B。
A.货币型
B.日期型
C.字符串型
D.长整型
33.日期类型(Date)在程序中运用时,日期类型必须用C符号括起来。
A.$
B.%
C.#
D.@
34.如果x是正实数,对x的第3位小数四舍五入的表达式是C。
A.0.01*Int(x+0.005)
B.0.01*Int(100*(x+0.05))
C.0.01*Int(100*(x+0.005))
D.0.01*(x+0.05)
35.以下语句的输出结果是C。
PrintFormat(12345.6,"000,000.00")
A.12345.6
B.12,345.6
C.012,345.60
D.12,345.60
36.以下语句的输出结果是C。
printFormat(3678.234,"000,000,000")
A.003,678.23
B.000,003.678
C.000,003,678
D.003,678,234
37.设M=3,N=5,P=4.5,Q=2.5,表达式(M*N+2)/(P-Q)的计算结果为A。
A.8.5
B.8.0
C.8
D.9
38.赋值语句:
a=123+MID("123456",3,2)执行后,a变量中的值是C。
A.123
B."12334"
C.157
D.12334
39.下列程序运行后的输出结果是D。
PrivateSubCommand1_Click()
Fori=1TO3
Forj=0TOi-1
k=k+1
nextj
nexti
printk
EndSub
A.3
B.5
C.4
D.6
40.执行了下面的程序后,列表框中的数据项有B。
SubForm_Click()
Fori=1To6
List1.AddItemi
Nexti
Fori=1To3
List1.RemoveItemi
Nexti
EndSub
A.246
B.135
C.156
D.456
41.在文本框Text1中输入数字12,Text2中输入数字34,执行以下语句,只有C。
可使文本框Text3中
显示46。
A.Text3.Text=Val(Text1.Text)&Val(Text2.Text)
B.Text3.Text=Text1.Text&Text2.Text
C.Text3.Text=Val(Text1.Text)+Val(Text2.Text)
D.Text3.Text=Text1.Text+Text2.Text
42.下面语句运行后的输出结果是D。
PrivateSubCommand1_Click()
x=0
DoWhilex<10
x=x+1
x=x*x
Loop
Printx
EndSub
A.30
B.12
C.6
D.25
43.关于语句Ifx=1Theny=1,下列说法正确的是C。
A.x=1为赋值语句,y=l为关系表达式
B.x=1和y=l均为关系表达式
C.x=1为关系表达式,y=1为赋值语句
D.x=1和y=1均为赋值语句
44.下列程序段的执行结果为C。
x=Int((69-60)*Rnd+60)
SelectCasex
CaseIs>=90
Print"优秀"
Case80To89
Print"良好"
Case60To79
Print"合格"
CaseElse
Print"不合格"
EndSelect
A.优秀
B.良好
C.合格
D.不合格
45.以下B程序段可以实施X,Y变量值的变换.
A.Y=X:
X=Y
B.Z=X:
X=Y:
Y=Z
C.Z=X:
Y=Z:
X=Y
D.Z=X:
W=Y:
Y=Z:
X=Y
46.有如下程序:
PrivateSubCommand1_Click()
score=65
selectCasescore
CaseIs<60
a$="F"
Case60To69
a$="D"
Case70To79
a$="C"
Case80To89
a$="B"
Caseelse
a$="A"
EndSelect
MsgBoxa$
EndSub
程序运行后,消息对话框中显示的内容为A。
A.D
B.B
C.A
D.C
47.下列是一个计算1到100的奇数的和的程序,为补充完该程序,填空应为C。
PrivateSubCommand1_Click()
DimsAsLong,xAsInteger
s=0
Forx=_____Step-2
s=s+x
Nextx
Prints
EndSub
A.1To100
B.100To1
C.99To1
D.1To99
48.下面程序是一个求最大公约数的程序,执行程序后,m的值为A。
DimmAsInteger,nAsInteger
m=200
n=150
Ifn*m=0ThenExitSub
Ifm t=m: m=n: n=t EndIf Do r=mModn m=n n=r LoopWhiler<>0 Text3=m A.50 B.100 C.200 D.150 49.设有如下语句: strl=InputBox("输入","","练习")从键盘上输入字符串"示例"后,strl的值是B。 A.“练习” B.“示例” C.“输入” D.“” 50.下列程序 PrivateSubCommand1_Click() a=InputBox("请输入") b=InputBox("请输入") Printa+b EndSub 运行时输入3和4输出的结果是D。 A.7 B.3+4 C.出错 D.34 二、填空题 1.可使用列表框的_____方法向列表框中增加一个项目。 【参考答案】 AddItem addltem ListAdditem .AddItem list.additem List1(列表框名.AddItem) List1.AddItem 2._____属性决定了按Tab键时,焦点在各个控件移动的顺序。 【参考答案】 TabIndex TableIndex TabIntex Tablndex 3.当sub过程value形参表中存在byval关键字时,执行本程序,单击窗体在窗体上显示的第一行内容是_____; 若将形参表的byval关键字删掉,在执行本程序,单击窗体后在窗体上显示的第一行内容是_____;第二行内容是_____。 PrivateSubvalue(ByValmAsInteger,ByValnAsInteger) m=m*2 n=n-5 Print"m=";m,"n=";n EndSub PrivateSubForm_Click() DimxAsInteger,yAsInteger x=10: y=15 Callvalue(x,y) Print"x=";x,"y=";y EndSub 【参考答案】 m=20n=10 m=20,n=10 m=20n=10 m=20: n=10 2010 m=20n=10 20;10 m=20: n=10 m=20n=10 2010 20,10 m=20n=10 m=20;n=10 2010 【参考答案】 m=20n=10 m=20: n=10 2010 m=20n=10 20;10 m=20: n=10 m=20n=10 m=20,n=10 2010 20,10 【参考答案】 x=20y=10 2010 x=20,y=10 2010 20,10 4.运行下面程序,单击窗体后在窗体上显示的第二行结果是_____;第四行结果是_____。 DimyAsInteger PrivateSubForm_Click() DimxAsInteger x=1: y=1 Print"x1=";x,"y1=";y Test Print"x4=";x,"y4=";y EndSub PrivateSubTest() DimxAsInteger Print"x2=";x,"y2=";y x=2: y=3 Print"x3=";x,"y3=";y EndSub 【参考答案】 x2=0y2=1 x2=0y2=1 x2=0,y2=1 x2=0: y2=1 x2=0,y2=1 【参考答案】 x4=1y4=3 x4=1,y4=3 x4=1: y4=3 x4=1y4=3 5.以下程序的输出结果是_____。 x=12.7 x=Int(x+0.5) Printx 【参考答案】 13 6.表达式7^2Mod5^2\3的值为_____ 【参考答案】 1 7.语句Print"125+32=";125+32执行后,窗体上打印结果是_____. 【参考答案】 125+32=157 125+32=157 157 157 8.已知K=2,J=3,A=True,则VB的表达式(K-J<=K)AND(NOTA)OR(K+J>=J)的值为_____。 【参考答案】 TrueandFalseorTrue true True ture 9.执行下面的程序后,b的值为_____ a=300: b=20: a=a+b: b=a-b: a=a-b 【参考答案】 300 10.运行下面的程序,就会出现_____,按_____键可以终止程序运行。 PrivateSubForm_Click() DimiAsInteger DoWhilei<10 i=i*20 Loop EndSub 【参考答案】 无限循环 【参考答案】 Ctrl+Break 11.下面程序段,显示的结果是_____。 Dimx x=Int(Rnd)+5 SelectCasex Case5 Print"优秀" Case4 Print"良好" Case3 Print"通过" caseElse Print"不通过" EndSelect 【参考答案】 优秀 "优秀" 12.若将程序中的A语句与B语句的位置互换,再次执行程序,单击窗体后在窗体上显示的内容是_____。 PrivateSubFocus_Click() DimxAsInteger,yAsInteger x=1: y=0 DoWhilex<3 y=y+x'A x=x+1'B Loop Printx,y EndSub 【参考答案】 33 3,3 33 【参考答案】 35 35 13.下列程序运行的结果为_____。 执行完该程序后,共循环了_____。 PrivateSubCommand1_Click() DimintsumAsInteger DimiAsInteger Fori=1To17Step2 intsum=intsum+i Nexti Printintsum EndSub 【参考答案】 81 【参考答案】 9 9次 14.执行下面的程序后,b的值为_____ a=300: b=20: a=a+b: b=a-b: a=a-b 【参考答案】 300 15.执行下面的程序段后,s的值为_____。 PrivateSubCommand1_Click() s=5 Fori=2.6To4.9Step0.6 s=s+1 Nexti Prints EndSub 【参考答案】 9 16.以下程序代码将整型动态数组X声明为具有20个元素的数组,并给数组的所有元素赋值. dimx()asinteger privatesubcommand1_click() redim_____ fori=1to20 x(i)=1 printx(i) nexti endsub 【参考答案】 x(1to20) x(20) x(20)asInteger x(1to20)asinterger x(1to20)asinteger x(1to20)asinteger x(20) x(20)asInteger x(20)asinteger x(20) x(1to20)Asinteger x(20)asintenger x(20)asinteger preservex(20)asinteger preservex(1to20) preservex(20) x(20) x(1to20)asinteger x(20)asInterger a(20)asinteger preservex(20)AsInterger 17.以下程序用随机数函数模拟掷骰子,统计掷50次骰子出现各点的次数。 阅读该程序,并将程序完善。 PrivateSubCommand1_Click() Dimd(6) Fori=1To50 n=_____ d(n)=_____ Nexti Fori=1To6 Printd(i) Nexti EndSub 【参考答案】 Int(1+6*Rnd) 【参考答案】 d(n)+1 18.打印如下图所示的杨辉三角形。 1 11 121 1331 14641 完善下列程序。 PrivateSubCommand1_Click() DimP(5,5)AsInteger,iAsInteger DimjAsInteger,nAsInteger Fori=1To5 P(i,1)=1 P(i,i)=1 Nexti Fori=_____ Forj=2Toi-1 P(i,j)=_____ Nextj Nexti Fori=1To5 Forj=1Toi s=Str(P(i,j)) PrintSpace(4-n);P(i,j); Nextj Print Nexti EndSub 【参考答案】 3To5 1to5 fori=3to5 2To5 1to5 1to5step1 【参考答案】 P(i-1,j-1)+P(i-1,j) p(i-1,j)+p(i-1,j-1) p(i-1,j-1)+p(i-1,j) p(i-1,j-1)+p(i-1,j p(i-1,j-1)+p(i-1,j) p(i-1,j)+p(i-1,j-1) p(i-1,j)+P(i-1,j-1) p(i-1,j-i)+p(i-1,j) p((i-1),
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 理论