当前位置：文档之家› VB程序设计实验单元一精编

VB程序设计实验单元一精编

V B程序设计实验单元一

精编

Document number：WTT-LKK-GBB-08921-EIGG-22986

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

实验报告

专业班级：姓名学号

指导教师：王自强完成时间： 2015年3月21日星期六

实验一VB环境和可视化编程基础

一、实验目的

1 了解Visual Basic的安装

2 掌握启动与退出Visual Basic

3 掌握建立、编辑和运行一个简单应用程序的全过程

4 掌握基本控件的使用

二、实验环境

三、实验内容

1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。

提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。对文本框计数：Text1=Val(text1)+1 。

四、实验步骤

1、绘制Label1的caption输入“你单击窗体的次数：”

2、绘制text。编程为：

Private Sub Form_Click()

= Val + 1

End Sub

Private Sub Form_Load()

= ""

End Sub

3、text的font size设置为“一号”

五、实验结果

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

实验报告

专业班级：网媒1403班姓名凌紫怡学号 0320 指导教师：王自强完成时间： 2015年3月21日星期六

实验一VB环境和可视化编程基础

二、实验目的

1 了解Visual Basic的安装

2 掌握启动与退出Visual Basic

3 掌握建立、编辑和运行一个简单应用程序的全过程

4 掌握基本控件的使用

二、实验环境

三、实验内容

2、命令按钮、字号、内容和格式的复制练习。

按钮1：使得Text1中的文本按要求改变。

按钮2：将Text1中选定的文本复制到Text2.

四、实验步骤

1、label1的caption输入“复制效果”；label2的caption输入“输入文本”。

2、绘制两个text。

Private Sub Text1_Click()

= "VB功能强大，但要下功夫学习才能学好。"

End Sub

Private Sub Text2_click()

= ""

End Sub

3、以及两个Command。Command1的caption输入“隶书25磅”；Command2的caption输入“复制=>”。

Private Sub Command1_Click()

= "隶书"

= "25"

End Sub

Private Sub Command2_Click()

End Sub

五、实验结果

实验二 VB语言基础和顺序结构

一、实验目的

1、掌握正确书写表达式、赋值语句的规则

2、掌握常用函数的使用

3、掌握InputBox与MsgBox的使用

4、掌握Print和Format的使用

二、实验环境

三、实验内容

1、输入半径的值，分别计算并输出圆的面积、圆的周长和球的体积。

四、实验步骤

1、绘制一个label，caption为r。

2、绘制四个text，编写程序代码为：

Private Sub Text1_Change()

= ""

End Sub

3、绘制三个command，command1的caption为“圆的面积”；command2的caption为“圆的周长”；command3的caption为“圆的体积”。

编写程序代码为：

Private Sub Command1_Click()

a =

= a * *

End Sub

Private Sub Command2_Click() a =

= 2 * a *

End Sub

Private Sub Command3_Click() a =

= 4 / 3 * a * * *

End Sub

五、实验结果

实验二 VB语言基础和顺序结构

一、实验目的

1、掌握正确书写表达式、赋值语句的规则

2、掌握常用函数的使用

3、掌握InputBox与MsgBox的使用

4、掌握Print和Format的使用

二、实验环境

三、实验内容

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的caption命名为“产生”；command2的caption命名为“逆序”

并且编写程序为：

Private Sub Command1_Click()

= Int(Rnd * 900 + 100)

End Sub

Private Sub Command2_Click()

Dim x%, x1%, x2%, x3%

x = Val

x1 = x Mod 10

x2 = (x Mod 100) \ 10

x3 = x \ 100

Label1 = x1 * 100 + x2 * 10 + x3

End Sub

五、实验结果

实验三选择结构

一、实验目的

1、掌握逻辑表达式的正确书写形式。

2、掌握单分支与双分支条件语句的使用。

3、掌握多分支条件语句的使用。

4、掌握情况语句的使用及其与多分支条件语句之间的区

别。

二、实验环境

三、实验内容

1、输入3个整数，输出最大的数。

四、实验步骤

1、绘制一个label，它的caption是“输入三个整数”

2、绘制四个text，并且编写程序代码为

Private Sub Form_Load()

= ""

End Sub

3、绘制两个command，command1的caption为“输出最大值”并且编写程序代码为

Private Sub Command1_Click()

x = Val

y = Val

z = Val

If x > y And x > z Then

= x

ElseIf y > z Then

= y

Else

= z

End If

End Sub

Command2的caption为“清空”，并且编写程序为Private Sub Command2_Click()

= ""

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、输入一个三位数，判断是否为水仙数。水仙数的特

点：个位数、十位数和百位数的立方和等于该数自身的数。

四、实验步骤

1、绘制一个command，它的caption为“判断是否为‘水仙数’”

2、command1的程序代码为

Private Sub Command1_Click()

Dim a As Single

a = InputBox("输入一个三位数，判断其是否为水仙数", "输入三位数")

Dim b, c, d

b = a Mod 10

c = (a Mo

d 100) \ 10

d = a \ 100

If b ^ 3 + c ^ 3 + d ^ 3 = a Then Print "是"

Else

Print "否"

End If

End Sub

五、实验结果

实验四循环结构

一、实验目的

1、掌握For语句的使用。

2、掌握Do语句的各种形式的使用。

3、掌握如何控制循环条件，防止死循环或不循环。

二、实验环境

三、实验内容

1. 一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满一个月（30天）；而富翁第一天给陌生人1分钱，第二天2分，第三天4分……，富翁每天给陌生人的前是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少

四、实验步骤

1、绘制一个command，它的caption为“计算”，程序代码为

Private Sub Command1_Click()

a = 100000

s1 = a * 30

Print "陌生人给富人的钱是："; s1

n =

s2 = 0

For k = 1 To 30

s2 = s2 + n

n = 2 * n

Next k

Print "富人给陌生人的钱是："; s2