VB综合实验报告

5.单击“控件应用”菜单，弹出“数学运算”对话框，如图3所示。（25%）
题目描述如下：在“数学运算”窗体上有一个名称为cmd1、标题为“计算”的命令按钮；两个水平滚动条，名称为hs1和hs2，其max属性均为100，min属性为1；四个标签，名称为lab1、lab2、lab3和lab4，标题分别为“运算数1”、“运算数2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为opt1，标题为“+”、“-”、“*”和“/”。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击命令按钮，相应的计算结果将显示在lab4中。
3、掌握基本控件的使用
包括常用标准控件的使用，如标签、按钮、文本框、单选按钮、滚动条等。
4、掌握菜单和工具栏的使用
二、设备与环境
硬件：多媒体计算机
软件：Windows 2000以上的操作系统、Visual Basic集成开发环境
三、实验内容
1.先进入欢迎界面，在屏幕上显示"欢迎您使用本程序"，并弹出密码框，等待输入密码。（5％）
Y = Y & a
’y的字符串和a的字符串相加赋值给y
Next i
End Sub
Private Sub Command2_Click()
实验内容.Show
Unload Me
End Sub
5、控件应用中包括数学运算，应用于对有水平滚动条确定的数字进行加减乘除运算，并显示结果。
截图如下：
代码如下：
Private Sub Command1_Click()
华北科技学院计算机学院综合性实验
实验报告
课程名称程序设计语言(VB)
实验学期2012至2013学年第二学期
学生所在系部安全工程学院
年级2012级班级安全B122班
学生姓名熊昊学号201210044238
任课教师李冬艳
实验成绩
计算机学院制
《程序设计语言（VB）》课程综合性实验报告
开课实验室：基础二2013年6月15日
2.密码正确后进入系统主界面，主界面包括“数组应用”、“过程应用”、“控件应用”和“退出”等菜单，并提供相关工具栏或命令按钮。（10％）
3.“数组应用”菜单中包括“数组操作”子菜单，单击此菜单，弹出“数组操作”对话框，如图1所示。（35％，每个按钮功能为5％）。
题目描述如下：在名称为“数组操作”的窗体上有一个label控件，4个text控件及7个命令按钮，功能如下：
Command7.Enabled = True
’更改command7为可用
End Sub
Private Sub Command2_Click()
Text1.Text = ""’text1内容为“”
Text2.Text = ""’text2内容为“”
Text3.Text = ""’text3内容为“”
’执行循环，在j=10到i+1的条件下进行循环，每循环一次j减1
For i = 1 To j–1
’执行循环，在i=1到j-1的条件下循环，每循环一次i加1
If Val(a(i)) < Val(a(j)) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
’冒泡法排序
Next i
’更改command1为不可用
Command2.Enabled = True
’更改command2为可用
Command4.Enabled = True
’更改command4为可用
Command5.Enabled = True5
’更改command为可用
Command6.Enabled = True
’更改command6为可用
Command7.Enabled = False
End Sub
’窗体读取时改变command可用性
4、过程应用中包括字符转换，应用于对输入的字符进行大小写转换。
截图如下：
代码如下：
Private Sub Command1_Click()
a = Trim(Text1.Text)
’去掉text1中的空格
If Option3.Value = True Then
If Asc(a) >= 65 And Asc(a) <= 90 Then
a = Chr(Asc(a) + 32)
Else
a = Chr(Asc(a))
End If
End If
’option3被选中，a中字符ascll在65~90，则ascll全加32，否则显示原字符
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next i
Text2.Text = Text2.Text & " " & a(j)
Next j
End Sub
’代码注释同上
Private Sub Command6_Click()
m = 1
’m赋值1
For j = 1 To 10
’循环j从1到10每次加1
(1)开始启动工程时，界面上除“输入”及“返回”按钮之外，其他按钮均不可用（灰色显示）。
(2)单击“输入”按钮之后，利用inputbox让用户连续且必须输入10个整数。若输入为非数字符号，则给出警告“输入数据无效，请重新输入，请输入第n个数”。
(3)输入完毕后，“输入”按钮变灰，其他变为可用状态。
(4)按相应的按钮可分别将输入的数据升序或降序排列，及求最大、最小值，并在右侧对应的文本框中显示（注意用A（10）存放最大数，A（1）存放最小数）。
’在x中第i处开始去长度为1的字符
If Option1.Value = True Then
If Asc(a) >= 65 And Asc(a) <= 90 Then
a = Chr(Asc(a) + 32)
Else
a = Chr(Asc(a) - 32)
End If
End If
’option1被选中，ascll在65~90，a中字符的ascll全部加32，否则减32
End If
’option1选中，n的值为x+y，在label4显示x+y=n
If Option2.Value = True Then
n = X–Y
’n的值为x-y
Label4.Caption = X & "-" & Y & "=" & n
End If
If Option3.Value = True Then
Next j
Text4.Text = a(m)
End Sub
’注释同上
Private Sub Form_Load()
Command2.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
n = X * Y
’n的值为x乘y
Label4.Caption = X & "*" & Y & "=" & n
End If
If Option4.Value = True Then
数学运算.Show
实验内容.Hide
End Sub
Private Sub tc_Click()
End’结束
End Sub
3、数组应用中包括数组操作，运用imputbox输入十个数。并对这十个数进行升序降序排列。并确定最小值和最大值。
截图如下：
代码如下：
Dim a(1 To 10) As Single
Dim X%, Y%, n!
’定义x，y为整型，n为单精度型
X = HScroll1.Value
’滚动条1的值赋给x
Y = HScroll2.Value
’滚动条2的值赋给y
If Option1.Value = True Then
n = X + Y
Label4.Caption = X & "+" & Y & "=" & n
6.单击“退出”菜单，退出程序运行。
四．实验结果及分析
1、欢迎页面与密码登陆用于检验用户！密码错误不得登陆程序。
截图如下：
代码如下：
Private Sub Command1_Click()
n = Text1.Text
If n <> "xh" Then’判断密码是否为xh
i = MsgBox("密码错误！")’若不是则显示密码错误
Text1.Text = Text1.Text & " " & a(j)
’在text1显示原text1文本和a(j)内容
Next j
End Sub
Private Sub Command5_Click()
For j = 10 To 1 Step -1
For i = 1 To j - 1
If Val(a(i)) > Val(a(j)) Then
Text4.Text = ""’text4内容为“”
End Sub
Private Sub Command3_Click()
Unload Me’卸载当前窗体
实验内容.Show’实验内容窗体显示