- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
求两个整数的最大公约数分析：求最大公约数的算法思想：
（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．编辑时的错误、修改时的错误、逻辑错误 |
有如下Visual Basic程序段：
x=2.1Ifx>6.0Then
Label1.Caption="Pass"
Else
Label1.Caption="Fail"
EndIf
该程序段运行后,Label1标签上显示为_____________
x=2.1Ifx>6.0Then
Label1.Caption="Pass"
Else
Label1.Caption="Fail"
EndIf
该程序段运行后,Label1标签上显示为_____________
税务部门征收个人所以税，规定如下：
（1）收入在800元以内，免征。
（2）收入在800~1300元内，超过800元的部分纳税5﹪。
（3）收入在1300~1800元内，超过1300元的部分纳税10﹪。
（4）收入在1800~2300元内，超过1800元的部分纳税15﹪。
（5）当收入达到或超过2300时，超过1800元的部分纳税20﹪。
该题程序设计最适合使用_____________结构。
（1）收入在800元以内，免征。
（2）收入在800~1300元内，超过800元的部分纳税5﹪。
（3）收入在1300~1800元内，超过1300元的部分纳税10﹪。
（4）收入在1800~2300元内，超过1800元的部分纳税15﹪。
（5）当收入达到或超过2300时，超过1800元的部分纳税20﹪。
该题程序设计最适合使用_____________结构。
