1第1章习题参考答案一、思考题略二、选择题1.C2.B第2章习题参考答案一、判断题题号1234567891011答案××√√×√×√√√√二、填空题1．窗体font2．不能在代码中设置3．selstart4．Locked5．TabIndex、06．vbModal或17．Activate、Deactivate8．PictureBox和Frame-三、选择题题号12345678910答案DCDADBBBAB第3章习题参考答案一、思考题1、double2、xyC@abc，15eyd，Is，#ENDX8[P]3、变量有(1)(4)(6)(8)，常量有(2)字符串型(3)逻辑型(5)字符串型(7)字符串型(9)日期型(10)实型4、fedcba5、(1)26(2)3.75(3)36、写出下列VisualBasic表达式的值：(1)False(2)True(3)True(4)False(5)True(6)True(7)False(8)False7、将下列命题用VisualBasic布尔表达式表示：(1)z>xandz>y(2)abs(a)<=abs(b+2)ora>b+2(3)pmodq=0(4)x<-5orx>-2andx<2orx>5(5)x
zorx>zandy0andy>0orx<0andy<0或x*y>010．s>=”A”ands<=”Z”ors>=”a”ands<=”z”三、选择题题号12345答案CBBBD四、编程题1、PrivateSubForm_Click()Dimx%,Ten%,hundred%x=Val(Text1.Text)Ten=(x\10)Mod10hundred=x\100Print"百位数是:"&hundredPrint"十位数是:"&TenEndSub第4章习题参考答案一、判断题题号12345678答案×××√√√√×二、选择题题号12345答案ADBBB三、程序阅读写出下列各段程序执行后的输出结果。1．785786357864135786422．w=4、w=13、w=135、w=313．此题有点错误，修改如下：是将语句“IfkAsc("Z")Andk0)Then'判断条件PrintN&"年是闰年"ElsePrintN&"年不是闰年"EndIfEndSub3．PrivateSubForm_Click()Dima!,b!,c!,s!,x!a=Val(InputBox("EnterA=?"))4b=Val(InputBox("EnterB=?"))c=Val(InputBox("EnterC=?"))Ifa+b>cAndb+c>aAnda+c>bThen'如果能构成三角形x=(a+b+c)/2s=Sqr(x*(x-a)*(x-b)*(x-c))Print"S=";sElsePrint"数据有错,不能构成三角形"EndIfEndSub4．(此题不适合使用Select语句)PrivateSubCommand1_Click()DimxAsDouble,fxAsDoublex=Val(InputBox("输入x=?"))Ifx<0Andx<>-3Thenfx=x*x+x-6ElseIfx>=0Andx<10Andx<>2Andx<>3Thenfx=x*x-5*x+6Elsefx=x*x-x-1EndIfPrint"x=";x;"f("&x&")=";fxEndSub5．DimiAsIntegerDimsAsLong,tAsLongt=1Fori=1To10t=t*is=s+tNextiPrint"S="&s6．Dimi%,s!,n!,t!,f%i=1'项数s=0'累加和n=1'阶乘t=1'通项f=1'系数DoWhilet>0.000001s=s+f*ti=i+1n=n*it=1/nf=-f'表示符号LoopPrint"S=";s7．'方法一PrivateSubForm_Click()DimiAsIntegerDimHundredAsInteger,TenAsIn...
