中国石油大学华东VB练习题16周总选择题.docx
- 文档编号:2187960
- 上传时间:2023-05-02
- 格式:DOCX
- 页数:30
- 大小:29.78KB
中国石油大学华东VB练习题16周总选择题.docx
《中国石油大学华东VB练习题16周总选择题.docx》由会员分享,可在线阅读,更多相关《中国石油大学华东VB练习题16周总选择题.docx(30页珍藏版)》请在冰点文库上搜索。
中国石油大学华东VB练习题16周总选择题
1.VisualBasic是一种面向对象的程序设计语言,________不是面向对象系统所包含的三个要素之一
A.变量B.事件C.方法D.属性
正确答案:
A,你的答案:
A, √
∙
∙2.决定控件在窗体中的位置的属性是________
A.EnabledB.Left和TopC.VisibleD.Width和Height
正确答案:
B,你的答案:
B, √
∙
∙3.要判断在文本框中是否按下Enter键,应在文本框的________事件中判断。
A.ChangeB.DblClickC.KeyPressD.Click
正确答案:
C,你的答案:
C, √
∙
∙4.为了在文本框中显示多行文本,可设置其ScrollBars属性为2(垂直滚动条),但同时还需要设置________属性的值为True
A.MultiLineB.TextC.MaxLengthD.Enabled
正确答案:
A,你的答案:
A, √
∙
∙5.下列属性中,标签没有的属性是________
A.NameB.CaptionC.TextD.Width
正确答案:
C,你的答案:
C, √
∙
∙6.下面________是不合法的整型常量。
A.100B.&H100C.&100D.&E100
正确答案:
D,你的答案:
C, ×
∙
∙7.表达式"123"+"100"&200的值是________
A.123300B.423C.223200D.123100200
正确答案:
D,你的答案:
D, √
∙
∙8.可以用来调用Windows中计算器程序的语句是________
A.k=Shell("Calc.exe",1)B.k=Shell(Calc.exe,1)C.Calc.exeD.Shell("Calc.exe",1)
正确答案:
A,你的答案:
A, √
∙
∙9.以下关系表达式中,其值为False的是________。
A."AB">"Ab"B."123"<"23"C."BASIC"=UCase("basic")D."0"<"a"
正确答案:
A,你的答案:
A, √
∙
∙10.下列变量的定义中,不能将变量a定义为变体类型的是________
A.dimaB.dimaasdoubleC.dima,basdoubleD.dimaasvariant
正确答案:
B,你的答案:
B, √
∙
∙11.假设有以下语句x=InputBox("输入数值","0","示例"),,程序运行后,如果从键盘上输入数值10,并按回车后,则下列叙述正确的是________
A.变量的值是数值10B.在InputBox对话框标题栏中显示的是示例C.变量x的值是字符串"10"。
D.0是默认值
正确答案:
C,你的答案:
C, √
∙
∙12.窗体上放置两个文本框和一个命令按钮,并编写如下事件过程:
PrivateSubCommand1_Click()Dimaaslong,baslonga=Text1.Textb=Text2.TextPrinta+b;Text1.Text+Text2.TextEndSub程序运行后,在Text1中输入3,在Text2中输入4,然后单击命令按钮,则输出结果为________
A.734B.77C.347D.3434
正确答案:
A,你的答案:
A, √
∙
∙13.不具备Picture属性的对象是________
A.图片框PictureBoxB.命令按钮CommandButtonC.文本框TextBoxD.窗体Form
正确答案:
C,你的答案:
C, √
∙
∙14.设x为一整型变量,且情况语句的开始为:
SelectCasex,则不符合语法规则的Case子句是( )。
A.Case1To10B.Case0<20<=""code="">C.Case2,3,4D.Casex>20
正确答案:
D,你的答案:
D, √
∙
∙15.现有如下一段程序:
执行程序,在输入框中输入字母"b",则以下叙述中正确的是( )。
PrivateSubCommand1_Click() x=UCase(InputBox("输入:
")) SelectCasex Case"A"To"C" Print"考核通过!
" Case"D" Print"考核不通过!
" CaseElse Print"输入数据不合法!
" EndSelectEndSub
A.程序运行错B.在窗体上显示"考核通过!
"C.在窗体上显示"考核不通过!
"D.在窗体上显示"输入数据不合法!
"
正确答案:
B,你的答案:
A, ×
∙
∙16.在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click() DimaAsString a=InputBox("请输入一个二进制数") n=Len(a) Fori=1Ton Dec=Dec*2+______(a,i,1) Nexti PrintDecEndSub程序功能为:
单击命令按钮,将产生一个输入对话框,此时如果在对话框中输入一个二进制数,并单击"确定"按钮,则把该二进制数转换为等值的十进制数。
这个程序不完整,应在"______"处填入的内容是( )。
A.RightB.MidC.LeftD.Val
正确答案:
B,你的答案:
B, √
∙
∙17.在窗体上画一个名称为Command1的命令按钮,编写如下事件过程:
PrivateSubCommand1_Click() n=0 Fori=0To10 X=2*i-1 IfXMod3=0Thenn=n+1 Nexti PrintnEndSub运行程序,单击命令按钮,则窗体上显示的是( )。
A.5B.1C.7D.3
正确答案:
D,你的答案:
B, ×
∙
∙18.在窗体上画一个名为Command1的命令按钮,然后编写以下程序:
PrivateSubCommand1_Click() DimM(10)AsInteger Fork=1To10 M(k)=12-k Nextk x=8 PrintM(2+M(x))EndSub运行程序,单击命令按钮,在窗体上显示的是( )。
A.5B.7C.6D.8
正确答案:
C,你的答案:
B, ×
∙
∙19.窗体上有1个名称为Command1的命令按钮,事件过程如下:
PrivateSubCommand1_Click() Dimx%,y%,z% x=InputBox("请输入第1个整数") y=InputBox("请输入第2个整数") DoUntilx=y Ifx>yThenx=x-yElsey=y-x Loop PrintxEndSub运行程序,单击命令按钮,并输入2个整数169和39,则在窗体上显示的内容为( )。
A.13B.23C.11D.39
正确答案:
A,你的答案:
A, √
∙
∙20.以下能够正常结束循环操作的程序段是
A.i=5Doi=i+2LoopUntili=1B.i=0DoWhilei<1i=i-2LoopC.i=5Doi=i+1LoopUntili<0D.i=5DoWhilei>0i=i-2Loop
正确答案:
D,你的答案:
D, √
∙
∙21.在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:
PrivateSubCommand1_Click() x=0 DoWhilex<50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x)EndSub程序运行后,单击命令按钮,在两个文本框中显示的值分别为( )。
A.1和0B.2和72C.4和168D.3和50
正确答案:
B,你的答案:
B, √
∙
∙22.窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。
命令按钮的单击事件过程如下:
PrivateSubCommand1_Click()Dimx1AsInteger,x2AsInteger,x3AsIntegers=Trim(Text1.Text)strLen=Len(s)Fori=1TostrLenc=Mid(s,i,1)SelectCasecCase"0"To"9"x1=x1+1Case"A"To"Z"x2=x2+1Case"a"To"z"x3=3+1CaseElsex4=x4+1EndSelectNextPrint"x1";x1,"x2";x2,"x3";x3,"x4";x4EndSub以下关于上述程序的叙述中,正确的是
A.各Case分支条件有误,不能用To表示字符的取值区间B.x4是字符串中非字母、非数字字符的个数C.s是去掉文本框中字符串末尾的空格D.SelectCasec有误,Case后应该是一个表达式
正确答案:
B,你的答案:
B, √
∙
∙23.下面程序计算并输出的是( )。
PrivateSubCommand1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 LoopUntila<=0 PrintsEndSub
A.10!
+…+3!
+2!
+1!
的值B.10个10^3的和C.(1+2+3+…+10)^3的值D.1^3+2^3+3^3+…+10^3的值
正确答案:
D,你的答案:
D, √
∙
∙24.在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:
PrivateSubCommand1_Click() s=0 Fori=1To15 x=2*i-1 IfxMod3=0Thens=s+1 Nexti Label1.Caption=sEndSub程序运行后,单击命令按钮,则标签中显示的内容是( )。
A.5B.45C.27D.1
正确答案:
A,你的答案:
D, ×
∙
∙25.窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:
PrivateSubCommand1_Click()DimsAsDoubles=0:
i=1DoWhilei<6s=s+i/(i+1)i=i+1LoopPrintsEndSub该事件过程的功能是计算一个表达式的值,该表达式是
A.1/2+2/3+3/4+4/5+5/6B.1/2+2/3+3/4+4/5C.1+1/2+2/3+3/4+4/5D.1+1/2+2/3+3/4+4/5+5/6
正确答案:
A,你的答案:
A, √
5.窗体上有一个命令按钮Command1,程序运行时,在该控件上单击,触发下面哪一个的事件________?
A.Command1_Dblclick
B.Command1_Click
C.Command_Dblclick
D.Command_Click
正确答案:
B,你的答案:
D,×
6.下列________关键字表示变体类型。
A.Dim
B.Var
C.Object
D.Variant
正确答案:
D,你的答案:
D,√
14.现有如下语句。
当a=52时,x的值是( )。
x=IIf(a>50,Int(a\3),aMod2)
A.1
B.0
C.17
D.18
正确答案:
C,你的答案:
C,√
15.要求如果x被7除余2,则输出x的值,下列语句中不能实现此功能的语句是( )。
A.Ifxmod7=2ThenPrintx
B.Ifx-(x/7)*7=2ThenPrintx
C.Ifx-(x\7)*7=2ThenPrintx
D.Ifx-Int(x/7)*7=2ThenPrintx
正确答案:
B,你的答案:
B,√
16.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程。
程序运行后,单击命令按钮,在文本框中显示的值是( )。
PrivateSubCommand1_Click()
DimiAsInteger,nAsInteger
Fori=0To50
i=i+3
n=n+1
Ifi>10ThenExitFor
Next
Text1.Text=Str(n)
EndSub
A.3
B.4
C.2
D.5
正确答案:
A,你的答案:
B,×
17.在窗体上画一个名称为Command1的命令按钮,并编写如下事件过程:
PrivateSubCommand1_Click()
x=1
s=0
Fori=1To5
x=x/i
s=s+x
Next
Prints
EndSub
该事件过程的功能是计算()。
A.
B.
C.
D.S=1+2+3+4+5
正确答案:
C,你的答案:
C,√
8.以下能够正常结束循环操作的程序段是
A.i=5
DoWhilei>0
i=i-2
Loop
B.i=5
Do
i=i+1
LoopUntili<0
C.i=0
DoWhilei<1
i=i-2
Loop
D.i=5
Do
i=i+2
LoopUntili=1
正确答案:
A,你的答案:
A,√
20.窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:
PrivateSubCommand1_Click()
DimsAsDouble
s=0:
i=1
DoWhilei<6
s=s+i/(i+1)
i=i+1
Loop
Prints
EndSub
该事件过程的功能是计算一个表达式的值,该表达式是
A.1/2+2/3+3/4+4/5+5/6
B.1+1/2+2/3+3/4+4/5
C.1+1/2+2/3+3/4+4/5+5/6
D.1/2+2/3+3/4+4/5
正确答案:
A,你的答案:
C,×
21.下面程序计算并输出的是( )。
PrivateSubCommand1_Click()
a=10
s=0
Do
s=s+a*a*a
a=a-1
LoopUntila<=0
Prints
EndSub
A.1^3+2^3+3^3+…+10^3的值
B.10个10^3的和
C.10!
+…+3!
+2!
+1!
的值
D.(1+2+3+…+10)^3的值
正确答案:
A,你的答案:
A,√
22.下面的程序是利用公式:
π=4-4/3+4/5-4/7+4/9-4/11+…计算机π的近似值
PvivateSubCommand1_Click()
DimPIAsDouble,xAsDouble,kAsLong,signAsInteger
sign=1
k=1
PI=0
Do
x=sign*4/(2*k-1)
PI=PI+x
k=k+1
sign=________________
LoopUnti1Abs(x)<0.000001
PrintPI
EndSub
在空的处应填写的是( )。
A.-sign
B.k
C.x
D.sign+1
正确答案:
A,你的答案:
A,√
23.设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程:
PrivateSubCommand1_Click()
DimsAsString,chAsString
s=""
Fork=1ToLen(Text1)
ch=Mid(Text1,k,1)
s=ch+s
Nextk
Text1.Text=s
EndSub
程序执行时,在文本框中输入"Basic",然后单击命令按钮,则Text1中显示的是( )。
A.cisaB
B.Basic
C.CISAB
D.BASIC
正确答案:
A,你的答案:
D,×
24.在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimaAsString
a=InputBox("请输入一个二进制数")
n=Len(a)
Fori=1Ton
Dec=Dec*2+______(a,i,1)
Nexti
PrintDec
EndSub
程序功能为:
单击命令按钮,将产生一个输入对话框,此时如果在对话框中输入一个二进制数,并单击"确定"按钮,则把该二进制数转换为等值的十进制数。
这个程序不完整,应在"______"处填入的内容是( )。
A.Right
B.Mid
C.Left
D.Val
正确答案:
B,你的答案:
B,√
25.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
c=1234
c1=Trim(Str(c))
Fori=1To4
Print______
Next
EndSub
程序运行后,单击命令按钮,要求在窗体上显示如下内容:
1
12
123
1234
则在横线处应填入的内容为( )。
A.Right(c1,i)
B.Mid(c1,i,i)
C.Left(c1,i)
D.Mid(c1,i,1)
4.要在水平方向移动窗体中的控件应设置________属性A.LeftB.WidthC.TopD.Height
正确答案:
A,你的答案:
A,√
12.语句Print"A+B=";25执行的结果是________A.A+B=25B."A+B=";25C.出错D.25
正确答案:
A,你的答案:
A,√
13.执行下列语句后,显示输入对话框s=InputBox("请输入学号","学分管理系统","")此时如果不输入任何内容,单击确定按钮后,变量s的内容是________
A."学分管理系统"B.空字符串C.0D."请输入学号"
正确答案:
B,你的答案:
B,√
14.假定有如下情况语句,能表示|X|>5的Case子句是SelectCaseX
A.CaseNot(-5To5)B.Case5To-5C.CaseIs<-5,Is>5D.CaseAbs(X)>5
B.正确答案:
C,你的答案:
D,×
17.编写如下程序:
PrivateSubCommand1_Click()
DimmAsInteger,nAsInteger
m=1:
n=0
DoWhilem<20
n=m+n
m=3*m+1
Loop
Printm,nEndSub程序运行后,单击命令按钮Command1,输出结果为( )。
A.4019B.2164C.2064D.40
正确答案:
D,你的答案:
D,√
8.窗体上有1个名称为Command1的命令按钮,事件过程如下:
PrivateSubCommand1_Click()
Dimx%,y%,z%
x=InputBox("请输入第1个整数")
y=InputBox("请输入第2个整数")
DoUntilx=y
Ifx>yThenx=x-yElsey=y-x
Loop
PrintxEndSub运行程序,单击命令按钮,并输入2个整数169和39,则在窗体上显示的内容为( )。
A.11B.23C.13D.39
正确答案:
C,你的答案:
C,√
19.下面程序计算并输出的是( )。
PrivateSubCommand1_Click()
a=10 s=0
Dos=s+a*a*a a=a-1 LoopUntila<=0 Prints
EndSub
A.10!
+…+3!
+2!
+1!
的值B.(1+2+3+…+10)^3的值C.10个10^3的和D.1^3+2^3+3^3+…+10^3的值正确答案:
D,你的答案:
D,√
20.有如下程序:
PrivateSubForm_Click()
DimSAsString
S=InputBox("请输入一个字符串:
")
Fori=1ToLen(S)\2
IfMid(S,i,1)<>Mid(S,Len(S)-i+1,1)ThenPrint"No"
ExitSub
EndIf
Nexti
Print"Yes"EndSub
运行程序,单击窗体,在输入对话框中输入abcscba,则输出结果为
A.YesB.abcC.cbaD.No
B.正确答案:
A,你的答案:
A,√
22.设有如下事件过程:
PrivateSubForm_Click()
x=0
DoWhilex<10
x=x+1
x=x*x
Loop
PrintxEndSub运行程序,单击窗体,输出结果是
A.25B.16C.19D.20
正确答案:
A,你的答案:
A,√
23.为计算1+2+2^2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 中国 石油大学 华东 VB 练习题 16 选择题