发布时间 : 星期日 文章算法与程序设计（高中选修）复习资料更新完毕开始阅读992b92d20b4c2e3f5627631d
Do … Loop Until语句的执行过程是：先执行循环语句，再判断条件表达式的值，当条件条件表达式的值为False时继续执行循环体，直到条件为True结束循环转而执行Loop Until后面的语句。
2、 For…Next 语句 在循环次数已知的情况下，采用 For…Next语句实现循环结构是比较合适的选择。For…Next语句的格式如下：
For <循环变量>=初值 To 终值 [Step 步长] <语句> [Exit For ] <语句>
Next <循环变量>
13、了解程序的编辑与翻译过程方法，比较编译型语言与解释型语言的优势与不足。 高级语言与自然语言和数学表达式相当接近，不依赖于计算机型号，通用性较好。高级语言的使用，大大提高了程序编写的效率和程序的可读性。 与汇编语言一样，计算机无法直接识别和执行高级语言，必须翻译成等价的机器语言程序（称为目标程序）才能执行，高级语言源程序翻译成机器语言程序的方法有“解释”和“编译”两种。解释方法采用边解释边执行的方法，如早期的BASIC 语言即采用解释方法，在执行BASIC 源程序时，解释一条BASIC语句，执行一条语句。编译方法采用相应语言的编译程序，先把源程序编译成指定机型的机器语言目标程序，然后再把目标程序和各种标准库函数连接装配成完整的目标程序，在相应的机型上执行。如C、C++、Visual C++及Visual Basic等均采用编译的方法。编译方法比解释方法更具有效率。
同步集训
一、单项选择题
1．以下窗口可以在设计时直观的调整窗口在屏幕上的位置 （ ） A．代码窗口 B．窗体布局窗口 C．窗体设计窗口 D．属性窗口
2．在VisualBasic中，所有的窗体和控件都必定具有一个属性是 （ ） A．N ame B．Font C．Caption D．Fillcolor
3．Visual Basic窗体设计器的主要功能是： （ ） A．建立用户界面 B．编写源程序代码 C．画图 D．显示文字
4．Visual Basic中窗体文件的扩展名是 （ ） A．VBP B．FRM C．VBW D．PDM
5．当一个工程含有多个窗体时，其中的启动窗体是（ ） A．启动Visual Basic时建立的窗体 B．第一个添加的窗体 C．最后一个添加的窗体
D．在“工程属性”对话框中指定的窗体
6．在窗体上画一个名称为Label1的标签。当单击标签时，在标签中显示“我喜欢学习VB语言”。下列能实现上述功能的程序是 （ ）
A．Private Sub Label1_Click()
Label1.Caption = \我喜欢学习VB语言\
End Sub
B．Private Sub Form1_Click()
Label1.Caption = \我喜欢学习VB语言\End Sub
C． Private Sub Label1_Click()
Label1.Enabled = \我喜欢学习VB语言\End Sub
D． Private Sub Label1_Click()
Label1.Visible = \我喜欢学习VB语言\End Sub
7．Visual Basic中工程文件的扩展名是 （ ） A．VBP B．FRM C．VBW D．PDM
8．下面的四个VB逻辑表达式语法中，正确的是（） A.x>y.And.x<>y B.x>y~z
C.x>y And <>z D.x>y And y<>z 9．表达式”123”+”A”&100的值是（） A.123100 B.123A100 C.”123A100” D.1230100 10．代数式ab2÷(5c+d)的VB表达式是（） A.a * b ^ b / (5 c + d) B.a×b×b / (5 × c + d) C.a * b * b / 5 * c + d D.a * b * b / (5 * c + d)
11．按变量名的命名规则，下面字符中不能用于构成变量名的是（） A.字母 B.数字 C.下划线 D.空格 12．在程序中用到某一整型变量的数据范围为-32768~40000，则该变量类型应声明为（） A.Integer B. Byte C．Long D. Double
13．设a=2,b=3,c=4,d=5，表达式3>2*b OR a=c AND b<>c OR c>d的值是 （ ） A．1 B．-1 C．False D．True
14．实现数值转换字符串的函数是 （ ） A．STR（） B.CHR（） C.VAL（） D.ASC（）
15．实现字符串转换数值的函数是 （ ） A．STR（） B．CHR（） C．VAL（） D．ASC（） 二、填空题
1．在窗体上画一个标签按钮（名称为Label1），编写如下事件过程： Private Sub Label1_Click() Dim a, b, c As Integer b = 5 c = 6
Print a = b + c End Sub
程序运行后，单击标签，输出的结果是：______________。 2．VB应用程序中窗体文件的扩展名是____________。 3．VB是一种面向对象的程序设计语言，构成对象的三要素是___________、__________、___________。
4．下列程序段执行后， a=5 b=9 c=14 a=a+b c=c-b
则a=_______、b=_________、c=__________。 5．若X=－1，则Abs(X)=_________。
6．表达式8 <> 5 + 3 Or Not 10 > 12 – 3的值是_________。 7．表达式9 ^ 2 Mod 6 ^ 3 \\ 3 ^ 2的值为__________。 8．若s=”I am John”，则LEN（s）的值为_________。 9．ABS(-2)+SQR(16)=__________。 10．补充完善下列程序段
① 从键盘输入圆的半径R，输出圆的周长L和面积S。 Dim R As Single Dim L As Single Dim S As Single
_____=InputBox(\输入半径R \ L=2*3.14*R S=3.14*R*R
Print \圆的周长L= \Print \圆的面积S= \
② 计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。
Dim X As Single Dim Y As Single
X=InputBox(\输入行李重量\ If ________ Then Y=0 Else
Y=20*(X-20) End If
Print \行李费= \
③ 求s=2+4+6+……+100之和。 Dim i As Integer Dim s As Integer s=0
For i=2 To 100 Step 2 s=_________ Next i
Print s
④ 输出100以内（包含100）能被3整除的数。 Dim I As Integer I=1 Do
If I Mod 3=0 Then Print I End If I=I+1
Loop Until _________
⑤. 有一张单据上有一个5位数的号码67□□8，其中百位和十位上的数字看不清了，但知道该数能够被78整除，也能被67整除，下面是用穷举法求出该号码的程序段：
Dim a As Integer, b As Integer Dim n As Long For a = 0 To 9
For b = 0 To ①
n = 67008 + ② * 100 + b * 10 If n Mod 78 = 0 ③n Mod67=0 Then Print ④ End If Next b Next a
请将应填写的内容写在下面相应的空格内并运行程序写出该号码(每空3分，共12分)。 ①_____________ ②_____________ ③_____________ ④ _____________ 主题二 程序设计基础 同步集训答案 一选择题：
1、B 2、A 3、A4、B5、D6、A7、A8、D9、B10、C11、D 12、C13、C14、A15、C16、B 二、填空题 1、11 14、frm
15、属性、事件、方法 16、a=14 b=9 c=5 17、x=1 18、False 19、9 20、9 21、6
22、1)r 2)x<=20 3)s+i 4)i=100 5)9 a and n