- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
一玻璃球从高空做自由落体运动，在到达地面时速度为98m/s，请问：该玻璃球从高空开始下落到地面用了多少时间？编程求此问题最佳算法是（ ）
| A．穷举法 | B．顺序查找算法 | C．递归算法 | D．解析法 |
在VB中，函数Right()的功能是从字串右端开始截取部分字串，那么表达式Right ("morning" , 3)的结果为（ ）。
| A．ing | B．mor | C．ning | D．morn |
在VB中，下列程序段执行后，变量a,b,c的值分别是（ ）
a=1:b=1:c=1
do while a+b+c<=10
a=a+1
b=b*2
c=b/2
loop
a=1:b=1:c=1
do while a+b+c<=10
a=a+1
b=b*2
c=b/2
loop
| A．2,2,1 | B．3,4,2 | C．4,8,4 | D．4,4,2 |
将以下程序段补充完整。
问题：计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。
程序段：
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ①_________Then
Y=0
Else
Y= ②_______
End If
Print "行李费= "; ③___________
问题：计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。
程序段：
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ①_________Then
Y=0
Else
Y= ②_______
End If
Print "行李费= "; ③___________
在VB中，若a=5,b=6 ,执行程序段a=b: b=a 后，变量a, b 的值分别是（ ）
| A．a=5,b=6 | B．a=6,b=5 | C．a=5,b=5 | D．a=6,b=6 |
在VB中，下列程序段执行后，变量b和变量c的值分别是 ( )
a=23:b=18:c=0
a=a+b
b=a+b
c=a+b
a=23:b=18:c=0
a=a+b
b=a+b
c=a+b
| A．41 41 | B．41 64 | C．59 59 | D．59 100 |
在VB中，能正确表示数学关系式5<X<10的VB表达式是（ ）
| A．5<X<10 | B．X>5 or X<10 | C．X<5 and X<10 | D．X>5 and X<10 |
下列结果为True的逻辑表达式是（ ）。
| A．(5＜13)or(6＞9) | B．Int(3.1)＞Sqr(9) |
| C．(3＜＞5) And (5=10) | D．Len（"0"）=0 |