WordVB课后练习无基础上手版

书上P58-P59页习题三2下列符号中，哪些是VB的合法变量名？a123合法2.a12_3合法3.123_a不合法(数字开头)4.a123不合法不是“空格”Integer不合法,VB关键字6.XYZ合法7.False不是，关键字8.sin(x)不是,”()”sinx合法10变量名合法11abcdefg合法12π不合法(3.14就合法把下列算数表达式写成VB表达式：︱x+y︱+Z的5次方写成abs(x+y)+z^5备注abs是绝对值的意思参考P50（细看要考的)(1+xy)6写成(1+x*y)^6写成[(10*x+sqr(3*y)]/(x*y)备注sqr是根号的意思参考P50（rnd随即也看看)写成[-b+sqr/b*b-4*a*c)]/(a*2)写成1/(1/r1+1/r2+1/r3)写成sin(45°/180°*3.14)+[exp(10)+log(10)]//sqr(x+y+1)备注e就是exp4根据条件写出响应的VB表达式产生”C”-”L”范围内的一个大写字符答案：Asc码chr[Int[Rnd*(10+67)]]备注Chr是Asc码值转换字符的意思Int(N)取<=N的最大整数，Rnd(0-1)之间产生的随即数asc码0=48a=97A=65所以C=67;而10+67就是L产生100-200(包括100到200值)范围内的一个正整数。答案：Int(Rnd*101+100)备注：Rnd意思产生0~1之剑的随即数不等于0或者1,so:101*0.999永远不会小于100且大于它，Rnd*101+100永远小于200，最后用Int取整。已知直角坐标系中的任意一点坐标(x.y),表示其位于第一或第三象限内答案x*y>0或(x>0andy>0)or(x<0andy<0)备注第一象限XY+第三象限XY-不懂的自己画直角坐标表示x是5或7的倍数答案(xmod5=0)or(xmod7=0)备注;大小对比算术符>关系符>逻辑符小白答疑：运算符^*/\Mod+-关系复>,=,<,<=,>=.><（不等于)；逻辑运算符包括。And运算符Not运算符Or运算符Xor运算符\（与或)P48页将任意一个两位数x的个位数与十位数兑换。例如x=78,则表达式的值应为87答案:(xmod10余8)*10+x\10或者,val[Right(x,1)&left(x,1)]备注：第一方案是利于余数78mod10=8然后x整除10=7，8+7=87(小白答疑：这种情况是加法”8”+7=15，或者”7”+8=15；这题VB的+是连接的意思)。第二方案由马丁提供，利用取右第一数+左面第一数&连接符;6将变量x的值按四舍五入保留小数点后两位。X值123.2389表述为123.24答案x值四舍五入round(x*100)/100备注x*100=12323.89保留了位数12323.89除以100并round保留后2位得出的值就是表示为123.24，如果直接round(x)就等于123.23小白答疑第六题中例如用round编程已知:A1=123.2389

则用B=round（A1，2）结果就等于123.24了2就是保留小数点后两位。7.表示字符型变量C是字母字符（不区分大小写字母）？答案也就是说C是字母字符（A-Z之间）[(C>=“A”andC<=“Z”）or(C>=“a”andC<=“z”)]小白答疑利用or(逻辑符)当C小与Z大于A时或者C小于小写z并大于a时两种条件满足一方就为真True取字符型变量S中第五个字符起的6个字符MId(S,5,6)小白答疑Mid（“ABCDEFG”，2,3)的值“BCD”2代表第二字符开始3代表从开始字符到结束，共3个字符的长度。菊花疼的可以看P529.表示关系表达式子10小于等于x小于20答案x>=10andx<20小白答疑合理运用逻辑运算符and;合并同类项。10.x,y之一小于z小白答疑有些童鞋不理解，老师给的答案是x<zory<z假设是编程Z是数字或者公式时；老师这里就是抱砖引玉，老师设置了个整型常量Z,语句Dimzaninteger设置Z为整形常量；然后：当z小于y或者z大于x时候，两者之一满足x和y都大于z;答案y>zandx>z小白答疑：理由同上如果直接写成y>zx>z就是错误的，没有逻辑符。缺少5.写出下列表达式的值1.123+23mod10\7+Asc(“A”)答案123+23mod1+65=123+0+65=188备注运算符^*/\Mod+优先顺序要注意asc码0=48a=97A=652100+”100”&100答案200+100=200100备注;大小对比算术符>关系符>逻辑符+-*\大于=><大于andnotorxor&3.Int(68.555*100+0.5)/100答案6855.5*100+0.5=6855.5+0.5=INT(6856)/100=68.56备注注意括号优先级已知A$=”87654321”求表达式Val(Left$(A$,4)+MId$(a$,4,2)的值备注Val数字字符串转换为数值Val(“123AB”)转换为123Left(“ABCDEFG”,3)取出左边三个字符”ABC”这样还看不懂菊花们可以参考P51-P52答案Val[left$(A$,4)+mid$(A$,4,2)]=Val[(“8765”+”54”)]=val(“876554”)=876554小白答疑：””+””是连接“”+123是相加DateAdd(“m”,1,#1/30/2000#)答案m月d天y年DataAdd“m”1就是增加1个月#2/29/2000#备注2000是润年(具体书上p53了解一下即可)6len(“VB”程序设计)答案len(“VB……”)长度为6备注书上P52页，简单理解就是6个字就是6个字符串长度。奥巴马：“太好了这版本我也看得懂！你呢”书上P94-96习题四1．结构化程序设计的三种基本结构是什么？答：顺序结构、选择结构和循环结构。2指出下列赋值语句的错误（包括运行时的错误)1.10x=sin(x)+y答案10x错误变量名2.c=3+Sqr(-3)答案sqr根号变量要求大于等于03c+x+y=c*y答案错误表达式，赋值等号左边是表达式4x=sin(x)/(20mod2)答案余数为0分母不能为零3．Msgbox函数和InputBox函数之间有什么区别？各自获得什么值？答：两个函数的共同之处是均显示对话框。区别：InputBox函数等待用户在文本框中输入数据，获得的是输入的字符串数据；Msgbox函数等待用户按一按钮，获得的是表示按钮的整数值，以决定程序的流向。4．要使单精度变量x，y，z分别保留1位、2位、3位小数，并在窗体上显示，应使用什么函数？如何编写对应的Print方法？答：使用Format函数，具体如下：PrintFormat(x,"0.0")PrintFormat(y,"0.00")PrintFormat(z,"0.000")语句if表达式then…中的表达式可以是算术、字符、关系、逻辑表达式中的哪些？答：可以是算术、关系、逻辑表达式。按照一般语言的规定，if后应该是关系表达式、逻辑表达式，根据其结果逻辑量是True或False决定是否执行Then后面的句子。而在VB中还可以是算术表达式，因为VB逻辑判断中，对于非0值就作为True，而0值作为False，因此分段函数可用VB语句表示为：IfxTheny＝sin(x)/xElsey=0而不必写成Ifx<>0Theny=sin(x)/xElsey=06指出下列语句中的错误。⑴Ifx≥yThenprintx答：“≥”应写成“>=”If10<x<20thenx=x+20答：VB中表示x的范围“10<x<20”应写成“10<xandx<20”Ifc>=〝A〞andc<=〝Z〞thenPrint〝大写字母〞ElseIfc>=〝a〞andc<=〝z〞thenPrint〝小写字母〞Endif答：“ElseIf”之间不能有空格，即应写成“ElseIf”7．按照下列条件，写出相应的条件语句：（1）当字符型变量中第三个字符是”C”时，利用Msgbox显示“Yes”，否则显示”No”。答：IfMid(c,3,1)=”C”ThenMsgBox”Yes”ElseMsgBox”No”（2）利用if语句、SelectCase语句两种方法计算分段函数：If语句PrivateSubCommand2_Click()x=Text1.TextIf语句PrivateSubCommand2_Click()x=Text1.TextIfx>20Theny=x*x+3*x+2Elsey=Sqr(3*x)-2EndIfPrintyEndSubSelect语句PrivateSubCommand1_Click()x=Text1.TextSelectCasexCaseIs>20y=x*x+3*x+2CaseIs<10y=1/x+Abs(x)CaseElseY=Sqr(3*x)-2EndSelectPrintyEndSub答：（3）利用if语句和IIf函数两种方法求三个数x，y，z中的最大值并存入变量Max中。答：If语句Ifx>yThenMax=xElseMax=yIfz>MaxThenMax=zIIf函数：Max=IIf(x>y,x,y)Max=IIf(Max>z,Max,z)8在多分支结构的实现中，可以用if…Then…ElseIf…Endif形式的语句，也可以用SelectCase…EndSelect形式的语句，由于后者的条件书写更灵活、简洁，是否可以完全取代前者？答：不可以。虽然selectcase….Endselect语句在条件的书写上更简洁和灵活，但是却不可以完全取代If…then…elseif…endif形式的语句。因为selectcase….Endselect语句在使用上是有一些限制的。首先，看该语句的形式：SelectCase<变量或表达式>Case<表达式列表1><语句块1>Case<表达式列表2><语句块2>…[CaseElse<语句块n+1>]EndSelect其中<变量或表达式>只能含有一个变量，任何含有多个变量的形式都是错误的。例如，要判断x，y是否在第一、第三象限内，若输入如下语句：SelectCasex，y，VB程序会显示“缺少：语句结束”。其次，在后面的Case“表达式列表”中不能出现SelectCase变量或表达式中使用的变量，也不能出现主教材上列出的四种形式以外的符号或关键字（符号是：逗号；关键字是：Is、To）。例如，上述象限的判断，若语句表示如下：SelectCasex,yCasex>0Andy>0Print“第一象限”Casex<0Andy<0Print“第三象限”EndSelect则程序有多处错误：SelectCasex,y中出现了多个变量；在Casex>0Andy>0中出现了变量和And逻辑运算符。上述例子只能用If的多分支结构来实现。由此可见，虽然SelectCase结构清晰，但使用受到限制，凡是对多个变量的条件判断只能用If的多分支结构来实现。9．计算下列循环语句的次数⑴ForI=--3To20Step4答：循环次数为6次。N=int[20-(-3)/4+1)=23/4+1=5+1=6⑵ForI=-3.5To5.5Step0.5答：循环次数为19次。N=int(5.5+3.5/0.5+1)=19⑶ForI=-3.5To5.5Step-0.5答：不循环。步长<0,循环初值<终值。N=int(-3.5+5.5/-0.5+1)=0⑷ForI=-3To20Step0答：无数次。(n次,死循环,ctrl+brlk强制结束)备注公式n=int(终-初/步骤+1)10．下列30-90为语句标号，分别标记该语句，第40句执行了几次？，第50句执行了几次？，第90句显示的结果是多少？30Forj=1To12Step340Fork=6To2Step-250mk=k60Printj,k70Nextk80Nextj90Printj,k,mk答：第40句执行了4次。第50句执行了12次。第90句显示的结果是1302。11．如果事先不知道循环次数，如何用For……Next结构来实现?答：只要将循环的终值设置为一个非常大的值，然后在循环体内增加If语句，判断是否达到循环结束条件。形式如下：For循环变量=1To非常大的数…….If达到循环结束条件ThenExitFor…….Next循环变量12．利用循环结构，实现如下功能：⑴答：S=0Fori=1To10S=S+（i+1）*（2*i+1）Nexti⑵分别统计1～100中，满足3的倍数、7的倍数的数个为多少？答：S3=0S7=0Fori=1To100IfiMod3=0ThenS3=S3+1IfiMod7=0ThenS7=S7+1Nexti⑶将输入的字符串以反序显示。如输入“ASDFGHJKL”,显示“LKJHGFDSA”。答：s=InputBox("输入字符串")Fori=Len(s)To1Step-1PrintMid(s,i,1);Nexti13．下面程序运行后的结果是什么？该程序的功能是什么？PrivateSubCommand1_Click()Dimx$,n%n=20x=""DoWhilen<>0a=nMod2n=n\2x=Chr(48+a)&xLoopPrintxEndSub答：运行后结果为10100，该程序的功能是将十进制数转换成二进制字符串。14．下面程序运行后的结果是什么？该程序的功能是什么？Privat