高中算法与程序设计ppt课件

1、算法与程序设计算法与程序设计算法可以没有输入，但算法至少有算法可以没有输入，但算法至少有1个输出，算法在执行有穷步后要结束个输出，算法在执行有穷步后要结束程序设计语言的发展历程： 机器语言汇编语言高级语言P18常见的高级语言： Visual Basic、Pascal、C、C+、Prolog、Java、LISP、Algol、Cobol、Basic等第一个高级程序设计语言是 Fortrann高级语言由于抽象度高，源代码与硬件无关，可移植性强。n常见的高级语言有fortran,Basic,Pascal,C,C+,java,Prolog。或者：dim r1 as single dim r2 as si

2、ngledim r1 as single, r2 as single变量的定义方法格式：Dim 变量名 As 类型 如dim x as integer定义多个变量： 变量的命名规则变量的命名规则1） 必须以字母开头，由字母、数字必须以字母开头，由字母、数字 或或 下划线下划线_ 组成，组成，长度长度255个字符个字符2） 不能使用不能使用VB中的关键字，并尽量不与中的关键字，并尽量不与VB中标准函中标准函数名同名；如：数名同名；如：Dim 、if 如：如： a2 ，a_2，apple，VB等是正确的；等是正确的； 2a ，a=2 ，dim 等是错误的等是错误的基本数据类型基本数据类型运算符：运

3、算符：如a=9 b=4ab值为2 即整数除 a/b值为2.25 即实数除a mod b的值为1【留意】多层括号统一用()表示：(a+b)*b)*(a-b)常见函数常见函数Fix(x) 取整 fix(-1.6)=-1 fix(1.6) =1输入数据的函数Inputbox(提示信息,标题,默认值,位置)提示信息：指对输入数据的提示，显示在对话框中，不能省略。标题：指对运行此函数后弹出的对话框的标题。默认值：指默认的输入数据值。位置：是指运行此函数后弹出的对话框的左上角在屏幕上的位置样例：如 x= InputBox (“请输入粮食的单价”, “数据输入”，20) 它是提供从键盘输入数据的函数。利用它

4、可产生一个对话框不需要事先画），提示用户输入数据并单击命令按钮。该函数返回用户输入数据的值。 格式：print 输出内容如print a+b 输出算式a+b计算后的数值 print “hello” 输出hello print 1+2=3 输出 true【留意】 在英文半角状态下的双引号中所表示的数据类型是字符型。 如 “a=” 条件语句的格式：条件语句的格式：格式一： 格式二：If 条件条件 Then 语句语句1 Else 语句语句2If 条件条件 Then 语句组语句组1Else 语句组语句组2End If关系表达式关系表达式逻辑表达式：逻辑表达式：P43P43例子：例子：0=b=0 and

5、 b100=b=0 and b10 a=5 a10 a10a10 a10For 循环语句的格式：循环语句的格式： For循环变量循环变量=初值初值To终值终值Step步长值步长值 语句组语句组 Next循环变量循环变量 For 循环语句的注意事项：循环语句的注意事项：P51（1For-Next语句必须成对出现，循环变量名保持一致语句必须成对出现，循环变量名保持一致 （2循环变量是数值型变量循环变量是数值型变量 （3步长值可正可负，当步长值为步长值可正可负，当步长值为1时，时，Step及步长值可以省略及步长值可以省略 建立一个建立一个VB应用程序一般的四个步骤：应用程序一般的四个步骤：(1)建立

6、应用程序界面建立应用程序界面(2)设置对象的属性设置对象的属性(3)编写应用程序的代码编写应用程序的代码(4)保存和运行程序保存和运行程序【留意】以上是完整的建立一个【留意】以上是完整的建立一个VB程序的步骤。但考试时常出现已做程序的步骤。但考试时常出现已做(1)(2)，要，要求完善求完善(3)的情况；或者要求做的情况；或者要求做(1)(2)，但不要求做，但不要求做(3)的情况，当然也可能要求完整的情况，当然也可能要求完整的做的做(1)(2)(3)(4)，一定要注意审题。第，一定要注意审题。第(4)个步骤：保存和运行程序，一定要验证程个步骤：保存和运行程序，一定要验证程序是否正确，然后以要求的

7、文件名保存在要求的路径下。留意：至少序是否正确，然后以要求的文件名保存在要求的路径下。留意：至少2个文件，工个文件，工程文件程文件(扩展名扩展名vbp)和窗体文件和窗体文件(扩展名扩展名frm)。AABDdcbaCBCAACDCCCBD A 18.下列计算机程序设计语言中都属于高级语言一组的是( )A.汇编语言、JavaB.Pascal、JavaC.机器语言、PascalD.汇编语言、Visual Basic B 19.设置TextBox的字体颜色时，应改变TextBox的( ) A.Font属性 B.Name属性 C.Text属性 D.ForeColor属性 D 20.代数式 aacb242

8、A. (b*b4*a*c)/(2/a)B. (b*b4*a*c)/2aC. (b*b4*a*c)/2*aD. (b*b4*a*c)/2/a对应的对应的VB表达式是表达式是( ) D D1S*iPrivate Sub command1_click()Dim a as integerText1.text=aIf a mod 3=0 Then text2.text=”能” Elsetext2.text = “不能”End ifEnd SubA=text1.textIf a mod 3=0 Then text2.text=”能” Else text2.text = “不能”End ifPrivate

9、Sub command1_click()Dim a as single,b as single,i As singleText1.text=aText2.text=bIf a b Then i = a Else i = b End IfPrint iEnd Suba=Text1.textb=Text2.textPrivate Sub Command1_Click()Dim i As IntegerDim s As Integers = 0删除，填入正确的代码For i = 3 To 100 s = s + iNext i删除，填入正确的代码Print 求1到100之间所有的能被3整除的数之和;

10、 End SubsStep 3Private Sub Command1_Click()Dim a as single删除，填入正确的代码If a=0 then Text2.text=”0”Else If a0 then text2.text=”正数”else text2.text=”负数”删除，填入正确的代码End Suba = text1.text End if Private Sub Command1_Click()Dim i As IntegerDim s As Integers = 0For i = 1 To 100 step 1删除，填入正确的代码 If then s=s+1Next

11、 i删除，填入正确的代码Print 1到100之间能被6整除的个数是：; End Subi mod 6 = 0 sPrivate Sub Command1_Click()Dim a as single,b as single,c as single,d as singleA=text1.text删除，填入正确的代码C=text3.text删除，填入正确的代码Text4.text=dEnd SubB=text2.textd=(a+b+c) /3Private Sub Command1_Click()Dim a As Integer删除，填入正确的代码删除，填入正确的代码If then text2

12、.text=”是”else text2.text=”不是”End SubA=text1.textA mod 4=0Private Sub Command1_Click()删除删除，填入正确的代码，填入正确的代码A=text1.textB=text2.textC=text3.text删除删除，填入正确的代码，填入正确的代码If then text4.text=” 有实根有实根” else text4.text=”无实无实根根”End Sub Dim a as single, b as single, c as single b2-4*a*c=0Private Sub Command1_Click

13、()Dim i As IntegerDim s As Singles = 0删除删除，填入正确的代码，填入正确的代码For i = 1 To 10 删除删除，填入正确的代码，填入正确的代码 s=Next iPrint 1/1+1/4+1/7+1/10=; sEnd Sub Step 3s+1/i12.已知三角形一条边边长为已知三角形一条边边长为12，输入另外两条边的边长，输入另外两条边的边长a、b，判断判断a、b和和23能否构成一个三角形。能否构成一个三角形。例：在例：在Text1输入输入a、Text2输入输入b，如果，如果a+b12、a+12b 、b+12a ，则在，则在Text3文本框中输

14、出文本框中输出是是，否则在，否则在Text3文本框中文本框中输出输出否否。Private Sub Command1_Click()DIM A AS single , b as integerA=text1.textB=text2.textIf then text3.text=“是是”Else End ifEnd SubA+b12 and a+12 b and b+12a text3.text=“否否”Private Sub Command1_Click()删除，填入正确的代码Dim a as A=text1.text删除，填入正确的代码If then text2.text=a2 else te

15、xt2.text=a*3+1End Sub integera mod 2 = 0 Private Sub Command1_Click()Dim N As IntegerDim s As Integer删除，填入正确的代码N = Text1.Texts = 删除，填入正确的代码For i = 1 To N if then s = s + iNext iText2.Text = sEnd Sub0n mod i = 0 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer i = Text1.Text

16、k = 0 For j = 2 To i-1 删除删除，填入正确的代码，填入正确的代码 If Then k = k + 1 Next j 删除删除，填入正确的代码，填入正确的代码 If Then Text2.Text = 是是 Else Text2.Text = 不是不是 End Subi mod j =0k=016.判断一元二次方程判断一元二次方程ax2+bx+7=0有无相等实根。若有相等实根有无相等实根。若有相等实根,则输出此实根则输出此实根,否则输出否则输出无无。例：在例：在Text1输入整数输入整数a、Text2输入整数输入整数b，如果，如果b2-4ac=0,则在则在Text3文本框中输出实根，否则在文本框中输出实根，否则在Text3文本框中输出文本框中输出无无。Private Sub Command1_Click()Dim a as singleDi