Question

A.《算法与程序设计》模块 VB基本数据类型属于数值型的是。把这个答案告诉我

A.《算法与程序设计》模块
一、单项选择题（每小题1分，共5分）<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

1．人们利用计算机解决问题的基本过程一般有如下四个步骤（①～④），请按各步骤的先后顺序在下列选项中选出正确的答案（ ）

①调试运行程序 ②设计算法 ③分析问题 ④编写程序

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

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />2．下列流程图符号属于判断框的是（ ）

A． B. C. D.

3．在VB语言中，下列数据属于字符串常量的是（ ）

A．'abc' B．Total C．1/2 D．"123"

4．下面是“输入两个数，将其中值最大的数存入max”的算法：

第1步：输入两个数a,b。

第2步：如果a大于b，则将a的值赋给max,否则将b的值赋给max。

第3步：输出max的值。

关于这个算法，说法正确的是（ ）

A．上述算法是用自然语言描述的 B．上述算法是用流程图描述的

C．上述算法是顺序算法结构 D．上述算法是用伪代码描述的

5．在VB语言中，以下函数运算中结果不是4的是（ ）

A．Int(4.1) B．Len("信息技术") C．Abs(-4.1) D．Sqr(16)

二、多项选择题（每小题2分，共4分）

1．下列VB的基本数据类型说明符中，属于数值型的是（ ）

A．Integer B．Single C．String D．Boolean

2．下面关于算法的认识，正确的是（ ）

A．算法是解决问题的方法和步骤 B．算法有一个或多个的输出

C．算法的每一个步骤必须要确切地定义 D．算法就是计算机程序

三、判断题（每小题1分，共5分）

1. 程序设计语言是指人们编制程序所使用的计算机语言，VB是低级语言。（ ）

2．高级语言的翻译程序有两种类型：解释程序和编译程序。（ ）

3．执行程序时，程序中的每一条语句至少要运行一次。（ ）

4．程序实际上是一组机器操作的指令或语句的序列，程序有三种基本控制结构：顺序结构、选择结构和循环结构。（ ）

5. 最早的程序设计语言是汇编语言。（ ）

四、操作题（每题12分，共36分）

1．补充完善下列程序段(每小题3分，共12分)。

① 从键盘输入圆的半径R，输出圆的周长L和面积S。

Dim R As Single

Dim L As Single

Dim S As Single

_____=InputBox("输入半径R ")

L=2*3.14*R

S=3.14*R*R

Print "圆的周长L= ";L

Print "圆的面积S= ";S

② 计算旅客的行李费，收费标准为：<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。

Dim X As Single

Dim Y As Single

X=InputBox("输入行李重量")

If ________ Then

Y=0

Else

Answer 1

A.《算法与程序设计》模块
一、单项选择题
1．C．③②④①　
2．看不流程图符号
3．D．"123"

4．A．上述算法是用自然语言描述的
5．C．Abs(-4.1)
二、多项选择题（每小题2分，共4分）

1．A．Integer B．Single
2．下面关于算法的认识，正确的是（ ）
A．算法是解决问题的方法和步骤
B．算法有一个或多个的输出
C．算法的每一个步骤必须要确切地定义

三、判断题（每小题1分，共5分）

1. 错
2．对
3．错
4．对
5. 错
四、操作题（每题12分，共36分）
1．
① 从键盘输入圆的半径R，输出圆的周长L和面积S。

Dim R As Single

Dim L As Single

Dim S As Single

___R__=InputBox("输入半径R ")

L=2*3.14*R

S=3.14*R*R

Print "圆的周长L= ";L

Print "圆的面积S= ";S

② 计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ___X<=20_____ Then
Y=0
Else
Y=(x-20)*20
end if