- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
在VB集成环境下编制了含一个窗体的VB应用程序并保存在磁盘上，运行测试后编译成可执行程序，整个过程中肯定会产生的文件类型是：（）
| A．vbp、.frm、.exe | B．vbp、.exe、.txt |
| C．txt、.exe、.frm | D．frm、.txt、.vbp |
下列各项算法采用计算机语言表示的是（ ）
| A．①输入变量a和b的值 ②判断a和b的大小 ③根据判断结果，将较大的量赋值给max ④输出变量max的值 |
| B．① INPUT a和b ②比较a>b ? ③成立则max="a" 否则 max=b ④ PRINT max的值 |
| C．INPUT a，b IF a>b THEN max=a ELSE max=b END IF PRINT max END |
D． |
“某商场的店庆促销活动之一：店庆日购物满500元可在5折优惠后再减100元，否则只打5折”。用算法描述这一问题，可采用的算法结构是（ ）
| A．顺序结构 | B．选择结构 | C．循环结构 | D．树形结构 |
读下列程序段，运行该段程序之后，变量a的值是（ ）。
a=3:b=4
if a<b then a=0
else a=1
end if
a=3:b=4
if a<b then a=0
else a=1
end if
| A．3 | B．4 | C．0 | D．1 |
小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：
n =0 : m = 0
For i =1 To 100
If Rnd > 0.5 Then
n = n + 1
Else
m = m + 1
Next i
……
小金仔细分析该程序段后，发现其中缺少了（ ）
n =0 : m = 0
For i =1 To 100
If Rnd > 0.5 Then
n = n + 1
Else
m = m + 1
Next i
……
小金仔细分析该程序段后，发现其中缺少了（ ）
| A．For | B．End If | C．Next | D．If |
程序的三种基本结构是 ( )
| A．选择结构、循环结构、树型结构 |
| B．顺序结构、选择结构、循环结构 |
| C．顺序结构、循环结构、树型结构 |
| D．树型结构、顺序结构、选择结构 |
灯塔上有5盏信号灯，信号灯只有“亮”和“灭”两种状态，如果不包括5盏信号灯全开和全灭的状态，则最多能表示的信号编码数（ ）
| A．20种 | B．30种 | C．32种 | D．5种 |
下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（1） ，文本框Text2中显示的内容是____（2） 。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To n
If n Mod i =" 0" Then c =" c" + 1
Next i
Text1.Text = Str(n)
Text2.Text = Str(c)
End Sub
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To n
If n Mod i =" 0" Then c =" c" + 1
Next i
Text1.Text = Str(n)
Text2.Text = Str(c)
End Sub
下列VB程序运行时，在文本框Text1中输人数据6，在文本框Text2中输入数据9，单击命令按钮Command1后，文本框Text1中显示的内容是 (1) ，文本框Text2中显示的内容是 (2) 。
Private Sub Command1_C1ick ()
Dim a As Integer, b As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
a=a*b
b=a/b
a=a/b
Text.Text=Str(a)
Text2.Text=Str(b)
End Sub
Private Sub Command1_C1ick ()
Dim a As Integer, b As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
a=a*b
b=a/b
a=a/b
Text.Text=Str(a)
Text2.Text=Str(b)
End Sub