vb实验报告02 (2)

《vb实验报告02 (2)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、编号：2011－2012学年第二学期实验报告实验课程名称VB程序设计基础与VBA应用浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验二、程序设计基础1学生姓名专业班级学号实验成绩指导老师（签名）日期一.实验目的和要求1.掌握运算符的使用。2.掌握表达式的正确书写规则。3.掌握常用函数的使用。4.掌握InputBox、MsgBox函数的使用。5.熟悉掌握赋值语句的使用。6.掌握顺序结构的应用程序的编程过程。26True出生日期：1980-5-18True32DabcdeabcdeVisualB

2、asic76HELLO!浙江杭州2012-3-12012-3-884.69579420171499E-020.0470325.7055475.533424.49999999226498-43二.实验内容和原理【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。运行结果填在右侧表中：（一行一行地输入，不能粘贴）?35/5mod132+5^2PrintNot("bad">"bed")BirthDay=#5/18/1980#Birth$="出生日期："&B

3、irthDayPrintBirth$a=10b=15c=-9Printa>2^3And(b=13OrNotc=0)Printlen(str(a))Printlen(str(c))PrintChr(Asc("A")+3)PrintTrim("ab")&"cde"Print"ab"&"cde"PrintLeft("VisualBasic6.0",7)PrintMid("VisualBasic6.0",8,5)PrintInstr("VisualBasic6.0",”Ba”)PrintLen("VB程序设计")Prin

4、tUCase("Hello!")Print"浙江"&Space(2)&"杭州"PrintDate,Date+7Printhour(Time)Print345/7347,Format(345/7347,"#0.0000")PrintSqr(9)PrintAbs(-25)PrintRnd,RndPrintSin(30*3.1415926/180)PrintInt(-3.4),Int(3.8)【练习2-2】设计一程序，窗体Form1上有两个文本框，窗体界面如下所示。两个文本框可以输入任意值，在程序运行时，每单击窗体一次

5、，两个文本框的内容交换一次。提示：(1)可以参考教材中两个变量值交换的例子(2)可以定义中间交换变量Dimcasstring(3)赋值语句的”=”的前后项不要写颠倒上机实践编写、调试运行以上程序。PrivateSubForm_Click()DimcAsStringc=Text1Text1=Text2Text2=cEndSubPrivateSubText1_Click()DimText1AsStringEndSubPrivateSubText2_Click()DimText2AsStringEndSub【练习2-3

6、】设计一个程序，在文本框内输入任意字符串，例如“美丽的西湖”，对字符串进行字体放大或缩小。下图是窗体的设计界面和经过放大操作后的运行效果。要求：(1)单击“放大”按钮，将文本框中的字符串放大（字体放大），放大的倍数通过随机函数Rnd产生，范围在1～5倍。为了使每次运行时产生不同的放大倍数，程序初始时应执行Randomize语句。(2)同样，单击“缩小”按钮进行缩小，缩小的倍数也通过上述方式产生。(3)单击“还原”按钮，字体大小恢复成初始状态（12磅）。(4)程序启动时，文本框中的字体大小为12磅。程序界面设计根据

7、题目的要求，在界面上拖放1个标签、1个文本框和3个命令按钮，并按下表设置对象的相关属性。表2.？上机练习一之3题的属性设置表对象默认设置对象名称Caption属性其他属性Form1使用对象默认名Form1Label1输入文本属性窗口的Font中设粗体、16号Text1Text属性为空串属性窗口的Font中设粗体、16号；拖动鼠标扩大宽度和高度Command1放大属性窗口的Font中设粗体、16号Command2缩小属性窗口的Font中设粗体、16号Command3还原属性窗口的Font中设粗体、16号部分事件代码

8、PrivateSubCommand1_Click()DimnAsIntegerRandomizen=Int(Rnd*5)+1Text1.FontSize=Text1.FontSize*nEndSubPrivateSubCommand1_Click()DimnAsIntegerRandomizen=Int(Rnd*5)+1Text1.FontSize=Text1.FontS