还剩24页未读，继续阅读
本资源只提供10页预览，全部文档请下载后查看！喜欢就下载吧，查找使用更方便
文本内容:
第一章从功能上讲，有种版本，即学习版、专业版、公司版1Visual Basic
6.03与传统的程序设计语言相比，最突出的特点是事件驱动编程机制2Visual Basic集成环境的主窗口中具有标题栏、菜单栏、工具栏3Visual Basic
6.0用标准工具栏中的工具按钮不能执行的操作是打印源程序关于方法,的概念错误的是方法是对事件的响应Visual Basic在中，称对象的数据为属性Visual Basic应用程序可以用解释方式执行也可以用编译方式执行Visual Basic第二章计时器控件的属性用于设立事件发生的时间间隔，为了暂时关闭计时器，1Interval Timer应把该计时器的属性设立为假如规定设立定期器时间间隔为秒钟，那么它的Enabled False,1属性值应当等于Interval1000运用操作可以打开立即窗口2Ctrl+G假定窗体上有一个标签，名为为了使该标签透明并且没有边框，则对的的属性3Lablelo设立为Lablel.BackStyle=0Lablel.BorderStyle=0在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口在中，窗体文献的扩展名为5Visual BasicFRM窗体的属性指定窗体的名称，用来标记一个窗体6Name改变控件在窗体中的上下位置，应修改该控件的属性是7Top表达滚动条控件取值范围最大值的属性是8Max假如要改变窗体的标题，则需要设立的属性是9Caption在文本框（）中，通过属性来设立字体颜色10Text ForeColor若规定从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设立11属性值为*Passwordchar可以改变复选框中背景颜色的属性是12Backcolori=i+2Loop20执行下面的程序段后的值为X21x=5Fori=l To20Step2x=x+i\5Next121下面程序营后，输出的值是1554PrivateSubJ=1doWhile JCommandl_ClickJ=J+1A=A+J*J5loopPrintEnd Sub22有如下APrivateSub FormKeyPressKeyAsciiForm=l程序Forj=lAs IntegerFork=j3mn=n+m+j-k3NextToNextTo kj mNextTonPrint程序运营后，按任意键，的值是End Subn2023在窗体上画一1然后编写下事件过程Private Sub Commandl_ClickA=12B=34C=56PrintEnd Sub程序运营后，单击命令按钮,输出结果是12345624下面程出的结是11020Private Sub Commandl_ClickA=0For M=1To10A=A+1B=0J=1To10A=A+1B=B+2Next NextPrintA;BEnd Sub25x=intRnd+3if xA28then y=xA2+lif xA2=9then y=xA2-2if xA28then y=xA3print y程序运营后输出的结果是执行下面的程26Private SubCommandl_ClickFor i=l Toa=aNextx=Val0MsgBoxEnd Sub.参考答案1027窗体上有一个命然后编写Function TransByValnum AsLong AsLongDim AsLongk=lDo Whilenum num=0k=k*num Mod1010num=num10LoopTrans=kPrint TransEnd FunctionPrivate SubCommandl_ClickDim AsLongDim AsLongm=lnputBox IIs=TransmEnd Sub程序运营时，单击命令按钮，在输入对话框中输入，输出结果为在输入对话框中输入“789”_1_,输出在输入对话框中输入，输出结果为参考答案表达“987”2“879”3150425043504式值的范围是lnt4*Rnd+l*lnt4*Rnd-l
[48]语句是错误的赋值语句x+y=x,逻辑表达式其逻辑值为“真”Notl2,表达式的运算结果是
1.5+322Or7Mod34And Not1-1可以将变量、值互换的语句是A BA=C:C=B:B=A执行如下语句a=inutBoxToday,Tomorrow,Yesterday,„Day beforeyesterday1,5将显示一个输入对话框，在对话框的输入区中显示的信息是Yesterday能在窗体的标题栏中显示,,窗体”的语句是窗Forml VisualBasicForml.Caption=VisualBasic体”第五章假如在程序中要将定义为静态变量，且为整型数，则应使用的语句是c Statica AsInteger声明一个变量为局部变量应当用Static过程与过程最主线的区别是过程不能返回值，而过程能返回值Sub FunctionSub Function若要向列表框添加列表项，可使用的方法是Additem在某个过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局部Sub变量同名过程中不可以嵌套调用过程Sub Sub以下函数过程••Function FunS As StringAs StringDimsi As StringFor i=l ToLenS•si=UCaseMidS，D十si，1NextFun siEndFunction然后编写如下事件过程在窗体上画一个命令按钮Private SubCommmldl_ClickDim StrlAs String,Str2As String请输入一个字符串”Strl=inputboxStr2=FunStrlPrint Str2End Sub程序运营后，单击命令按钮，假如在输入对话框中输入字符串，则单击“确“abcdefg定“按钮后在窗体上的输出结果为GFEDCBA复选框的属性为时，表达复选框被选中Value_1_第六章用下面语句所定义的数组的元素个数是⑼1Dim a-3to5as integer要声明一个长度为个字符的定长字符串变量对的的语句是2256str,Dim stras String*256设有数组声明语句3Option Base0则数组中共有个元素Dim B-l To10,2To9,20As IntegerB2023在窗体上画一个命令按钮，名称为单击命令按钮口寸，执行如下4Commandlo事件过程Private SubCommandl-Clickoa$=software andhardwareb$=Righta$,8c$=Mida$,l,8〃Msgbox a$b$,c$,l则在弹出的信息框的标题栏中显示的信息是End Subhardwafe为了清除列表框中的所有内容，应使用的方法是5Clear下列程序是判断一个整数=3是否为素数，请补充完整程序填空Dim nAs Integer请输入一n=lnputBox个整数=3k=lntSqrni=2swit=0While i=kAnd swit=OIf nModi=0Then参考答案_1_Else l.swit=
02.swit=l_2_EndIfloopIf swit=0Then是一Print n;个素数日se不是一Print n;个素数End If下面程序是用来打印九九乘法表的，请补充完整Dim i As Integer,jAs Integer,Strl$Strl=H,For\=1To9For j=lTo9If_1_ThenStrl=Strl+Str$j+X+Str$i+=+Str$Vali j日seStrl=Strl Chr132End IfNextNext参考答案Print Strl1j=l2ji下面程序的功能是产生个小于（不含）的随机正整数，并记录其中的倍数所占101001005请补充完整SubPRORandomizeDimFor To10j=l=lntaiIf Thenk=kPrintajNextPrintPrint10End Sub参考答案199*Rnd+12aj Mod5=0a10以下程序的功能是从键盘输入若干个学生的考试成绩，记录并输出最高分和最低分，当输Dim x,amax,amin AsSingle入负数时结束输入，输出结果请补充完整下列程序段x=lnputBoxEnter scoreamax=xamin=xDo While1If amaxThenamax=xEnd IfIf2Thenamin=xEnd Ifx=lnputBoxenter scoreLoopPrintmax=;amax,min=;amin参考答案1x02xamin在窗体上事件过程Private SubCommandl_Clickx=0Do Untilx=-la=lnputBox“a=ValAb=lnputBox b=Valbx=lnputBox”x=Valxa=aLoopPrintEnd Sub在程序运营后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出结果为参考答案1_.112下列程序的功能是当x50时,y=
0.8Xx；当50WxW100时，y=
0.7Xx；当x100时，没故意义Private空DimSub Commandl_Clickx=lnputBox“请输入x的值!As SingleX_1_Case Isy=
0.850Case*Xy=
0.7*x50To100_2_输入的数Print据出界i*PrintEnd Select参考答案End Sub1Select Casex2Case Elsex,y下程序段a$=HBeijingShanghaib$=Mida$JnStra$,g+l执行上面的程序段后，变量的值为参考答案b$_1_.1Shanghai执行下面程序，当单击窗体时，显示在窗体上第一行的内容是第二行的内容是_1__2—Private Sub Form_ClickDim IAs IntegecSumAs IntgerFor1=
0.5To
8.5Step
2.5Sum=Sum+l*10Next IPrintSumprint参考答案End Sub1200210下面程序的功能是对密文解密密文的加密方法是以字符为单位，取其码，按逆序ASCII保存（例如字母的码是存密文中则为）解密是加密的逆过ASCII010101,10100110o程完善程序，实现以上功能（难）Private SubCommandl_ClickDim sAs String,st AsString,i As Integer,n As Integers=TextlDo Untiln=Lens_l_lfn Mod80Thenist=st Mids,n,lElsest=stMids,n,lListl.Addltem st_2_End IfLoopEnd SubPrivate SubCommand2_ClickDim sAsString,st AsString,iAsIntegerFor i=0To_3_st=Listl.ListiFor j=l ToLensts=Midst,j,lsNextFor j=Lens To1Step-1n=Next图片框是不具有属性的对象窗体的属性指定窗体的名称，用来标记一个窗13Picture14Name体要想返回文本框中输入的内容则可运用属性进行编程15text第三章用于从字符串左边截取字符的函数是设使的语句是Left,a=“Visual Basic,b=Basic”b=Lefta,8,5o下列符号中哪个是程序中合法的变量名数字开头，关键字，*VB Aab7B7ab C If Da*bc A是小于的非负数，用表达式表达对的的是X100VB0=X andX100设有如下变量声明为变量对的赋值的表达方式是Dim TestDateAs DateTestDateTextDate=#l/V2002#表达式的值是设则表达式〉值为真为4+5\6*7/8Mod95,a=3,b=5,a bOrb05/
5.251假如除数与被除数不是整数时，系统会自动对其进行取整运算，取整是有规律的假如整数部分为偶数，大于的就进位,小于等于的就直接把小数去掉，舍入；假如整
0.
50.556数部分为奇数舍入例如,45等价于5\
2.55\2等价于5\
2.65\3等价于5\
2.45\2等价于
5.4\35\3等价于5\
1.55\2函数的功能是返回由个字符组成的字符串Stringn,“str”n设有如下声明假如的值为则的值是小于的数Dim XAsIntegerSgnX-1,X0Sgn3-5=-l Sgn5-3=1类型的数据由字节组成，类型的数据由字节组成Integer2Long4已知对的表达它们之间关系的式子是XY,AB,SgnY.X.SgnA-B=2Text2=Text2Chrns=_5_Next iEnd Sub参考答案1n=n+l2st=3Listl.Listcount4n+2Aj-l5n=0下面程序的功能是，找出以内所有可以表达成个连续自然数之和的数完善程序，1003实现以上功能难Option ExplicitPrivate SubCommandl_ClickDim1AsInteger;N AsIntegerDim Js AsInteger;SAsStringFor1=1To100If Funl,N/sThenS=StrlN11-0Do_1_N=N+1S=S+NLoopListl.Addltem SEndIfNext1End SubPrivateFunction FunLAs IntegecM AsInteger,JsAsInteger AsBooleanDim1As Integeo__2_K=0_3_Do WhileSumL AndK3K=K+1Js=Js+lSum=Sum+JsLoopIf_4_henM=lFun=TrueE xitForExit ifNextI参考答案EndFunction1while n=js-l2Sum=03Js=i-14k=3And Sum=L在一个有
①逻辑运算
②算术运算及
③关系运算混合在一起的表达式无括号中，其运算顺序为
②③①以下合法的标记符是那些通常所说的Visual BasicA ForLoopB ConstC9abc Da#x A变量名能对的表达条件“整型变量值是大于等于并且小于等于的逻辑表达式x-55“-5=x and x=5求下列表达式的值表达式的值是表达式的值是4+5\6*7/8Mod95,5Mod3+3\5*22设下列表达式的值为真a=2,b=4,c=6,ab Eqvca相同为相反为Eqv truefalse设二”中华人民共和国“，表达式的值为“中国人民”S LeftS,l+Right S,l+Mid S,3,2表达式八的+的值是2*42-2*3\229表达式5八2Mod252八2的值是1算术运算符乘或除、整除、求余的优先级，从高到低依次为乘或除、整除、求余VB获得系统日期的函数是date数学式子写成表达式是sin30VB Sin30*
3.14/180在的立即窗口内输入以下语句Visual BasicX=65Chr$X在窗口中显示的结果是_A_计算下列表达式的值表达式八的值是93Mod22_1_表达式程序设计的值是Len123ABC”_10_的值是Int
198.555*100+
0.5/100_
198.56_已知，则表达式的值为A$=12345678”valLeft$A$,4+Mid$A$,4,2123445左取位中取位开始位数学关系表达成对的的表达式为41234423WxVIO VB3=x Andx10或x=3andx10表达是的倍数或是的倍数的逻辑表达式是X59x mod5=0or xmod9=0s$=chinaBeijings$=Print s$以上语句的输出结果是__参考答案Beijing表达式UcaseMid Habcdefgh”，3,4的值是_CDEF已知仃贝」表达式的值是_a=
3.5,b=
5.0,:=
2.5,€1=116,1a=0and a+cb+3OR NOTd False第四章VB提供了结构化程序设计的三种基本结构,三种基本结构是:选择结构或循环结中可用语句产生一消息框VB MsgBox构或顺序结构CA IfAWB Then Print“A不等于B BIf AoBThen PrintfA不等于B函数InputBox不等于不等于CIfAB ThenPrint”A BD IfAWB Print”A B”在循环中，判断循环表达式与结束循环的关系是先判断循环表达式,Do Until-Loop当表达式值为真时结束循环在循环中，判断循环表达式与结束循环的关系是先判断循环While表达式，当表达式值为真时执行循环体设则执行厂⑼后,的值为-a=6,x=llfa51x1If a5thenA=-l日seA=0endif要使下列语句循环执行次，循环变量的初值应当是多少？For20参考答案For k=_l_To-5Step-2133Print lnt
12345.6789*
1000.5/100参考答案12345x=5y=-6If Notx0Then x=y-3日se y=x+3Print x-y;y-x-331=4二（终值-初值）〃N+1J2=9If JlJ2ThenPrintJ2Else PrintJI结果为9
（3）执行以下程序段后，变量c$的值为（Quick BASICPrograming VisualBasic ProgramingQuick4）以下语句的输出结果032,
548.50c$=b$Ucase Mid$a$,7,6Right$a$,11Print Format$
32548.5,“000,
000.00”⑸在窗体（属性为）上画两个文本框（其属性分别为和）Name FormalName Textl Text2Private SubCommandl_Click和一个命令按钮（属性为），然后编写如下两个事件过程:Name CommandlText.Text Text
2.TextPrintEnd SubPrivate Sub Formm_LoadIlliTextl.TextText
2.Text=End Sub程序运营后，在第一个文本框（）和第二个文本框（）中分别输入和TextlText2123321,然后单击命令按钮，则输出结果为123321o6阅读下面的程序段*•For1=1To31=1i=2i=3For j=1To1j=ltol j=lto2j=l to3*For kTo3k=lto3k=lto3k=2to3k=lto33=JA=A+1a=3a=3+3+2k=2to32Next kk=3to31Next ja=8+3+2+1Next1―执行上面的重循环后，的值为a_14_•o在窗体上画两个文本框其属性分别为和和一个命令按钮其7Name TextlText2属性为然后编写如下的事件过程Name Commandl,Private SubCommandl_ClickX=0Do Whilex50X=x+2*x+3N=n+1LoopTextl.Text=StrnText
2.Text=StrxEnd Sub程序执行后，单击命令按钮，在两个文本框中显示的值分别为和272设执行语句后，窗体上显示的是8a=10,b=5,c=l,Print abc FalsePrivate SubCommandl_ClickStatic AsIntegerStatic AsInteger⑼在窗体上画一个名称为的命令按钮，然后编写如下程序CommandlCisY=1Y=Y+5X=5+XPrint X,Y程序运营时，三次单击命令按钮后，窗体上显示的结果为End SubCommandl156Static无法释放设有语句输入数值”，，”示例程序运营后，假x=5+5+5y=l+510x=lnputBox““0“如从键盘上输入数值10并按回车键，变量的值是字符串X“10”个计时器称为Timerl的Private SubTimerl在窗体上有一个文本框控件，规定每一秒钟在文本框中显示一次当前名称为11TxtTimeEnd Sub线上应填入的内容TimerTxtTi me.text=Ti me12To3-3/1+1=3For ToStep-1Print3*5NextNext则语句Print i*j的执行次数是1513以下程序段的输出结果为⑷x=ly=4Do Untily4x=x*yy=y+iLoopPrint x14在窗体上面画一个文本框然后编写如下事件过程PrivateSubForm_ActivateTextl.Text=IITextl.SetFocusFor i=lto10Sum=Sum+iNextTextl.Text=Sum上述程序的运营结果是EndSub55首相加末项*项数0在窗体上画一个名称为的命令按钮，然后编写如下事件过程:15CommandlPrivate SubCommandl_ClickFor n=1To20If nMod30Thenm=m+n\3Next nPrintnEnd Sub程序运营后，假如单击命令按钮，则窗体上显示的内容是2116设有如下程序PrivateSubCommandl_ClickDim sumAs Double,As DoubleXsum=0n—0・For—1To51*—n/X1n—n+1sum sum+—XNext该程序通过循环计算一个表达式的值，这个表达式是羽+羽+的EndSubFor0+下面程序运营后，窗体中输出的结果是17Forml TrueTruePrivateSubForm_Load设立让他显示结果Forml.AutoRedraw=True formlX=3:y=5是否Print x=3;y=5x=3下面程序执行的结果是18579PrivateSubCommandl_ClickA=,,123,,:b=,,456边是数字则做加法C=Vala+Valb2Print cEndSub若的初值为则下列循环语句的循环次数为次同样可以用公式终值-初19i8,5值/步长+1Do Whilei=17。
个人认证
优秀文档
获得点赞 0
