- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- + 算法实例的程序实现
- 过程和自定义函数
- 枚举算法及程序实现
- 解析算法及程序实现
- 递归算法及程序实现
- 排序算法及程序实现
- 查找算法及程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
下列Visual Basic程序的功能是输入身高（l/cm）和体重(k/kg)来测试你的身材是否符合标准。
Private Sub Command1_Click()
Dim l, k, BMI As Single
l =" Val(Text2.Text)" / 100
k =" Val(Text3.Text)" '
BMI =" k" / (l * l)
If BMI < 18.5 Then
Text1.Text = "太瘦了"
ElseIf BMI >=" 25" Then
Text1.Text = "偏胖"
Else
Text1.Text = "非常标准"
End If
End Sub
运行程序后在Text2中输入180，Text3中输入90，那么在Text1中输出的是（ ）
Private Sub Command1_Click()
Dim l, k, BMI As Single
l =" Val(Text2.Text)" / 100
k =" Val(Text3.Text)" '
BMI =" k" / (l * l)
If BMI < 18.5 Then
Text1.Text = "太瘦了"
ElseIf BMI >=" 25" Then
Text1.Text = "偏胖"
Else
Text1.Text = "非常标准"
End If
End Sub
运行程序后在Text2中输入180，Text3中输入90，那么在Text1中输出的是（ ）
| A．太瘦了 | B．偏胖 | C．非常标准 | D．超出范围 |
小明设计了一个Visual Basic程序：求 1～n(不超过10000)之间能被5整除但不能被3整除的自然数。其设计界面如图1所示、代码编辑窗口如图2所示。
图1
图2
（1）解决此问题主要采用的算法为 ① （填：解析算法 / 枚举算法）。
（2）图2中标注A处应填写的代码为 ② 。
（3）图2中List1.AddItem Str(i)语句中AddItem是List1的 (填: 事件/属性/方法)。
图1
图2
（1）解决此问题主要采用的算法为 ① （填：解析算法 / 枚举算法）。
（2）图2中标注A处应填写的代码为 ② 。
（3）图2中List1.AddItem Str(i)语句中AddItem是List1的 (填: 事件/属性/方法)。
有如下Visual Basic程序段，用于计算前n个自然数之和。程序划线处应填写的语句是（ ）
s =" 0:" i = 1
n = Val(Text1.Text)
Do While i < n
s =" s" + i
i =" i" + 1
Label1.Caption = Str(s)
s =" 0:" i = 1
n = Val(Text1.Text)
Do While i < n
s =" s" + i
i =" i" + 1
Label1.Caption = Str(s)
| A．Loop | B．Next i |
| C．End If | D．End Sub |
有如下VB程序:
Dim i As Integer, j As Integer, k As string, n As Integer
n = 3
List1.Clear
For i="1" To n
k =″″
For j="1" To i
k = k+″*″
Next j
List1.AddItem k
Next i
该程序运行后, 在列表框List中显示的是( )
Dim i As Integer, j As Integer, k As string, n As Integer
n = 3
List1.Clear
For i="1" To n
k =″″
For j="1" To i
k = k+″*″
Next j
List1.AddItem k
Next i
该程序运行后, 在列表框List中显示的是( )
A． | B． |
C． | D． |
下面是一段关于计算变量s的算法：
①变量s的初值是0
②变量i从1起循环到n，此时变量s的值由下面的表达式计算
③s=s+(-1)*I
④输出变量s的值
这个计算s值的算法中，s的代数式表示式（ ）
①变量s的初值是0
②变量i从1起循环到n，此时变量s的值由下面的表达式计算
③s=s+(-1)*I
④输出变量s的值
这个计算s值的算法中，s的代数式表示式（ ）
| A．1－2+3－4+…+(-1)n×(n－1) |
| B．1－2+3－4+…+(-1)n×n |
| C．1+2+3+4+…+(n－1)+n |
| D．－1－2－3－…－n |
执行下面的程序段后，x的值为（ ）
x=5
For i="1" To 20 Step 2
x=x+i\5
Next i
x=5
For i="1" To 20 Step 2
x=x+i\5
Next i
| A．21 | B．22 | C．23 | D．24 |
下Visual Basic程序段：
s = 0
For i =" 1" To 5
s =" s" + i * i
Next i
Label1.Caption = Str(s)
该程序段运行后，在标签Label1上显示的是____________。
s = 0
For i =" 1" To 5
s =" s" + i * i
Next i
Label1.Caption = Str(s)
该程序段运行后，在标签Label1上显示的是____________。
现需计算1*2*3*……*n=?有如下程序段，在划线处填入合适的语句或表达式，完成程序。
s=1
i=1
Do While i<=n
S =" s" * i
i =" i" + 1
s=1
i=1
Do While i<=n
S =" s" * i
i =" i" + 1
下面程序的功能是：找出10以内的奇数中能被3整除的正整数，并将它们累加起来。为了实现这一目标，程序中划线处的语句应更正为______ __________
X=0
For i="1" to 10 step 2
If i mod 2=0 then x=x+i
Next i
X=0
For i="1" to 10 step 2
If i mod 2=0 then x=x+i
Next i
输入一个三位数的整数，要求将此三位数的各位上的数字重新排列，组成一个尽可能大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。
现要求编写VB程序（运行界面如图所示），实现如下功能：在文本框Text1中输入一个三位数整数，单击“求解”按钮Command1，在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下，其中函数max(x)用于求解最大三位数整数，但加框处代码有错，请改正。
①__________________②___________________
Function max(x As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
a =" x" \ 100
b = (x \ 10) \ 10 ' ①
c =" x" mod 10
If a < b Then t =" a:" a =" b:" b = t
If a < c Then t =" a:" a =" c:" c = t
If b < c Then t =" c:" c =" b:" b = t
max = c* 100 + b * 10 + a ' ②
End Function
Private Sub Command1_Click()
Dim n As Integer, y As Integer
n = Val(Text1.Text)
y = max(n)
Text2.Text = Str(y)
End Sub
现要求编写VB程序（运行界面如图所示），实现如下功能：在文本框Text1中输入一个三位数整数，单击“求解”按钮Command1，在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下，其中函数max(x)用于求解最大三位数整数，但加框处代码有错，请改正。
①__________________②___________________
Function max(x As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
a =" x" \ 100
b = (x \ 10) \ 10 ' ①
c =" x" mod 10
If a < b Then t =" a:" a =" b:" b = t
If a < c Then t =" a:" a =" c:" c = t
If b < c Then t =" c:" c =" b:" b = t
max = c* 100 + b * 10 + a ' ②
End Function
Private Sub Command1_Click()
Dim n As Integer, y As Integer
n = Val(Text1.Text)
y = max(n)
Text2.Text = Str(y)
End Sub