高级语言程序设计(vb)实验报告------vb编程基础及顺序结构

《高级语言程序设计(vb)实验报告------vb编程基础及顺序结构》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、高级语言程序设计（VB）实验报告实验日期：年月日姓名学号成绩实验名称：VB编程基础及顺序结构一．实验目的：掌握VB编程基础及顺序结构二．实验内容和步骤：1、程序运行界面w=10:x=8:y=3:z=7printw>xandy<=zorx>yFalseprintx>zorw=yandyyandx=z)Trueprintnot(y<>xorw*3>z)Trueprintint(abs(99-100)/2)0printsqr(sqr(64))2.82842712474619printfix(-3.1415926)-3pri

2、ntsgn(7*3+2)12.界面运行图程序代码PrivateSubForm_Click()DimaAsInteger,hAsInteger,tAsInteger,nAsIntegerRandomizea=Int((999-100)*Rnd+100)h=Int(a100)t=Int((a-h*100)10)n=Int(a-h*100-t*10)Printa,"的逆序为:",n&t&hEndSub程序运行代码PrivateSubCommand1_Click()f=Text1.TextText2.Text=(5/9)*(f-32)EndSubPrivateSub

3、Command2_Click()Text2=""EndSub5、拓展题1)界面运行图程序代码PrivateSubForm_Click()StaticaAsIntegerDimbAsIntegera=a+1b=b+1Print"a=";a,"b=";bEndSub因为他们的变量声明格式不同。Dim声明变量为普通变量，而srtatic声明的变量为静态变量。2)界面运行图程序代码PrivateSubCommand1_Click()i=Shell("C:ProgramFilesMicrosoftOfficeOfficewinword.exe",1)EndSubP

4、rivateSubCommand2_Click()i=Shell("C:ProgramFilesMicrosoftOfficeOfficeexcel.exe",1)EndSubPrivateSubCommand3_Click()i=Shell("C:ProgramFilesMicrosoftOfficeOfficepowerpnt.exe",1)EndSubPrivateSubCommand4_Click()i=Shell("C:ProgramFilesMicrosoftOfficeOfficefrontpg.exe")EndSub书后习

5、题1)界面运行图程序代码PrivateSubForm_Load()Dima#,b#,c#,y#a=Val(InputBox("输入a"))b=Val(InputBox("输入b"))c=Val(InputBox("输入c"))y=a^2+2*b^2+3*c^2MsgBox"结果y等于:"&yEndSub2)界面运行图程序代码PrivateSubCommand1_Click()a=Text1.TextText2=Sin(a/180*3.1415926)EndSubPrivateSubCommand2_Click()a=Text1.TextText3.Text=Co

6、s(a*3.1415926/180)EndSubPrivateSubCommand3_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand4_Click()EndEndSubPrivateSubForm_Load()Dima#Text1.Text=aEndSub3)界面运行图程序代码PrivateSubForm_Load()a=1.2b=2.3Cosd=(3.1415926/180*36)c=Sqr(a^2+b^2-2*a*b*Cosd)MsgBox"c="&cEndSub三．

7、疑问：四．课后练习：判断题：1、错2、错3、对4、对5、对6、对7、对8、对9、错10、对二、选择题1、C2、A3、B4、C5、B6、D7、C8、D9、B10、A11、ABCCD12、B13、A14、B15、A16、A17、C18、D19、B20、B三、填空题1、str2、43、!4、1455、56、37、False8、[x-(Int(x/10))*10]*10+Int(x/10)9、Mod(a*b/2)10、日期11、(x=5*b)Or(x=9*b)12、Int(300*Rnd)13、双引号、#14、Unicod1215、[A^2+B*C(X+Y)]/(A+B

8、)五．学习心得：指导教师