vb实验报告

Private Sub b_Click()
Form6.Show
Form4.Hide
End Sub
Private Sub c_Click()
Form7.Show
Form4.Hide
End Sub
5、“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，通过设置窗体的picture属性，为窗体添加背景图片。
Dim c As String
For a = 1 To Len(Text1.Text)
If Asc(Mid(Text1.Text, a, 1)) >= 65 And Asc(Mid(Text1.Text, a, 1)) <= 90 Then
c = c + Chr(Asc(Mid(Text1.Text, a, 1)) + 32)
包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。
4、掌握菜单和工具栏的使用
二、设备与环境
硬件：多媒体ห้องสมุดไป่ตู้算机
软件：Windows 2000以上的操作系统、Visual Basic集成开发环境
三、实验内容
1、先进入欢迎界面，在屏幕上显示"欢迎您使用本程序"，并弹出密码框，等待输入密码。
If a(j) > a(imax) Then
imax = j
End If
Next j
t = a(i): a(i) = a(imax): a(imax) = t
Next i
For i = 1 To 10
m = Str(a(i))
Text2.Text = Text2.Text + m + " "
Next i
If Option3.Value Then Label4 = HScroll1.Value * HScroll2.Value
If Option4.Value Then Label4 = HScroll1.Value / HScroll2.Value
End Sub
Private Sub Command2_Click()
HScroll2.Min = 1
HScroll2.Max = 100
End Sub
8、结束界面设计如下图所示：
9、实验总结
通过本次综合实验，复习了VB窗口属性的设置，VB语言基础，控制结构，用户界面设计，过程等知识，巩固了VB这门课程的知识，为期末考试打下基础，加强了程序设计能力，对本门课程有了更为深刻的认识。为以后的学习打下了坚实的基础，对以后的学习有了很大的帮助。
教 师 评 价
评定项目
A
B
C
D
评定项目
A
B
C
D
算法正确
界面美观，布局合理
程序结构合理
操作熟练
语法、语义正确
解析完整
“登陆”按钮的click事件代码如下所示：
Private Sub Command1_Click()
Dim i As Integer
If Text1.Text <> "康应翠" Or Text2.Text <> "123456" Then
MsgBox ("用户名或密码错误,请重新输入")
Else
Form4.Show
2、密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单。
3、“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”窗体。
4、“过程应用”菜单中包括“字符转换”子菜单，单击此菜单，弹出“字符转换”窗体。
5、单击“控件应用”菜单，弹出“数学运算”窗体。
End If
End Sub
Private Sub Command2_Click()
Form4.Show
Form6.Hide
End Sub
7、单击“控件应用”菜单，弹出“数学运算”对话框，在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为1；六个标签，名称为lab1、lab2、lab3、lab4、lab5和lab6，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在lab4中。设计界面如下图所示：
End Sub
4、系统主界面设计。通过设置窗体的picture属性，为窗体添加背景图片。在窗体上创建三个菜单项，在标题栏输入标题文本和名称。并分别在三个菜单项下各创建一个子菜单项。设计界面如下所示：
编写代码如下：
Private Sub a_Click()
Form5.Show
Form4.Hide
End Sub
Text4 = ""
Command1.Enabled = True
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
End Sub
返回按钮代码如下
Private Sub Command3_Click()
End Sub
求最大值的代码如下：
Private Sub Command6_Click()
Max = a(1)
For i = 1 To 10
If a(i) > Max Then Max = a(i)
Next i
Text3.Text = Str(Max)
End Sub
求最小值的代码如下：
Private Sub Command7_Click()
编写代码如下：
Private Sub Command1_Click()
Form3.Show
Form2.Hide
End Sub
3、设计系统登陆界面。在窗体上添加三个标签，两个文本框，两个命令按钮。如果在文本框中输入的用户名和密码都正确，则成功登陆系统主界面；假若用户名或密码错误，则给出相应错误提示。设计界面如下图所示。
Min = a(1)
For i = 1 To 10
If a(i) < Min Then Min = a(i)
Next i
Text4.Text = Str(Min)
End Sub
清空按钮代码如下
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
ElseIf Asc(Mid(Text1.Text, a, 1)) >= 97 And Asc(Mid(Text1.Text, a, 1)) <= 122 Then
c = c + Chr(Asc(Mid(Text1.Text, a, 1)) - 32)
End If
Next a
Text2.Text = c
在名称为“数组操作”的窗体上有一个label控件，4个text控件及7个命令按钮，功能如下：
（1）开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。
（2）单击“输入”按钮之后，用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入无效，请重新输入第n个数”。
For i = 1 To 9
imin = i
For j = i + 1 To 10
If a(j) < a(imin) Then
imin = j
End If
Next j
t = a(i): a(i) = a(imin): a(imin) = t
Next i
For i = 1 To 10
m = Str(a(i))
程序代码如下：
Private Sub Command1_Click()
If Option1.Value Then Text2.Text = LCase(Text1.Text)
If Option2.Value Then Text2.Text = UCase(Text1.Text)
If Option3.Value Then
Text1.Text = Text1.Text + m + " "
Next i
End Sub
降序排列按钮的代码如下：
Private Sub Command5_Click()
Dim imax%, i%, j%, t%, m$
For i = 1 To 9
imax = i
For j = i + 1 To 10
华北科技学院计算机学院综合性实验
实 验 报 告
课程名称程序设计语言(VB)
实验学期2014至2015学年 第二学期
学生所在系部管理学院
年级14级专业班级国贸B144班
学生姓名康应翠学号************
任课教师胡英
实验成绩
计算机学院制
《程序设计语言(VB)》课程综合性实验报告
开课实验室：基础实验室2015年7月25日
实验题目
VisualBasic综合应用程序开发
一、实验目的
1、掌握数组的应用：
（1）数组的定义
（2）数组的基本操作，包括数组的输入输出、数组元素的比较、求平均值、数组的排序等。
2、会使用过程编程和字符串操作
（1）sub过程的定义与调用