vb题库及答案docx.docx
- 文档编号:7907592
- 上传时间:2023-01-27
- 格式:DOCX
- 页数:32
- 大小:23.38KB
vb题库及答案docx.docx
《vb题库及答案docx.docx》由会员分享,可在线阅读,更多相关《vb题库及答案docx.docx(32页珍藏版)》请在冰豆网上搜索。
vb题库及答案docx
最新VB题库及答案
一、选择题
第1部分
1、在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1
的命令按钮,然后编写一个事件过程。
程序运行后,如果在文本框中输入一个字
符,则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事
件过程是
A、PrivateSubText1_Change()
="计算机等级考试"EndSub
B、PrivateSubCommand1_Click()
Caption="计算机等级考试"
EndSub
C、PrivateSubForm_Click()
="计算机等级考试"EndSub
D、PrivateSubCommand1_Click()
="计算机等级考试"EndSub
2、在一行内写多条语句时,每个语句之间用()符号分隔。
A、,B、:
C、.D、;
3、下面()是合法的变量名。
A、X_YZB、123ABCC、INTEGERD、X-Y
4、下面()是合法的字符常量。
A、ABC$B、“ABC”C、‘ABC’D、ABC
5、表达式16/4-2^5*8MOD5\2的值为()。
A、14B、4C、20D、2
6、设a=”MicrosoftVisualBasic”,则以下使变量的b值为”VisualBasic”的
语句是
A、b=Left(a,10)B、b=Mid(a,10)
C、b=Right(a,10)D、b=Mid(a,11,10)
7、设a="a",b="b",c="c",d="d",执行语句x=IIf((ad),"A",
"B")后,x的值为
A、"a"B、"b"C、"B"D、"A"
8、在窗体上画一个文本框,然后编写如下事件过程:
PrivateSubForm_Click()
x=InputBox("请输入一个整数")
Printx+
EndSub
程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单
击“确定”按钮后,在窗体上显示的内容为
A、123B、456C、579D、123456
9、在BASIC中,三个逻辑运算符NOT,AND,OR在运算过程中,优先级从高到低
的顺序是()。
A、AND->NOT->ORB、NOT->AND->OR
C、OR->NOT->ANDD、NOT->OR->AND
10、下面程序段运行时内层循环的循环总次数()。
FORX=1TO2
FORY=1TOX
NEXTY
NEXTX
A.、1B、2C、3D、4
11、在VB中,复写框(Check)的Value值有三种,分别是(
)。
A、-1,0,1
B、0,1,2
C、1,2,3
D、True,False,0
12、若要退出
For
循环,可使用的语句为(
)。
A、Exit
B
、ExitDo
C
、Time
D、ExitFor
13、利用VB设计程序的基本步骤可分四步:
(1)设计用户界;
(2)();(3)运行调试程序;(4)生成执行文件。
A、编写代码B、设计算法C、信息反馈D、系统集成
14、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写
形式是()
A、“时钟”B、=“时钟”
C、Caption=“时钟”D、(“时钟”)
15、保存文件时,窗体的所有数据存储格式为()
A、*.PRGB、*.FRMC、*.VBPD、*.EXE
16、在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在
属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False。
程序运行后,如果单击命令按钮,则每隔一秒中在文本框中显示一次当前的时间。
以下是实现上述操作的程序:
PrivateSubCommand1_Click()
EndSub
PrivateSubTimer1_Timer()
=Time
EndSub
在_____处应填入的内容是
A、Enabled=True
B、Enabled=FalseC
、Visible=TrueD
、Visible
=False
17、把窗体的KeyPreview属性设置程为True,然后编写如下事件过程PrivateSubForm_KeyPress(KeyAsciiAsInteger)
DimchAsString
ch=Chr(KeyAscii)
KeyAscii=Asc(UCase(ch))
PrintChr(KeyAscii+2)
EndSub
程序运行后,按键盘上的“A“键,则在窗体上显示的内容是
A、AB、BC、CD、D
18、VB中的变量如果没有显示声明其数据类型,则默认为()
A、日期型B、数据型C、字符型D、变体型
19、在VB中,通过改变列表框(
A、ListB、(名称)
)属性的值C、Caption
,可以为列表框添加项目。
D、Text
20、已知A$=”12345678”,则表达式Val(left$(a$,4)+Mid$(a$,4,2))的值为
()。
A、12345B、123445C、8D.6
21、下面程序段显示的结果是()。
Dimx
Ifxthenprintxelseprintx+1
A、1B、0C.、-1D、显示出错信息
22、用来测试指定文件结束状态的函数是()
A、EofB、FreeFileC、LocD、Open
23、当Long类型数据与Single类型运算时,运算结果的类型为()。
A、IntegerB、LongC、SingleD、Double
24、某一VB工程含F1、F2两个窗体,执行“F1.Show:
F2.Hide”语句后,F1、
F2窗体显示的结果为()。
A、都显示B、都不显示C、仅显示F1窗体D、仅显示F2窗体
25、数学关系3=〈x〈10表示成正确的VB表达式为()
A、3〈=x〈10B、3=〈xANDx〈10
C、x〉=3ORx〈10D、3〈=xAND〈10
26.在窗体上画一个名称为Label1的标签,然后编写如下事件过程:
PrivateSubForm_Click()Dimarr(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=2To4
Forj=2To4arr(i,j)=i*j
Nextj
Nexti
=Str(arr(2,2)+arr(3,3))EndSub
程序运行后,单击窗体,在标签中显示的内容是
A、12B、13C、14D、15
27.在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目,当单击列表框中某个项目时,在标签中显示被选中项目的名
称。
下列能正确实现上述操作的程序是
A、PrivateSubList1_Click()
=
EndSub
B、PrivateSubList1_Click()
=
EndSub
C、PrivateSubList1_Click()
=
EndSub
D、PrivateSubList1_Click()
=
EndSub
28、设a=5,b=4,c=3,d=2,下列表达式的值是
3>2*bOra=cAndb<>cOrc>d
A、1B、TrueC、FalseD、2
30、下列操作不能打开代码窗口的是()
A、选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令
B、选中对象,双击鼠标左键
C、按F7键
D、按F4键
第2部分
1、VB语言的语法规定,多条语句放在同一行中,语句之间用()分隔。
A、逗号B、冒号C、分号D、单引号
2、在VB中,执行“A=18MOD4”语句后,A的值为()。
A、2B、4C、6D、8
3、A为True,B为A、TrueTrueB
False,则“AandB”和“AOr
、TrueFalseC、FalseTrue
B”的值分别是(D、FalseFalse
)。
4、在VB中,执行“DimA,BAsString”语句后,A,B的数据结构为()。
A、整型数B、实型数C、字符型D、字节型
5、在VB中,执行“A=123:
B=Str$(A)”语句后,B的数据结构为()。
A、整型数、B、字节型C、实型数D、字符型
6、在VB中,复写框(Check)的Value值有三种,分别是()。
A、-1,0,1B、0,1,2C、1,2,3D、True,False,0
7、若要退出
For
循环,可使用的语句为(
)。
A、ExitB
、ExitDoC
、Time
D、ExitFor
8、利用VB设计程序的基本步骤可分四步:
(1)设计用户界;
(2)();(3)运行调试程序;(4)生成执行文件。
A、编写代码B、设计算法C、信息反馈D、系统集成
9、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形
式是(
)
A、
aption
“时钟”
B、
=“时钟”
C、Caption=“时钟”
D
、
(
“时钟”)
10、保存文件时,窗体的所有数据存储格式为()。
A、*.PRGB、*.FRMC、*.VBPD、*.EXE
11、窗体初始化程序应写在()事件中。
A、LoadB、UnloadC、ActivateD、GotFocus
12、某一VB工程含F1、F2两个窗体,执行“F1.Show:
F2.Hide”语句后,F1、
F2窗体显示的结果为()。
A、都显示B、都不显示C、仅显示F1窗体D、仅显示F2窗体
13、VB的数据类型分为()
A、数值型、字符型、布尔型、日期型B、数值型、字符型、对象型、日期型
C、基本类型、扩展类型D、整型、实型、字符型、日期型、布尔
型
14、VB中的变量如果没有显示声明其数据类型,则默认为()
A、日期型B、数据型C、字符型D、变体型
15、在VB中,通过改变表框(
A、ListB、(名称)C
)属性的值,可以为列表框添加项目。
、CaptionD、Text
16、在VB中,三个逻辑运算符NOT,AND,OR在运算过程中,优先级从高到低的
顺序是(
)。
A、AND->NOT->OR
B、
NOT->AND->OR
C、
OR->NOT->AND
D、
NOT->OR->AND
17、下面程序段运行时内层循环的循环总次数()。
FORX=1TO2
FORY=0TOX-1
NEXTY
NEXTX
A、1B、2C、3D、4
18、正确的算术表达式是()。
A、-3/8+5\B、8*3/5
C、[(X+Y)*Z]/30
D、(X^2+Y/3)*X3
19、若A=2,B=3,C=4,则值为真的关系式是()。
A.12/A+2=B^2B、3>2*BORA=CANDB>CORA>B
C、A>BANDB<=COR3*A>CD、A*B>C+3
20、当Long类型数据与Single类型运算时,运算结果的类型为
()。
A、IntegerB、LongC、SingleD、Double
21、下面关于顺序文件的描述正确的是()。
A.每条记录长度必须相同
B.可通过编程对文件中的某条记录方便的修改。
C.数据只能以ASCII码形式存放在文件中,所以可通过文本编辑软件显示。
D.文件的组织结构复杂。
22、下列()不属于VB的控件。
A、窗体B、数据C、形状D、直线
23、下面()是合法的变量名。
A、X_YZB、123+ABCC、INTEGERD、X-Y
24、下面的程序段,输入9后,输出结果是()。
X=inputbox(“输入一个数”)
Selectcasex
Case1to5
Y=-1
Case5to10
Y=0
Case10to15
Y=1
Endselect
A、0B、1C、-1D、2
25、下列说法中正确的是()。
A、数组只具有数组名,而没有数组类型
B、数组只具有数组类型,而没有数组名
C、数组的类型和数组元素的类型不同
D、数组和变量一样,都有名称和类型这两种属性
26、创建公用数组的方法是()。
A、在模块中用Private语句声明
C、在过程中用Private语句声明
B、在模块中用
D、在过程中用
PublicPublic
语句声明
语句声明
不是
B就是
D
27、VisualBasic
A、传值B
中缺省的参数传递机制是()。
、传地址C、传值和传地址
D、从实参到形参
28、已知
A$=”12345678”,则表达式
Val(left$(a$,4)+Mid$(a$,4,2))
的值为
(
)。
A、
12345
B、123445
C、8
D、
6
29、下面正确的赋值语句是()
A、x+y=30B、y=*r*rC、y=x+30D、3y=x
30、要保留动态数组原有的内容,应当使用()语句。
A、RedimPreserve
B
、
Redim
C、Dim
C
、
Public
不是
A就是
B
二、填空题(每空2分,共20分)
1、下面的程序是求100以内奇数和s的值(S=1+3+5+7...+99)。
请在有()的地
方填上适当的语句或表达式。
(8分)
PrivateSubCommand1_Click()
DimsAsSingle
DimiAsSingle
s=(0
)
Fori=1to100
(step2
)
S=
(
s+i
)
(nexti
)
Prints
EndSub
2、在下列程序的()内写上适当的内容,使能输出如下图形。
*
**
***
****
*****
******
程序如下:
PrivateSubCommand1_Click()
Fori=1to
(
6
)
Forj=1to
(
i-6
)
(“*”
)
Nextj
(PrintString(i,"*")
Nexti
EndSub
)
3、写出下列程序的执行结果
PrivateSubForm_Click()
Dima(1To10)AsInteger
Dimb(1To10)AsInteger
Dimc(1To10)AsInteger
Fori=1To10
a(i)=i
Nexti
b
(1)=10
Forj=9To1Step-1
b(10-j+1)=j
Nextj
Fork=1To10
c(k)=a(k)+b(k)
Nextk
Forl=1To10
Printc(l);
Ifl=5Then
EndIf
Nextl
EndSub
结果:
1111111111
1111111111
4、在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
PrivateSubForm_Click()
="VB程序设计"
EndSub
PrivateSubText1_Change()
"VBProgramming"
EndSub
程序运行后,单击窗体,在文本框显示的内容是__VB程序设计____,而在图
片框显示的内容是__VBProgramming____。
5、下列程序输出的值是多少?
PrivateSubCommand1_Click()
s=0
Fori=9To42Step11
s=s+i
Nexti
Ifi>50Then
s=s+i
Else
s=s-i
EndIf
Prints
EndSub
结果是:
_______155_________。
6、设有如下程序:
PrivateSubForm_Click()
DimaAsInteger,sAsInteger
n=8
s=0
Do
s=s+n
n=n-1
LoopWhilen>0
Prints
EndSub
以上程序的功能是计算1到8的累加。
程序运行后,单击窗体,输出结果为_36___。
7、设有如下程序:
用Array函数建立一个含有8个元素的数组,然后查找并输
出该数组中各元素的最小值。
OptionBase1
PrivateSubCommand1_Click()
Dimarr1
DimMinAsInteger,iAsInteger
arr1=Array(12,435,76,-24,78,54,866,43)
Min=arr1
(1)
Fori=2To8
Ifarr1(i) Nexti Print"最小值是: ";min EndSub 8、在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: 以下程序 的功能是,把磁文件的内容到内存并在文本框中示出来,然后把文本 框中的内容存入磁文件。 PrivateSubForm_Click() Open"d: \test\"ForInputAs#1 DoWhileNoteof (1) LineInput#1,aspect$ whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop =whole$ Close#1 Open"d: \test\"ForOutputAs#1 Print#1, Close#1 EndSub 三、程序 1、写一个函数算1*2*⋯*n的,函数名fact() PrivateFunctionfact(nAsInteger)AsInteger DimiAsInteger DimrAsInteger r=1 Fori=1Ton r=r*i Nexti fact=r EndFunction EndSub 2、写一个程,求成1*2*3*⋯*N的,程名NA。 3、新建一个窗体,程序运行,当用鼠窗体任一地方,程序出Inputbox()函数入框。 当完15个整数后,程序把入的15个整数分3行在窗体上示,每行5个整数。 提:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 题库 答案 docx