VB实验报.docVIP

计算机程序设计 实验报告 班 级： 物流一班 姓 名： 龙圣乔 学 号： 1320060128 专 业： 物流管理 指导教师： 徐香坤 沈阳工学院经济与管理学院 实验1. 选择、循环结构综合实验 1.1实验目的： 1．掌握一个简单应用程序的开发过程，了解基本控件的常用属性、事件和方法，理解VB6.0中对象的概念。 2．掌握VB的数据类型和变量定义方法，正确使用运算符和表达式。 3．掌握条件选择语句的使用方法，掌握选项按钮、复选框和计时器控件的使用方法。 4．学会循环语句的使用，掌握循环的规则和程序设计方法，学会如何控制循环条件，防止死循环，掌握列表框和组合框的使用方法 1.2实验要求： 独立设计用户界面，设置相应属性，编写相关代码。 1.3实验内容： 1、用For循环语句编写程序，计算和输出1～100范围内的奇数和。 （1）程序界面设计（截图）： （2）程序代码： （3）运行结果（截图）： 2、如果一个3位整数等于它的各位数字的立方和，则此数称为“水仙花数”，如153=13+53+33.编制程序求所有水仙花数. （1）程序界面设计（截图）： （2）程序代码： （3）运行结果（截图）： 实验2. VB高级程序设计（综合实验） 姓名：龙圣乔 成绩： 2.1实验目的： 1．掌握数组的声明和数组元素的引用。 2．学会利用数组解决实际问题。 3．熟练运用循环和选择语句对数组操作。 4．理解子过程的概念，掌握子过程的创建和调用;理解函数过程概念，掌握函数过程的创建和调用;理解传值和传址 5．分清子过程和函数过程的异同 2.2实验要求： 独立设计用户界面，设置相应属性，编写相关代码。 2.3 实验内容： 1、某同学编写了如下程序，通过随机函数生成10个正整数，存放在数组中，然后查找这10个数中的最小数及其位置（即下标） （1）程序界面设计（截图）： （2）程序代码： Private Sub Command1_Click() Dim a(10) As Integer, min As Integer, pos As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print a(i) Next i Print min = a(1) pos = 0 For k = 2 To 10 If a(k) min Then min = a(k) pos = k End If Next k Print 最小数：; min, 位置:; pos End Sub （3）运行结果（截图）： 2、求解1！+2!+……+10! 的值。 （1）程序界面设计（截图）： （2）程序代码： Function jc(n As Integer) As Long Dim i As Integer, t As Long t = 1 For i = 1 To n t = t * i Next i jc = t End Function Private Sub Command1_Click() Dim s As Long Show s = jc(1) + jc(2) + jc(3) + jc(4) + jc(5) + jc(6) + jc(7) + jc(8) + jc(9) + jc(10) Print 1!+2!+3!+4!+5!+6!+7!+8!+9!+10!=; s End Sub （3）运行结果（截图）： 实验3. ******管理系统设计（综合实验） 姓名：龙圣乔 成绩： 3.1实验目的 灵活运用运用各种控件和各种语法规则，程序结构。 3.2实验要求 独立设计用户界面，设置相应属性，编写相关代码。 3.3实验内容 1、 程序界面设计（截图）： 2、程序代码： Private Sub Command1_Click() If Text1.Text = 龙圣乔 And Text2.Text = 1320060128 Then misbox 密码正确，请进入 Form1.Hide Form2.Show Else p = MsgBox(密码错误，重新输入, 53, 密码验证) If p = 4 Then Text1.Text = Text2.Text = Text1.SetFocus Else End End If End Sub Private Sub Form_Load() Text1.Text = Text2.Text = End Sub Pr