vb期末考试模拟题.pdf

《vb期末考试模拟题.pdf》由会员分享，可在线阅读，更多相关《vb期末考试模拟题.pdf（30页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、llvb 期末考试模拟题1、单项选择题(本题共计8 0分)1、能被对象所识别的动作与可执行的活动分别称为对象的 o ()A、方法、事件B、事件、方法C、事件、属性D、过程、方法2、一个应用程序 窗体。()A、只许有一个B、可以没有C、应该有两个D、可包括多个3、VisualBasic中 的 工 程 文 件 的 扩 展 名 是。()A、.regB、.frmC.basD、.vbp4、所谓 就是使某个对象进入活动状态(又称激活)的一种操作或动作。()A、事件B、属性C、方法D、对象5、将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件到其他机器上不能运行的主要原因是

2、。()A、运行的机器上无VB系统B、缺少.frm窗体文件C、该可执行文件有病毒D、以上原因都不对6、一只白色的足球踢进球门，则白色、足球、踢、进球门是。()A、属性、对象、方法、事件B、属性、对象、事件、方法C、对象、属性、方法、事件D、对象、属性、事件、方法7、下面 语句，可以将列表框Listl中当前选定的列表项的值替换成“ABC”。()A、Listl.Additem“ABC”，Listl.ListindexB、Listl.Text=“ABC”C、Listl.List(Listl.ListIndex ABC”D、前三项均可8、在VB中，下列关于控件的属性或方法中，搭配错误的有 个。Timer

3、l.Interval Listl.CisT ext 1.PrintList 1 .RemoveitemVscrolll.ValuePicture 1.Print()A、0B、1C、2D、39、在过程中可以用 语句定义变量。()A、Dim PrivateB、Dim StaticC、Dim、PublicD、Dim、Static Private10 VisualBasic程序设计时常用的Print、C is属于。()A、属性B、打印字库C、方法D、事件11、只能由系统触发的是 事件。()A、ResizeB、DblClickC、TimerD、Paint12、关于窗体Name属性的叙述，正确的是。()A

4、、窗体Name属性可以具有与别的公共对象相同的名字B、窗体Name属性和变量定义一样C、窗体Name属性最长可达25 5个字符D、窗体Name属性不能具有与别的公共对象相同的名字13、当对象失去焦点时，将会发生_ _ _ _ _ _ _ _ _ _ _ _事件。()A、GetFocusB、LostFocusC、FocusD、SetFocus14、以下不属于标签属性的是 o ()A、FontB、ValueC、CaptionD、Index15、对于一个含有计时器控件的窗体，每经过段由 属性指定的时间间隔，就会产生一个Timer事件。()A、NameB、EnabledC、CaptionD、Inter

5、val16、在运行过程中要把某控件变灰，应把 属性设置为False。()A、DefaultB、VisibleC ActivateD、Enabled17、如果在窗体上有命令按钮O K,在代码编辑窗口有与之对应的CmdOK_Click()事件,则命令按钮控件的名称属性和Caption属 性 分 别 为。()A、OK,CmdB、CmdQKC、CmdOK,OKD、OK,CmdOK18、以下有关对象属性的说法中错误的是 o ()A、所有的对象都具有Name(名称)属性B、只能在执行时设置或改变的属性为执行时属性C、对象的某些属性只能在设计时设定，不能使用代码改变D、Enabled属性值设为False的控

6、件对象在窗体上将不可见19、对正实数X的第四位小数四舍五入的VB表达式是 o()A、0.001*Int(x+0.0005)B、0.001*(1000*x+0.5)C、0.001*Int(1000*x+5)D、0.001*Int(1000*(x+0.0005)20、函数 Cint(-3.5),Int(-3.5),Fix(-3.5)的值分别是。()A、-3,-4,-3B、-4,-4-3C、-3,-4,-4D、-4,-3,-321、有如下程序代码：Private Sub Command l_Click()s=Sin(3.1415926/2)MsgBox sEnd Sub程序运行后，消息对话框显示 O

7、 ()A、0B、1C、1.5708D、222、有如下程序：Private Sub Command l_Click()s=Fix(23.1)e=Int(-23.1)Print Sgn(e+s)End Sub运行时输出的结果是 o ()A、-1B、0C、1D、2323、执行语句Print Format(1234.567J#,#0.00)”,正 确 的 输 出 结 果 是。()A、1234.57B、1,234.57C、1,234.56D、01,234.5724、己知 A$=12345678”，则表达式 Val(Left$(A$,4)+Mid$(A$,4,2)的值为)A、123456B、123445C

8、、8D、625、Int(198.555*100+0.5)/100 的值。()A、198B、199.6C、198.56D、20026、x+y小于10且xy大于0的 逻 辑 表 达 式 是。()A x+y 0B、(x+y)0C、x+y 0D、x+y 027、语句 Print“Int(-13.2)=；Int(-13.2)的输出结果为.()A、Int(-13.2)=-13.2B、Int(-13.2)=13.2C、Int(-13.2)=-13D、Int(-13.2)=-1428、执行下面的程序，单击窗体后在窗体上显示的结果是 oPrivate Sub Form_Click()Dim Strl As St

9、ring,Str2 As String,!As IntegerStrl=abFor I=Len(Strl)To 1 Step-1Str 1 =Str 1&Chr(Asc(Mid(Str 1,1,1)+1)Next IPrint StrlEnd Sub()A abceB、abedC、abdbD、abfd29、有如下程序：Private Sub Command l_Click()score=65select Case scoreCase Is 75 5D、75734、在窗体上建立3个文本框:Textl、Text2、T ext3,如果在Textl中输入2 0 0,在Text2中输入1 5 0,则执行

10、下列程序段后，Text3的值为。Dim m As Integer,n As Integerm=Val(Textl)n=Val(Text2)If n*m=0 Then Exit SubIf mn Thent=m:m=n:n=tEnd IfDor=m Mod nm=nn=rLoop While r0Text3=m()A、200B、150C、100D、5035 Dim y As Integerm=1Do While m If a=l Thenc=2Elself a=2 Thenc=3End IfD、If(a=l,2,3)Then c=237、下列程序运行后的输出结果是Private Sub Comm

11、and 1 _Click()For i=l TO 3Forj=OTO i-1k=k+lnext jnext iprint kEnd Sub()A、6B、5C、4D、338、在过程中有语句ForI=Nl ToN 2StepN3,在该循环体内有下列四条语句，其中会影响循环执行的次数。N1=N1+IN2=N2+N3I=I+N3N3=2*N3()A、B、C、D、39、下 列 循 环 能 正 常 结 束 循 环 的 是。()A、i=5Doi=i+lLoop Until i0D、i=6Doi=i-2Loop Until i=l40、表达式(7 3+l)*(18 5-1)的值是.()A、8.67B、7.8C

12、、6D、6.6741、以 下 不 合 法 的 常 量 是.()A、10A2B、100C 100.0D、10E+0142、对窗体编写如下代码：Option Base 1Private Sub Commandl_Click()a=Array(237,l 26,87,48,498)m 1 =a(1)m2=lFor i=2 To 5If a(i)ml Thenml=a(i)m2=iEnd IfNext iPrint ml;m2End Sub程序运行后，按回车键，输出结果为。()A、48 4B、237 1C、498 5D、498 443、在窗体上画一个命令按钮，然后编写如下事件过程：Option Bas

13、e 1Private Sub Command l_Click()Dim a As Varianta=Array。,2,3,4)j=1For i=4To 1 Step-1s=s+a(i)*jj=j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是。()A、4321B、12C、34D、123444、程序代码如下，当单击窗体上Commandl控件时，窗体上显示的结果是Option Base 1Private Sub Command l_Click()Dim i As IntegerDim x(3,3)As IntegerFor i=1 To 3For j=1 T

14、o 3x(i,j)=(i-l)*3+jNext jNext iFor i=1 To 3Print x(i,4-i)；Next iEnd Sub()A 1 59B、147C、3 57D、36945、以下程序的输出结果是 oOption Base 1Private Sub Command 1 _Click()Dim a(10)As Integer,p(3)As Integerk=5For i=l To 10a(i)=iNext iFor i=l To 3p(i)=a(i*i)Next iFor i=l To 3k=k+p(i)*2Next iPrint kEnd Sub()A、33B、28C、35

15、D、3746、当发生Commandl_Click事件后，程序输出结果是Option Base 1Private Sub Command 1 _Click()Dim a(4,4)As Integer,!As Integer,s As Integers=0For i=l To 4Forj=l To 4a(i,j)=(i-l)*4+j*2Next jNext iFor i=I To 4s=s+a(i,i)Next iPrint sEnd Sub()A、28B、32C、30D、4447、下列程序段的输出结果是 oDim i As IntegerDim a(8)As Integery=18:i=0Doa

16、(i)=y Mod 2i=i+1y=y 2Loop Until y 25 8B、74 1C、852D、36949、当发生Commandl_Clik事件后，下列程序的执行结果是Private Sub Command 1 _Click()Dimaa=Array(1,2,3,4,5)For i=1 To 4Print a(i)-a(i-l);Next iEnd Sub()A、11111B、1111C 1 1 1D、22250、下列程序段的执行结果是 oDim A(3,3)For M=1 TO 3For N=1 TO 3IfN=M Or N=3-M+l ThenA(M,N)=1ElseA(M,N)=0

17、End IfNext NNext MFor M=1 TO 3For N=1 TO 3Print A(M,N);Next NPrintNext M()A、1000 1 000 1B.1 I 11 1 11 1 1C、000000000D 1 0 10 1 01 0 151、下列程序段的输出结果是DimA(5)For 1=0 TO 4A(I)=I+1M=I+1If M=3 ThenA(M-1)=A(I-1)ElseA(M)=A(I)End IfIf 1=3 Then A(I+l)=A(M-4)Print A(I);Next I()A、1 1 12 2B、2 1144C、1 22 4 5D、2 2

18、1 4 152、如下数组声明语句，则数组a 包含元素的个数有 oDim a(3,-2 to 2,5)()A、120B、75C、60D、1353、如下二维数组声明语句，_ _ _ _ _ _ _ _ _ _ _ _ 正确。()A、Dim a3,4 As IntegerB、Dim a(3,4)As IntegerC、Dim a(n,n)As IntegerD、Dim a(34)As Integer54、要分配存放如卜.方阵的数据，数组声明语句能实现(不能浪费空间)。每行三个元素，第 行 为：1.1 2.2 3.3第二行为：4.4 5.5 6.6第三行为：7.7 8.8 9.9()A、Dim a(9

19、)As SingleB、Dim a(3,3)As SingleC Dim a(-l To 1,-5 To-3)As SingleD、Dim a(-3 To-L 5 To 7)As Integer55、在窗体的通用声明处有语句Dim A()As S ingle,以下在某事件过程中重定义此数组的一组正确语句是：。()A、ReDim A(3,3)ReDim A(4,4)As IntegerB、ReDim A(3,3)ReDim Preserve A(4,4)C、ReDim A(3)ReDim A(3,3)As IntegerD、ReDim A(3,3)ReDim Preserve A(3,4)56、

20、单 击 按 钮,输 出 为 Private Sub fun()Static a As Integera=a+2Print aEnd SubPrivate Sub Command l_Click()Dim m As IntegerFor m=1 To 3Call funNext mEnd SubA、2 2 2B 0 0 0C、2 4 8D 2 4 657、在 单 击 命 令 按 钮 时 的 输 出 结 果 是。Private Sub Command 1 _Click()Dim x%,y%x=l:y=lFor n=l to 3z=First(x,y)Print n,zNext nEnd SubPr

21、ivate Function First%(x%,y%)Dim n%Do While nvstrong以下关于方法的叙述中，错 误 的 是()A、方法是构成对象实体的一个部分B、方法是一种特殊的过程或函数C、调用方法的般格式是：对象名称.方法名称 参数D、在调用方法时，对象名称是不可缺少的65、在调用 Sub 或 Function 过程时，采用传送相应过程的变量名、数组名、常数或表达式。()A、形式参数B、实际参数C、对象参数D、数组参数66、Sub过程与Function过 程 的 本 质 区 别 是。()A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以B、

22、Function过程可以有形参，Sub过程不能有形参C、两种过程参数传递方式不同D、Sub过程没有返回值，Function过程能返回值67有 关 过 程 的 说 法 中 错 误 的 是。()A 在Sub或Function过程中不能再定义其他Sub或Function过程B、在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合C、递归过程既可以是递归Function过程，也可以是递归Sub过程D、在调用过程时，形参为数组的参数对应的实参只能是数组68、在过程中定义的变量，如果希望在离开该过程后，还能保持过程中局部变量的值，则应该使用 关键字在过程中定义局部变量。()A、DimB

23、、PrivateC、PublicD、Static69、以下有关变量作用域的说明中，错 误 的 是()A、只有在标准模块中用语句说明的变量才是全局变量B、(font face=Times New Roman size=2在过程中不能使用 Public 语句说明全局变量C、在标准模块的通用声明处可用语句说明模块级变量D、在窗体的通用声明处可用语句说明窗体级变量70、要想在过程调用后返回两个结果，下面的过程定义语句合法的是。()A Sub Procl(By Vai n,ByVai m)B、Sub Procl(n,By Vai m)C、Sub Procl(n,m)D Sub Procl(ByVai n

24、,m)71、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为()A、按值B、按地址C、ByRefD、按形参72、系统默认的参数传递方式是()A、按值B、按地址C、ByVaiD、按实参73、窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为 oPrivate Sub fun()Static a As Integera=a+2Print a;End SubPrivate Sub Command l_Click()Dim m As IntegerFor m=1 To 3Call funNext mEnd Sub()A 22 2B、000C 24

25、8D、24674、在窗体上添加一个命令按钮，名为Command，事件过程如下。执行结果是。Sub pb(b()As Integer)For i=l To 4B(i)=2*iNext iEnd SubPrivate Sub Command l_Click()Dim a(l To 4)As Integera(l)=5:a(2)=6:a(3)=7:a(4)=8pb aFor i=l To 4Print a(i);Next iEnd Sub()A、5 555 10 10B、5555 5 10C、55 105 10 10D、5 5510 10 1075、在窗体上画一个名称Commandl的命令按钮和一个

26、名称为Textl的文本框，然后编写如F程序:Private Sub Commandl_Click()Dim x,y,z As Integerx=5:y=7:z=0Textl.Text=,MCall pl(x,y,z)Text 1.Text=Str(z)End SubPrivate Sub pl(ByVai a As Integer,ByVai b As Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是 o ()A、0B、12C、Str(z)D、没有显示76、程序中未定义的变量均为inleger,单击Com m andl,程

27、序的输出是。Private Sub Command 1 _Click()k=4：m=ln=Func(k,mPrint n,Func(k,m)End SubPublic Function Func(a As Integer,b As Integer)As IntegerStatic m As Integerm=0：i=2i=i+m+lm=i+a+bFunc=mEnd Function()A、8 8B、8 20C、8 16D、8 1777、以下说法正确的是。()A、在V B中，过程可以嵌套定义也可以嵌套调用B、在V B中，过程可以嵌套定义但不可以嵌套调用C、在V B中，过程不可以嵌套定义但可以嵌套

28、调用D、在V B中，过程不可以嵌套定义也不可以嵌套调用78、在过程调用中，参数的传递可以分为 和 两种方式。)A、按值传递按地址传递B、按地址传递按参数传递C、按参数传递按值传递D、按位置传递按参数传递79、在参数传递过程中，使用关键字 来修饰参数，可以使之按值传递。A、ByVaiB、ByRefC、ValueD、Reference80、可 以 在 窗 体 模 块 的 通 用 声 明 段 中 声 明 的 是.()A、全局变量B、全局常量C、全局数组D、全局用户自定义类型2、填空题(本题共计142分)1、执行下面的程序，击窗体后在窗体上显示的第一行结果是(I)，第三行结果是_(2)o Privat

29、e Sub Form_click()Dim mystr,mystrl,mysrr2 As Stringmy str 1 =For i=1 To 3mystr2=LCase(mystrl)my str 1 =my str 1&mystr2mystr=mysre&my str 1Print mystrmystr 1 =Chr(Asc(mystrl)+i)Next iEnd Sub2、执行下面的程序段后，s的值为 os=5For i=2.6 To 4.9 Step 0.6s=s+iNext iprint s3、窗体上有一按钮和一个列表框，执行下列程序后的输出结果为一。Private Sub Comm

30、and l_Click()Listl.Additem“China”List 1.Additem“USA”Listl.Additem Japan”Print Listl.List(2)End Sub4、可通过列表框的(1)属性或List()来取得列表框中被选中的选项。5、文本框的属性用来表示文本框中被选定的字符长度。6、文本框的 属性用来设置在文本框中显示的最多字符个数。7、要使文本框可以显示多行文本，应把文本框的_(1)属性设置为True。8、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command l_Click()Dim Y As StringX=5Y=X&Sp

31、ace(3)&XPrint X;Print Trim(Y);Len(Trim(Y)End Sub该 程 序 的 执 行 结 果 是。9、已知 K=2,J=3,A=True,则 VB 表达式(K-J=J)的值为。10、表示”A+B+C大于等于2 5 5,或 A 与 B 分别大于9 0 且 C 大于80的 VB表达式的 _11、表示A和 B 之一为零但不同时为零”的 VB表达式为。12、表达式 Fix(-48.65)+Int(-5215)的值是。13、已知 A=7.5,B=2,C=-3.6,表达式 ab and ca or ab 的值为_(1)_.14、X 是小于100的非负数，对应的表达式是_(

32、1).15、有下列程序:Private Sub Command l_Click()x$=Apply1 1y$=Actionz$=Study”z$=Left$(x$,4)+Mid(y,4,1 )+LCase$(z)+,H+z$Print z$End Sub运 行 后 窗 体 上 显 示 的 是 o16、表达式7八 2Mod 5A23的值为17、2Sinx4-3Cosx+Tan2x+LnxLny 的 VB 表达式为18、下列程序的功能是输出如下数列的前20项，按每行5 个数的形式输出。1,1,2,3,5,8,13,.Dim a As Integer,b As IntegerDim i As Int

33、egera=l:b=l:i=3Print a,b,Do While(i=aAnd tv=zOr t=AAnd tv=ZThenr=r&tEnd IfNext iPrint rEnd Sub24、在窗体上画个命令按钮，名称为Command。然后编写如下程序：Private Sub Command l_Click()Dim t As Integer,b As String,k As Integert=InputBox(输入一个 8)Do Until tlk=t Mod 2b=CStr(k)&bt=t2LoopIfLen(b)4 Thenb=u0000u&bt=Right(b,4)Elset=bEn

34、d IfPrint tEnd Sub程序运行后，如果单击命令按钮，如在输入框输入数值8”,则在窗体上显示的内容是25、执行下面的程序，在窗体上显示的输出结果的第一行是 ,第三行是_Form_Click()事件过程中的第二个For-Next循环共执行了 次。Option ExplicitOption Base 1Private Sub Form_Click()Dim x(6)As Integer,!As Integerj As IntegerFor i=l To 6x(i)=iA2Print x(i);Next iPrintFor j=l To i-2Call subl(x(j),j)Print

35、 jNext jEnd SubPublic Sub subl(x As Integer,m As Integer)If x-m=2 ThenFor 1=0 To 5-kA(k-2+I,I)=mm=m-lNext IElseFor 1=0 To kA(k-I,3-I)=mm=m-lNext IEnd IfNext kFor k=0 To 3For 1=0 To 3Print A(k,I);Next IPrintNext kEnd Sub28、以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值.(1)as integerprivate sub command 1 _cl

36、ick()redim_(2)_for i=l to 20 x(i)=lprint x(i)next iend sub29、用以下程序找出5 0 以内所有能构成直角三角形的整数组。阅读下列程序，请在处填上正确内容。Private Sub Commandl_Click()For a=1 To 50For b=a To 50c=Sqr(aA2+bA2)IfThen Print a;b;cNext bNext aEnd Sub30、下列程序计算1!,3!,5!,7!的值。完善下列程序。Private Sub Command l_Click()for x=1 To 7 Step 2For y=1 To

37、xfact=fact*yNext yPrint x;!=u;factNext xEnd Sub31、输入一个三位的正整数，将之反向输出。如输入1 2 3,则输出3 2 1,完善下列程序。Private Sub Command l_Click()Dim a As Integer,b As Integer,c As Integer,m As Integerm=InputBox(输入一个正整数”)a=m100b=(m-a*100)10c=-(1)一MsgBox 结果=+Str(c*100+b*10+a)End Sub32、下面程序的功能是统计随机产生的10个三位正整数中被5 整除数的个数，并求出这些

38、数的总和完善程序Option ExplicitPrivate Sub Form_Click()Dim x As Integer,si As IntegerDim nl As Integer As IntegerRandomizeFor i=1 To 10 x=_(1)Print x;IfxM od5=0Then(2)si=sl+xEnd IfNext iPrint”被 5 整 除 数 的 个 数 和 为 ;siEnd Sub33、33.下列程序的功能是：单击窗体事件后，在窗体上显示1!+2!+3!+9!的和。Private Sub Form_Click()Dim s&,i%s=0Fori=l

39、To 9s=s+Next iPrint sEnd SubPrivate Function fact()As LongDim i%,f&For i=2 lb nf=f*iNext iEnd Function34、用二分法求函数f(x)=x3-4x+1=0在 x=05 范围内的x=2附近的一个实根，其计算误差为Ixl-x2l0t=n Mod 10n=n 10k=k-1LoopEnd FunctionPrivate Sub Form_Click()Print t(1234,2)Print t(1234,4)End sub37、执行下列程序，在窗体上显示的第一行是 ，第二行是 ，第三行是。Option

40、 ExplicitPrivate Sub Command 1 _Click()dim x As Single,i As Integerx=1.2For i=1 To 3x=x*iPrint fun l(x)Next iEnd SubPrivate Function funl(x As Single)As SingleStatic y As Singley=y+xfunl=y/2End Function38、当 sub过程value形参表中存在byval关键字时，执行本程序，单击窗体在窗体上显示的第一行内容是(1):若将形参表的byval关键字删掉，在执行本程序，单击窗体后在窗体上显示的第一行内

41、容是_ ;第二行内容是 _(3)Private Sub value(ByVal m As Integer,By Vai n As Integer)m=m*2n=n-5Print m,nn=H;nEnd SubPrivate Sub Form_Click()Dim x As Integer,y As Integerx=10:y=15Call value(x,y)Print Mx=;x,y=,;yEnd Sub39、运行下面程序，单击命令按钮Com m andl,则在窗体上显示的内容是Private Sub Commandl_Click()Dim x As Long,n As Integerx=3

42、3:n=5y=ret(x,n)Print yEnd SubPrivate Function ret(S As Long,L As Integer)As LongIf L1 Then ret=ret(S,L-l)S=S+2ret=SEnd Function40、执行下面的程序，在窗体上显示的输出结果的第二行是，第三行是一Option ExplicitDim a As Integer,b As IntegerPrivate Sub Command l_Click()Dim c As Integera=1:b=3:c=5Print fun(c)print a;b;cPrint fun(c)End S

43、ubPrivate Function fun(x As Integer)As Singlefun=a+b+x/2a=a+bb=a+xx=b+aEnd Function41、一个窗体上有一个命令按钮Commandl,卜列程序执行后，输出的结果为Private Sub Command l_Click()Dim x As Integerx=1Call sort(x)Print x;call sort(x)Print x;End SubPrivate Sub sort(y As Integer)y=y+iEnd Sub42、运行下面程序，单击窗体后在窗体上显示的第一行结果是_(D _ ；第三行结果是

44、一 一。Private Sub Test(x As Integer)Dim i As IntegerIf x 0 ThenCall Test(x-1)Print xEnd IfEnd SubPrivate Sub Form_Click()Test 3End Sub43、如下程序，运行的结果是一(1),若将A语句改为Static i%,运行的结果是(2)。Public Sub Proc(a%()Dim i%ADoa(i)=a(i)+a(i+l)i=i+lLoop While i=255 Or A90 And B90 And C80,ll.A=0 xorb=0,12.-101,13.false,1

45、4.x=0,15.ApplistudyStudy,16.1,17.2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y),l 8.a=t,iMod 5=0,i=i+l,l9.13,20.357,21.125+32=157,22.c=1,c=a,23.mid(s,i,1),24.1000,25.14 9 16 25 36,7,2,26.1 to 9,i+l to 10,=,27.6,8,14,28.dim x(),x(l to 20),29.c=50 ANDc=int(c),30.fact=1,31m mod 10,32.Int(Rnd*900)+100,n 1 =n 1+1,33.fact(i),byvaln%,f=l,fact=f,34.abs(xl-x2)=le-5,=l,xA3-4*x+l,35.n=10,n=5,36.3,1,37.0.6,1.8,5.4,38.m=20 nT0,m=20 nT0,x=20 y=10,39.43,40.4 9 13,19.5,41.2 2,42.1,3,43.88 3 4 5,3 5 7 4 5,44.27