VB选择整合.docx
- 文档编号:14430772
- 上传时间:2023-06-23
- 格式:DOCX
- 页数:35
- 大小:27.73KB
VB选择整合.docx
《VB选择整合.docx》由会员分享,可在线阅读,更多相关《VB选择整合.docx(35页珍藏版)》请在冰点文库上搜索。
VB选择整合
1.在代码中引用一个控件时,应使用控件的(b)属性。
A.CaptionB.NameC.TextD.Index
2.设变量x=4,y=-1,a=7,b=-8,下面表达式(a)的值为“假”。
A.x+a<=b-yB.x>0ANDy<0
C.a=bORx>yD.x+y>a+bANDNOT(y
3.表达式Int(Rnd*71)+10产生的随机整数范围是(c)。
A.(10,80)B.(10,81)C.[10,80]D.[10,81]
4.函数Sgn(3.1416)的返回值是(c)。
A.-1B.0C.1D.以上都不对
5.67890属于(d)类型数据。
A.整型B.单精度浮点数C.货币型D.长整型
6.下列变量名中正确的是(d)。
A.3SB.PrintC.SelectMyNameD.Select_1
7.下列赋值语句(a)是有效的。
A.sum=sum-sumB.x+2=x+2C.x+y=sumD.last=y/0
8.以下的控件或方法具有输入和输出双重功能的为(b)。
A.PrintB.TextboxC.OptionbuttonD.Checkbox
9.若要获得列表框中被选中的列表项的内容,可以通过访问(d)属性来实现。
A.NameB.ListIndexC.ListCountD.Text
10.下列代码的运行结果为(b)。
PrivateSubcommand1_click()
Dimm(10)
Fork=1To10
m(k)=11-k
Nextk
x=5
Printm(2+m(x))
EndSub
A.2B.3C.4D.5
二、填空题(10分)
1.写出整数n能同时被13和17整除的Basic表达式nMod13=0AndnMod17=0。
2.代码窗口中有两个下拉列表框:
左侧是列表框,右侧是过程列表框。
3.写出在字符串”VisualBasic6.0”中截取”Visual”的Basic表达式。
4.函数Len(“abcdef”)的返回值是。
5.设a=2,b=5,c=-2,d=100,则a>b>=cANDa=d的值为。
6.要使标签的大小自动与所显示的文本相适应,可以通过设置属性为True来实现。
7.若要在一行书写多条语句,则各语句间应加分隔符,VisualBasic的语句分隔符为。
8.要强制显式声明变量,使用__________语句完成。
9.在VB中,用户定义常量使用语句,声明变量使用语句。
三、将下列数学表达式转换为VB表达式。
(6分)
1.a2+2ab+b2__________________________
2.__________________________
3.8exln10__________________________
4.2sin(450)cos(450)_______________________________
5.___________________________________________
6.___________________________________________
四、判断题,正确打“√”,错误打“×”(10分)
1.在VB中,控件的事件只能通过用户的操作触发。
()
2.字符型数据以双引号作为定界符,输出时双引号本身不会显示在屏幕上。
()
3.保存工程时,窗体文件和工程文件的文件名不能相同。
()
4.改变控件的大小,可以使用鼠标和键盘,还可以通过修改代码。
()
5.同一过程中,数组和简单变量可以同名。
()
6.VB函数中的参数可以是常量、变量、表达式,还可以是另一个函数。
()
7.代码ConstNumber1=15:
Number1=10合法。
()
8.允许将块If-Then语句结构中的所有语句都写在一行上()
9.定义数组语句Dima(b)AsInteger是正确的()
10.在过程调用中,“实参表”和“形参表”中对应的变量名不必相同,但是变量的个数必须相等,而且实际参数的类型必须与相应形式参数的类型相符。
()
五、根据题意,将下列程序补充完整。
(16分)
1.产生20个[10,100]之间的随机整数,每行输出10个数据。
PrivateSubcommand1_click()
Dima(1To20)AsInteger
Randomize
i=0
DoWhilei<20
i=i+1
a(i)=()
If()Then
Printa(i);
EndIf
Ifi=10ThenPrinta(i)
Ifi>10ThenPrinta(i);
Loop
EndSub
2.打印九九乘法表
PrivateSubcommand1_click()
Fori=1To9
Forj=1To9
Print()
Nextj
()
EndSub
3.判断一个数是否素数
PrivateSubcommand1_click()
x=InputBox("请输入一个整数")
flag=1
Fori=2To()
IfxModi=0Then
flag=0
EndIf
Nexti
If()ThenPrintx;"是素数"ElsePrintx;"不是素数"
EndSub
4.利用数组输出Fibonacci数列的前15项。
该数列的第1项和第2项为1,其余各项均为其前两项之和。
PrivateSubCommand1_Click()
()
f
(1)=1:
f
(2)=1
List1.AddItemf
(1):
List1.AddItemf
(2)
Fori=3To15
f(i)=()
List1.AddItemf(i)
Nexti
EndSub
六、写出下面程序的输出结果。
(每题3分,共18分)
1.PrivateSubcommand1_click()
x=InputBox("enterx")'x的输入值为-8
SelectCaseSgn(x)+2
Case1
Print"y=";x^2+1
Case2
Print"y=";x-4
Case3
Print"y=";x^3+100
EndSelect
EndSub
2.PrivateSubcommand1_click()
Dima,b,c,d,eAsString
a="ZhengZhou"
b="ZhongYuanGongXueYuan"
c=a+""+b
d=Left(a,1)+Mid(a,7,1)
e=Left(b,1)+Mid(b,12,1)
Printc
Printd;e
EndSub
3.设有Sub过程:
PrivateSubp1(xAsInteger,ByValyAsInteger)
x=4:
y=5:
z=6
EndSub
则如下程序段的运行结果是:
PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
x=1:
y=2:
z=3
Printx,y,z
Callp1(x,y)
Printx,y,z
EndSub
4.PrivateSubcommand1_click()
k=0
Fori=1To3
k=k+1
a=i*i*k
Printa;
Nexti
EndSub
5.PrivateSubcommand1_click()
Dima(5,5)AsInteger
Fori=1To5
Forj=1To5
a(i,j)=i*2+j
Printa(i,j);
Nextj
Nexti
EndSub
6.设有Function过程:
PrivateFunctionf1(b,a)
a=a*a:
b=b*b
f1=a-b
EndFunction
则如下程序段的运行结果是什么?
PrivateSubcommand1_click()
a=4:
b=3
a=f1(a,b)
Printa
EndSub
VB试题答案及评分标准
一、单项选择题(每题1分,共10分)
1.B2.A3.C4.C5.D
6.D7.A8.B9.D10.B
二、填空题(每空1分,共10分)
1.nMod13=0AndnMod17=0
1、对象
3.LEFT(“VisualBasic6.0”,6)
4.6
5.False
6.Autosize
7.:
8.OptionExplict9.ConstDim
三、将下列数学表达式转换成VB表达式(每题1分,共6分)
1、a^2+2*a*b+b^2
2、x^(1/3)*y^(1/4)
3、8*exp(x)*log(10)
4、2*sin(3.1416/4)*cos(3.1416/4)
5、(x+y+z)/sqr(x^2+y^2+z^2)
6、log(1+abs((a+b)/(a-b)))
四、判断题(每题1分,共10分)
1.×2.√3.×4.√5.×
6.√7.×8.×9.×10.√
五、根据题意,将下列程序补充完整(每空1分,共10分)
1.
(1)int(rnd*91)+10
(2)I<10
2.
(1)i*j
(2)nexti
3.
(1)int(sqr(x))或者x-1
(2)flag=1
4.
(1)dimf(15)asinteger
(2)f(I-1)+f(I-2)
六、写出下面程序的输出结果(每题4分,共24分)
1、y=65
2、ZhengZhouZhongYuanGongXueYuan2分
ZZZG2分
3.123
423
4.1827
5.34567
56789
7891011
910111213
1112131415
6.-7
单项选择题判断题填空题编程题
1)下列程序运行后,输出的结果为______。
B=1
Dowhile(b<40)
b=b*(b+1)
Loop
Printb
a)42
b)39
c)6
d)1答案:
A
2)设执行以下程序段时依次输入1、3、5,执行结果为_____。
Dima(4)AsInteger
Dimb(4)AsInteger
ForK=0To2
a(K+1)=Val(InputBox(“请输入数据:
"))
b(3-K)=a(K+1)
NextK
Printb(K)
a)1
b)3
c)5
d)0答案:
A
3)下列程序执行后,变量s的值为______。
DimsAslong,xAsInteger
s=0:
x=1
DoWhile(x<10)
s=s+x
x=x+2
Loop
Prints
a)10
b)25
c)50
d)100答案:
B
4)编写如下事件过程:
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfShift=6AndButton=2Then
Print"Hello"
EndIf
EndSub
程序运行后,为了在窗体上输出"Hello",应在窗体上执行以下_______操作。
a)同时按下Shift键和鼠标左键
b)同时按下Shift键和鼠标右键
c)同时按下Ctrl、Alt键和鼠标左键
d)同时按下Ctrl、Alt键和鼠标右键答案:
D
5)当变量x=2,y=5时,以下程序的输出结果为____。
Dountily>5
x=x*y
y=y+1
loop
printx
a)2
b)5
c)10
d)20答案:
C
6)当执行以下程序时,在名为lblResult的标签框内将显示_____。
PrivateSubcmdlt_click()
DimI,R
R=0
ForI=1To5Step1
R=R+I
NextI
lblResult.Caption=Str(R)
EndSub
a)字符串15
b)整数15
c)字符串5
d)整数5答案:
A
7)如下有一段不完整的程序段,如果要求该程序执行3次循环,则应在程序中的括号里输入______。
X=1
do
x=x+3
printx
loopuntil(___)
a)x>=8
b)x<=8
c)x>=7
d)x<=7答案:
A
8)若整型变量a的值为2、b的值为3,则下列程序段执行后整型变量c的值为______。
Ifa>5then
ifb<4then
c=a-b
else
c=b-a
Endif
elseifb>3thenc=a*b
else
c=amodb
Endif
a)2
b)-1
c)1
d)6答案:
A
9)设有如下语句:
str1=inputbox("输入","","练习")
从键盘上输入字符串“示例”后,str1的值是___。
a)“输入”
b)“”
c)“练习”
d)“示例”答案:
D
10)我们在一个窗体上建立两个文本框,名称分别为Text1和Text2,事件过程如下,
PrivateSubText1_change()
Text2.text=ucase(Text1.text)
EndSub
则在Text1文本框输入“visualbasic”,Text2将______。
a)Text2中无内容显示。
b)Text2显示"VISUALBASIC"。
c)Text2显示"visualbasic"
d)Text1显示"visualbasic"答案:
B
11)下列程序的运行后s的值是_____。
S=0
Forx=99to1Step-2
s=s+x
Nextx
Prints
a)100
b)500
c)2500
d)5000答案:
C
12)下列程序的执行结果是____。
K=0
ForI=1To3
a=I^I^K
printa;
NextI
a)111
b)123
c)000
d)149答案:
A
13)下列程序的执行结果是_____。
Dima(5)AsString
DimbAsInteger
DimIAsInteger
ForI=0To5
a(I)=I+1
Printa(I)
NextI
a)123456
b)6
c)654321
d)0答案:
A
14)下列程序的执行结果为_____。
DimintsumAsInteger
DimIAsInteger
intsum=0
ForI=20.2To5Step-4.7
intsum=intsum+I
NextI
Printintsum
a)150
b)200
c)50
d)0答案:
C
15)下列程序的执行结果为_____。
DimSAsInteger,nAsInteger
S=0:
n=1
DoWhilen<=100
S=S+n
n=n+1
Loop
PrintS
a)5050
b)2500
c)3000
d)4000答案:
A
16)下列程序的执行结果为_____。
A=100:
b=50
Ifa>bThen
a=a-b
Else
b=b+a
Endif
Printa
a)50
b)100
c)200
d)10答案:
A
17)下列程序的执行结果为________。
DimintsumAsInteger
DimIAsInteger
intsum=0
ForI=0To50Step10
intsum=intsum+I
NextI
Printintsum
a)150
b)200
c)50
d)0答案:
A
1、在VisualBasic中,不能进入代码窗口编写代码的说法是:
A)在窗体上单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令
B)双击“工程资源管理器”窗口中的“查看代码”图标
C)执行“视图”菜单中的“代码窗口”命令
D)用鼠标双击窗体标题栏
正确答案是:
D
2、默认情况下,运行程序时在任务栏中窗体有最小化图标,如果要改变默认的图标,需设置窗体的()属性。
A)CaptionB)IconC)MaxButtonD)WindowState
正确答案是:
B
3、将窗体的()属性设置为False后,运行时窗体上的按钮、文本框等控件就不会对用户的操作做出响应。
A)EnableB)VisibleC)ControlBoxD)WindowState
正确答案是:
A
4、如果设计时在属性窗口中,将命令按钮的()属性设置为False,则运行时按钮不起作用。
A)VisibleB)Enabledc)DisablePictureD)Default
正确答案是:
B
5、每建立一个窗体,工程管理器窗口中会增加一个()。
A)工程文件B)窗体文件
C)程序模块文件D)类模块文件
正确答案是:
B
6、不能在运行期间设置窗体的()属性。
A)BordedrStyleB)Caption
C)IconD)Picture
正确答案是:
A
7、系统符号常量的定义可以通过()获得。
A)对象浏览器B)代码窗口C)属性窗口D)工具箱
正确答案是:
A
8、在下面的事件中,窗体能响应的事件是()。
A)ActiveFrom B)Drive
C)Load D)Change
正确答案是:
C
9、下列叙述中正确的是()。
A)同一个事件的名称在不同的程序中可以不同
B)事件是用户定义的
C)对象的事件是不固定的
D)事件是对象能够识别的动作
正确答案是:
D
10、当窗体上添加一个标签控件Label1后,标签控件缺省的Name和Caption属性为()
A)"Label"、"Label1"B)"Label1"、"VisualBasic"
C)"Label1"、"Caption"D)"Label1"、"Label1"
正确答案是:
D
1、下面表达式中,()的运算结果与其它三个不同。
A)Exp(-3.5)B)Int(-3.5)+0.5
C)-Abs(-3.5)D)Sgn(-3.5)-2.5
正确答案是:
A
2、以下()是VisualBasic中合法的函数使用。
A)exp.xB)exp(x)C)cos[x]D)sinx
正确答案是:
B
3、表达式left("Howareyou",3)的值是()
A)HowB)areC)youD)Howareyou
正确答案是:
A
4、表达式right("Howareyou",3)的值是()
A)HowB)areC)youD)Howareyou
正确答案是:
C
5、表达式Mid("ShangHai",6,3)的值是()
A)ShangB)HaiC)SHaD)angH
正确答案是:
B
6、设a="stringfttyhttp",下面的函数值为"http"的是()。
A)mid(a,8,4)B)left(a,4)
C)mid(a,11,4)D)rtrim(a)
正确答案是:
C
7、设a="stringfttyhttp",下面的函数值为"http"的是()。
A)mid(a,8,4)B)left(a,4)
C)mid(a,10,2)D)right(a,4)
正确答案是:
D
8、函数InS
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 选择 整合