VB程序设计实验单元一

1、. 程序设计实验单元一VB 实验报告 完成时间： 指导教师： 王自强 学号 专业班级： 姓名 月21日星期六2015年3 环境和可视化编程基础一VB 实验 实验目的一、 Visual Basic的安装1 了解Visual Basic 2 掌握启动与退出 3 掌握建立、编辑和运行一个简单应用程序的全过程 4 掌握基本控件的使用 二、实验环境 VB6.0 三、实验内容 、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。1 事件对事件对文本框初值设为空；Form_Click提示：对窗口编写两个事件：Form_Load 。对文本框计数：文本框计数。 Text1=Val(text1)+1 四、实验步

2、骤 输入“你单击窗体的次数：”Label11、绘制的caption text、绘制。编程为：2Private Sub Form_Click() Text1.Text = Val(Text1.Text) + 1 End Sub ;. . Private Sub Form_Load() Text1.Text = End Sub 设置为“一号”、text的font size3 五、实验结果 VB程序设计实验单元一 实验报告 201424050320 1403 专业班级： 网媒班 姓名凌紫怡 学号 ;. . 21日星期六 完成时间： 2015年3月 指导教师： 王自强 VB环境和可视化编程基础一 实验

3、 实验目的二、 Visual Basic的安装1 了解Visual Basic 2 掌握启动与退出 3 掌握建立、编辑和运行一个简单应用程序的全过程 4 掌握基本控件的使用 二、实验环境 VB6.0 三、实验内容 2、命令按钮、字号、内容和格式的复制练习。 Text1中的文本按要求改变。按钮1：使得Text2. 中选定的文本复制到2按钮：将Text1 属性控件名 ”实验Form1 2Caption= 复制文本Label1 输入文本Label2 但要下功夫学习才能功能强大，Text1 VBText=“ 学好。” Text=Text2 ” 磅”Caption=”隶书25Command1 =Capt

4、ion=”复制Command2 ” 四、实验步骤;. . 1、label1的caption输入“复制效果”；label2的caption输入“输入文本”。 2、绘制两个text。 Private Sub Text1_Click() Text1.Text = VB功能强大，但要下功夫学习才能学好。 End Sub Private Sub Text2_click() Text2.Text = End Sub 3、以及两个Command。Command1的caption输入“隶书25磅”；Command2的caption输入“复制=”。 Private Sub Command1_Click() 敔瑸

5、?潆瑮慎敭?尠隶书 Text1.FontSize = End Sub Private Sub Command2_Click() Text2.Text = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub 五、实验结果 ;. . 实验二 VB语言基础和顺序结构 一 、实验目的 1、掌握正确书写表达式、赋值语句的规则 2、掌握常用函数的使用 3、掌握InputBox与MsgBox的使用 4、掌握Print和Format的使用 ;. . 二、 实验环境 VB6.0 三、 实验内容

6、 1、输入半径的值，分别计算并输出圆的面积、圆的周长和球的体积。 四、实验步骤 1、绘制一个label，caption为r。 2、绘制四个text，编写程序代码为： Private Sub Text1_Change() Text2.Text = Text3.Text = Text4.Text = End Sub 3、绘制三个command，command1的caption为“圆的面积”；command2的caption为“圆的周长”；command3的caption为“圆的体积”。 编写程序代码为： Private Sub Command1_Click() a = 3.14 Text2.Tex

7、t = a * Text1.Text * Text1.Text End Sub Private Sub Command2_Click() a = 3.14 Text3.Text = 2 * a * Text1.Text End Sub Private Sub Command3_Click() a = 3.14 Text4.Text = 4 / 3 * a * Text1.Text * Text1.Text * Text1.Text End Sub 五、实验结果 ;. . 实验二 VB语言基础和顺序结构 ;. . 一 、实验目的 1、掌握正确书写表达式、赋值语句的规则 2、掌握常用函数的使用 3

8、、掌握InputBox与MsgBox的使用 4、掌握Print和Format的使用 二、 实验环境 VB6.0 三、 实验内容 2、随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如735,输出537. 提示：利用“Mod”和“”将一个3位数分离出3个1位数，然后连接成一个逆序的3位数。 四、实验步骤 1、绘制一个text，并编写程序代码： Private Sub Text1_Change() Label1 = End Sub 2、绘制一个label，label的border style属性为1-fixed single 3、绘制两个command，command1的ca

9、ption命名为“产生”；command2的caption命名为“逆序” 并且编写程序为： Private Sub Command1_Click() Text1.Text = Int(Rnd * 900 + 100) End Sub Private Sub Command2_Click() Dim x%, x1%, x2%, x3% x = Val(Text1.Text) x1 = x Mod 10 x2 = (x Mod 100) 10 ;. . x3 = x 100 Label1 = x1 * 100 + x2 * 10 + x3 End Sub 五、实验结果 实验三 选择结构 一、实验目

10、的 ;. . 1、 掌握逻辑表达式的正确书写形式。 2、 掌握单分支与双分支条件语句的使用。 3、 掌握多分支条件语句的使用。 4、 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验环境 VB6.0 三、实验内容 1、 输入3个整数，输出最大的数。 四、实验步骤 1、绘制一个label，它的caption是“输入三个整数” 2、绘制四个text，并且编写程序代码为 Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = End Sub 3、绘制两个command，command1的caption为“输出最大值”并

11、且编写程序代码为 Private Sub Command1_Click() x = Val(Text1.Text) y = Val(Text2.Text) z = Val(Text3.Text) If x y And x z Then Text4.Text = x ElseIf y z Then Text4.Text = y Else Text4.Text = z End If End Sub Command2的caption为“清空”，并且编写程序为 ;. . Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text

12、= Text4.Text = End Sub 五、实验结果 ;. . 三、实验内容 2、 输出150-200的能被7但不能被3整除的数。 四、实验步骤 1、绘制一个command，它的caption为“输出150-200的能被7但不能被3整除的数” 2、command1的程序代码为 Private Sub Command1_Click() Dim a As Integer For a = 150 To 200 If a Mod 7 = 0 And a Mod 3 0 Then Print a Next a End Sub 五、实验结果 ;. . 三、实验内容 3、 输入一个三位数，判断是否为水

13、仙数。水仙数的特点：个位数、十位数和百位数的立方和等于该数自身的数。 四、实验步骤 1、绘制一个command，它的caption为“判断是否为水仙数” 2、command1的程序代码为 Private Sub Command1_Click() Dim a As Single ?湉異?硯尨输入一个三位数，判断其是否为水仙数?尠输入三位数) Dim b, c, d ;. . b = a Mod 10 c = (a Mod 100) 10 d = a 100 If b 3 + c 3 + d 3 = a Then 牐湩?是 Else 牐湩?否 End If End Sub 五、实验结果 ;. .

14、实验四 循环结构 一、实验目的 1、 掌握For语句的使用。 2、 掌握Do语句的各种形式的使用。 3、 掌握如何控制循环条件，防止死循环或不循环。 二、实验环境 VB6.0 ;. . 三、实验内容 1. 一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满一个月（30天）；而富翁第一天给陌生人1分钱，第二天2分，第三天4分，富翁每天给陌生人的前是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？ 四、实验步骤 1、绘制一个command，它的caption为“计算”，程序代码为 Private Sub Command1_Click() a = 100000 s1 = a * 30 牐湩?陌生人给富人的钱是：; s1 n = 0.01 s2 = 0 For k = 1 To 30 s2 = s2 + n n = 2 * n Next k 牐湩?富人给陌生人的钱是：; s2 End Sub 五、 实验结果 ;. . 实验四 循环结构 一、实验目的 4、 掌握For语句的使用。 5、 掌握Do语句的各种形式的使用。 6、 掌握如何控制循环条件，防止死循环或不循环。 二、实验环境 VB6.0 三、实验内容 2. 用计算机安排考试日程。期末某专业在周一至周六的六天要考a,b,c三门课，考试顺序为先考a