编程

第一部分：基础知识 1.什么是算法？ 对解决问题过程的精确描述就是算法（注：不一定是计算机语言描述）

2.什么是程序设计? 将解决问题的方法和步骤，编写成计算机可以执行的程序，这一过程就是程序设计 （即算法的计算机化）

3.什么是程序? 程序，即让计算机完成任务的一系列指令。

4.程序设计的分类 ? 机器语言、汇编语言、高级语言

5.常见的高级语言 ? BASIC、C、C++、C#、Java、PASCAL

6.常用的流程图符号 ?

7.VB的特点： 面向对象、事件驱动、可视化的高级语言

8.VB的基本概念：

对象: 窗体和控件的统称 如：Form 、Label、TextBox等 属性: 对象所具有的性质 如：Label1.Caption Text1.text 格式：对象名.属性名 事件: 对象被动执行的操作 如：Command1_Click() Form_Load() 格式: 对象名_事件名() 方法: 对象被动执行的操作 如：Form1.Cls 格式：对象名.方法名

9.常见控件

（1）窗体 属性：Name(名称，缺省为Form1)、Caption(标题)

1

事件：加载事件Form_Load()、单击事件Form_Click() （2）标签 属性：Name(名称，缺省为Label1)、Caption(标题) 事件：单击事件Label1_Click()

（3）按钮 属性：Name(名称，缺省为Command1)、Caption(标题) 事件：单击事件Command1_Click()

（4）文本框 属性：Name(名称，缺省为Text1)、Text(文本框的内容) 事件：单击事件Text1_Change()

10.Vb程序设计的步骤:

 分析需求和设计算法

 设计用户界面，为对象设置属性  编写程序代码  调试、运行程序  保存工程

11.基本数据类型 整型 Integer 长整型 单精度实数 双精度实数 字符串型 逻辑类型 Long Single Double String Boolean

12.什么是常量、变量？

其值可以改变的空间称为变量 其值不可改变的空间称为常量

13.常见运算符：

 算术运算 +(加法) -(减法) *(乘法) /(除法) \\(整除) Mod(求余) ^(幂方)  连接运算 & (先转换为字符型，再作连接运算)  关系运算 > < = >= <= <>  逻辑运算 Not(逻辑非) And(逻辑与) Or(逻辑或)  赋值运算 = (a=b b的值赋给a)

14.内部函数

Val(x) 将字符串转换为相应的数值 Abs(x) 返回x的绝对值 Sqr(x) 返回x的算术平方根 Int(x) 返回不大于x的最大整数

15.Print方法

Print “x” 打印字符x ，并换行 Print “x”; 打印字符x ，不换行 Print “x=“; 1+3 打印x=4,换行 Print 换行 Print Tab(2); 光标放在第2列，不换行

2

16.注释

使用Rem 或者 „

第二部分：程序结构和典型程序

1.顺序结构（略）

2.分支结构

注意：当语句块只有一句时，可以把它写在then后面，并省略End If，如以下等价： If a>0 then a=1 End If 和

If a>0 then a=1

3.循环结构

典型程序（界面设计略）

 输入一公元年号，判断是否为闰年

3

 求解Ax2+Bx+C=0 (假设A<>0 B<>0)

 输入3个数，输出最小的数

 利用循环实现累加 求解：s=1+3+5…+99

4

 利用循环实现累乘 求解：10！

 输入一个数，判断是否为质数

 打印n层直角三角形

 打印n层等腰三角形

5

一、单择题

1、在VB程序设计语言中，_____语句的功能是使系统产生的随机数种子真正随机化。 A：Rnd B：Circle C：Randomize D：Dim

注释：C Rnd产生随机数的函数，其实产生之前要用Randomize产生随机数种子

2、下列程序运行后，变量x=______。 Private Sub Form_click() Dim i,n,x As Integer n=5

x=1

For i=1 To n

x=x*i Next i End Sub

A：5 B：15 C：24 D：120 注释：D 从上向下一句句运行实际计算5的阶乘

3、下列程序运行后，变量k=__ ____。 Dim k As Integer

Private Sub Command1_Click() k=0

For i=7 To 100 Step 7 K=k*i Next i

End Sub

A：0 B：7 C：14 D：15 注释：A 累乘，但初值为0

4、在VB中，改变控件的位置，___ 的值在改变。

A：Height与Width B：Height与Left C：Left与Top D：Top与Width 注释：C Height与Width代表高度和宽度

5、在VB中__ 选项不是一个对象的属性。

6

A：名字 B：大小 C：打印 D：颜色

注释：C 打印是方法

6、在VB中，建立一个文本编辑区域，可采用下列中的___ 。 A：命令按钮 B：标签控件 C：文本框控件 D：定时器控件 注释： C

7、在VB应用程序中，修改控制代码，使Command1按钮显示\"Yes\"，正确的设置是__ _ 。 A：Command1. Text =\"Yes\" B：Command1. Caption =\"Yes\" C：Command1. Name =Yes D：Command1. Caption =Yes 注释：B

8、在VB中，s= \"ABCDEFGHIJK\"，函数 mid(s,3,4)的值是__ 。 A：cd B：c C：CDEF D：d 注释：C 取s中从第3个开始的连续4个字符

9、在VB中，用鼠标单击命令按钮时，将执行以下__ 事件的代码。 A：Keydown B：Keypress C：Click D：Dblclick 注释：C D是双击

10、在VB中，执行Dim A As Single: Dim X As String语句后，下述正确的是__ _ 。 A：A和X都是数值型变量 B：A和X都是字符串型变量

C：A是单精度型变量，X是字符串型变量 D：A是字符串变量，X是单精度型变量 注释： C

11、在VB应用程序中，要隐藏窗体Form1,调用格式为___ 。 A：Form1.Show B：Form1.Hide C：Hide.Form1 D：Show.Form 注释：B

12、在VB中，判断变量X为偶数可以表示为___ 。

A：INT(X/2)=X/2 B：INT(SQR(X/2))=X/2 C：ABS(X/2)=INT(X/2) D：SQR(X/2)=X/2 注释：A 还可以是 X Mod 2=0 、X\\2=X/2

13、在VB中，唯一能区别一个控件的属性是___ 。 A：Caption B：Color C：Name D：Index 注释：C

14、在VB程序中，如果对象的名称为objname，而且对象有一个属性p，那么在代码中正确的引用该属性的格式是___ 。

A：objname.p B：p.objname C：objname(p) D：objname*p 注释：A

15、一元二次方程有两个根，在VB中，其中一个根的表达式写法为___ 。 A：-B+SQR(B*B-4*A*C)/2*A B：-B+SQR(B*B-4*A*C)/2/A

7

C：(-B+SQR(B*B-4*A*C))/2*A D：(-B+SQR(B*B-4*A*C))/2/A

注释：D 注意优先级

16、在VB中，如果要改变窗体的标题，需要设置窗体对象的___ 属性。 A：Name B：BackColor C：Caption D：BorderStyle 注释：C

17、在VB中，算法的三种基本结构是__ 。

A：顺序结构、分支结构、循环结构 B：顺序结构、流程结构、循环结构 C：顺序结构、分支结构、流程结构 D：流程结构、分支结构、循环结构 注释：A

18、在VB中，流程图的判断框有1个入口__ _ 个出口。 A：1 B：2 C：3 D：4 注释：B

19、以下变量名中，__ _ 是不符合Visual Basic的命名规范的。 A：Abc901 B：_mnu_Open_234 C：a_1 D：k

注释：B 由字母、数字和下划线组成，且第一个为字母

20、在VB中，下面流程图为输入A，B后，输出较大者，菱形中应填入___ 关系式。

A：A>B B：A<=B C：A>=B D：B=A 注释：B 注意F T标志

21、在VB中，下面关于算法的错误说法是___ B 。

A：算法必须有输出 B：算法必须在计算机上用某种语言实现 C：算法不一定有从键盘输入 D：算法必须在有限步执行后能结束 注释：B 看算法概念

22、在VB中，判断变量k大于或等于60并且小于70的条件表达式是___ 。 A：k>=60 和 k<70 B：60<=k<70 C：k>=60 OR k<70 D：k>=60 AND k<70 注释：D 要用逻辑运算符 And并且

23、算法是解决问题的______。

A：程序代码 B：方法与步骤 C：计算公式 D：最终结果 注释：B 看算法概念

8

24、Visual Basic中以单引号开头一行文字称为注释，它对程序的运行_______。 A：起一定作用 B：有时候起作用

C：不起任何作用，但是必须的 D：不起任何作用，但能增加程序的可阅读性 注释：D注释作用

25、若要在一行书写多条语句，则各语句间的分隔符采用______。 A：; B：: C：+ D：| 注释：B 可看10题

26、要使用户单击窗体Form1时，Form1的颜色才变为绿色,代码窗口中应有如______的事件过程。

A：Private Sub Form1_Click()

Form1.ForeColor=\"绿色\" End Sub

B：Private Sub Form_Click()

Form1.BackColor=vbGreen

End Sub

C：Private Sub command1_Click()

Form1.forecolor=vbGreen

End Sub

D：Private Sub Form_Load()

Form1.BackColor =\"绿色\" End Sub 注释：B

27、表达式3X-5(2COSX+Y)^2写成Visual Basic表达式正确的是_____。 A：3*X-5(2*COS(X)+Y)^2 B：3X-5*(2*COS(X)+Y)^2 C：3*X-5*(2COSX+Y)^2 D：3*X-5*(2*COS(X)+Y)^2 注释：D

28、下面程序的执行后，A和B分别是______。 Private Sub Form_click() Dim A, B, M As Integer A=1:B=15

FOR M=1 TO 10 A=A+1:B=0 NEXT M PRINT A;B End Sub

A：1,0 B：11,0 C：10,0 D：11,15 注释：B

9

29、下面程序的执行后，输出结果是_______。 Private Sub Form_click() Dim E, F, G As Integer E=3:F=4:G=5 E=F:F=G:G=E PRINT E;F;G End sub

A：3 4 5 B：4 5 3 C：4 5 4 D：4 5 5 注释：C 注意E的变化

30、在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:

Private Sub Command1_Click() s = 0

For i = 1 To 15

x = 2 * i - 1

If x Mod 3 = 0 Then s = s + 1 Next i

Label1.Caption = s End Sub

程序运行后，单击命令按钮，则标签中显示的内容是_________ A：1 B：5 C：27 D：45 注释：B 循环几次找出规律

二、操作题

1、打开考生文件夹下的工程文件ex1.vbp，单击Command1按钮, 修改其中的程序，使其能输出如下图形。

操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除）

Private Sub Command1_Click() Dim I, j As Integer For I = 1 To __6____ For j = 1 To __I____ Print ____j；__ Next j

10

Print

Next I End Sub

2、打开考生文件夹中的工程文件ex12.vbp，完善程序。某航空公司客户行李管理规定: 客户行李20千克及其以下, 运费0.5元/千克；20千克以上, 不足50千克的运费0.8元/千克；50千克及其以上运费为1元/千克，利用文本框Text1输入行李重量,单击\"计算\"按钮时，将计算出的客户应付金额结果在文本框text2内显示出来。最后按原文件名保存在考生文件下。（注明：运行时，把红色下划线删除） Private Sub command1_Click() X = Val(Text1.Text) If ___x<=20_then__ '第一空 Y = X * 0.5

Else

__if_x<50_ then__ '第二空 Y = X * 0.8 Else Y = X * 1 End If End If

___Print Y___ '第三空 End Sub

3、打开考生文件夹中的工程文件ex2.vbp，完善程序。在VB提供的窗体Form1中，有两个文本框Text1、Text2，单击窗口时，将这两个文本框的值进行交换，并将结果打印在此窗体上。操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除） Private Sub Form_Click() Dim A, B, C As Integer A = Val(Text1.Text) B = Val(Text2.Text) ___C=A___ A = B ___B=C___ Print A, B Text1.Text = A Text2.Text = B End Sub

4、打开考生目录下的工程文件vb20.vbp，单击Command1按钮, 修改其中的程序，使其能输出如下图形。

* ** *** **** *****

11

******

操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除）

Private Sub Command1_Click() For i=1 to _____6____ For J=1 to ______i___ Print ___”*”_；___ Next J Print Next i End Sub

5、打开考生文件夹中的工程文件ex6.vbp，完善程序。随机产生10个大于等于0且小于100的整数，统计其中有多少个大于等于60的数,并打印在窗体上。操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除） Private Sub Form_Click() n = 0

Randomize Timer For i = 1 To 10

x = ___Int(Rnd*100)__ If x >= 60 Then ___n=n+1__ Next i

Print ___n__ End Sub

6、打开考生文件夹下的工程文件ex7.vbp，完善程序。在文本框text1中输入n的值，单击Command1按钮，求1*2*3*...*n的值，并在窗体上打印出来。操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除） Private Sub Command1_Click() Dim n, k As Single n = Val(Text1.Text) k =___1__

For i = 1 To ___n__ k = ___k*i__ Next i

Print n; \"!=\"; k End Sub

7、打开考生文件夹中的工程文件ex8.vbp，完善程序。编一段程序，由TEXT1输入X的值，求

┎ 1 X>0 Y=│ 0 X=0 ┖ -1 X<0

操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除） Private Sub Form_Click() Dim x, y As Integer

12

x = Val(Text1.Text) If x = 0 Then ___y=0___ Else

If x < 0 Then __y=-1____ Else ___y=1___ End If End If Print ___y___ End Sub

8、打开考生文件夹中的工程文件ex11.vbp，程序中有三处错误，调试更正。程序是求100以内偶数和S的值（s=2+4+6…+100）。操作完后以原文件名保存在考生文件夹下。 Private Sub Form_Click() Dim S As Integer Dim I As Integer

For I = 1 To 100 Step 1 S = S * I Next I

Print S End Sub

9、打开考生文件夹下的工程文件ex13.vbp，完善程序。目前世界人口为60亿，如果以每年1.4%的速度增长，多少年后世界人口达到或超过70亿。操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除） Private Sub Form_Click() Dim p As Double Dim r As Single Dim n As Integer p = 6000000000 r = 0.014

n = 0

Do While___p<7000000000__ p =___p*1.014___ n =__n+1____ Loop

Print n; \"年后\"; \"世界人口达\"; p End Sub

10、打开考生文件夹中的工程文件ex14.vbp，完善程序。利用文本框Text1、Text2、Text3分别输入三个数，再单击Command1时，求出最小值并将结果打印在窗体上。操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除） Private Sub Command1_Click() Dim a As Double

13

Dim b As Double Dim c As Double Dim min As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If ___aIf c < min Then min =___c___ End If Print _min___ End Sub

11、打开考生文件夹中的工程文件ex.vbp，完善程序。求10以内奇数积S的值（s=1*3*5…*9）。操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除） Private Sub Form_Click() Dim S As Integer Dim I As Integer

__s=1____

for i=__1_to__9__ step__2_ S = S * I Next I Print S End Sub

14