南工大期末.docx
《南工大期末.docx》由会员分享,可在线阅读,更多相关《南工大期末.docx(20页珍藏版)》请在冰豆网上搜索。
南工大期末
VisualBasic是一种面向__D___的程序设计语言。
A、过程
B、用户
C、工程
D、对象
VisualBasic是用于开发__B___环境下的应用程序的工具。
A、UNIX
B、Windows
C、DOS
D、DOS和Windows
在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体中的窗口、属性窗口外,必不可少的
窗口是______B______。
A、立即窗口
B、代码窗口
C、窗体布局窗口
D、监视窗口
只有当一个对象的__B___和_____属性为True时,它才能获得焦点。
A、Enabled;Caption
B、Enabled;Visible
C、Visible;Name
D、Visible;Caption
如果单击一个当前没有被选中的复选框,其他已被选中的复选框会处于__B___状态。
A、不显示
B、选中
C、禁止
D、不选中
要使某控件在运行时不可显示,应对___B__属性进行设置。
A、BackColor
B、Visible
C、Caption
D、Enabled
窗体Form1的名称属性是frm,它的Load事件过程名是__D___。
A、frm_Load
B、Me_CmdOK
C、Form-Load
D、Form_Load
使用__B___方法,可取得列表框中的项数。
A、RemoveItem
B、ListCount
C、AddItem
D、Clear
对于一个含有计时器控件的窗体,每经过一段由___A__属性指定的时间间隔,就会产生一个Timer事件。
A、Interval
B、Enabled
C、Name
D、Caption
Picture控件AutoSize属性设置为__D___,在运行时当往图片框加载或复制图片时,VB会自动扩展该控件
到恰好显示整个图片为止。
A、False
B、3
C、无
D、True
下列不正确的变量名是___A_____。
A、Arry@
B、Text
C、Command
D、Form
一句语句要在一行继续写,用_____C_______符号作为续行符。
A、…
B、+
C、_
D、&
以下各项中,______B______不是一个合法的字符串。
A、"等级考试"
B、#Basic#
C、""
D、"Visual"
己知A="12345678",则表达式Val(Left(A,4)+Mid(A,4,2))的值为_______B_____。
A、49
B、123445
C、1279
D、123456
下列没有类型说明符的变量是____B_____。
A、货币型
B、日期型
C、字符串型
D、长整型
下面_______B_____是合法的单精度型变量。
A、sum%
B、num!
C、xinte$
D、mm
在程序中分别将变量Inta、Bl、St、D定义为整型、布尔型、字符串型和日期型,下列赋值语句在执行
时会出错的是___A_____。
A、Bl=#True#
B、Inta=4.6
C、D=#10/05/01#
D、St=5&123.5
如果将布尔常量False赋值给一个整形变量,则整型变量的值为_______A_____。
A、0
B、-1
C、False
D、True
表达式16/4-2^5*8/4MOD5/2的值为_____D_______。
A、2
B、14
C、20
D、4
以下说法不正确的是_____C_______。
A、Val()函数用来把自变量字符串转换为数值
B、Log()函数产生一个0-1之间的单精度浮点数
C、Chr$()函数的作用是把自变量表达式的值转换为相应的ASCII码
D、Rnd()函数产生一个0-1之间的单精度浮点数
以下语句的输出结果是____C________。
printFormat(3678.234,"000,000,000")
A、003,678.23
B、000,003.678
C、000,003,678
D、003,678,234
在文本框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
在窗体(Name属性为Fomal)上画两个文本框(Name属性分别为Fext1和Text2)和一个命令按钮
(Name属性为Command1),程序如下。
执行后结果为__C___。
PrivateSubCommand1_Click()
a=Text1.Text+Text2.Text
Printa
EndSub
PrivateSubForm_load()
Text1.Text="123"
Text2.Text="321"
EndSub
A、132231
B、444
C、123321
D、321123
有如下程序:
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
执行以下程序段,在窗体上显示的结果是__A___。
PrivateSubForm_Click()
DimSAsString,iAsInteger
S="ab"
Fori=Len(S)To1Step-1
PrintChr(Asc(Mid(S,i,1))+i)
NextI
EndSub
A、db
B、cb
C、cc
D、fd
下面程序的运行结果是___D__。
PrivateSubCommand1Click()
x=1:
y=1
Fori=1TO3
x=x+y:
y=y+x
Nexti
Printx;y
EndSub
A、3435
B、58
C、66
D、1321
以下___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
在窗体Form1上,有一个图片控件Picture1和命令按钮控件Command1,在窗体的Command1_Click事件中
有如下代码:
PrivateSubCommand1_Click()
DimxAsInteger
Dims1AsString,s2AsString
s1="ABCDE"
Forx=1ToLen(s1)
s2=Lcase(Mid(s1,x,1))&x
Picture1.Prints2
Nextx
EndSub
运行此程序后在窗体的第4行为__C___。
A、d2
B、b4
C、d4
D、b2
程序代码如下,当单击窗体上Command1控件时,窗体上显示的结果是____B_____。
OptionBase1
PrivateSubCommand1_Click()
DimiAsInteger
Dimx(3,3)AsInteger
Fori=1To3
Forj=1To3
x(i,j)=(i-1)*3+j
Nextj
Nexti
Fori=1To3
Printx(i,4-i)
Nexti
EndSub
A、147
B、357
C、369
D、159
阅读下列程序,其输出的结果是____D____。
PrivateSubCommand1_Click()
Dima(1To3)AsInteger
Fori=1To3
a(i)=i
Nexti
Callsub1(a)
Fori=2To3
Printa(i)
Nexti
EndSub
PublicSubsub1(a()AsInteger)
Fori=1To3
a(i)=i*I
NextI
End
A、12
B、14
C、23
D、49
当发生Command1_Clik事件后,下列程序的输出结果是_____C_______。
DimiAsInteger
Dima(10)AsInteger
Fori=9To0Step-1
a(i)=10+I
NextI
Printa
(2);a(5);a(8)
A、741
B、852
C、121518
D、369
下列程序的输出结果是______B______。
DimiAsInteger,kAsInteger
Dima(10)AsInteger,p(3)AsInteger
k=5
Fori=0To9
a(i)=i
Nexti
Fori=0To2
p(i)=a(i*(i+1))
Nexti
Fori=0To2
k=k+p(i)*2
NextI
Printk
A、23
B、21
C、22
D、17
某过程的说明语句中,正确的数组说明语句是_____B_______。
ConstNasinteger=4DimLasinteger①.DimX(L)AsInteger②.DimA(K)AsInteger
ConstKAsInteger=3③.DimB(N)AsInteger④.DimY(2000To2008)AsInteger
A、②③
B、③④
C、①②④
D、①③④
对窗体编写如下代码:
OptionBase1
PrivateSubCommand1_Click()
a=Array(237,126,87,48,498)
m1=a
(1)
m2=1
Fori=2To5
Ifa(i)>m1Then
m1=a(i)
m2=i
EndIf
Nexti
Printm1;m2
EndSub
程序运行后,按回车键,输出结果为_____C____。
A、4984
B、484
C、4985
D、2371
在窗体模块的通用声明处有如下语句,会产生错误的语句是__B_。
①ConstaasInteger=25
②PublicStAsString*8
③ReDimB(3)AsInteger
④DimConstXAsInteger=10
A、①③
B、②③④
C、①②③
D、①②
在Cmdl_C1ick事件中有效的地址传递的调用语句是___B_____。
PublicSubFl(n%)
n=3*n+4
EndSub
PrivateSubCmdl_Click()
Dimn%,m%
n=3:
m=4
…'调用F1语句
EndSub
A、F1m+5
B、F1m
C、F1n+m
D、F15
在窗体模块的通用声明处有如下语句,会产生错误的语句是____A________。
①ConstAAsInteger=25②PublicStAsString*8③ReDimB(3)AsInteger④DimConstXAsInteger=10
A、②③④
B、①③
C、①②
D、①②③
在参数传递过程中,使用关键字______D__________来修饰参数,可以使之按值传递。
A、Value
B、ByRef
C、Reference
D、ByVal
Sub过程和Function过程最根本的区别是________A________。
A、Sub过程的过程名不能返回值,而Function过程能通过过程名返回值
B、Function过程可以有参数,Sub过程不可以
C、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以
D、两种过程参数的传递方式不同
调用由语句PrivateSubConvert(YAsInteger)定义的Sub过程时,以下不是按值传递的语句是_____D_______。
A、Convert(X)
B、CallConvert(X*1)
C、CallConvert((X))
D、ConvertX
设有下列程序代码,在单击命令按钮时的输出结果是___A_____。
SubSS(ByValx,ByRefy,z)
x=x+1
y=y+1
z=z+1
EndSub
PrivateSubCommand1_Click()
A=1:
B=2:
C=3
CallSS(A,B,C)
PrintA,B,C
EndSub
A、134
B、224
C、133
D、123
如下程序,运行的结果是______A______。
PublicFunctionpi!
(x!
n%)
Ifn=0Then
pi=1
ElseIfnMod2=1Then
pi=x*pi(x,n\2)
Else
pi=pi(x,n\2)\x
EndIf
EndFunction
PrivateSubCommand1_Click()
Printpi(3,7)
EndSub
A、27
B、14
C、18
D、7
要想在过程调用后返回两个结果,下面的过程定义语句合法的是___D____。
A、SubProcl(ByValn,ByValm)
B、SubProcl(ByValn,m)
C、SubProcl(n,ByValm)
D、SubProcl(n,m)
Sub过程和Function过程最根本的区别是_______C_________。
A、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以
B、Function过程可以有参数,Sub过程不可以
C、Sub过程的过程名不能返回值,而Function过程能通过过程名返回值
D、两种过程参数的传递方式不同
在窗体上画一个名称Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:
PrivateSubCommand1_Click()
Dimx,y,zAsInteger
x=5:
y=7:
z=0
Text1.Text=""
Callp1(x,y,z)
Text1.Text=Str(z)
EndSub
PrivateSubp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)
c=a+b
EndSub
程序运行后,如果单击命令按钮,则在文本框中显示的内容是__A______。
A、12
B、没有显示
C、Str(z)
D、0
使用PublicConst语句声明一个全局的符号常量时,该语句应放在______A______。
A、标准模块的通用声明段
B、过程中
C、窗体模块的通用声明段
D、窗体模块或标准模块的通用声明段
若整型实参x、y的值分别为48、28,则引用以下function过程的返回值是___D_____。
PrivateFunctionf(ByValm%,ByValn%)AsInteger
Do
r=mModn
m=n
n=r
LoopWhiler<>0
f=m
EndFunction
A、都不是
B、2
C、1
D、4
KILL语句在VB语言中的功能是______A______。
A、删除磁盘上的文件
B、清屏幕
C、清病毒
D、清内存
改变目录列表框(DirListBox)控制的Path属性的途径可以有____C____。
①单击目录列表框某一项。
②程序代码中改变目录列表框的Path属性值。
③双击目录列表框某一项。
④在程序中用ChDir命令设置当前工作目录。
A、①②③④
B、②③④
C、①②
D、②③
顺序访问适用于普通的文本文件,文件中的数据是以_____C_______方式储存的。
A、数组
B、二进制数
C、ASCII码
D、Boolean
[题目]求100以内的所有的完数。
所谓完数是指所有因子(含1,不含本身)之和等于它本身的数。
例如:
6=1+2+3
【编程要求】
1、单击"计算"按钮,则将计算结果显示在列表框List1中;单击"清除"按钮,则清除列表框中的内容;单击"结束"按钮,程序停止运行。
2、界面应与给出的参考界面相似,不得增加或减少控件。
【参考代码】
sum=0
Forx=2To100
Fori=1Tox-1
IfxModi=0Thensum=sum+i
Nexti
Ifsum=xThenList1.AddItemCStr(x)
sum=0
Nextx
[题目]随机生成一个由两位随机整数构成的5行5列的矩阵,求该矩阵中所有不靠边元素之和。
[编程要求]
程序中有一个过程sum(),该过程的功能是求一个数组的不靠边元素之和。
完成此函数的功能
【参考代码】
DimiAsInteger,jAsInteger
Fori=LBound(b)+1ToUBound(b)-1
Forj=LBound(b)+1ToUBound(b)-1
sum=sum+b(i,j)
Nextj
Nexti