题目内容（请给出正确答案）

[单选题]

以下程序段：Functionjishu1(x!,eps#)AsDoubleDimn%,s#,t#n=1:s=0:t=1DoWhile(Abs(t)＞=eps)s=s+tt=tx/nn=n+1Loopjishu1=sEndFunctionSubjishu2(s#,x!,eps#)Dimn%,t#n=1:s=0:t=1DoWhile(Abs(t)＞=eps)s=s+tt=tx/nn=n+1LoopEndSubPrivateSubCommand1_Click()Dimf1#,f2#f1=jishu1(2#, 0.000001)Calljishu2(f2,2#,0.000001)Print"f1=";f1,"f2=";f2EndSub对程序说法正确的是()

A.计算jishu1是调用子过程，而计算jishu2是调用函数

B.当程序运行单击命令按钮后，窗体中显示的f1和f2的结果不相同

C.当程序运行单击命令按钮后，窗体中显示的f1和f2的结果相同

D.以上说法都不正确

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“以下程序段：Functionjishu1（x!,eps#)A…”相关的问题

第1题

以下MyReplace函数的功能是将一个字符串(保存在变量S中)中的子字符串(保存在变量OldS中)用

以下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程序设计教程"

点击查看答案

第2题

以下是求三角形面积的程序：PublicFunctionarea(x!,y!,z!)AsSingleDimc!If(x＋y>zAndx＋z&

以下是求三角形面积的程序：

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.以上说法都不正确

点击查看答案

第3题

对以下此段程序说法正确的是( )PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimLenstraA

对以下此段程序说法正确的是( )

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时可以继续输入

点击查看答案

第4题

如下程序：Dima()AsStringPrivateSubCommand1_Click()DimtempAsStringDimiAsIntegertemp=Re

如下程序：

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

点击查看答案

第5题

在窗体中先建立一个名称为label1的控件数组(它的index属性为0)，当执行以下程序段：PrivateS

在窗体中先建立一个名称为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.以上说法都不正确

点击查看答案

第6题

在窗体中建立名称为command1的控件数组(index值分别为0，1，2和3)，单击它时发生如下事件：Pri

在窗体中建立名称为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.程序运行结束

点击查看答案

第7题

编写程序：OptionBase1Dimmark()AsIntegerPrivateSubCommand1_Click()Dimn,sumAsIntegerDim

编写程序：

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

点击查看答案

第8题

不属于程序设计的三大基本结构的是( )A.顺序结构B.选择结构C.循环结构D.递归结构

不属于程序设计的三大基本结构的是( )

A.顺序结构

B.选择结构

C.循环结构

D.递归结构

点击查看答案

第9题

语句S1、S2和S3按照下面的属性执行：先执行语句S1，再执行语句S2，最后执行语句S3，则这样的执

行顺序属于编程中的( )

A.顺序结构

B.选择结构

C.循环结构

D.嵌套结构

点击查看答案

第10题

VB提供控件的窗口是( )A.工具栏B.文本框C.工具箱D.属性窗

VB提供控件的窗口是( )

A.工具栏

B.文本框

C.工具箱

D.属性窗

点击查看答案

热门考试全部 >

2022年威海市专业技术人员继续教育公需科目考试试题及答案 2022年绵阳市专业技术人员继续教育公需科目考试试题及答案 2022年宜宾市专业技术人员继续教育公需科目考试试题及答案 2022年潍坊市专业技术人员继续教育公需科目考试试题及答案 2022年浙江省专业技术人员继续教育公需科目考试试题及答案 2022年河南省执业药师继续教育公需科目考试试题及答案 2022年自贡市专业技术人员继续教育公需科目考试试题及答案 2022年陕西省专业技术人员继续教育公需科目考试试题及答案 2022年江西省专业技术人员继续教育公需科目考试试题及答案 2022年吉林省专业技术人员继续教育公需科目考试试题及答案

相关试卷全部 >

安徽省普通专升本《大学英语》真题（2024年） 2024年电工高级技师（一级）理论考试模拟试卷（十）2024年电工高级技师（一级）理论考试模拟试卷（九）2024年电工高级技师（一级）理论考试模拟试卷（八）2024年电工高级技师（一级）理论考试模拟试卷（七）2024年电工高级技师（一级）理论考试模拟试卷（六）2024年电工高级技师（一级）理论考试模拟试卷（五）2024年电工高级技师（一级）理论考试模拟试卷（四）2024年电工高级技师（一级）理论考试模拟试卷（三）2024年电工高级技师（一级）理论考试模拟试卷（二）

谢谢您的反馈

您认为本题答案有误，我们将认真、仔细核查，
如果您知道正确答案，欢迎您来纠错

开始纠错>>>

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“上学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

上学吧

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反上学吧购买须知被冻结。您可在“上学吧”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

上学吧

点击打开微信