- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- + 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
某VB程序代码如下：
a = 3
b = 4
c = 5
If a > b Then a = b Else b = a
则程序运行后的a和b的值分别是：
a = 3
b = 4
c = 5
If a > b Then a = b Else b = a
则程序运行后的a和b的值分别是：
| A．3 4 | B．3 5 | C．4 5 | D．3 3 |
“如果a，b中任意一个为0，那么y＝y＋1”。能实现该功能的VB语句是( )
| A．If a＝0 And b＝0 Then y＝y＋1 | B．If a+b＝0 Then y＝y＋1 |
| C．If a＝0 or b＝0 Then y＝y＋1 | D．If a/b＝0 Then y＝y＋1 |
学习完数组这个知识点后，小林设计了一个程序，该程序的主要功能是，先给数组中每个元素赋值，再找出数组中最大的数，具体程序如下。
（1）数组a中共有_____________个变量。
（2）数组a中所有变量的类型____________（相同或不相同）。
（3）将程序中①的代码补充完整______________。
（4）将程序中②的代码补充完整_______________。
（1）数组a中共有_____________个变量。
（2）数组a中所有变量的类型____________（相同或不相同）。
（3）将程序中①的代码补充完整______________。
（4）将程序中②的代码补充完整_______________。
已知a=8、b=6，以下程序段
If (a Mod 3 = 0) Or (b Mod 3 = 0) Then
c = a * b
Else
c = a + b
End If
执行后变量c的值为（ ）
If (a Mod 3 = 0) Or (b Mod 3 = 0) Then
c = a * b
Else
c = a + b
End If
执行后变量c的值为（ ）
| A．8 | B．14 | C．48 | D．6 |
如下VB程序段：
x = InputBox("输入x的值：")
If x > 3 Then
If x <= 6 Then
y = 2 * x
Else
y = 3 * x
End If
Else
y = 4 * x
End If
Print y若x、y均是整型变量，程序运行并输入6，则y的值是（ ）
x = InputBox("输入x的值：")
If x > 3 Then
If x <= 6 Then
y = 2 * x
Else
y = 3 * x
End If
Else
y = 4 * x
End If
Print y若x、y均是整型变量，程序运行并输入6，则y的值是（ ）
| A．24 | B．18 | C．12 | D．6 |
在VB中，下列程序段执行后，变量a的值是( )
a=15
b=10
If a<>b Then
a=a-b
else
a=a+b
End If
Print a
a=15
b=10
If a<>b Then
a=a-b
else
a=a+b
End If
Print a
| A．25 | B．15 | C．10 | D．5 |
将以下程序段补充完整。
问题：计算旅客的行李费，收费标准为：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和b的大小，然后输出其中较大的数。以下是他的程序段，在划线处应填写 ( )
If Then
max=a
Else
max=b
End If
Print “较大的数是”;max
If Then
max=a
Else
max=b
End If
Print “较大的数是”;max
| A．a>b | B．a<b | C．max<a | D．max<b |
现有如下Visual Basic程序段：
a = 27: b = 9: c = -6
If a > b And b > 0 Then
If c < 0 Then a = a - c Else a = a - b
Private Sub Command1_Click（）
Dim a , b , c as Integera = 27: b = 9: c = -6
If a > b And b > 0 Then
If c < 0 Then a = a - c Else a = a - b
Else
a = b + cEnd If
Print a
End Sub
该程序段运行之后，变量a的值为__________。