VISUAL-BASIC-程序设计基础教程-课后习题答案-范荣强

第一章程序与编程环境一、填空题1.工程，Form_Load2.事件（触发）3.窗体，Name4.CurrentX,CurrentY5.maxButton,BorderStyle=1or3or4or56.Alignment,空缺，AutoSize7.Style,LoadPicture8.Line,Shape9.重画10.FillStylell.MultiLine,maxLength,Locked12.Font13.sub,对象名，事件名14.方法，Object.Method,text1.setfocus()15.Name,minButtom,CurrentX(Y),Caption16.Interval,Enable17.timer,Interval,ms(毫秒)18.MouseDown,Click,LoastFocus19..Frm,.Frx,.bas.cls.Vbp20.注释,“Rem语句”或者“’语句”第二章数据的类型、表示以及运算一、请指出下列哪些是VB的合法常量，并说明原因（1）√（2）X常量不能加类型说明符号改成123.4（3）X与上题类似，如果是常量，则类型说明符放在后面（4）√等价于2E3(5)√（6）√等于十进制的4113(7)X如果是16进制要写&符号（8）X指数不能为小数（9）X月份超过12，日超过31（10）√（11）√（12）√等价于上一题(13)X8进制数每一位不能超过8（14）√（15）X变量，常量要为基本数据类型的值（16）√二、找出合法变量（1）√（2）√如果与控件Label1同在一个应用程序里面，该变量会屏蔽掉控件Label1(3)X保留字（4）√（5）X变量不能以数字开头（6）变量不能有小数点（7）√（8）√数组变量（9）X保留字（10）√可以，但rnd()不可以，rnd()是函数(11)√（12）√（13）√（14）X’符号表示注释（15）X这是表达式，不是变量（16）X同上，是表达式三、指出下列数据x,y,z的声明是否正确，如果正确请指明其类型（1）√x--long,y—variant,z—integer(2)√x—long,y—long,z—integer(3)√x—double,y—double,z—integer(4)X变量x&中间不能有空格（5）√自动转换成字符串（6）X变量声明不能直接赋值（7）√（8）√自动转换成字符串（9）X常量不能把函数写上去（10）√四、写出下列表达式的结果（1）1(2)1(3)false(4)ab12(5)123(6)出错，加法表达式中如果有一个是数值类型，则“+”表示加号，而不是字符的链接符号（7）False(8)true(9)true(10)false默认转换成相同类型（数值），建议这里把2改成D试试（P.S.布尔类型TRUE=-1,FALSE=0;优先顺序：^(乘方)-(求负)*、/\(整除)MOD+、-）五、写出下列函数的结果（1）3（2）2（3）-2（4）0（5）2（6）23（7）23（8）1（9）1（10）21日期差分函数，参数“m”为两年月份之差六、写出满足以下条件的表达式（1）fix(rnd()*90)+10(2)chr(fix(rnd()*26)+65)(3)(Amod100)\10(4)AmodB0(5)A“A”andA“Z”(6)ABORAC(7)ACANDBC(8)(ACANDBC)OR(ACANDBC)(9)A+BCANDB+CAANDC+AB(10)A=“及格”XORB=“及格”(11)Round(A/B,2)(12)Len(A)0或Len(A)0(13)“A10?”(14)Len(A)=3七、填空题1.“”,##2.x=10andx203.(ymod3=0)or(ymod7=0)4.sin(x)^2+(1/2)*sqr(x^2-y^2)5.166.T,F7.SIN(ATN(1))8.Randomize9.(cchr(97)andcchr(122))or(cchr(48)andcchr(57))10.vbCrLf11.CInt(),012.从第12个月开始，循环一年12个月13.ab,cd014.Variant,String,Integer15.Now()16.DateDif(#2011-5-1#,now(),“m”)八、请指明下列程序运行后，各个变量的值（1）35（2）120(3)False(4)-3九、分析下面程序中的错误并修改，使其能够完成指定的功能（1）Print20000+0&+20000或Print20000&+20000&(2)改1：A=xA=a+aB=xB=2*b改2：A=a+x+xB=2*(x+b)第三章程序界面与基本输入输出一、填空题1．Textbox,Inputbox,Label,Textbox,Msgbox,Print2.“,”,“;”,CurrentX,CurrentY3.Print4.AutoSize,Stretch5.Textbox,Label,Textbox,True6.Text1=””,Picture1.cls7.Integer,String8.Textbox,Check,Option,Combo,List9..setFocus,失去焦点10.Min,Max,Scroll,Change11.TabIndex12.Enabled,Visible第4章控制结构一、判断题1．X2.X3.√4.X循环体中改变其值5.√二、填空题1.顺序，选择，循环2.“A”,”E”,chr(97),“A”to“Z”,Is0,Else3.死循环4.设置计数器5.True/False,0/16.0,ListCount-1三、读程序填空1.88及格2.Printx;“是偶数”Printx;“是奇数”3.i=Instr（st,“”）right(st,len(st)-i)I=Instr(st,“The”)Left(st,i-1)&right(st,len(st)-i-3)不用填任何东西（这里是旧版书的过程返回）4.is0“无定义”0to1(log(x)/log(2))^2Is1sqr(log(x)/log(2))5.40,176.*fAbs(x2-x1)0.000017.whilemnPrintm(或n)第5章数组和自定义类型一、简答题1.OptionBase1,只能取0或12.很多情况3.动态数组可重定义，静态数组不可以；动态数组可以用变量，静态数组不可以用变量4.不能，Preserve关键字保留数组原有的内容，但是只能够改变数组的最后一维5.将用引号分隔的字符串塞进数组；UBound(),LBound()在不确定数组上下界情况下可使用或写出的程序更通用6.8字节7.6个元素；[0,2][3,4]8.这里较为特殊的是List框的Text属性，就是List框所选的内容9.组合框=文本框+列表框；组合框可以输入，列表框不可以；组合框无多选，列表框可以10.自定义类型还没有在内存中分配变量，而自定义变量则是在内存中分配了变量。（P84）5.6二、指出下列有关数组语句的错误1.Dima%(10)或Dima(10)asInteger2.下界溢出，边界顺序颠倒3.多维数组立面的每一维上界不能为负数4.OptionBase15.静态数组，下标不能是常量6.动态数组重定义只能与声明时的类型相同7.动态数组没有重定义就直接使用8.静态数组不可以重定义9.动态数组用Preserve关键字重定义，只能改变数组的最后一维的大小10.用Array赋值，只能是动态数组11.数组a的类型为字符串，应改为：a$()12.数组重1开始，越界三、写出下面程序的输出结果（1）输出：14916253649（2）输出：123231323（3）输出：612（4）输出：25（5）输出：123469（6）输出：21四、程序填空（1）①Rnd()*90+10②i+1to30③a(i)=a(j)④Imod20（2）①Rnd()*90+10②arr(i)50③sum+arr(i)（3）①39to1step-1②1to40③mod（4）①Preservea(n+1)②a(i+1)=a(i)③a(i+1)=m（5）①10②10③a((i-1)*10+j)（6）①A(i,j)②A(5-i+1,5-j+1)③A(5-i+1,5-j+1)=temp第6章过程一、简答题1.函数有返回值，过程没有2.形参为定义函数（过程）时的参数；实参为运行函数（过程）时的实际参数3.ByVal创建副本,ByRef不创建副本4.数组只能传地址5.局部、模块级、全局6.静态：生命周期是全局的局部变量，生命周期比普通局部变量要长二、指出下列有关过程声明语句的错误1.X将保留字Sub作为函数名。改正：Functionsub1%()2.X生命重复，参数名与函数名一样，编译器分不清哪个是参数，哪个是函数返回值。改正：Functionf%(para%)3.X过程不应该有返回值。改正：Subf()4.X数组必须为按地址传递，过程不应该有返回值。改正：Subf(a%())5.数组参数必须传首地址。改正：Subf(a%())三、写出单击命令按钮后下面程序运行结果1.输出：2342.输出：2533.输出：A=4b=6c=6A=8b=6c=64.输出：357455.输出：31236.输出：2468四、程序填空1．①flag=-1②y+flag*t③t=0.0000001④nasInteger⑤n,x-12.①n\2②b(n-i+1)③a(),103.①IsP=True②mmodi=0③P1andP2④IsP(i)（P.S.这里漏了一段程序IsP（）函数）PublicFunctionIsP(m%)asBooleanDimi%IsP=TrueForI=2toInt(sqr(m))IfmmodI=0ThenIsP=FalseNextiEndFunction4．①Tag②t=a(0)③UBound(A)-1④a(j)=t⑤t=A(UBound(A))⑥LBound(A)+1step-1⑦a(j)=t第7章外存数据的访问一、填空题（1）Output（2）打开text.txt读入内存（3）Open“c:\test.doc”forInputas#1Open“c:\test.doc”forAppendas#1（4）Openfr&“\”&“test.txt”forInputas#1（5）FreeFile()（6）Close,Kill,FileCopy（7）Kill“c:\*.bat”（8）FileCopy“C:\Form1.frm”,“C:\复件Form1.frm”（9）“””,“#”,(无),“,”二、读程序填空（1）①Text=“End”②Write#1,Text(带格式)或Print#1,Text(不带格式)（2）①k5②s=s+input(1,#1)③s（3）①forInputas#1②Input(Lof(1),#1)③Close#1④forOutputas#1⑤Print#1,“Begin”⑥Print#1,s三、简答题（1）顺序读写、随机读写（2）对应文件（外存）的一个缓冲区（内存）句柄，读写文件入口，不可省略（3）Wirte有格式，Print无格式（4）可以（5）用Close关闭文件，将缓冲区数据写入文件第8章对话框与菜单的设计一、填空题1.预定义对话框，通用对话框，自定义对话框2.CommonDialog3.ShowOpen,ShowSave,ShowColor,ShowFont,ShowPrint,ShowHelp4.“-”5.56.Hide,Unload7.ShowModel8.ShowColor二、判断题1.√2.X3.X4.X5.√三、读程序填空1.①showSave②CommonDialog1.Filename③now(),CommonDialog1.Filename2.①“窗体文件|*.frm|VB工程文件|*.vbp”