按照变量的作用域可将变量划分为()
A.公有、私有、系统
B.全局变量、窗体/模块级变量、局部变量
C.动态、常数、静态
D.Public、Private、Protected
A.公有、私有、系统
B.全局变量、窗体/模块级变量、局部变量
C.动态、常数、静态
D.Public、Private、Protected
第1题
下面程序的输出结果为( )
PrivateSubCommand1_Click()
Dima%(1To5),b%(2To10),i%,t1#,t2#
Fori=1To5
a(i)=i
Nexti
t1=tim(a())
Print"t1=";t1
EndSub
Functiontim(a()AsInteger)
Dimt#,i%
t=1
Fori=LBound( )ToUBound( )
t=t*a(i)
Nexti
tim=t
EndFunction
A.t1=10
B.t1=12
C.t1=120
D.120
第2题
以下程序:
PublicSubSwap1(ByValxAsInteger,ByValyAsInteger)
DimtAsInteger
t=x:x=y:y=t
EndSub
PublicSubSwap2(xAsInteger,yAsInteger)
DimtAsInteger
t=x:x=y:y=t
EndSub
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
a=10:b=20
Swap1a,b
Print"A1=";a,"B1=";b
a=10:b=20
Swap2a,b
Print"A2=";a,"B2=";b
EndSub
当单击命令按钮后,窗体上输出的结果是( )
A.A1=20B1=10A2=10B2=20
B.A1=10B1=20A2=20B2=10
C.A1=10B1=20A2=10B2=10
D.A1=20B1=20A2=20B2=10
第3题
以下程序段:
Functionjishu1(x!,eps#)AsDouble
Dimn%,s#,t#
n=1:s=0:t=1
DoWhile(Abs(t)>=eps)
s=s+t
t=t*x/n
n=n+1
Loop
jishu1=s
EndFunction
Subjishu2(s#,x!,eps#)
Dimn%,t#
n=1:s=0:t=1
DoWhile(Abs(t)>=eps)
s=s+t
t=t*x/n
n=n+1
Loop
EndSub
PrivateSubCommand1_Click()
Dimf1#,f2#
f1=jishu1(2#, 0.000001)
Calljishu2(f2,2#,0.000001)
Print"f1=";f1,"f2=";f2
EndSub
对程序说法正确的是( )
A.计算jishu1是调用子过程,而计算jishu2是调用函数
B.当程序运行单击命令按钮后,窗体中显示的f1和f2的结果不相同
C.当程序运行单击命令按钮后,窗体中显示的f1和f2的结果相同
D.以上说法都不正确
第4题
以下MyReplace函数的功能是将一个字符串(保存在变量S中)中的子字符串(保存在变量
OldS中)用新的字符串(保存在变量NewS中)代替,编写以下程序:
PublicFunctionMyReplace(s$,OldS$,NewS$)AsString
Dimc%,lenOldS%
lenOldS=Len(OldS)
c=InStr(s,OldS)
DoWhilec>0
s=Left(s,c-1)+NewS+Mid(s,c+lenOldS)
c=InStr(s,olds)
Loop
MyReplace=s
EndFunction
PrivateSubCommand1_Click()
dimold,newasstring
old=inputbox("请输入要替换的字符")
new=inputbox("请输入替换后新的字符")
PrintMyReplace("VisualBasic程序设计教程5.0版",old,new)
EndSub
当程序运行单击命令按钮后先后分别输入" 5.0"和" 6.0",程序的运行结果为( )
A."VisualBasic程序设计教程5.0版"
B."VisualBasic程序设计教程6.0版"
C."VisualBasic程序设计教程6版"
D."VisualBasic程序设计教程"
第5题
以下是求三角形面积的程序:
PublicFunctionarea(x!,y!,z!)AsSingle
Dimc!
If(x+y>zAndx+z>yAndy+z>x) And (Abs(x-y))Then
c=1/2*(x+y+z)
area=Sqr(c*(c-x)*(c-y)*(c-z))
Else
MsgBox"你输入的三角形三边不符和三角形组成的条件,请重新输入三边"
EndIf
EndFunction
PrivateSubForm_Click()
Dima!,b!,c!
a=InputBox("输入a"):b=InputBox("输入b"):c=InputBox("输入c")
s1=area(a,b,c)
Print"三角形的面积=";s1
EndSub
以下说法正确的是( )
A.当程序运行时单击窗体后分别输入3,4和5,显示对话框"你输入的三角形三边不符和三角形
组成的条件,请重新输入三边"
B.当程序运行时单击窗体后分别输入3,4和5,输出显示三角形的面积=6
C.当程序运行时单击窗体后分别输入3,4和5,输出显示三角形的面积=6.5
D.以上说法都不正确
第6题
对以下此段程序说法正确的是( )
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimLenstraAsInteger,jAsInteger
DimStraAsString,SAsString*1
S=Chr(KeyAscii)
SelectCaseS
Case"0"To"9",",",".","-"
CaseElse
KeyAscii=0
EndSelect
EndSub
A.S取得的是输入的KeyAscii值
B.若在文本框中输入除了数字0~9,,逗号,负号,小数点之外的其他字符,则能够继续输入
C.若在文本框中输入数字0~9,,逗号,负号,小数点为有效数字串,可以继续输入
D.当KeyAscii=0时可以继续输入
第7题
如下程序:
Dima()AsString
PrivateSubCommand1_Click()
DimtempAsString
DimiAsInteger
temp=Replace(Text1,",,",",")
a=Split(temp,",")
Fori=0ToUBound( )
Printa(i);
Nexti
EndSub程序运行后,在text1中输入字符串"23,,45,6",则单击command1按钮后,显示的结果
为( )
A.23,,45,6
B.23456
C.23,45,6
D.23,,45,6
第8题
在窗体中先建立一个名称为label1的控件数组(它的index属性为0),当执行以下程序段
:
PrivateSubForm_Load()
DimmtopAsInteger,mleftAsInteger,iAsInteger,jAsInteger
mtop=0
Fori=1To8
mleft=50
Forj=1To8
k=(i-1)*8+j
LoadLabel1(k)
Label1(k).BackColor=IIf((i+j)Mod2=0,QBColor(0),QBColor(15))
Label1(k).Visible=True
Label1(k).Top=mtop
Label1(k).Left=mleft
mleft=mleft+Label1(0).Width
Nextj
mtop=mtop+Label1(0).Height
Nexti
EndSub
执行后的效果是( )
A.在窗体中显示16行的黑、白颜色相间的棋盘
B.在窗体中显示8行10列的黑色棋盘
C.在窗体中显示8行8列的黑、白颜色相间的棋盘
D.以上说法都不正确
第9题
在窗体中建立名称为command1的控件数组(index值分别为0,1,2和3),单击它时发生
如下事件:
PrivateSubCommand1_Click(IndexAsInteger)
Picture1.Cls
SelectCaseIndex
Case0
Picture1.Print"画直线"
Picture1.Line(2,2)-(7,7)
Case1
Picture1.Print"画矩形"
Picture1.Line(2,2)-(7,7),,BF
Case2
Picture1.Print"画圆"
Picture1.Circle(4.5, 4.5),3.5,,,,1.4
CaseElse
End
EndSelect
EndSub
当选择index=2的按钮时,在图片框picture1中显示( )
A."画直线"文字和一条直线
B."画矩形"文字和一个矩形
C."画圆"文字和一个椭圆
D.程序运行结束
第10题
编写程序:
OptionBase1
Dimmark()AsInteger
PrivateSubCommand1_Click()
Dimn,sumAsInteger
DimaveAsSingle
n=Val(InputBox("输入学生的个数"))
ReDimmark(n)AsInteger
sum=0
ForI=1Ton
mark(I)=10*I
sum=sum+mark(I)
NextI
ave=sum/n
Printsum;"和";ave
EndSub
单击命令按钮后输入4,则输出的结果为( )
A.60和20
B.30和20
C.11和10
D.100和25
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!