Vb专题习题.docx
- 文档编号:10696764
- 上传时间:2023-02-22
- 格式:DOCX
- 页数:33
- 大小:214.25KB
Vb专题习题.docx
《Vb专题习题.docx》由会员分享,可在线阅读,更多相关《Vb专题习题.docx(33页珍藏版)》请在冰豆网上搜索。
Vb专题习题
Vb专题习题
一、选择题
1.将数学表达式写成VisualBasic表达式,正确的是()
(A)Sqr(abs(b*b-4ac))(B)Sqr(abs[b*2-4*a*c])
(C)Sqr(abs(b*b-4*a*c))(D)Sqr[abs(b*b-4*a*c)]
2.在VisualBasic中,若要将窗体中某个命令按钮设置成无效状态,应对该按钮的( )属性值进行修改。
(A)Value(B)Visible(C)Enabled(D)Caption
3.执行如下VisualBasic程序段时,出现了如下图所示的错误:
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
a=5:
b=8
b=a+b
=Str(b)
EndSub
引发此错误的语句可能为( )
(A)DimaAsInteger,bAsInteger
(B)a=5:
b=8
(C)b=a+b
(D)=Str(b)
4.已知a=5,b=9,c=11,则下列VisualBasic表达式的值为False的是()
(A)a>bAnda>c(B)a
(C)ac–b
5.有下列VisualBasic程序段:
某同学正编写一个判断两数大小的程序,其窗体和代码窗口如下图所示:
根据代码窗口中的程序,要在程序运行时判断两数的大小,窗体上必须增加的对象是()
(A)标签Text1
(B)文本框Text2
(C)命令按钮Command1
(D)文本框Print
若程序要实现“求100内能被3整数的自然数个数”的功能,则方框中正确的语句是()
(A)i/3=0
(B)imod3=0
(C)i\3=0
(D)int(i/3)=0
6.有如下VisualBasic程序段:
PrivateSubCommand1_Click()
DimaAsInteger
a=Int(5*Rnd+1)*Int(5*Rnd-1)
Printa
EndSub
执行程序后,a的值范围是()
(A)[0,15](B)[-1,15](C)[-4,15](D)[-5,15]
7.在VisualBasic中,表达式3^2Mod14\2^3的值是()
(A)1(B)0(C)2(D)3
8.某同学正编写一个判断两数大小的程序,其窗体和代码窗口如下图所示:
根据代码窗口中的程序,要在程序运行时判断两数的大小,窗体上必须增加的对象是()
(A)标签Text1
(B)文本框Text2
(C)命令按钮Command1
(D)文本框Print
9.下列VisualBasic程序段中,能实现输出变量a、b、c三个数中最大数的是()
10、有如下VisualBasic程序段:
x=3
y=5
="x+y"
该程序运行后,要文本框Text1中显示的是()
(A)3+5
(B)x+y
(C)8
(D)3+5=8
11.在VisualBasic中,下列表达式的值为5的是()
(A)Int(Sqr(9)+
(B)(19\2)Mod5
(C)Abs(-7)+Sqr(4)
(D)Len("x+y+2")
12.在VisualBasic中,下列语句定义的数组元素为10个的是()
(A)Dima(0To10)AsInteger
(B)Dimb(1To9)AsString
(C)Dimc(2To10)AsBoolean
(D)Dimd(0To9)AsDate
13.某VisualBasic工程的代码窗口如图所示:
从图中可以看出,当前正在编辑的是()
A.Command1的Click事件过程代码B.Timer1的Timer事件过程代码
C.Label1的Click事件过程代码D.Image1的Click事件过程代码
14.在VisualBasic中,下列能作为变量名的是()
A.My
B.If
C.a+y
D.2nd
15.已知字符A~Z的ASCII码值分别对应65~90。
小明编写了一个在标签Label1上显示26个英文大写字母“ABCDE……XYZ”的VB程序。
部分程序如下:
a=""
Fori=65To90
Nexti
=a
方框中正确的语句是()
A.a=a+Str(i)B.a=a+Chr(i)C.a=a+Int(i)D.a=a+ASC(i)
16.a=a+b
b=a-b
a=a-b
功能相同的程序段是()
A. a=b
b=a
B. a=a+b
a=a-b
b=a-b
C. t=a
a=b
b=t
D. IFa>bTHEN
a=b
ELSE
b=a
ENDIF
17.在VisualBasic中,表达式Abs(-*Sqr(100)的值是()
A.36
B.360
C.-36
D.-360
18.某同学正编写一个判断酒驾行为的VisualBasic程序,其窗体和代码窗口如下图所示。
根据代码窗口中的程序,要在程序运行时获取输入的x值,窗体上必须增加的对象是()
A.标签Text1B.标签Label2C.文本框Text1D.文本框Label2
19.某VisualBasic程序如下:
PrivateSubCommand1_Click()
DimiAsInteger,sumAsInteger
sum=0
Fori=10To2Step-2
sum=sum+i
Nexti
=Str(sum)
EndSub
运行程序,单击命令按钮Command1后弹出如图所示的出错信息提示,此时程序正执行的语句是()
(A)sum=0
(B)Fori=10to2step-2
(C)Sum=sum+i
(D)=str(sum)
20.有如下VisualBasic程序段:
s=0
Fori=1To5
s=s+i
Nexti
该程序运行后,i的值为()
(A)1
(B)5
(C)6
(D)15
21.在VisualBasic中,某对象的属性窗口如图所示:
该对象名是()
(A)CommandButton
(B)Command1
(C)Command_1
(D)Appearance
22.有如下VisualBasic程序段:
j=10
Fori=1To9
Ifa(i)>a(j)Thenj=i
Nexti
该程序运行后,变量a(j)中存储的是
(A)a
(1)至a(10)中的最大值
(B)a
(1)至a(10)中的最小值
(C)a
(1)至a(10)的累加值
(D)从1计数至9
23.某VisualBasic程序的一个事件过程如下:
PrivateSubCommand1_Click()
DimrAsSingle
DimpiAsDouble
r=100
pi=
="圆面积为:
"+Val(pi*r*r)
EndSub
运行程序,单击命令按钮Command1后弹出如图所示的出错信息提示,引起该错误的语句因是()
rAsInteger
piAsDouble
=
="圆面积为:
"+Val(pi*r*r)
24.有如下VisualBasic程序段:
s=0
Fori=1To10Step4
s=s+i
Nexti
该程序运行后,变量s的值是()
(A)0 (B)1 (C)5 (D)15
25.下列VisualBasic表达式的值等于56的是()
(A)Mid("123456",5,3)
(B)Len("55"+1)
(C)Sqr(56)
(D)Abs(-55)+1
26.
27.
28.小金编写了一个统计随机数分布的VB程序,部分程序如下所示,在调试程序的时候出现如右图所示的错误信息:
n=0
m=0
Fori=1To100
IfRnd>0.5Then
n=n+1
Else
m=m+1
Nexti
……
小金仔细分析该程序段后,发现其中缺少了()
A.ForB.NextC.EndIfD.If
29.有如下VB程序:
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger
a=Val
b=Val
c=(a+b+Abs(a-b))\3
=Str(c)
EndSub
运行该程序,分别在文本框Text1、Text2中输入5、9,单击命令按钮Command1后,文本框Text3中显示的内容是()
30.如右图所示的VB程序中,输入以下程序代码,运行后单击命令按钮Command1,出现错误的提示图是:
()
PrivateSubCommand1_Click()
Dima(1To4)AsInteger
DimiAsInteger
a
(1)=1
Fori=2To4
a(i)=2*a(i-1)+1
Nexti
Str(a(i))
EndSub
A.B.
C.D.
31.若x表示能被3整除的正整数,则下面逻辑表达式的值一定为真的是:
()
A.Int(x/3)=0B.3Modx=0
C.xMod3=0D.x\3=0
32.、为使下面左右框内的VB程序段实现相同的功能,则左框内划线处填写的代码应该是()。
s=0
Fort=1To6Step2
s=s+t
Nextt
s=0:
t=
0
DoWhilet<=6
s=s+t
Loop
A.=2
B.=6
=t+1
D.=t+2
33.VB表达式S=Int(Rnd()*1000+9000),则S的取值范围是()
A.
B.
C.
D.
34.下表记录了6个数据的排序过程。
分析表中数据可知,该排序采用的算法与排序方式分别为()
原始数据
65
57
59
44
45
69
第1遍
44
65
57
59
45
69
第2遍
44
45
65
57
59
69
第3遍
44
45
57
65
59
69
…
…
…
…
…
…
…
A.冒泡排序,升序B.选择排序,升序
C.冒泡排序,降序D.选择排序,降序
35.阶乘是基斯顿﹒卡曼于1808年发明的运算符号。
正整数n的阶乘为n!
=1×2×3…×n。
小王编写了如下VB程序用来求S=1!
+2!
+3!
+…+10!
。
Functionfac(nAsInteger)AsLong
fac=1
Fori=1Ton
fac=fac*i
Nexti
EndFunction
PrivateSubCommand1_Click()
DimsAsLong,jAsInteger
Forj=1To10
Nextj
=Str(s)
EndSub
方框中的正确语句是:
A.s=s+fac(j)B.s=fac(j)
C.s=s+i*fac(i)D.s=s+fac(i)
36.下列逻辑表达式中,值为False的是()
A.Asc("A") C.3+4<=7and5+6>9D."thirty">"two" 37.有100个大小形状一样的透明玻璃球,其中有1个玻璃球的重量轻于其他99个玻璃球,小明想利用一台无砝码的天平,运用合理的算法保证一定能找出这颗轻玻璃球的最少的次数为: A.100B.10C.8D.6 38.下列VB程序中,f是一个递归函数: PrivateSubCommand1_Click() DimyAsInteger y=Val =Str(f(y)) EndSub Functionf(nAsInteger)AsInteger If(n=1)Or(n=2)Then f=1 Else f=f(n-1)+f(n-2) EndIf EndFunction 程序运行时,在文本框中输入8,单击命令按钮Command1后,Label1中显示的内容是: A.5B.8C.13D.21 39.用选择排序将七个数“2022,2017,2018,2014,2021,2012,2015”从小到大进行排序,则第二轮交换数据后的顺序是() A.2022,2021,2018,2017,2014,2012,2015 B.2012,2014,2018,2017,2021,2022,2015 C.2012,2017,2018,2014,2021,2022,2015 D.2022,2021,2018,2014,2017,2012,2015 40.某高校学籍管理系统软件有2万个学生的电子档案(已按学籍号排序),假设从中取出一条记录并与待查项进行比较所花时间为8毫秒,则用对分法在该系统中查找任意一位学生档案最多花费的时间约为() A.16万毫秒B.8万毫秒C.10毫秒D.120毫秒 41.已知temp1=“12”,temp2=3,则VisualBasic表达式temp1+temp2的值为(B) A.“15”C.“123” B 二、程序填空题(学考部分) 1.编写一个具有下列功能的VB程序: 单击“分类”按钮Command1,随机产生10个[10,99]区间中的整数,并将其中3的倍数显示在List1中,余下的数显示在List2中。 运行界面如图所示。 (1)要使命令按钮Command1上显示的文本为“分类”,可在其属性窗口中将 属性的属性值改为“分类”。 (2)为实现上述功能,请在划线处填写合适的代码。 PrivateSubCommand1_Click() Dima(1To10)AsInteger Fori=1To10 a(i)= If Then Str(a(i)) Else EndIf Nexti EndSub 2.小丁想买几张6+1彩票,选号时,他希望前4位用自己的生日: 11月8日,即1108,特别号码他选了买彩票日子的个位数5,并且他希望前六个数字组成的数能被他的幸运数字9整除。 他的好朋友小杰帮他设计了一个VB程序,可以提供一份符合这些要求的号码清单供他挑选。 相应的界面如第12题图-1所示。 阅读程序并完成后面的问题。 (1)设计应用程序界面时,为添加a所指向的对象,应使用图所示的“控件工具箱”中的(填写相应编号);在第14题-3图所示的“属性窗口”中,将属性值设置为“开始”,可使2中b所指向的对象显示“开始”。 (2)请根据题意将下列程序补充完整。 PrivateSubCommand1_Click() Dimiasinteger,jasinteger,cAsInteger DimnAsLong c=0 Fori=0To99 n=110800+i If①Then Str(n)+""+"5" EndIf Nexti ="满足条件的数有: "+Str(c)+"组" EndSub 3.小李想用vb制作一个分钟倒计时器,界面如图所示。 先在文本框text1中输入分钟数,然后在文本框text2中输入秒钟数,再点击“开始倒计时”按钮开始倒计时。 Vb程序如下: PrivateSubCommand1_Click() =① EndSub PrivateSubTimer1_Timer() sec=Val min=Val Ifsec>0Then sec=sec-1 Else sec=59 Ifmin>0Then min=min-1 Else Text1=0 Text2=0 MsgBox"倒计时时间到" EndIf EndIf Text1=min Text2=sec EndSub (1)程序中①处应该填。 (选填: True/False) (2)计时器timer1的inteval属性应该设置为。 4.小沈很久没登录自己的电子邮箱了,这次他想给远方的朋友发封电子邮件,但是密码忘记了,请你帮她尽可能找回密码。 她零星记得自己的密码信息如下: ①共八位字符,前两位为字母“zj”,后六位是数字,并以66开头(即密码格式为zj66****); ②最后两位数字相同; ③后六位数能被16和46同时整除。 单击“找回密码”按钮(Command1)后,可能的密码显示在列表框List1中。 第14题图 PrivateSubCommand1_Click() DimsAsLong,aAsInteger,bAsInteger,cAsInteger,iAsInteger Fori=0To9999 s=660000+i If①AndsMod46=0Then '(选填字母,从下列A、B、C、D四个选项中选取一项) a=sMod10 b=(sMod100)\10 If②Then'(选填字母,从下列A、B、C、D四个选项中选取一项) ("zj"+Str(s)) c=③'(填程序代码) EndIf EndIf Nexti ="共有"+Str(c)+"个" EndSub (1)解决此问题的算法是_______________。 (选填: 枚举算法/解析算法/查找算法) (2)程序中①划线处应填入__________;程序中②划线处应填入_________。 划线①、②处的选项: () A.sMod16=0B.s\16=0C.a<>bD.a=b (3)程序中①划线处应填入的代码_______________________。 5.小兰设计了一个“猜价格”小游戏,用户在Text1中输入所猜的价格,单击“猜一猜”按钮,如果偏高了,Label4标签中将提示“对不起,偏高了! ”;若所猜的价格偏低,则Label4标签中将提示“对不起,偏低了! ”;若猜中,则Label4标签中将显示“恭喜你,猜对啦! ”。 界面如图所示。 (1)应用程序界面设计时,为添加“请输入您猜的价格: ”对象,应使用图所示的“控件工具箱”中的(填写相应字母),并在图所示的“属性窗口”中,将属性值设置为“请输入您猜的价格: ”。 (2)解决此问题的相应程序如下,请根据题意将程序补充完整。 PrivateSubCommand1_Click() DimgAsInteger DimpAsInteger p=99'预设价格的值存储到p变量中 g= Ifg>pThen ="对不起,偏高了! " ElseIfg ="对不起,偏低了! " Else ="恭喜你,猜对啦! " EndSub 6.十进制数转二进制数程序界面如第14题-1图所示,相关VB程序运行时,单击命令按钮Command1后,执行十进制数转二进制数并输出显示的程序。 (1)应用程序界面设计。 转换得到的二进制数将显示在Label3中,请根据第14题-3图提供信息,确定使用第14题-2图控件工具箱中的(填写相应编号),修改属性的值为1010。 第14题-1图第14题-2图第14题-3图 (2)解决此问题的相应程序如下,请根据相应注释及题意将程序补充完整。 PrivateSubCommand1_Click()‘不停除2到商为0为止,所得余数倒推 DimsjzsAsInteger‘sjzs: 十进制数 DimrjzsAsString‘rjzs: 二进制数 sjzs=Val rjzs="" DoWhile rjzs=Str(sjzsMod2)+rjzs =rjzs EndSub 7.以下VB程序段的功能是用DO语句求1~1000之间满足“用3除余2,用5除余3,用7除余2”的数。 并将结果在list1中列出,并在label1处显示符合条件的数的个数。 (1)程序中①处应填入的代码是________________ (2)程序运行结束后,变量i的值为_______________ PrivateSubCommand1_Click() DimiAsInteger DimjAsInteger i=1: j=0 DoWhilei<=1000 If(iMod3=2AndiMod5=3AndiMod7=2)Then i EndIf i=i+1 Loop =Str(j) EndSub 8.有如下VisualBasic程序段: Ifx>100then Y=12 ___ (1)__x>60then Y=8 Else y=5 ____ (2)_____ 该程序段中, (1)处填写的内容为____________ (2)处填写的内容为___________。 9.用VB软件编写判断闰年的年份。 界面如第11题-图1所示,文本框Text1输入年份,单击“判断”按钮Command1,在文本框Text2中输出判断结果(闰年的判断条件是: 能被4整除但是不能被100整除;或者能
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Vb 专题 习题
![提示](https://static.bdocx.com/images/bang_tan.gif)