- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- + 算法及算法的表示方法
- 计算机解决问题的步骤化
- 算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
数学表达式｜x-31｜对应的VB表达式是（ ）
| A．Sqr(x-31) | B．Val(x-31) | C．Abs(x-31) | D．Str(x-31) |
设a=2，b=3，c=4，d=5，表达式a>b and c<="d" or 2*a>c的值是（ ）
| A．True | B．False | C．－1 | D．1 |
下面关于算法的描述，正确的是（ ）
| A．算法不可以用自然语言表示 |
| B．算法只能用框图来表示 |
| C．一个算法必须保证它的执行步骤是有限的 |
| D．算法的框图表示法有0个或多个输入，但只能有一个输出 |
如果x >5，那么y=2x，否则y=x2+1。下面表述正确的语句是（ ）
| A．If x>5 Then y="2x" Else y=x2+1 |
| B．If x>5 Then y="x*x+1" Else y=2*x |
| C．If x>5 Then y="2*x" Else y=x*x+1 |
| D．If x<5 Then y="x*x+1" Else y=2*x |
如下Visual Basic程序段：
a = 3.14
b = 20
c =" Int(a)" + b
该程序段运行后，变量c的值为____________。
a = 3.14
b = 20
c =" Int(a)" + b
该程序段运行后，变量c的值为____________。
VB函数Right ()从字串右端取部分字串：将某一字串从结尾开始取固定长度的字串。Right("Visual Basic6.0",6)的值为（ ）
| A．sic6.0 | B．asic6.0 | C．Visual | D．ic6.0 |
下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是______，文本框Text2中显示的内容是______。
Private Sub Command1_Click( )
Dim a(1 To 5) As Integer, i As Integer, s As Integer
a(1)=5
a(2)=10
For i =" 3" To 5
a(i) = a(i-1)-a(i-2)
Next i
Text1.Text = Str(a(5))
s = 0
For i =" 1" To 5
If a(i)>0 then s =" s" + 1
Next i
Text2.Text = Str(s)
End Sub
Private Sub Command1_Click( )
Dim a(1 To 5) As Integer, i As Integer, s As Integer
a(1)=5
a(2)=10
For i =" 3" To 5
a(i) = a(i-1)-a(i-2)
Next i
Text1.Text = Str(a(5))
s = 0
For i =" 1" To 5
If a(i)>0 then s =" s" + 1
Next i
Text2.Text = Str(s)
End Sub
已知三角形三条边的长度分别为a、b、c，用海伦公式计算此三角形的面积s的算法如下：
①电脑屏幕显示：“请输入三边长度（a,b,c）：”
②计算P，P为三角形周长的一半，即P=(a+b+c)/2
③输入变量a、b、c的值
④输出三角形的面积S
⑤计算面积S，S=
计算三角形面积S，正确的次序是（ ）
①电脑屏幕显示：“请输入三边长度（a,b,c）：”
②计算P，P为三角形周长的一半，即P=(a+b+c)/2
③输入变量a、b、c的值
④输出三角形的面积S
⑤计算面积S，S=
计算三角形面积S，正确的次序是（ ）
| A．①③⑤②④ | B．①②③⑤④ | C．①③②⑤④ | D．①②⑤③④ |
下列关于算法的描述，正确的是（ ）
| A．算法就是数值计算的方法 |
| B．同一种算法只能用一种程序语言来实现 |
| C．算法是描述解决问题的方法和步骤 |
| D．描述算法的方法只有流程图 |
火车托运行李，根据行李的重量按下列标准收费：若不超过50千克，按每千克0.35元收费；若超过50千克，超过部分则按每千克0.5元收费。输入托运行李的重量，计算并输出托运行李的费用。下面程序若用于实现上述目标，则划线处的语句应更改为 ________。
Sub command1_click( )
Dim x as double
X=val(text1.text)
If x<=50 then
Text2.text= str(0.35*x)
Else
Text2.text= str(0.5*x)
Endif
End sub
Sub command1_click( )
Dim x as double
X=val(text1.text)
If x<=50 then
Text2.text= str(0.35*x)
Else
Text2.text= str(0.5*x)
Endif
End sub