成绩
批阅人
徐润森
日期
实验报告2.1
实验名称
VB基本程序设计
指导教师
徐润森
实验类型
验证型
实验学时
11×2
实验时间
3.13
三、实验目的和要求
设计一程序，当程序运行后，在窗体的中间显示“你好！请输入你的姓名”，焦点定在其下的文本框中。当用户输入姓名并单击“确定”按钮后，在窗体中用黑体三号红色显示“xxx同学，你好！，祝你学好vb程序设计”，同时窗体上出现两个命令按钮“继续”和“结束”，其中“xxx”是用户输入的姓名
二、实验环境(实验设备)
学校机房
三、实验原理及内容
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Command1_Click()
bel1.Caption = Form1.Text1 + "同学，你好！祝你学好VB程序设计"
F = 9 / 5 * C + 32
Text2.Text = Str(F)
End Sub
Private Sub Command2_Click()
F = Val(Text2.Text)
C = 5 / 9 * (F - 32)
Text1.Text = Str(C)
End Sub
Private Sub form_load()
三、实验原理及内容
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim st As String * 1
n = Chr(KeyAscii)
End Sub
Private Sub Command3_Click()
Label1.FontUnderline = True
End Sub
Private Sub Command4_Click()
Label1.FontSize = 10
Label1.FontBold = False
Label1.FontUnderline = False
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If Text2.Text <> " " Then
If KeyAscii = 13 Then
Text1.Text = (Text2.Text - 32) * 5 / 9
c = a + b
Text3.Text = Str(c)
End Sub
Private Sub Command2_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
Text3.Text = Str(c)
End Sub
Private Sub Command3_Click()
End Sub
Private Sub Form_Load()
Label1.Caption = Time
End Sub
四、实验小结（包括问题和解决方法、心得体会、意见与建议等）
怎样确保两个数在一定范围内，放大的倍数怎样控制，怎样确定小数的位数
熟记书上的知识和各函数的功能与作用，多与老师交流
成绩
批阅人
徐润森
If n >= "a" And n <= "z" Then
n = Chr(KeyAscii - 32)
ElseIf n >= " Then
n = Chr(KeyAscii + 32)
End If
Text2.Text = Text2.Text & n
End Sub
四、实验小结（包括问题和解决方法、心得体会、意见与建议等）
x = Left(Text1.Text, a - 1)“把x分出来”
y = Mid(Text1.Text, a + 1)v“把y分出来”
If x > 0 And y > 0 Then“If语句”
MsgBox "(" & x & "," & y & ")在第一象限", 0 + vbInformation, "消息框"
实验学时
11×2
实验时间
3.11
一、实验目的和要求
自己动手安装visual basic6.0系统
二、实验环境(实验设备)
学校机房
三、实验原理及内容
安装visual basic6.0系统
双击安装程序
运行程序
四、实验小结（包括问题和解决方法、心得体会、意见与建议等）
了解各部件的作用
实计各部件的作用与功能
实验时间
3.18
八、实验目的和要求
编写华氏温度与摄氏温度的转换程序，程序运行效果如图。
（1）用命令按钮实现转换。
（2）不用命令按钮，当文本输入时直接完成转换。
二、实验环境(实验设备)
学校机房
三、实验原理及内容
（1）Private Sub Command1_Click()
C = Val(Text1.Text)
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = Str(c)
End Sub
Private Sub Command4_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a / b
Text3.Text = Str(c)
学校机房
三、实验原理及内容
Private Sub Command1_Click()
Label1.FontSize = 10
Label1.FontSize = Label1.FontSize * 3
End Sub
Private Sub Command2_Click()
Label1.FontBold = True
学校机房
三、实验原理及内容
系统启动后窗体左边的general工具箱，查看每个控件的作用。
查看每个部件的作用与功能
查看部件对话框
工具资源管理器
属性设置窗口
代码编辑器窗口
立即窗口
四、实验小结（包括问题和解决方法、心得体会、意见与建议等）
对每个部件的作用与功能记不清楚
多看书
熟练掌握教材的知识是学好的vb课的基础
二、实验环境(实验设备)
学校机房
三、实验原理及内容
Private Sub Command1_Click()
Label1.Caption = ""
Label1.Caption = Time
a = Int(Rnd * 3) + 1
Label1.FontSize = Label1.FontSize * Str(a)
日期
实验报告3.3
实验名称
VB基本程序设计
指导教师
徐润森
实验类型
验证型
实验学时
11×2
实验时间
3.16
六、实验目的和要求
编写简易计算器
二、实验环境(实验设备)
学校机房
三、实验原理及内容
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
实验报告
（2009 / 2010学年第2学期）
课程名称
VB语言程序设计
实验名称
VB语言程序设计
实验时间
2010
年
3
月
10
日
指导单位
南京邮电大学经管学院管理科学与工程系
指导教师
徐润森
实验成绩
学生姓名
边诚
班级学号
学院(系)
经管院
专业
经济学
实验报告1.1
实验名称
VB基本程序设计
指导教师
徐润森
实验类型
验证型
3.14
四、实验目的和要求
在窗体上建立5个命令按钮command1，ommand2，command3，command4，command5和一个标签label1.
（1）5个命令按钮分别为：放大，加粗，下划线，还原，移动，标签显示为“VB程序设计”。
（2）放大3倍，加粗，加下划线，还原到起初状态。
二、实验环境(实验设备)
Text1.Text = ""
Text2.Text = ""
End Sub
（2）Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.Text <> " " Then
If KeyAscii = 13 Then
Text2.Text = 9 / 5 * Val(Text1.Text) + 32
End If
End If
End Sub
四、实验小结（包括问题和解决方法、心得体会、意见与建议等）
算法是程序设计的灵魂，要有严密的逻辑顺序，在编写时也要考虑先做什么，再做什么，最后做什么。