vb解析算法及程序实现.pdfVIP

-

3.1解析算法及程序实现

1.计算长方体体积的算法描述如下：

①输入长方体的长(z)、宽(w)、高(h)

②计算长方形体积v=z*w*h

③输出结果

④完毕

上述算法属于〔〕

A.枚举算法B.排序算法C.解析算法D.递归算法

2.以下问题适合用解析算法求解的是〔〕

A.将十三纸牌按从小到大进展排列

B.统计100偶数的各位数字之和恰好为10的个数

C.计算一辆车行驶100公里的油耗

D.寻找本年级身高最高的同学

3.有如下问题：

12

①圆锥的半径r和高度h，使用公式V=πrh求出此圆锥体的体积。

3

②班级每位同学的其中成绩总分s，按照s的值从大到小进展成绩排名。

③圆的周长s，利用公式r=s/(2*3.14)求出圆的半径。

④“水仙花数〞的定义，找出1～10000围所有的水仙花数。

用计算机解决上述问题时，适合用解析算法的是〔〕

A.①②B.①③C.③④D.②④

4.出租车计价规则：3公里以，10元；超出3公里每公里增加2元。假定公里

数为*,金额为y.解决此问题的公式和流程图如以下图所示：

.z.

-

流程图加框处局部的算法属于：

〔〕

A.解析算法B.排序算法C.枚

举算法D.递归算法

5.现要求编写VB程序实现如下功能：分别

在文本框Te*t1Te*t2、和Te*t3中输入三

条线段的长度，单击“判断〞按钮mand1后，在标签Label1中显示判断结果。

程序运行界面如图：

按此要求编写的程序如下：

PrivateSubmand1_Click()

DimaAsSingle,bAsSingle

DimcAsSingle,stAsString

a=Val(Te*t1.Te*t)

b=Val(Te*t2.Te*t)

c=Val(Te*t3.Te*t)

IfNot(a+bcAndb+caAndc+ab)Then

st=“这三条线不能构成一个三角形〞

ElseIfa*a+b*b=c*cOra*a+c*c=b*bOrb*b+c*c=a*aThen

st=“可以构成一个直角三角形〞

ElseIf①Then

st=“可以构成一个等边三角形〞

Else

st=“可以构成一个不等边的斜三角形〞

EndIf

Label1.Caption=②

EndSub

划线处应填写正确的语句是：

.z.

-

〔1〕划线处①

〔2〕划线处②

6.以下VB程序段实现计算

s=1+1/2+2/3+3/4+…+99/100的值。

请将下面划线处代码补充完整。

PrivateSubmand1_Click()

DimiAsInteger

DimsAsDouble

s=1

Fori=2To100

s=

Ne*ti

Te*