VB实验报告02 (2).doc

编号：20112012学年第二学期实 验 报 告实验课程名称VB程序设计基础与VBA应用 浙江大学城市学院实验报告课程名称 VB程序设计基础与实验 实验项目名称 实验二、程序设计基础1 学生姓名 专业班级 学号 实验成绩 指导老师（签名 ） 日期 一. 实验目的和要求1. 掌握运算符的使用。2. 掌握表达式的正确书写规则。3. 掌握常用函数的使用。4. 掌握InputBox、MsgBox函数的使用。5. 熟悉掌握赋值语句的使用。6. 掌握顺序结构的应用程序的编程过程。26True出生日期：1980-5-18True32Da bcde a b cdeVisualBasic76HELLO!浙江 杭州2012-3-1 2012-3-884.69579420171499E-02 0.0470325.7055475 .533424.49999999226498-4 3二. 实验内容和原理【练习2-1】打开立即窗口，输入以下内容，每行以回车键结束，查看结果来掌握赋值语句、运算符、表达式、常用内部函数。运行结果填在右侧表中：（一行一行地输入，不能粘贴）? 35 /5 mod 13 2+52Print Not(badbed)BirthDay = #5/18/1980#Birth$ = 出生日期： & BirthDay Print Birth$ a = 10b = 15c = -9Print 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 ) & cdePrint a b & cdePrint 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+7Print hour(Time)Print 345 / 7347, Format(345 / 7347, #0.0000)Print Sqr(9)Print Abs(-25)Print Rnd, RndPrint 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 Stringc = Text1Text1 = Text2Text2 = cEnd SubPrivate Sub Text1_Click()Dim Text1 As StringEnd SubPrivate Sub Text2_Click()Dim Text2 As StringEnd Sub【练习2-3】设计一个程序，在文本框内输入任意字符串，例如“美丽的西湖”，对字符串进行字体放大或缩小。下图是窗体的设计界面和经过放大操作后的运行效果。要求：(1)单击“放大”按钮，将文本框中的字符串放大（字体放大），放大的倍数通过随机函数Rnd产生，范围在15倍。为了使每次运行时产生不同的放大倍数，程序初始时应执行Randomize语句。(2)同样，单击“缩小”按钮进行缩小，缩小的倍数也通过上述方式产生。(3)单击“还原”按钮，字体大小恢复成初始状态（12磅）。(4)程序启动时，文本框中的字体大小为12磅。 程序界面设计根据题目的要求，在界面上拖放1个标签、1个文本框和3个命令按钮，并按下表设置对象的相关属性。表2.？上机练习一之3题的属性设置表对象默认设置对象名称Caption属性其他属性Form1使用对象默认名Form1Label1输入文本属性窗口的Font中设粗体、16号Text1Text属性为空串属性窗口的Font中设粗体、16号；拖动鼠标扩大宽度和高度Command1放大属性窗口的Font中设粗体、16号Command2缩小属性窗口的Font中设粗体、16号Command3还原属性窗口的Font中设粗体、16号部分事件代码Private Sub Command1_Click()Dim n As IntegerRandomizen = Int(Rnd * 5) + 1Text1.FontSize = Text1.FontSize * nEnd SubPrivate Sub Command1_Click()Dim n As IntegerRandomizen = Int(Rnd * 5) + 1Text1.FontSize = Text1.FontSize * nEnd SubPrivate Sub Command2_Click()Dim n As IntegerRandomizen = Int(Rnd * 5) + 1Text1.FontSize = Text1.FontSize / nEnd SubPrivate Sub Command3_Click()Text1.FontSize = 12End Sub【练习2-4】设计一个根据摄氏温度求对应的华氏温度的程序。下图是设计窗体，窗体上有2个标签框作提示使用；2个文本框Text1和Text2分别作输入和显示；3个命令按钮， 名称分别是Command1、Command2、Command3，标题分别是“计算”、“清除”、“退出”。在Text1中输入摄氏温度后，单击“计算”按钮，右文本框内显示出该摄氏温度对应的华氏温度；单击“清除”按钮使得2个文本框的内容被清除；单击“退出”按钮结束程序运行。计算公式：F=9C/5+32，其中C表示摄氏温度，F表示华氏温度。（提示：清除文本框Text1中的文字信息用语句Text1.Text=”）上机实践编写、调试运行以上程序。Private Sub Command1_Click()Dim f As Single, c As Singlec = Val(Text1.Text)f = 9 * c / 5 + 32Text2.Text = Str(f)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = End SubPrivate Sub Command3_Click()EndEnd Sub【练习2-5】两个窗体的运行界面如下，两窗体标题分别为“启动窗体”、“第二个窗体”，启动窗体的背景色是红色，第二个窗体的背景色是绿色，单击启动窗体的命令按钮“下一窗体”，显示出第二个窗体，隐藏启动窗体，单击第二个窗体的命令按钮“返回”，关闭第二个窗体，显示出启动窗体。练习 1-6 运行界面命令按钮“返回”的事件过程如下，写出启动窗体命令按钮的事件过程。Private Sub Command1_Click()Form2.HideForm1.ShowEnd Sub上机实践编写、调试运行以上程序，运行界面参考上图。1.Private Sub Command1_Click()Form2.HideForm1.ShowEnd Sub2.P