Visual Basic 实验报告.docx

1、Visual Basic 实验报告VB实验报告 班级：xxxxxxxxxxxxxxxx 学号：xxxxxxxxxxx 姓名：xxxxxx 实验1 初步认识VB集成开发环境一实验目的1.了解VB6.0中文版的安装方法。掌握VB的启动方法和退出方法。2.初步了解和使用VB6.0的集成开发环境。3.运行第一个VB程序。二实验内容1.VB6.0的启动。2.退出VB6.0。3.了解Visual Basic集成开发环境（IDE）的元素组成。4.建立并运行第一个应用程序。题 设计一个应用程序，输入正方形的边长，计算并输出正方形的面积 要创建的应用程序用户界面窗体上含有两个标签、两个文本框和两个命令按钮，两个

2、标签分别用于显示文字“边长”和“面积”，两个文本框用于输入数据和显示计算结果 程序功能要求： 运行时，在“边长”文本框中输入某一个数，当单击“计算”按钮时，则在“面积”文本框中显示该数的平方数。单击“结束”按钮，则结束程序的运行。1. 创建窗体 在默认窗体Form1上添加控件，以构建用户界面2. 在窗体上添加界面的控件 设置控件的方法 在Form1窗体上添加以下控件： 标签Label1：用于显示文字“边长” 标签Label2：用于显示文字“面积” 文本框Text1：用于边长数 文本框Text2：用于显示计算结果(平方数) 命令按钮Command1：用于计算输入数的平方，并把结果显示在文本框Te

3、xt2中 命令按钮Command2：用于结束应用程序的运行。3. 设置对象属性 在“属性窗口”中进行 设置以下对象的属性：(1)设置窗体Form1的Caption(标题名)属性为“计算正方形的面积 ”(2)设置标签Label1的Caption属性为“边长”(3)设置标签Label2的Caption属性为“面积”(4)设置文本框Text1的Text(文本内容)属性为空(5)设置文本框Text2的Text属性为空(6)设置按钮Command1 的Caption属性为“计算”(7)设置按钮Command2 的Caption属性为“结束” 其他属性采用默认值4. 编写程序代码，建立事件过程 保存窗体文

4、件和工程文件 6. 运行程序 单击工具栏上的“启动”按钮，即可采用解释方式来运行程序。 运行后，在“边长”文本框中输入某一个数(如23),单击“计算”按钮时，系统会启动事件过程Command1_Click，则取数和运算，最后把计算结果显示在“面积”文本框(Text2)中。 单击“结束”按钮，可以启动事件过程Command2_Click，则执行End语句来结束程序的运行VB程序设计案例教程实验指导书实验2窗体和基本控件一、实验目的1掌握设置启动窗体的方法及窗体的加载、卸载方法。2掌握命令按钮、文本框和标签控件、时钟控件、图片框、图象框常用属性的设置方法。3编写顺序输入结构程序代码。二、实验要求按

5、照实验题目的要求，编写程序并上机调试 三、实验设备计算机、Windows 98 、Visual Basic 6四、实验原理、方法上机操作使用Visual Basic 6输入并调试程序五 实验内容1、 编写简单的密码验证程序，假设密码为santa1225,如果密码正确，则显示正确按钮，否则显示错误，退出信息；2、制作日历；2、 数值的逆转输出；4、拓展：制作工作备忘录。六实验步骤1、编写简单的密码验证程序，假设密码为santa1225,如果密码正确，则显示正确按钮，否则显示错误，退出信息；1）界面设计2）编写代码Private Sub Form_activate()Dim s As String

6、s = InputBox(请输入密码:, 密码验证)If s = santal225 ThenMsgBox 密码正确，单击确定继续, vbOKOnly + vbInformation + vbDefaultButton1, 信息PrintPrint Tab(10); 欢迎使用本系统End IfIf s santal225 ThenMsgBox 密码输入错误，退出, vbOKOnly + vbCritical + vbDefaultButton1, 结束EndEnd IfEnd Sub3、 制作日历，如图所示Private Sub Form_Load()Lblyear.Caption = Yea

7、r(Date)Lblmonth.Caption = MonthName(Month(Date)Lblweek.Caption = WeekdayName(Weekday(Date)End SubPrivate Sub Timer1_Timer()Dim ss As IntegerRandomizess = Int(16 * Rnd)frmcalendar.BackColor = QBColor(ss)End Sub拓展Private Sub Timer2_Timer()Dim sss As Integer Randomize sss = Int(16 * Rnd) Lblyear.BackCo

8、lor = QBColor(sss)End Sub3、编程实现将任意的一个三位正整数逆转输出。（例如输入123，输出321）Private Sub Form_Click() Dim x As Integer, a As Integer, b As Integer, c As Integer 声明x、a、b、c为整型变量 x = InputBox(请输入要逆转的数据（3位数）：) c = x 100 计算百位数 x = x Mod 100 计算十位和个位数 b = x 10 计算十位数 a = x Mod 10 计算个位数 x = a * 100 + b * 10 + c 逆转后赋值变量x Ms

9、gBox (逆转后数据为： + str(x) 输出计算结果End Sub4拓展：设计工作备忘录。界面设置如下图程序代码Dim b1 As String, b2 As String, b3 As String, b4 As String, b5 As StringPrivate Sub Form_Load()Lblweekday.Caption = WeekdayName(Weekday(Now)Lbldate.Caption = DateDim key As StringConst password = memo123key = InputBox(请输入密码：, 备忘录)If key = pa

10、ssword Thentxtmon.Enabled = Truetxttue.Enabled = Truetxtwed.Enabled = Truetxtthu.Enabled = Truetxtfri.Enabled = TrueImgb1.Enabled = TrueImgb2.Enabled = TrueImgb3.Enabled = TrueImgb4.Enabled = TrueImgb5.Enabled = TrueEnd IfEnd SubPrivate Sub Imgb1_Click()b1 = txtmon.Textanswer = MsgBox(星期一备忘录已保存, 0 +

11、 64 + 0, 备忘录)End SubPrivate Sub Imgb2_Click()b2 = txttue.Textanswer = MsgBox(星期二备忘录已保存, 0 + 64 + 0, 备忘录)End SubPrivate Sub Imgb3_Click()b3 = txtwed.Textanswer = MsgBox(星期三备忘录已保存, 0 + 64 + 0, 备忘录)End SubPrivate Sub Imgb4_Click()b4 = txtthu.Textanswer = MsgBox(星期四备忘录已保存, 0 + 64 + 0, 备忘录)End SubPrivate

12、 Sub Imgb5_Click()b5 = txtfri.Textanswer = MsgBox(星期五备忘录已保存, 0 + 64 + 0, 备忘录)End SubPrivate Sub Timer1_Timer()lbltime.Caption = Time()Imgpicture.Move Imgpicture.Left - 1000If Imgpicture.Left 0，有两个不等实根 若b2 - 4ac0，有两个共轭复根(2)程序框图程序框图 程序框图也称程序流程图，它能直观地表示程序的处理步骤，是一种描述算法的（3）建立应用程序的用户界面和设置对象属性 (4)编写程序代码Pri

13、vate Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim D As Single, X1 As Single, X2 As Single Dim R As Single, P As Single a = Val(Text1.Text) 取数据a b = Val(Text2.Text) 取数据b c = Val(Text3.Text) 取数据c If a = 0 Then 当a=0 Text4.Text = 不是二次方程 Text5.Text = 不是二次方程 Else a0 D = b * b - 4 * a

14、 * c R = -b / (2 * a)If D = 0 Then D=0 Text4.Text = R Text5.Text = R ElseIf D 0 Then D0X1 = (-b + Sqr(D) / (2 * a) X2 = (-b - Sqr(D) / (2 * a) Text4.Text = X1 Text5.Text = X2 Else D= 450) t2 = (s1 = 88 And s2 = 88 And s3 = 88 And s4 = 88 And s5 = 88) t3 = (s1 = 95 And s2 = 95 And s3 = 95 And s4 = 80

15、 And s5 = 80)If t1 Or t2 Or t3 Then p = 可以获奖！ Else _ p = 不能获奖！q = Str(s1) & , & Str(s2) & , & Str(s3) & , & Str(s4) & , & Str(s5) & Chr(13) & pLabel1.Caption = 该生五门课的成绩分别是： & Chr(13) & qEnd Sub题3. 1）分析：该题利用“试凑法”通过二重循环求残料r的最小值正数，残料不可能是负数。程序如下：2）编程：Private Sub Command1_Click() Dim a%, b%, r!, ia%, ib%

16、 r = 321 最小值初值取钢材料的长度 For b = 1 To 321 27 b最多的段数 For a = 1 To 321 17 - b a最多的段数 t = 321 - b * 27 - a * 17 当前的残料 If t 0 And t r Then r = t 求最短的残料 ia = a 最短残料时a的段数 ib = b 最短残料时b的段数 End If Next a Next b Print ia, ib, rEnd Sub3)运行题4（1）算法分析：程序设计的关键是要在窗体的Click事件过程中，根据当前窗体的背景色来决定变成何种背景颜色。在设计阶段，将窗体Forml的初始背

17、景色可设置为红色（2）编写程序代码如下： Private Sub Form1_Click() Dim nowcolor, nextcolor As Long nowcolor=Forml.BackColor 读取当前窗体的背景色（backcolor）的值 If nowcolor=vbRed Then 根据当前颜色调整新的背景色 nextcolor=vbGreen ElseIf nowcolor=vbBlue Then nextcolor=vbRed Else MsgBox”窗体背景色错误!” ExitSub End If Forml.BackColor=nextcolor 变更背景色题5：设计

18、网络课程1） 界面设置2）编写程序代码Dim sel As String, sme As String, shi As StringPrivate Sub chkel_Click()If chkel.Value = 1 Thensel = chkel.CaptionElsesel = End Iflblmodule.Caption = Trim(sel + Space(2) + sme + Space(2) + shi) trim()去掉字符串两端的空格End SubPrivate Sub chkhi_Click()If chkhi.Value = 1 Thenshi = chkhi.Capt

19、ionElseshi = End Iflblmodule.Caption = Trim(sel + Space(2) + sme + Space(2) + shi) trim()去掉字符串两端的空格End SubPrivate Sub chkme_Click()If chkme.Value = 1 Thensme = chkme.CaptionElsesme = End Iflblmodule.Caption = Trim(sel + Space(2) + sme + Space(2) + shi) trim()去掉字符串两端的空格End SubPrivate Sub optcsh_Click

20、()lblprompt.Caption = Space(4) & optcsh.Caption & space(4) 函数产生4个空格。End SubPrivate Sub optvb_Click()lblprompt.Caption = Space(4) & optvb.Caption & space(4) 函数产生4个空格。End SubPrivate Sub optvc_Click()lblprompt.Caption = Space(4) & optvc.Caption & space(4) 函数产生4个空格。End Sub七、实验报告及记录格式 实验报告中必须有完整的程序清单，程序中

21、必须有适当的注释，程序的运行结果。按山东科技大学实验报告格式填写实验报告八、实验注意事项1. 输入程序时应严格注意大小写。2. 注意记录编译调试过程中的出错信息和改正结果。3. 爱护机器，遵守规章制度。九、思考题输入三个数a、b、c，求出其中最大数VB程序设计案例教程实验指导书实验5 数组一、实验目的1. 掌握使用Visual Basic 6循环结构。2. 数组的应用二、实验要求按照实验题目的要求，编写程序并上机调试三、实验设备计算机、Windows 98 、Visual Basic 6四、实验原理、方法上机操作使用Visual Basic 6输入并调试程序五、实验内容1. 编程实现矩阵的转置

22、（以33的矩阵为例）A= 转置后： B= 2. 通过键盘输入某班级30名学生的数学成绩(0100之间的整数)，每个数据按前后次序对应学生的学号，求每位同学的成绩、总成绩、平均成绩、最高成绩、最低成绩。 六、实验步骤题1 编程实现矩阵的转置（以33的矩阵为例）A= 转置后： B=1) 算法分析：矩阵转置A和B中的元素不变，改变的是元素的输出位置，即B(i,j)=A(j,i)2) 事件过程编写如下：Private Sub Form_Click() Dim A(3, 3) As Integer, B(3, 3) As Integer Dim i As Integer, j As Integer Pr

23、int 转置前; For i = 1 To 3 For j = 1 To 3 A(i, j) = Int(Rnd * 10 ) Print A(i, j); Next j Print Next i Print 转置后： For i = 1 To 3 For j = 1 To 3 B(i, j) = A(j, i) Print B(i, j); Next j Print Next i End Sub 3) 程序运行结果如图 所示题2通过键盘输入某班级30名学生的数学成绩(0100之间的整数)，每个数据按前后次序对应学生的学号。试编写一个程序统计该课程的总分、平均分、最高分、最低分及每位同学的成绩。1) 算法分析：（1）定义一个数组，用于存放数学成绩；（2）最高分、最低分、总分、平均分的计算方法同前。2)事件过程编写：Private Sub Form_Click()Dim score(30) As IntegerDim n As Integer, smax As Integer, smin As IntegerDim sum As Integer, ave As SingleDim str As StringFor n = 1 To 30 str = 请输入第 & n & 个学生的成绩 score(n) =