- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
下面各项中，不属于For循环控制三要素的是( )
| A．循环控制变量的初值 |
| B．循环控制变量的终值 |
| C．在循环体中具有使循环控制变量由初值向终值变化的语句 |
| D．循环控制次数 |
公元6世纪，中国的《张丘建算经》有一道著名的百鸡问题：公鸡5钱1只，母鸡3钱1只，小鸡3只1钱，有人用100钱买了100只鸡。请编写一段代码求其中公鸡，母鸡，小鸡各多少只？
Private Sub Command1_Click()
For i =" 0" To 20
For j =" 0" To 33
k =
If Then Print i, j, k
Next j
Next i
End Sub
Private Sub Command1_Click()
For i =" 0" To 20
For j =" 0" To 33
k =
If Then Print i, j, k
Next j
Next i
End Sub
以下逻辑运算符按优先级从低到高排列，其中正确的是( )
| A．NOT、AND、OR |
| B．NOT、OR、AND |
| C．OR、AND、NOT |
| D．AND、NOT、OR |
求两个整数的最大公约数分析：求最大公约数的算法思想：
（1）对于已知两数m，n，使得m>n；
（2）m除以n得余数r；
（3）若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；
（4）m←n，n←r，再重复执行(2)。
例如: 求 m="14" ,n="6" 的最大公约数.
M n r
14 6 2
6 2 0
请根据以上思路补充下面的程序代码：
Private Sub Command1_Click()
m = InputBox("m=")
n = InputBox("n=")
If m < n Then t =" m:" m =" n:" n = t
r = ________________
Do While (r <> 0)
m = n
n = r
r =" m" Mod n
Loop
Print "最大公约数=", n
End Sub
（1）对于已知两数m，n，使得m>n；
（2）m除以n得余数r；
（3）若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；
（4）m←n，n←r，再重复执行(2)。
例如: 求 m="14" ,n="6" 的最大公约数.
M n r
14 6 2
6 2 0
请根据以上思路补充下面的程序代码：
Private Sub Command1_Click()
m = InputBox("m=")
n = InputBox("n=")
If m < n Then t =" m:" m =" n:" n = t
r = ________________
Do While (r <> 0)
m = n
n = r
r =" m" Mod n
Loop
Print "最大公约数=", n
End Sub
VB设计时常见的错误有( )
| A．编辑时的错误、运行时的错误、逻辑错误 |
| B．编辑时的错误、解释时的错误、逻辑错误 |
| C．编译时的错误、解释时的错误、逻辑错误 |
| D．编辑时的错误、修改时的错误、逻辑错误 |