VB实验报告02.docVIP

2011－20学年第学期 实 验 报 告 实验课程名称VB程序设计 浙江大学城市学院实验报告 课程名称 VB程序设计基础 实验项目名称 程序设计基础 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求 掌握运算符的使用。 掌握表达式的正确书写规则。 掌握常用函数的使用。 掌握InputBox、MsgBox函数的使用。 熟悉掌握赋值语句的使用。 掌握顺序结构的应用程序的编程过程。 二. 实验内容和原理 【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。运行结果填在右侧表中：? 35 /5 mod 13 \2+5^2 Print Not(badbed) BirthDay = #5/18/1980# Birth$ = 出生日期： BirthDay Print Birth$ a = 10 b = 15 c = -9 Print a 2 ^ 3 And (b = 13 Or Not c = 0) Print len(str(a)) Print len(str(c)) Print Chr(Asc(A) + 3) Print Trim( a b ) cde Print a b cde Print Left(Visual Basic 6.0, 7) Print Mid(Visual Basic 6.0, 8, 5) Print Instr(Visual Basic 6.0,” Ba”) Print Len(VB程序设计) Print UCase(Hello!) Print 浙江 Space(2) 杭州 Print Date, Date+7 Print hour(Time) Print 345 / 7347, Format(345 / 7347, #0.0000) Print Sqr(9) Print Abs(-25) Print Rnd, Rnd Print Sin(30 * 3.1415926 / 180) Print Int(-3.4), Int(3.8) 【练习2-2】设计一程序，窗体Form1 上有两个文本框，窗体界面如所示。两个文本框可以输入任意值，在程序运行时，每单击窗体一次，两个文本框的内容交换一次。 提示： (1)可以参考教材中两个变量值交换的例子 (2)可以定义中间交换变量 Dim c as string (3)赋值语句的”=”的前后项不要写颠倒 上机实践 调试运行以上程序。Private Sub Form_Click() Dim c As String c = Text1 Text1 = Text2 Text2 = c End Sub Private Sub Text1_Click() Dim Text1 As String End Sub Private Sub Text2_Click() Dim Text2 As String End Sub 【练习2-】设计一个程序，在文本框内输入任意字符串，例如“美丽的西湖”，对字符串进行字体放大或缩小。 图是窗体的设计界面和经过放大操作后的运行效果。要求： (1)单击“放大”按钮，将文本框中的字符串放大（字体放大），放大的倍数通过随机函数Rnd产生，范围在1～5倍。为了使每次运行时产生不同的放大倍数，程序初始时应执行Randomize语句。 (2)同样，单击“缩小”按钮进行缩小，缩小的倍数也通过上述方式产生。 (3)单击“还原”按钮，字体大小恢复成初始状态（12磅）。 (4)程序启动时，文本框中的字体大小为12磅。 程序界面设计 根据题目的要求，在界面上拖放1个标签、1个文本框和3个命令按钮，并按下表设置对象的相关属性。 表2.？上机练习一之3题的属性设置表 对象默认 设置对象名称 Caption属性 其他属性 Form1 使用对象默认名 Form1 Label1 输入文本 属性窗口的Font中设粗体、16号 Text1 Text属性为空串 属性窗口的Font中设粗体、16号；拖动鼠标扩大宽度和高度 Command1 放大 属性窗口的Font中设粗体、16号 Command2 缩小 属性窗口的Font中设粗体、16号 Command3 还原 属性窗口的Font中设粗体、