- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- 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
个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：
Sub Command1_Click()
Dim i As Integer, n As Integer
m = 106
n = __________
Do While m <= 996
If _______________________ Then n =" n" + 1
m=m+10
Loop
Text1.Text = Str(n) zxxk
End Sub
Sub Command1_Click()
Dim i As Integer, n As Integer
m = 106
n = __________
Do While m <= 996
If _______________________ Then n =" n" + 1
m=m+10
Loop
Text1.Text = Str(n) zxxk
End Sub
人们常使用计算机程序解决一些实际问题。下面的程序可以找出能被3、5、7除，余数为1的最小的五个正整数。请分析程序回答问题。
Private Sub Command1_Click()
Dim CountN%,n%
CountN=0
n=1
Do
n=n+1
If ① Then
Print n
CountN=Countn+1
End If
Loop ②
End Sub
（1）变量CountN 的数据类型定义为（ ）
（2）这是一段 结构程序。
（3）认真阅读程序，在带序号的空白处补充恰当的语句，完善程序。
（4）在编写程序时，首先需要找出解决问题的方法和步骤，此过程就是通常所说的
Private Sub Command1_Click()
Dim CountN%,n%
CountN=0
n=1
Do
n=n+1
If ① Then
Print n
CountN=Countn+1
End If
Loop ②
End Sub
（1）变量CountN 的数据类型定义为（ ）
| A．integer | B．single | C．double | D．string |
（2）这是一段 结构程序。
（3）认真阅读程序，在带序号的空白处补充恰当的语句，完善程序。
（4）在编写程序时，首先需要找出解决问题的方法和步骤，此过程就是通常所说的
以下语句中错误的是（ ）
| A．Const var1=123 |
| B．Dim var2 As String |
| C．x+y=9 |
| D．Dim d(1 to 500) As Double |
下面的程序代码是通过函数求出二个整数型变量a、b中的较大值，其中所定义的函数名是（ ）
Function max(a, b As Integer) As Integer
If a > b Then max = a Else max = b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s as integer
a =" Val(Text1.Text):" b = Val(Text2.Text)
s =" max(a," b)
Text3.Text = s
End Sub
Function max(a, b As Integer) As Integer
If a > b Then max = a Else max = b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s as integer
a =" Val(Text1.Text):" b = Val(Text2.Text)
s =" max(a," b)
Text3.Text = s
End Sub
| A．Command1_Click |
| B．function |
| C．max |
| D．max(a, b As Integer) |
下列四段程序中，主要控制结构属于循环结构的是（ ）
PRINT "偶数"
ELSE
PRINT "奇数"
END IF
| A．A= 5 B= A A=" A" + B |
| B．IF X > K THEN PRINT "Big" END IF |
| C．S="0" DO WHILE I<=10 J =" I" * I S="S" + J I="I" + 1 LOOP |
| D．IF INT(X/2) = X/2 THEN |
ELSE
PRINT "奇数"
END IF
“某商场的店庆促销活动之一：店庆日购物满500元可在5折优惠后再减100元，否则只打5折”。用算法描述这一问题，可采用的算法结构是（ ）
| A．顺序结构 | B．选择结构 | C．循环结构 | D．树形结构 |
程序的三种基本结构是 ( )
| A．选择结构、循环结构、树型结构 |
| B．顺序结构、选择结构、循环结构 |
| C．顺序结构、循环结构、树型结构 |
| D．树型结构、顺序结构、选择结构 |
在VB中，如果要在标签Lab上显示文字“高中信息技术考试”，则下列语句正确的是（ ）
| A．Label.Caption=“高中信息技术考试” |
| B．Lab.Text=“高中信息技术考试” |
| C．Lab.Caption=“高中信息技术考试” |
| D．Label.Width=“高中信息技术考试” |
小明设计了如下所示累乘器程序，以完成式子：1×2×3×4×5×6的累乘计算。
Private Sub form_load()
Dim k As Long, i As Integer
k = 0 ……… ①
For i =" 1" To 6
k =" k" * i ……… ②
Next i
MsgBox Str(k)
End Sub
为了完成小明的计算，程序中标有①、②的两处语句，哪个语句应作相应的修改，修改后其正确的语句为（写出标号和正确的语句）_____________。
Private Sub form_load()
Dim k As Long, i As Integer
k = 0 ……… ①
For i =" 1" To 6
k =" k" * i ……… ②
Next i
MsgBox Str(k)
End Sub
为了完成小明的计算，程序中标有①、②的两处语句，哪个语句应作相应的修改，修改后其正确的语句为（写出标号和正确的语句）_____________。