高中信息技术算法及程序设计

1、高中信息技术?算法与程序设计VB选修?知识要点相关知识点一算法1 .定义相关题解：1算法：就是解决问题的方法和步骤.算法是程序设计的“灵魂,算法+数据结构=程序.单项选择题1、运用计算机程序解决实际问题时,合理的步骤是B.A、设计算法一分析问题一编写程序一调试程序B、分析问题一设计算法一编写程序一调试程序C、分析问题一编写程序一设计算法一调试程序D、设计算法一编写程序一分析问题一调试程序2 .算法的描述方法：1算法的描述：可分多种表达方法,一般用自然语言、流程图和伪代码进行描述.2自然语言描述法：指用人们日常生活中使用的语言本国语言,用自然语言描述符合我们的习惯,且容易理解.3流程图描述：也称

2、程序框图,它是算法的一种图形化表示方法.且描述算法形象、直观,更易理解.4伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描述.是专业软件开发人员常用方法.相关题解：单项选择题1、图形符号"O"在算法流程图描述中表示B.A处理或运算的功能B输入输出操作C用来判断条件是否满足需求D算法的开始或结束2、图形符号"|"|在算法流程图描述中表示A.A处理或运算的功能B输入输出操作C用来判断条件是否满足需求D算法的开始或结束3、以下哪个是算法的描述方法AA流程图描述法B枚举法C顺序法D列表法4、以下哪个是算法的描述方法DA顺序法B列表法C集合法D自然语言

3、描述法介于自然语言和计算机语言之间的一种算法描述是以下哪个选项A、伪代码B、流程图C、tWj级语言D、VB程序设计语言二程序设计根底1常用高级编程语言：BASICVBPascal、C、C+、Java1面向对象的程序设计语言：其中的对象主要是系统设计好的对象,包括窗体等、控件等2控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件,如文本框,命令按钮常用控件控件对象的类型前缀名字举例一窗体Formfrmfrmfind命令按钮Commandbuttoncmdcmdok标签Labellbllblinput文本框TextBoxtmrtmrClock右命令按钮Command®勺Enab

4、led属性设置为True时按钮成效,设置为False时按钮无效3对象的属性、方法和事件1属性属性Name设置对象的名称Caption决定控件中显示的内容文字Text决定窗体中文本框中显示的内容初始为空白Height决定控件高度Width决定控件宽度TOP决定控件的靠顶部位置Left决定控件的靠左边位置Font设置控件中字体格式BackColor设置控件背景色ForeColor设置控件的前景色BorderStyle设置控件的边框风格Alignment即标签文字对齐属性：0LeftJustify时文本左对齐；1RightJustify时文本石对齐；设置为2Center时文本居中.AutoSize设

5、置为False时输入控件Caption中文字超过控件宽度时超出局部被裁剪掉,设置为True时,控件可水平扩充,以适应控件Caption属性.Visible决定控件是否可见Enabled决定控件运行时是否有效对象.属性=属性值对象中属性可以在设计界面时通过属性窗中设置,也可以在运行时通过程序代码设置,方法如下例：给文本框“Txt123的“Text属性赋值为字符串“20,代码如下="20变量=对象.属性如果要获取对象的状态或特性,这时就要读取对象的属性值,方法如下例：读取文本框“txt123的“Text属性的代码如下a=2 方法对象.方法参数名表例：欢送使用该语句使用print方法在fo

6、rm1窗体中显示字符串“欢送使用3 事件及事件驱动事件是对象对外部操作的响应,如在程序执行时,单击命令按钮会产生一个Click事件.如需要命令按钮响应Click事件,就把完成Click事件功能的代码写到Click事件的事件过程中,与事件一一对应.事件过程的形式如下：PrivateSub对象_事件名()(事件过程代码)EndSub一个简单的VB程序求圆的周长和面积PrivateSubCommand1_Click()DimrAsSingle'定义r为单精度型DimcAsSingle'定义c为单精度型DimsAsSingle'定义s为单精度型r=Val'输入半径rc=

7、2*r'计算周长s=*r*r'计算面积=c'输出周长=s'输出面积EndSubPrivateSubCommand2_Click()End'退出EndSub相关题解：单项选择题1、以下关于程序设计说法正确的选项是(B).A、程序设计语言的开展经历了机器语言、汇编语言到高级语言的过程,比较流行的高级语言是PASCAL,FORTRAN,EXCEL,C+痔B、程序设计就是寻求解决问题的方法,并将其实现步骤编写成计算机可以执行的程序的过程C、程序设计语言和计算机语言是同一个概念的两个方面D、程序设计就是指示计算机如何去解决间题或完成一组可执行指令的过程2、以下说法

8、错误的选项是(D).A、程序设计就是寻求解决问题的方法,并将其实现步骤编写成计算机可以执行的程序的过程B、程序设计语言的开展经历了机器语言、汇编语言、高级语言的过程C、计算机程序就是指计算机如何去解决间题或完成一组可执行指令的过程D、程序设计语言和计算机语言是同一概念的两个方面以下不属于程序设计语言中高级语言的是C.A、BASICB、C语言C、汇编语言D、PASCAL程序设计语言的开展历程中,不包括.A、自然语言B、机器语言C、汇编语言D、tWj级语言一、常量：批在程序进行过程中不变的量在VB中一般分数值常量与字符常量两种数值常量：就是数学中说的常数,分整型常量和实型常量两种整型常量：即整数,

9、指不带小数点的数值如1、0、-10、+35等都是合法的整数实型常量：即实数,指带小数点的数值.实型常量又分为定点数和浮点数两种.例：定点数：和,浮点数：2E6、1E5、88E例：X103可表示为,字母E表示底数10浮点数就是数学上的科学计数法.字符串常量：被一对双引号括起来的假设干个合法的字符称为字符串常量.例如：China、VisualBasic、18、3.1415等,双引号中字符,不包括双引号本身.符号常量：如果屡次用到同一个常量,那么可用一个有意义的名字表示这个常量.二、变量：在程序执行过程中,其值可以改变的量称为变量变量命名注意要点：1、必须以字母开头,不能以数字或其他字符开头.2、只

10、能由字母、汉字、数字学或下划线组成,不能含有小数点、空格等字符.3、最长不超过255个字符4、不能以VB保存字作变量名,如语句定义符、函数名等.5、VB不区分变量名中字母大小写.如HELLOS口Hello是同一个变量.数据及运算1常用数据类型：整型Integer、长整型Long、单精度型Single、双精度型Double、字符串型String、布尔型Boolean、日期型Date其中整型Integer、长整型Long、单精度型Single、双精度型Double属于数值型表示范围：整型Integer-3276832767,存储为16位,2个字节长整型Long-21亿21亿,可以表示人口数量布尔型

11、BooleanTrue真、是或False假、非字符串型String定长字符串：065535个字符,不定长字符串：020亿个字符字符串型数据是指用“括起来的一串字符.如“欢送进入VB世界！、“VisualBasic、“1234都是字符串类型.日期型Date100/1/19999/12/31日期型数据专门用来处理日期和时间.VB采用一对“#把日期和时间的值括起来,如#2003/08/20#表示2003年8月20日.2常量和变量的命名、声明及赋值符号常量的声明：Const常量名As常量类型=常量值如：ConstpiAsSingle=常量名为pi变量的声明：Dim<变量名>As<变量

12、类型>如：DimaAsInteger定义一个整型变量,变量名为a变量的赋值VB中使用Let语句给变量赋值,其形式如下：Let变量=表达式其中,方括号表示这局部内容是可选的,通常可以省略该关键字.例题PrivateSubForm_ClickDimaAsInteger,bAsInteger,cAsIntegerDimstrAsStringLeta=54Letb=114c=a+bstr="HelloWorld"Print"a="a,"b="b,"c="cPrintstrEndSubVB语言中,以下数据类型说明符中表

13、示整型的是B.A、 BooleanB、 IntegerC、 DateD、 String数据的输出程序中运算得到的结果,除可以使用文本框和标签显示外,对于大批量的数据更适合用Pint方法输出,格式如下对象.Pint表达式列表例题：PrivateSubForm_ClickDimxAsSingle,yAsSingle-61;-349*2;12"Thisis""abook"x=3:y=4Print"x="x,"y="yEndSub注意：Print方法相关题解：单项选择题在VB语言中,以下合法的变量名是B.A、34abB、a

14、b34C、*abcD、cc以下选项中属于字符串常量的是.A、abB、a+bC、"1235"D、1235在VB语言中,以下合法的变量名是.A、aaB、a*bC运算符1、算术运算：+加-减*A指数/浮点除整除Mod求余数相关题解单项选择题1、分析以下程序、7abD、dim乘例：2A2=4例：5/2=例：52=2例：5Mod2=1PrivateSubForm_Click()s=113+11Mod3PrintsEndSub当单击窗体时s的值是(A).A、5B、6C、4D、3关系运算=赋值、<小于号<>不等于>T口大于号>=大于等于号<=小于等于号

15、注意：关系表达式的运算结果为布尔值True或False例：3>2结果为True真或是相关题解单项选择题1 、下面表达式的值是false的有C.A、"969"<"n97"B、Int<>len("basic")C、str(2000)<"1997"D、3>2逻辑运算Not取反And与Or或运算结果为布尔型BooleanTrue或False逻辑运算符的优先级为：No>And>Or1 、以下逻辑表达式的值为“假的是A.A、2+4>8B、3+12=15C、5>0And

16、4>3D、10/5<32、以下逻辑表达式的值为“假的是D.A、3+5>7B、8/4<4C、5>3And3>2D、4+11>203、A,B,C,D是简单变量,且都已有互不相同的值,执行语句A=C:D=B后,以下关系表达式逻辑值为“真的是A.A、C=AB、A=BC、D=CD、B=C日期运算符与日期表达式日期表达式是用日期运算符“+或“-将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子,如表达式“#2003/09/01#+30的运算结果是“2003-10-1；表达式“#2003/10/20#-#2003/10/10#的运算结果为整数10相关题解

17、单项选择题1、设a=2,b=3,在VB中,表达式a>bOrb>3值是：(B)A、FalseB、TrueC、-1D、1字符运算字符串连接符为“+和“&“123+“45=“12345“123&“45=“12345123+“45=168“123+45=168相关题解单项选择题VB的字符串运算符是“&,该运算符主要用于连接两个或更多的字符串.如："abcd"&"efg"连接后的运算结果为："abcdefg".那么,"1+2"&"3"的运算结果为：(C)

18、.A、33B、6C、"1+23"D、True运算符的执行顺序在VB中,当一个表达式中同时出现多种运算符时,运算次序由运算符的优先级决定,优先级高的运算符先运算,优先级相同的从左向右进行运算.不同性质的运算符优先级如下.算术运算符>字符串运算符>关系运算符>逻辑运算符相关题解单项选择题在VB语言中,表示“a大于0且b小于12的正确表达式是(D).A、 b<12ora>0B、 b>12Anda<0C、 a>12Ora<0D、 a>0Andb<12常用函数数学函数Abs(x)求x的绝对值,例：abs=Sqr(x)求

19、x的平方根,例：sqr(100)=10Int(x)求wx的最大整数例：int=3int=-4Rnd(x)产生0,1)之间的随机数(不包括1)Sin(x)Cos(x)Tan(x)Atn(x)Exp(x)Log(x)使用三角函数时,参数应是弧度,如数学中sin300应写为：sin(30*180)字符串函数Len(字符串)求字符串的长度,例：Len(“hello)=5Left(字符串,截取长度)截取字符串左边局部,例:Left(“hello,2)=“heMid(字符串,起始位置,截取长度),例：Mid(“hello,2,2)=“elRight(字符串,长度)截取字符串右边局部.例:Right(“he

20、llo,2)=“loString(数值,字符)生成指定长度与指定字符的字符串,例：String(3,9)=999函数mid(C,N1,N2)的作用是从字符串C中N1位开始取出长度为N2的子串.那么,Mid("aBcDeFg",3,3)的值为(D).A、aBcB、cdeC、eFgD、cDe常用转换函数Val(字符串)将字符串转换为数值Str(数值)将数值转换为字符串Chr(字符代码)Asc(字符)Tab定位函数的使用例题PrivateSubForm_Click()DimaAsIntegerDimbAsIntegera=4:b=9PrintTab(1);"数"

21、;Tab(9);"平方"Tab(18);"立方"Tab(27);"平方根"PrintTab(1);a;Tab(9);a*a;Tab(18);a*a*a;Tab(27);Sqr(a)PrintTab(1);b;Tab(9);b*b;Tab(18);b*b*b;Tab(27);Sqr(b)EndSub用户交互函数VB提供InputBox()和MsgBox()函数用于人机交互InputBox()其语法格式为：InputBox(提示,标题,默认值儿X坐标,Y坐标DMsgBox()其语法格式为：MsgBox(提示信息,按钮,标题)相关题解单项选

22、择题1 、VisualBasic中,以下(A)函数是求绝对值的.A、ABS(X)B、SQR(X)C、INT(X)D、GN(X)2、表达式Abs*sqr(100)的值是(C).A、-36B、360C、36D、-3603、以下(A)数据类型不是数值型.A、DateB、SingleC、DoubleD、Integer4、以下函数中,返回值是字符串的是(A).A、MidB、InstrC、ValD、Len5、以下(A)函数返回系统的当前时间.A、time()B、date()C、day()D、year()6、代数表达式表达式后错误的选项是(D)A、g*t*t/2B、1/2*g*tA2C、g*tA2/2D、g

23、tA2/27、数学式子在VB中的正确写法是：()A、(2*a+b)/4*aB、(2*a+b)/(4ab)C、(2a+b)(4ab)D、(2*a+b)/(4*a*b)8、判断x是否在区间a,b上,在VB中以哪个逻辑表达式是正确的(C)A、a<xandx<=bB、a<x<=bC、a<xandx<bD、a>xandx<=b综合分析1 、向n变量存入1个2位整数,要使此2位数十位和个位上的值分别存入x,y变量.正确的算法是(D).选项:x、x=Left(n,1)丫刃七.Printx:PrintyB、x=Left(n,1)y=Right(n,1)Print

24、x:PrintyC、*.丫刃七.Printx:PrintyD、x=Int(n/10)丫刃七.Printx:Printy(A).选项:A、输人字母到B、输人字母到C、输人字母到D、输人字母到2 、向x变量中输入任意一个小写字母,再将x变量中的小写字母转成大写字母.正确的算法是xa=Asc(x)-32x=chr(x)Printxxa=Asc(x)+32x=chr(x)Printxxa=Val(x)一32x=Chr(x)Printxxa=Val(x)+32x=Chr(x)Printx程序设计的顺序结构顺序结构：代码根据由上到下的顺序一行一行地执行.程序执行过程中没有分支、没有重复,这种结构称为顺序结

25、构.例题：交换两个变量中的数据.PrivateSubcmdSwap_Click()DimxAsSingle,yAsSingleDimmAsSinglex=Valy=Valm=x:x=y:y=m'交换数据=Strx=StryEndSubPrivateSubcmdEnd_ClickEndEndSub相关题解单项选择题1 、以下是一段VB程序：a=1b=a+1c=a+b它的根本结构属于AA、顺序结构B、选择结构C、循环结构D、树型结构2、以下VB程序运行后,变量x的值为A.x=2Printx+lPrintx+2A、2B、3C、5D、8程序设计的分支结构行If语句行If是指在一行中写完的If语

26、句.其一般格式为：格式一：If条件Then语句执行这种形式的If语句时,首先对条件进行判断.假设条件成立,那么执行Then后面的语句；假设条件不成立,那么执行If语句后继程序行的语句格式二：If条件Then语句1Else语句2例题：输入三个不相同的数,求出其中最小数.PrivateSubForm_ClickDimaAsSingle,bAsSingle,cAsSingleDimMinAsSinglea=InputBox"输入a","输入框"b=InputBox"输入b","输入框"c=InputBox"输入

27、c","输入框"Ifa<bThenMin=aElseMin=bIfc<MinThenMin=cPrint"最小数="MinEndSub执行这种形式的语句时,先进行判断.假设条件成立,那么执行语句1；否那么执行语句2.块If语句上述If-then语句只能根据条件的真假是否执行一条语句,当Then局部和Else局部包含的内容较多时,那么可选用“块If语句结构.格式三：If条件Then语句块EndIf例题：当从输入一个数时,当该数大于或等于60时显示"及格",该数小于60时显示"不及格".Priva

28、teSubCommand1_Click()DimaAsSinglea=ValIfa>=60Then="及格"EndIfIfa<60Then="不及格"EndIfEndSub格式四：If条件Then语句块1Else语句块2EndIf例题：编写程序,求函数Y的值(当xW0时,y=3x+1;当x>0时,y=4x+1).PrivateSubForm_Click()DimxAsSingleDimyAsSinglex=Val(InputBox("请输入变量x")Ifx<=0Theny=3*x+1Elsey=4*x+1End

29、IfPrint"y="yEndSub相关题解单项选择题1、以下是一段VisualBasic程序:IfI=1ThenX=X+1ElseX=X*2EndIf它的根本结构属于(A).A、选择结构B、循环结构C顺序结构D、树型结构2、以下程序段运行后,变量Value的值是(A)x=20Ifx>=10ThenValue=5*xElseValue=4*xEndIfA、100B、80C、90D、70综合分析1、如要完成:从键盘输入一个正整数,判断是否是奇数,如是就在屏幕上显示.比拟好的算法是(BD)选项:A、B、C、D、2、下面是判断变量输人的数存人输人的数存人输人的数存人输人的数

30、存人下面是判断变量n变量f=(n/2=Int(n/2)n变量f=(n/2=Int(n/2)n变量如果n/2=Int(n/2)n变量如果n/2=Int(n/2)x是不是能被5整除的偶数的程序,横线上的逻辑表达式应为如果f中的值为True就显示n中值如果f中的值为False就显示n中值成立,就显示n中值不成立,就显示n中值(AB)PrivateSubcommandl_Click()DimxAsIntegerx=Val(Text1.Text)If=0Then=这个数是能被5整除的偶数Else=这个数不是能被5整除的偶数EndIf选项：A、B、C、D、3、如要完成(xMod5)=0And(xMod2)

31、=0xMod10=0xMod5=0xMod2=0:从键盘输入一个正整数,判断是否是偶数,如是就在屏幕上显示.比拟好的算法是(AC)选项:A、B、C、D、4、以下程序段运行后输入的数存人输入的数存人输入的数存人输入的数存人n变量f=(n/2=Int(n/2)n变量f=(n/2=Int(n/2)n变量如果n变量如果,m的值为(n/2=Int(n/2)n/2=Int(n/2)A)如果f中的值为True就显示n中值如果f中的值为False就显示n中值成立,就显示n中值不成立,就显示n中值A、B、C、D、A=2:b=1:c=5IfA<bThenm=AElsem=bIfc<mThenm=c选项

32、：125提示错误,无答案程序设计的循环结构一、For-Next循环For循环变量一般形式是：For循环变量=初值To终值Step循环变量增量循环体Nxt循环变量例题1:求s=1+2+3+4+100PrivateSubForm_Click()DimiAsIntegerDimsumAsIntegersum=0Fori=1To100sum=sum+i'循环体NextiPrint"sum="sumEndSub例题2:Step循环变量增量PrivateSubForm_Click()Forj=3To15Step2PrintjNextjEndSub循环变量的初值、终值、循环变量增

33、量都是数值型.其中要重复执行的操作称为循环体,增量可正可负,如果没有设置Step,那么增量的缺省值为11、循环变量取初值；2、循环变量与终值比拟,没有超过终值转3,否那么循结束,接着执行循环语句的后继语句；3、执行一次循环体4、循环变量增加一个增量5、重复步骤24.以上可以看出,For-Next循环变量是一种当型循环.说明(a) For语句与Next语句必须成对出现,而且它们当中的“循环变量必须是同一个变量,如上例中均为I.(b) 当循环变量为正时,循环变量超过终值,是指循环变量的值大于终值时；假设为负,那么是指循环变量的值小于终值.出口二、DoLoop循环For-Next循环的次数是确定的,

34、但是有的问题只知道循环结束的条件,重复执行的次数事先并不知道,这是需要Do-Loop循环格式一：DoWhile条件循环体Loop例题：求最大公约数PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimrAsIntegera=Valb=Valr=aModbDoWhiler<>0a=bb=rr=aModbLoop=Str(b)EndSubPrivateSubCommand2_Click()EndEndSub当VB执行DoWhile-Loop循环时,先判断指定的条件是否为真,假设条件为真,执行循环体,条件为假时退出循环.格式二：Do

35、循环体LoopUntil条件这种循环的执行过程如下图.进入循环体后,先执行一次循环体A,然后再检查条件P是否成立.如果不成立,就重复执行循环体A,直到条件P成立退出循环体.P例题：如果我国人口每年以平均勺速度增长,问多少年后我国人口达到或超过15亿设现在人口为亿.PrivateSubForm_Click()DimpAsSingleDimrAsSingleDimnAsIntegerp=00#n=0Dop=p*(1+r)n=n+1LoopUntilp>=00#Printn;"年后","人口="pEndSub以下程序段执行结束后,变量y的值是(C).y=

36、2Dowhiley<=6y=y+yLoopA、2B、6C、8D、16分析程序,写出执行结果.PrivateSubcommand1_click()DimSAsIntegerAsIntegerS=0Fori=1to10Step2S=S+iNextiPrint"S="sEndSub答案：S=25(三)算法与问题解决1、解析法2、穷举法3、递归法综合分析1、有5人,问第5人年龄,说比前面第4人小3岁,问第4.3.2人,都说比前面人小3岁,用递归法解决此问题的正确步骤是问第1人,说他的年龄为38岁.问第5人的年龄多大.A、B、C、D、4、定义定义定义定义age(n)age(n)

37、age(n)age(n)排序与查找数据函数函数函数函数函数中当n>1时返回函数值为函数中当n>1时返回函数值为函数中不断地调用函数中不断地调用age(n-1)当n=1返回函数值为38age(n-1)-3当n=1返回函数值为38age(n-1)-3age(n)函数自己四、应用程序设计1、程序设计的一般步骤2、简单程序设计综合分析1、A、B、C、D、2、a,b,c三变量存放不同的数,值a最大,b第二,比拟好的算法是(定义一个如a<b如a>b如a<bmax(x,y)函数(值为x,y中的大值)a=max(max(a,b),c)就a=b如a<c就a=c就a=b如a&g

38、t;c就a=c如b<c如b>c就两变量交换如a<c就两变量交换就b=c就b=c如b<c就两变量交换求2!+3!+4!+5!+10!的值.能完成此运算,并且比拟好的算法是A、B、C、D、3、A、B、C、D、函数进行累加9个循环定义求阶乘的函数用jc(n)主程序中用一个循环9次调用jc(n)用一个程序完成：每一项阶乘用一个For/Next循环完成,整个程序包括用解析法：s=1*2+1*2*3+1*2*3*4+1*2*3*4*5*6*7*8*9*10不必定义函数,只要用一个单重循环就能完成要求打印100至200之间所有偶数的平方根(C)i=100DoWhilei<200

39、:Printi,Sqr(i):loopi=100DoWhilei<200:Printi,Sqr(i):i=i+1:loopFori=100to200step2:Printi,Sqr(i):NextiFori=100to200:Printi,Sqr(i):Nexti编程题必修1_15、编写程序,使能打印下面所示的图案.*程序：PrivateSubFormClick()DimiAsInteger'定义i为整型变量DimjAsInteger'定义j为整型变量Fori=-3To3PrintTab(Abs(i)+5)Forj=1To(4-Abs(i)-1Print"*&q

40、uot;NextjPrint'换行NextiEndSub必修2_15、编写程序,使能打印下面所示的图案.*程序：PrivateSubFormClick()DimiAsInteger'定义i为整型变量DimjAsInteger'定义j为整型变量Fori=-3To3PrintTab(Abs(i)+5);Forj=1To2*(3-Abs(i)-1Print"*"NextjPrint'换行NextiEndSub必修3_15、编写程序,使能打印下面所示的图案.程序：DimiAsIntegerDimjAsIntegerFori=1To6PrintTab(

41、10);Forj=1ToiPrint“;NextjPrintNextiEndSub必修4_15、完善显示按钮的click程序,将代码段中“变量1“、“变量2.“变量3、处换成正确的变量名,使当单击该按钮时,Labell.Label2分别显示30、10,完成所有操作后,诸按“Ctrl+S保存.PrivateSubCommand_Click()x=10y=30Ifx<yThent=xx=yy=tEndIf=x=yEndSub必修5_15、完善"判断"按钮的click程序,使当从Textl中输入一个数时,当该数大于或等于60时在Lebell中显示"及格"

42、,该数小于60时在Labell中显示"不及格".完成所有操作后,诸按“Ctrl+S保存.PrivateSubCommand1_Click()DimaAsSinglea=ValIfa>=60Then=“及格EndIfIfa<60Then=“不及格EndIfEndSub必修1_16、编写程序,求函数y的值(当x<=0时,y=3x+1;当x>0时,y=4x+1).程序：DimxAsSingle'定义x为单精度型变量DimyAsSingle'定义y为单精度型变量x=Val(InputBox("请输入变量x")Ifx<

43、=0Theny=3*x+1Elsey=4*x+1EndIfPrint"y="yEndSub必修2_16、编写程序,求y=6x-5的值.(x的值在程序中调用InputBox函数,在弹出的标准输入对话框中输入)程序：PrivateSubForm_Click()DimxAsSingleDimyAsSinglex=Val(InputBox(“请输入变量x)y=6*x-5Print“y=;EndSub必修3_16、一只猴子摘了一堆桃子,它每天吃当天桃子数的一半,每次忍不住多吃了一个.这样到第十天时只有一个桃子可以吃了,编程计算猴子最初共有多少个桃子.完成所有操作后,诸按“Ctrl+S

44、保存.程序：PrivateSubForm_Click()DimiAsIntegerDimsAsIntegers=1Fori=1To9s=(s+1)*2NextPrint“s=;sEndSub必修4_16、完善按钮“计算7!的Click事件程序,当单击命令按钮时Text1显示7!的值.PrivateSubCommand1_Click()DimaAsIntegerDimiAsIntegera=1Fori=1To7a=a*iNexti=aEndSub必修5_16、请将按钮"计算1+2+100"的Click事件程序中的"常量"和"变量"换成正确的常量和变量,当单击命令按钮时Text1显示1+2+""