vb编程实验报告答案 完整版

《vb编程实验报告答案 完整版》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验一：一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D10.BC11.A12.D13.D14.C15.A二、填空1.windows2.中断3.工具箱4.代码5.分类6.form2.show7.出现语法错误8.错9.事件10.面向对象11.工程文件结构12.工程13.设计程序代码14.双击窗体15.C:ProgramFilesMicrosoftVisualStudioVB98或者VB的安装文件夹16.属性17.方法18.font19.form_load()20.对象实验二：一、选择1.B2.C3.B4.C5.C6.C7.B8.B9.D10.A11.C12.C13.

2、C14.B15.A16.C17.B18.D19.C20.C二、填空1.Form_Click()2.Interval、50003..vbp.frm4.lefttopHeight、Widthtwip5.picture6.load7.locked8.fontAlignment9.GotFocus()LostFocus()10.属性窗口程序代码实验三：一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B10.B11.B二、判断题不合法的变量：3.4.5.6.8.10.11.14.15.16.三、1、abs(x+y)2.(3+x*y)^23.(-b+sqr(b^2-4*a*c)

3、)/(2*a)4.sin(30*3.14/180)+exp(2)四、1.int(rnd*71+20)或int(rnd*71)+202.x<0andy>0orx>0andy<0或者x*y<03.xmod3=0orxmod7=0或x/3=x3orx/7=x74.x>=10andx<205.x>="A"andx<="Z"6.left(s,3)实验四：一、选择1.C2.D3.C4.D5.A6.D7.B8.B9.A10.C二、填空1.48.71E-01,-4.87122.关系、逻辑、算术3.900，100，mid(s,2,1)4.m、1,2,3、printm&"月是第二季度"、endsele

4、ct三、1.X=4y=132.10实验五一、选择BCBAC二、填空（1）forx=2to10s*(1-1/x)(2)1t>1E-6(3)jt(4)5115实验六一、选择BCCCDDDDCA实验七一、选择1C2C3D4A5B6D7AB8A9A10A二、填空（1）n！（2）1+1+2+3+4+……+n（3）n是否是素数（4）冒泡排序（5）递归调用产生斐波那契数列（6）求最大公约数和最小公倍数第八页编程2-1PrivateSubCommand1_Click()Label3=Val(Text1)*Val(Text2)EndSubPrivateSubCommand2_Click()Label3=

5、Val(Text1)/Val(Text2)EndSub2-2PrivateSubCommand1_Click()Picture1.Picture=LoadPicture("d:tu1.jpg")EndSubPrivateSubCommand2_Click()Picture1.Picture=LoadPicture("d:tu2.jpg")EndSubPrivateSubCommand3_Click()Picture1.Visible=FalseEndSub2-5PrivateSubForm_Load()Image1.Picture=LoadPicture("C:Documents

6、andSettingsAllUsersDocumentsMyPictures示例图片Sunset.jpg")EndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubImage1_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Image1.Left=Int(Rnd*(Form1.ScaleWidth-Image1.Width))Im

7、age1.Top=Int(Rnd*(Form1.ScaleHeight-Image1.Height))EndSub第11页编程2-3PrivateSubCommand1_Click()Dimx%,y%x=Int(Rnd*900+100)Print"产生的随机数：";xy=(xMod10)*100+(x10Mod10)*10+x100Print"反序数：";Format(y,"000")EndSubPrivateSubCommand2_Cli