《VB程序设计》实验单元一
实验报告
专业班级：姓名学号指导教师：王自强完成时间：2015年3月21日星期六
实验一VB环境和可视化编程基础
一、实验目的
1 了解Visual Basic的安装
2 掌握启动与退出Visual Basic
3 掌握建立、编辑和运行一个简单应用程序的全过程
4 掌握基本控件的使用
二、实验环境
VB6.0
三、实验内容
1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。
提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。对文本框计数：Text1=Val(text1)+1 。
四、实验步骤
1、绘制Label1的caption输入“你单击窗体的次数：”
2、绘制text。编程为：
Private Sub Form_Click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub
3、text的font size设置为“一号”
五、实验结果
《VB程序设计》实验单元一
实验报告
专业班级：网媒1403班姓名凌紫怡学号201424050320 指导教师：王自强完成
时间：2015年3月21日星期六
实验一VB环境和可视化编程基础
二、实验目的
1 了解Visual Basic的安装
2 掌握启动与退出Visual Basic
3 掌握建立、编辑和运行一个简单应用程序的全过程
4 掌握基本控件的使用
二、实验环境
VB6.0
三、实验内容
2、命令按钮、字号、内容和格式的复制练习。
按钮1：使得Text1中的文本按要求改变。
按钮2：将Text1中选定的文本复制到Text2.
四、实验步骤
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()
Text1.FontName = "隶书"
Text1.FontSize = "25"
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
三、实验内容
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.Text = 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、掌握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的caption命名为“产生”；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
五、实验结果
实验三选择结构一、实验目的
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为“输出最大值”并且编写程序代码为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 = ""
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、输入一个三位数，判断是否为水仙数。水仙数的特点：个位数、十位数和百位
数的立方和等于该数自身的数。
四、实验步骤
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、掌握如何控制循环条件，防止死循环或不循环。
二、实验环境
VB6.0
三、实验内容
1. 一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满一个月（30天）；而富翁第一天给陌生人1分钱，第二天2分，第三天4分……，富翁每天给陌生人的前是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？
四、实验步骤
1、绘制一个command，它的caption为“计算”，程序代码为
Private Sub Command1_Click()
a = 100000
s1 = a * 30
Print "陌生人给富人的钱是："; s1
n = 0.01
s2 = 0
For k = 1 To 30
s2 = s2 + n
n = 2 * n
Next k
Print "富人给陌生人的钱是："; s2
End Sub
五、实验结果
实验四循环结构
一、实验目的
4、掌握For语句的使用。
5、掌握Do语句的各种形式的使用。
6、掌握如何控制循环条件，防止死循环或不循环。
二、实验环境
VB6.0
三、实验内容
2. 用计算机安排考试日程。期末某专业在周一至周六的六天要考a,b,c三门课，考试顺序为先考a,然后考b,最后考c,规定一天只能考一门。且c课只能安排在周五或周六考。编写程序安排考试日程，要求列出满足条件的所有方案。
四、实验步骤
1、绘制一个command，它的caption设为“安排考试日程”，并且程序编写为：
For i = 1 To 6
For j = 1 To 6
For l = 5 To 6
If i < j And j < l Then Print "a"; i, "b"; j, "c"; l Next l
Next j
Next i
五、实验结果