VB课后部分习题答案

《VB课后部分习题答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、二、选择题1.VisualBasic中的窗体文件的扩展名是A、.regB、.frmC、.basD、.vbp2.VisualBasic中的模块文件的扩展名是A、.regB、.frmC、.basD、.vbp3.VisualBasic中的工程文件的扩展名是A、.regB、.frmC、.basD、.vbp4.以下关于VisualBasic语言的说法中，正确的是A、VisualBasic是一种面向过程的语言B、VisualBasic是一种面向对象语言C、VisualBasic是一种低级语言D、VisualBasic是一种机器语言7.下列不属于对象的基本特征的是A、属性B、方法C、事件D、过程一、填空题2

2、.13/3MOD57的值除数为零提示。3.在程序中用到某一整型变量的数据范围为-50000~50000，则该变量类型应该是Long。5.声明单精度常量PI代表3.14159的语句为ConstpiAsSingle=3.14159。11.把条件为1£x£5写成VB表达式为：x>=1andx<=5。三、程序4.PrivateSubForm_Click()DimyAsIntegerDoy=InputBox("y=")If(yMod10)+Int(y/10)=10ThenPrintyLoopUntily=0EndSub运行时，单击窗体后依次输入10、37、50、55、56、64、20、2

3、8、19、-19、0，写出运行结果。3755642819程序8.PrivateSubForm_Click()Fori=1To7PrintSpc(7-i);Ifi=1ThenPrint"*"ElsePrint"*";Spc(2*(i-1)-1);"*"EndIfNextiEndSub写出程序运行时单击窗体后，Form1上的输出结果。*************程序9.PrivateSubForm_Click()Dimstr1,str2AsStringDimsAsStringDimiAsIntegerstr1="abcdefghijk"Fori=Len(str1)To1Step-2str2=str2

4、&Mid(str1,i,1)NextiPrintstr2EndSub写出程序运行时单击窗体后，Form1上的输出结果。kigeca程序10.PrivateSubForm_Click()DimkAsInteger,sAsInteger,jAsIntegerForm1.ClsFork=1To5s=0Forj=kTo5s=s+1NextjNextkPrint"s=";sEndSub写出程序运行时单击窗体后，Form1上的输出结果。s=1二、程序填空1.【程序说明】从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。PrivateSubForm_Click()Di

5、miAsInteger,iMaxAsInteger,iMinAsIntegeri=InputBox("输入一个成绩：")iMax=iiMin=iDoWhilei>=0（1）Ifi>iMaxTheniMax=iElseIfi

6、Double,kAsIntegern=Val(InputBox("n=","请输入自然数n（n>0且n<30）"))Dowhilen<=0orn>=30（1）n=Val(InputBox("n=","请重输"))Loopsum=0k=0（2）Dok=k+1sum=sum+1/(k*(k+1))（3）LoopUntilk>=nLabel1.Caption="sum="+Str(sum)EndSub4.5.【程序说明】计算的值并打印出来。【程序】PrivateSubForm_Click()DimiAsIntegerDimkAsSingleDimpAsIntegerDimsAsSinglep=1（1

7、）s=0Fori=1to100（2）k=p/ip=p*(-1)（3）s=s+kNextiForm1.Print"s=";sEndSub三、程序设计7.搬砖问题：三十六块砖三十六人搬，男搬四，女搬三，两个小儿抬一砖，要求一次全搬完，问需男、女、小儿各若干？dimxasinteger,yasinteger,zasintegerforx=0to9fory=0to12z=36-x-yif4*x+3*y+z