《VB程序设计》实验单元一.docx

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

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

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

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

5、Name = 隶书Text1.FontSize = 25End SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd Sub五、实验结果实验二 VB语言基础和顺序结构一、实验目的1、掌握正确书写表达式、赋值语句的规则2、掌握常用函数的使用3、掌握 InputBox 与 MsgBox的使用4、掌握 Print 和 Format 的使用二、实验环境VB6.0三、实验内容1、输入半径的值，分别计算并输出圆的面积

6、、圆的周长和球的体积。四、实验步骤1、绘制一个 label，caption 为 r。2、绘制四个 text，编写程序代码为：Private Sub Text1_Change()Text2.Text = Text3.Text = Text4.Text = End Sub3、绘制三个 command，command1 的 caption 为“圆的面积” ；command2 的 caption 为“圆的周长”；command3 的 caption 为“圆的体积” 。编写程序代码为：Private Sub Command1_Click()a = 3.14Text2.Text = a * Text1.T

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

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

9、的 caption 命名为“逆序”并且编写程序为：Private Sub Command1_Click()Text1.Text = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Dim x%, x1%, x2%, x3%x = Val(Text1.Text)x1 = x Mod 10x2 = (x Mod 100) 10x3 = x 100Label1 = x1 * 100 + x2 * 10 + x3End Sub五、实验结果实验三选择结构一、实验目的1、 掌握逻辑表达式的正确书写形式。2、 掌握单分支与双分支条件语句的使用。3

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

11、.Text)y = Val(Text2.Text)z = Val(Text3.Text)If x y And x z ThenText4.Text = xElseIf y z ThenText4.Text = yElseText4.Text = zEnd IfEnd SubCommand2 的 caption 为“清空”，并且编写程序为Private Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub五、实验结果三、实验内容2、输出 150-200 的能被 7 但不能被 3 整除的数。四

12、、实验步骤1、绘制一个 command，它的 caption 为“输出 150-200 的能被 7 但不能被 3 整除的数”2、command1 的程序代码为Private Sub Command1_Click()Dim a As IntegerFor a = 150 To 200If a Mod 7 = 0 And a Mod 3 0 Then Print aNext aEnd Sub五、实验结果三、实验内容3、 输入一个三位数，判断是否为水仙数。水仙数的特点：个位数、十位数和百位数的立方和等于该数自身的数。四、实验步骤1、绘制一个 command，它的 caption 为“判断是否为水仙数

13、 ”2、command1 的程序代码为Private Sub Command1_Click()Dim a As Singlea = InputBox( 输入一个三位数，判断其是否为水仙数 , 输入三位数 )Dim b, c, db = a Mod 10c = (a Mod 100) 10d = a 100If b 3 + c 3 + d 3 = a ThenPrint 是ElsePrint 否End IfEnd Sub五、实验结果实验四循环结构一、实验目的1、 掌握 For 语句的使用。2、 掌握 Do 语句的各种形式的使用。3、 掌握如何控制循环条件，防止死循环或不循环。二、实验环境VB6.

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