编程.docx

1、编程编程第一部分：基础知识1.什么是算法？ 对解决问题过程的精确描述就是算法（注：不一定是计算机语言描述）2.什么是程序设计? 将解决问题的方法和步骤，编写成计算机可以执行的程序，这一过程就是程序设计（即算法的计算机化）3.什么是程序? 程序，即让计算机完成任务的一系列指令。4.程序设计的分类 ? 机器语言、汇编语言、高级语言5.常见的高级语言 ? BASIC、C、C+、C#、Java、PASCAL6.常用的流程图符号 ?7.VB的特点： 面向对象、事件驱动、可视化的高级语言8.VB的基本概念：对象: 窗体和控件的统称 如：Form 、Label、TextBox等属性: 对象所具有的性质 如：

2、Label1.Caption Text1.text 格式：对象名.属性名事件: 对象被动执行的操作 如：Command1_Click() Form_Load() 格式: 对象名_事件名()方法: 对象被动执行的操作 如：Form1.Cls 格式：对象名.方法名9.常见控件（1）窗体 属性：Name(名称，缺省为Form1)、Caption(标题) 事件：加载事件Form_Load()、单击事件Form_Click()（2）标签 属性：Name(名称，缺省为Label1)、Caption(标题) 事件：单击事件Label1_Click()（3）按钮 属性：Name(名称，缺省为Command1)

3、、Caption(标题) 事件：单击事件Command1_Click()（4）文本框 属性：Name(名称，缺省为Text1)、Text(文本框的内容) 事件：单击事件Text1_Change()10.Vb程序设计的步骤:v 分析需求和设计算法v 设计用户界面，为对象设置属性v 编写程序代码v 调试、运行程序v 保存工程11.基本数据类型整型Integer长整型Long单精度实数Single双精度实数Double字符串型String逻辑类型Boolean12.什么是常量、变量？ 其值可以改变的空间称为变量其值不可改变的空间称为常量13.常见运算符：v 算术运算 +(加法) -(减法) *(乘法

4、) /(除法) (整除) Mod(求余) (幂方)v 连接运算 & (先转换为字符型，再作连接运算)v 关系运算 = = v 逻辑运算 Not(逻辑非) And(逻辑与) Or(逻辑或)v 赋值运算 = (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列，不换行16.注

5、释使用Rem 或者 第二部分：程序结构和典型程序1.顺序结构（略）2.分支结构注意：当语句块只有一句时，可以把它写在then后面，并省略End If，如以下等价：If a0 then a=1End If和If a0 then a=13.循环结构典型程序（界面设计略）v 输入一公元年号，判断是否为闰年v 求解Ax2+Bx+C=0 (假设A0 B0)v 输入3个数，输出最小的数v 利用循环实现累加 求解：s=1+3+5+99v 利用循环实现累乘 求解：10！v 输入一个数，判断是否为质数v 打印n层直角三角形v 打印n层等腰三角形一、单择题1、在VB程序设计语言中，_语句的功能是使系统产生的随机数

6、种子真正随机化。 A：Rnd B：Circle C：Randomize D：Dim注释：C Rnd产生随机数的函数，其实产生之前要用Randomize产生随机数种子2、下列程序运行后，变量x=_。Private Sub Form_click()Dim i,n,x As Integern=5x=1For i=1 To nx=x*iNext iEnd Sub A：5 B：15 C：24 D：120注释：D 从上向下一句句运行实际计算5的阶乘3、下列程序运行后，变量k=_ _。Dim k As IntegerPrivate Sub Command1_Click()k=0For i=7 To 100

7、Step 7K=k*iNext i End Sub A：0 B：7 C：14 D：15注释：A 累乘，但初值为04、在VB中，改变控件的位置，_ 的值在改变。 A：Height与Width B：Height与Left C：Left与Top D：Top与Width注释：C Height与Width代表高度和宽度 5、在VB中_ 选项不是一个对象的属性。 A：名字 B：大小 C：打印 D：颜色注释：C 打印是方法6、在VB中，建立一个文本编辑区域，可采用下列中的_ 。 A：命令按钮 B：标签控件 C：文本框控件 D：定时器控件注释： C7、在VB应用程序中，修改控制代码，使Command1按钮显示

8、Yes，正确的设置是_ _ 。 A：Command1. Text =Yes B：Command1. Caption =Yes C：Command1. Name =Yes D：Command1. Caption =Yes注释：B8、在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

9、: Dim X As String语句后，下述正确的是_ _ 。 A：A和X都是数值型变量 B：A和X都是字符串型变量 C：A是单精度型变量，X是字符串型变量 D：A是字符串变量，X是单精度型变量注释： C11、在VB应用程序中，要隐藏窗体Form1,调用格式为_ 。 A：Form1.Show B：Form1.Hide C：Hide.Form1 D：Show.Form注释：B12、在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=

10、0 、X2=X/213、在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注释：A15、一元二次方程有两个根，在VB中，其中一个根的表达式写法为_ 。 A：-B+SQR(B*B-4*A*C)/2*A B：-B+SQR(B*B-4*A*C)/2/A C：(-B+SQR(B*B-4*A*C)/2*A D：(-B+SQR(

11、B*B-4*A*C)/2/A注释：D 注意优先级16、在VB中，如果要改变窗体的标题，需要设置窗体对象的_ 属性。 A：Name B：BackColor C：Caption D：BorderStyle注释：C17、在VB中，算法的三种基本结构是_ 。 A：顺序结构、分支结构、循环结构 B：顺序结构、流程结构、循环结构 C：顺序结构、分支结构、流程结构 D：流程结构、分支结构、循环结构注释：A18、在VB中，流程图的判断框有1个入口_ _ 个出口。 A：1 B：2 C：3 D：4注释：B19、以下变量名中，_ _ 是不符合Visual Basic的命名规范的。 A：Abc901 B：_mnu_O

12、pen_234 C：a_1 D：k注释：B 由字母、数字和下划线组成，且第一个为字母20、在VB中，下面流程图为输入A，B后，输出较大者，菱形中应填入_ 关系式。 A：AB B：A=B D：B=A注释：B 注意F T标志21、在VB中，下面关于算法的错误说法是_ B 。 A：算法必须有输出 B：算法必须在计算机上用某种语言实现 C：算法不一定有从键盘输入 D：算法必须在有限步执行后能结束注释：B 看算法概念22、在VB中，判断变量k大于或等于60并且小于70的条件表达式是_ 。 A：k=60 和 k70 B：60=k=60 OR k=60 AND k70注释：D 要用逻辑运算符 And并且23

13、、算法是解决问题的_。 A：程序代码 B：方法与步骤 C：计算公式 D：最终结果注释：B 看算法概念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=绿色E

14、nd SubB：Private Sub Form_Click()Form1.BackColor=vbGreenEnd Sub C：Private Sub command1_Click() Form1.forecolor=vbGreenEnd Sub D：Private Sub Form_Load() Form1.BackColor =绿色End Sub注释：B27、表达式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

15、(X)+Y)2注释：D28、下面程序的执行后，A和B分别是_。Private Sub Form_click()Dim A, B, M As IntegerA=1:B=15FOR M=1 TO 10A=A+1:B=0NEXT M PRINT A;BEnd Sub A：1,0 B：11,0 C：10,0 D：11,15注释：B29、下面程序的执行后，输出结果是_。Private Sub Form_click()Dim E, F, G As IntegerE=3:F=4:G=5E=F:F=G:G=EPRINT E;F;GEnd sub A：3 4 5 B：4 5 3 C：4 5 4 D：4 5 5注

16、释：C 注意E的变化30、在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:Private Sub Command1_Click()s = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是_A：1 B：5 C：27 D：45注释：B 循环几次找出规律二、操作题1、打开考生文件夹下的工程文件ex1.vbp，单击Command1按钮, 修改其中的程序，使其能输出如下图形。操作

17、完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除）Private Sub Command1_Click()Dim I, j As IntegerFor I = 1 To _6_For j = 1 To _I_Print _j；_Next jPrintNext IEnd Sub2、打开考生文件夹中的工程文件ex12.vbp，完善程序。某航空公司客户行李管理规定: 客户行李20千克及其以下, 运费0.5元/千克；20千克以上, 不足50千克的运费0.8元/千克；50千克及其以上运费为1元/千克，利用文本框Text1输入行李重量,单击计算按钮时，将计算出的客户应付金额结果在文本框t

18、ext2内显示出来。最后按原文件名保存在考生文件下。（注明：运行时，把红色下划线删除）Private Sub command1_Click() X = Val(Text1.Text) If _x=20_then_ 第一空 Y = X * 0.5 Else _if_x= 60 Then _n=n+1_Next i Print _n_End Sub6、打开考生文件夹下的工程文件ex7.vbp，完善程序。在文本框text1中输入n的值，单击Command1按钮，求1*2*3*.*n的值，并在窗体上打印出来。操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除）Private Sub

19、 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; !=; kEnd Sub7、打开考生文件夹中的工程文件ex8.vbp，完善程序。编一段程序，由TEXT1输入X的值，求 1 X0 Y= 0 X=0 -1 X0操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除）Private Sub Form_Click() Dim x, y As Integer x = Val(Text1.Text) If x = 0 Then

20、 _y=0_ Else If x 0 Then _y=-1_ Else _y=1_ End If End If Print _y_End Sub8、打开考生文件夹中的工程文件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 SEnd Sub9、打开考生文件夹下的工程文件ex13.vbp，完善程序

21、。目前世界人口为60亿，如果以每年1.4%的速度增长，多少年后世界人口达到或超过70亿。操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除）Private Sub Form_Click()Dim p As DoubleDim r As SingleDim n As Integerp = 6000000000 r = 0.014n = 0Do While_p7000000000_p =_p*1.014_n =_n+1_LoopPrint n; 年后; 世界人口达; pEnd Sub10、打开考生文件夹中的工程文件ex14.vbp，完善程序。利用文本框Text1、Text2、T

22、ext3分别输入三个数，再单击Command1时，求出最小值并将结果打印在窗体上。操作完后以原文件名保存在考生文件夹下。（注明：运行时，把红色下划线删除）Private Sub Command1_Click()Dim a As DoubleDim b As DoubleDim c As DoubleDim min As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If _ab_ Then min = aElse min = bEnd IfIf c min Then min =_c_End IfPrint _min_End Sub11、打开考生文件夹中的工程文件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 SEnd Sub