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

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

ID:15396618

大小:160.00 KB

页数:8页

时间:2018-08-03

高级语言程序设计(vb)实验报告------vb编程基础及顺序结构_第1页
高级语言程序设计(vb)实验报告------vb编程基础及顺序结构_第2页
高级语言程序设计(vb)实验报告------vb编程基础及顺序结构_第3页
高级语言程序设计(vb)实验报告------vb编程基础及顺序结构_第4页
高级语言程序设计(vb)实验报告------vb编程基础及顺序结构_第5页
资源描述:

《高级语言程序设计(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)-3printsgn(7*3+

2、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)EndSubPrivateSubCommand2_Click()Text

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

4、ll("C:ProgramFilesMicrosoftOfficeOfficeexcel.exe",1)EndSubPrivateSubCommand3_Click()i=Shell("C:ProgramFilesMicrosoftOfficeOfficepowerpnt.exe",1)EndSubPrivateSubCommand4_Click()i=Shell("C:ProgramFilesMicrosoftOfficeOfficefrontpg.exe")EndSub书后习题1)界面运行图程序代码PrivateSubForm_Load()Dima#,b

5、#,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=Cos(a*3.1415926/180)EndSubPrivateSubCommand3_Click()

6、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三.疑问:四.课后练习:判断题:1、错2、错3、对4、对5、对6、对7、对8、对9、错10、对二、选择题1、C2、A3、B4

7、、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)五.学习心得:指导教师

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。