工学VB上机试验一至十五编码

1、上机实验实验一 VB的集成环境实验目的1. 熟悉Visual Basic 6.0(VB 6.0 )的集成开发环境。2. 了解使用VB 6.0实现一个应用程序的操作过程。3. 掌握VB 6.0应用程序界面设计的操作方法。4. 掌握VB 6.0程序代码的输入、修改和运行的方法。实验内容1. 了解以下知识：1) Win dows资源管理器的基本操作2) VB 6.0的启动与退出3) VB的集成开发环境2. VB应用程序的实现过程例1:求圆面积1) 设计界面2) 编写代码Private Sub Comma nd1_Click()Dim r as si ngle,s as si ngler = Val(

2、Text1.Text)s = 3.14 * r * rText2.Text = Str(s)End Sub3) 保存工程4) 运行程序例2:创建一个使标签文字的从左向右移动的工程1)设计界面我们开殆学习VB了 I咸电 :2 )编写代码Private Sub Timer1_Timer()Labell .Left = Labell. Left + 100If Label1 .Left = Me.Width ThenLabel1.Left = -Label1.WidthEnd IfEnd Sub实验二窗体实验目的1. 巩固在实验一中所学到的知识一一VB集成开发环境的基本操作。2. 学习并掌握窗体的常

3、用属性、事件和方法的作用与用法。实验内容1. 了解以下知识：1) 对象以及对象的属性、事件和方法等有关概念2) 窗体及窗体的常用属性、事件和方法例1:设一程序，控制窗体的高度增加、减少，宽度的增加、减少，窗体上部与屏幕顶 部的相对距离，窗体左部与屏幕左部的距离设计界面：代码：Private Sub Comma nd1_Click()Forml.Width = Forml.Width + 100End SubPrivate Sub Comma nd2_Click()Form1.Width = Form1.Width - 100End SubPrivate Sub Comma nd3_Click(

4、)Form1.Height = Form1.Height + 100End SubPrivate Sub Comma nd4_Click()Form1.Height = Form1.Height - 100End SubPrivate Sub Comma nd5_Click()Form1.Left = Form1.Left - 100End SubPrivate Sub Comma nd6_Click()Form1.Left = Form1.Left + 100End SubPrivate Sub Comma nd7_Click()Form1.Top = Form1.Top - 100End

5、SubPrivate Sub Comma nd8_Click()Form1.Top = Form1.Top + 100End Sub 将其背景设置为蓝色（用 VB中的常量vbBlue ）。例2:在运行阶段设置窗体标题为Loa事件”，窗体显示在屏幕的正中央，并Private Sub Form_Load()Forml.BackColor = vbBlueForml.Caption = Load事件”Form1.Left = (Screen.Width- Form1.Width) / 2Form1.Top = (Screen.Height- Form1.Height) / 2End Sub例3: f

6、orm1两个按钮，控制form2 , form3的显示；form2 一个按钮，用于隐藏自 己。（另外，通过该例子，练习如何在多个窗体中设置启动窗体）代码:Form1中的代码:Private Sub Comma nd1_Click()Form2.ShowEnd SubPrivate Sub Comma nd2_Click()Form3.ShowEnd SubPrivate Sub Comma nd3_Click()EndEnd SubForm2中的代码：Private Sub Comma nd1_Click()Me.HideEnd Sub事件例4：编写满足如下要求的程序：当窗体的Click, L

7、oad, Initialize,Unload发生时，给出相应的报告Private Sub Form_Click()窗体发生了沁事件MsgBox 窗体发生了 click 事件”End SubPrivate Sub For m_In itialize()事件”MsgBox 窗体发生了 initializeEnd SubPrivate Sub Form_Load()MsgBox 窗体发生了 load事件”End SubPrivate Sub Form_Unl oad(Ca ncel As In teger) MsgBox 窗体发生了 unload事件”End Sub例5.单击窗体时，显示“这是第几次

8、单击”Dim a As In tegerPrivate Sub Form_Click()a = a + 1clsPrint 这是第” & a & ” 次单击”End Sub例6.在窗体的Click事件里输入下列语句，掌握 print方法的应用。Private Sub Form_Click()Print 123, 45Print 36; 89,: Rem下一行和该行在同一行Print 34 * 12, 45Print 我是安徽财经大学的学生,好好学习，天天向上”Print 产生空行Print 23 + 87, 4 / 5End Sub实验三对话框和标签、文本框及命令按钮控件实验目的1通过实例来进

9、一步理解对象以及对象的属性、事件和方法等有关概念2 熟悉窗体、标签、文本框及命令按钮控件的常用属性和事件；3 学习使用标签、文本框及命令按钮控件来编写简单程序。4.学习并掌握系统预定义对话框的作用与用法。实验内容1. 编写一个计算圆面积的程序，圆的半径由键盘输入。Private Sub Form_Click()2.动态的改变标签的背景色3.通过标签控件实现如下图所示的立体字效果。Dim r As Sin gle, s As Si ngler = Val(lnputBox(请输入圆的半径,提示, 10)s = 3.14 * r * rMsgBox 半径为& r & 的圆，其面积为：& s, 0

10、+ vbInformation,计算结果End SubPrivate Sub Form_Load()MsgBox 这是一个可以计算圆面积的程序，如果您想计算圆的面积，请单击窗体End Sub要求：窗体的Caption设为”标签示例，两个标签控件的Name属性分别为IbITop和IbIBottom 。 并将IbITop控件移至顶层（方法是：右击IbITop控件、选择“移至顶层”菜单命令）4.编写一个计算圆柱体体积的程序（程序保存于自己名字命名的文件夹，窗体文件名为：frm0303工程文件名为prj0303），窗体和控件的有关属性，按下表设置。窗体或控件属性设置值说明窗体Name(名称)Frm03

11、01控件位置调整好之后将窗口调整到适当大小Capti on计算圆柱体的体积BorderStyle3文本框（2个）Name(名称)txtR,txtH清除Text属性内容Alig nment1（右对齐）Text命令按钮Name(名称)CmdJsCapti on计算标签（4个）Name(名称)Label1,Label2,Label3,L blV仅对IblV设置BorderStyle 属性Capti on半径：，高：，体积：，（空）BorderStyle1(Fixed Si ngle)Private Sub cmdJs_Click()Dim r As Si ngle, h As Si ngle, s

12、As Double, v As Double r = Val(txtR.Text)获得底圆半径h = Val(txtH.Text)获得圆柱体的高s = 3.14 * r * r 计算底圆面积v = s * h计算体积IbIV.Captio n = Str(v)输出体积End Sub5. 编写实现下列功能的程序半径；底圆面积；r3i410高：rss表面积；1256体祝：314010实验四标签、文本框及命令按钮控件实验目的1. 通过实例来进一步理解对象以及对象的属性、事件和方法等有关概念2. 熟悉窗体、标签、文本框及命令按钮控件的常用属性和事件；3学习使用标签、文本框及命令按钮控件来编写简单程序。

13、实验内容1编写程序，判断密码长度是否是 6位，如果不是，则不让离开文本框(考查LostFocus 事件)Private Sub Form_Load()Text1.Text =Label2.Caption =End SubPrivate Sub Text1_LostFocus()If Len(Textl.Text) 6 ThenLabel2.Caption =密码长度不对，请重新输入”Textl.SetFocusElseLabel2.Caption = 密码长度正确”End IfEnd Sub2.编写程序，判断text1的值是否是密码“ 123456”，并要求文本框只接收数字0-9(考查 key

14、press 事件)Private Sub Form_Load()Text1.Text =Label2.Caption =End SubPrivate Sub Comma nd1_Click()If Text1.Text = 123456 The nLabel2.Captio n = ”密码正确！ ”ElseLabel2.Caption =密码错误，请重新输入Text1.SetFocusEnd IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As In teger)If KeyAscii Asc(9) ThenKeyAscii = 0End IfEnd

15、SubPrivate Sub Comma nd2_Click()EndEnd Sub实验五变量、常量、函数与表达式实验目的1. 加深理解常量、变量、函数以及表达式的有关概念和使用特点。2. 掌握表达式的书写格式、运算符功能。3. 掌握常用函数的功能、调用格式和使用方法。4. 掌握在立即窗口验证变量、函数及表达式值的操作方法。实验内容1. 重新完成实验三中的第 5题，要求把n定义成符号常量。2. 判断某一三位整数n是否为水仙花数（即n等于其百位，十位，个位数的立方和）。Private Sub Comma nd1_Click()Dim n As Integer, a As Integer, b A

16、s Integer, c As Integern = Val(Text1.Text)a = n100b = (n 10) Mod 10c = n Mod 10If n = a A 3 + b A 3 + c A 3 The nElseLabell.Caption = n & ”End IfEnd Sub3. 使用立即窗口验证理解数学函数不是水仙花数”fix(x),i nt(x),sg n( x),abs(x),exp(x),sqr(x)符串函数 left(s),right(s),mid(s),len(s),space(n),ucase(s),lcase(s),ltrim(s),rtrim(s)

17、,trim(s),日期时间函数 now,date,time,year(d),month(d),day(d),weekday(d),hour(d),mi nu te(d),seco nd(d)的功能。(或用代码实现)4. 设计求指定区间范围的随机整数的程序，并要求关闭窗体时，用消息框显示系统日Private Sub Comma nd1_Click()期和时间，显示格式为：XXX)年X月 X日-X时X分X秒，程序界面如下:Dim down As Integer, up As Integer, n As IntegerRan domize (Timer)dow n = Val(Textl.Text)

18、up = Val(Text2.Text)n = In t(up - dow n + 1) * Rnd + dow n)Label3.Caption = Str( n)End SubPrivate Sub Form_Unl oad(Ca ncel As In teger)Dim dt As DateDim s As Stri ngdt = Nows = Year(dt) & ” 年& Month(dt) & ”月 ” & Day(dt) & ” 日-& Hour(dt) & ”时 ” & Mi nute(dt) & ” 分 ” & Seco nd(dt) & ” 秒”MsgBox sEnd Su

19、b实验六分支结构程序设计实验目的1. 掌握逻辑表达式的书写规则。2. 掌握If语句的使用方法。实验内容并按指定要求运行，加深对分支结构的理1. 将下列程序分别输入命令按钮（1）（4）的Click事件中,分析输出结果，总结if语句对程序执行流程的控制作用， 解。Private Sub Comma nd1_Click()Dim x As In tegerMe.Clsx = Val(Text1.Text)Me.Pri nt If x 0 Then Me.Print +Me.Pri nt #End SubPrivate Sub Comma nd2_Click()Dim x As In tegerMe.

20、Clsx = Val(Textl.Text)Me.Pri nt If x 0 The nMe.Pri nt +End IfMe.Pri nt #End SubPrivate Sub Comma nd3_Click()Dim x As In tegerMe.Clsx = Val(Textl.Text)Me.Pri nt If x 0 Then Me.Print ”+” Else Me.Print -”Me.Pri nt #End SubPrivate Sub Comma nd4_Click()Dim x As In tegerMe.CIsx = Val(Textl.Text)Me.Pri nt

21、If x 0 The nMe.Pri nt +Me.Pri nt ”11111”ElseMe.Pri nt ”Me.Pri nt ”22222”End IfMe.Pri nt #End Sub分别输入10和-10，比较运行结果。2. 输入x,根据以下公式，计算y的值。“ 1+x (X 0)y = ”I 1-2x (x=0 Then y = 1+x Else y =1-2*xLabel2.Caption=函数值 y 等于” &Str(y)End Sub3.任意输入三个数，将它们按从小到大的顺序打印输出。Private Sub Comma nd1_Click()Dim a As Sin gle,

22、b As Sin gle, c As Sin gleDim min As Single, sec As Single, max As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a b The nmax = a: min = bElsemax = b: min = aEnd IfIf c max The nsec = max: max = cElseIf c n The nLabel2.Caption =真冒进！太大了！ ”Label2.BackColor = vbRedLabel2.ForeColor =

23、 vbYellowElseLabel2.Caption =太保守！小了点!Label2.BackColor = vbBlueIILabel2.ForeColor = vbWhiteEnd IfEnd IfEnd Sub实验七分支结构程序设计实验目的1. 掌握If语句的使用方法。2. 掌握Ilf函数的使用方法。3. 掌握Select Case 语句的使用方法及与If语句的区别。实验内容1. 用iif函数实现实验六中的第2题：输入x，根据以下公式，计算y的值。(X0)(X y, x, y)Text3.Text = Str(tmax)End Sub3. 某商场为了促销，开展了根据每位顾客一次购物情况

24、给予打折的优惠活动，具体 优惠办法如下：(1) 在1000元以上者，按八折优惠；(2) 在500元以上，但不足 1000元者，按八五折优惠；(3) 在300元以上，但不足 500元者，按九折优惠；(4) 在100元以上，但不足 300元者，按九五折优惠；(5) 不足100元者，没有优惠。O.Se?1000500 a 10000.9a3005000.95dr100 300a = 1000 The n b = 0.8 * a ElseIf a = 500 The n b = 0.85 * a ElseIf a = 300 The n b = 0.9 * a ElseIf a = 100 The n

25、 b = 0.95 * a ElseIf a 100 The n b = aLabel2.Caption =实际支付额为：” & Str(b)End Sub4. 判断一个字符是字母，数字还是其他字符，分别用if与select case结构实现。5. 输入一个年份和月份，输出该月的天数。(闰年的计算方法：年份能被400整除，或者年份能被4整除但不能被100整除)洁辐入年悄和月扮:|20082OQ8年2月有29天，”科密鐵”i t Illi .! ill! III实验八选择性控件实验目的1. 学习单选按钮、复选框以及框架和选项卡等控件的基本作用与用法；2. 掌握使用这些控件编写解决实际问题的方法。

26、实验内容1. 设计一个用于检验标签、文本框、命令按钮、复选框、单选按钮及框架等控件的常用属性、事件的程序。其中，“字体”、“颜色”、“字型”和“字号”是对文本框中文字的设置，要求单击确定”按钮时，使这些设置生效。若没设置“确定”按钮，分别在单选按钮和复选框的单击事件里编写代码，程序应 怎么修改？Private Sub Comma nd1_Click()If Optio nl.Value The n Textl.Fo ntName =宋体If Optio n2.Value The n Text1.Fo ntName =隶书If Optio n3.Value The n Text1.Fo ntNa

27、me =楷体_GB2312If Optio n4.Value The n Text1.ForeColor = vbRedIf Optio n5.Value The n Text1.ForeColor = vbGreenIf Optio n6.Value The n Text1.ForeColor = vbBlueIf Option7.Value Then Text1.FontSize = 8If Option8.Value Then Text1.FontSize = 16If Option9.Value Then Text1.FontSize = 32Text1.Fo ntBold = Che

28、ck1.Value = 1Text1.Fo ntItalic = Check2.Value = 1Text1.Fo ntUn derli ne = Check3.Value = 1End SubPrivate Sub Comma nd2_Click()EndEnd Sub2. 对文本框内的颜色和大小写转换进行设置，界面如下:Private Sub Optio n1_Click()Textl.ForeColor = vbRedEnd SubPrivate Sub Optio n2_Click()Text1.ForeColor = vbGree nEnd SubPrivate Sub Optio

29、n3_Click()Text1.ForeColor = vbBlueEnd SubPrivate Sub Optio n4_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub Optio n5_Click()Text1.Text = LCase(Text1.Text)End Sub3. 利用选项卡实现对文本的字体、字型和字号控制进行控制。宋体楷体 _GB2312幼圆”If Option1.Value Then Text1.FontName =If Option2.Value Then Text1.FontName =If Option

30、3.Value Then Text1.FontName =If Option4.Value Then Text1.FontSize = 8If Option5.Value Then Text1.FontSize = 16If Option6.Value Then Text1.FontSize = 32Text1.Fo ntBold = Check1.Value = 1Text1.Fo ntItalic = Check2.Value = 1Text1.Fo ntUn derli ne = Check3.Value = 1End Sub4. 设计满足如下要求的程序， 实现摄氏度与华氏度的转换。 摄

31、氏度转华氏度公式：F=9C/5+32; 华氏度转摄氏度公式：C=5(F-32)/9，要求：(1 )当“摄氏一华氏”选中时，“华氏度”文本框不能输入；而当“华氏一摄氏”选中 时，“摄氏度”文本框不能输入。(2) 转换”按钮仅当相应的文本框中有数时方为可用。(3) 单击“转换”按钮时，执行转换操作。提示：Locked 属性。Enabled 属性。(1) 在单选按钮的 Click事件中更改文本框的(2) 在文本框的Change事件中更改命令按钮的摄氏 华氏-n x榻氏度：华氏度:67=152. &忖摄氏一华氏C华氏一摄氏Private Sub Form_Load()Comma nd1.E nable

32、d = FalseEnd SubPrivate Sub Comma nd1_Click()Dim f As Single, c As SingleIf Option1.Value Thenc = Val(Text1.Text)f = (9 * c / 5) + 32Text2.Text = Str(f)End IfIf Option2.Value Thenf = Val(Text2.Text)c = 5 * (f - 32)/9Textl.Text = Str(c)End IfEnd SubPrivate Sub Optio n1_Click()Text2.Text =If Textl .Lo

33、cked Then Textl.Locked = FalseText2.Locked = TrueEnd SubPrivate Sub Optio n2_Click()Text1.Text = If Text2.Locked Then Text2.Locked = FalseText1.Locked = TrueEnd SubPrivate Sub Text1_Change()If Text1.Text = ThenCommand1.Enabled = FalseElseCommand1.Enabled = TrueEnd IfEnd SubPrivate Sub Text2_Change()

34、If Text2.Text = ThenCommand1.Enabled = FalseElseCommand1.Enabled = TrueEnd IfEnd Sub实验九 循环结构程序设计 实验目的 1. 通过实验加深对循环概念的理解。2. 掌握 While-Wend 循环语句的使用方法。3. 掌握 For-Next 循环语句的使用方法。4. 掌握 Do-Loop 循环语句各种形式的使用方法。 实验内容 1.有一张足够大的纸，其厚度为0.1mm,问经过多少次对折，其厚度超过珠穆朗玛峰高度8848m?分别用 While-Wend、For-Next和Do-Loop结构实现。提示： 用 For-

35、Next 结构实现时, 可以将循环次数预设大一些, 在循环体内判断每次对折后纸的厚度,当厚度超过珠穆朗玛峰高度时用 Exit-For 退出循环。Private Sub Comma nd1_Click()Dim count As In tegerDim h As Double, hO As Doublecount = 0h0 = Val(Text1.Text)h = 0.001 * Val(Text2.Text)While h = h0 Then Exit ForNextLabel3.Caption =折叠次数：+ Format(count,00) + ，厚度为：” + Str(h)End Su

36、bPrivate Sub Comma nd3_Click()Dim count As In tegerDim h As Double, h0 As Doublecount = 0 h0 = Val(Textl.Text)h = 0.001 * Val(Text2.Text)Doh = 2 * hcount = count + 1Loop Un til h hOLabel3.Caption=折叠次数：+ Format(count,00) + ，厚度为：” + Str(h)End Sub2. 找出所有的“水仙花数”。所谓水仙花数是指一个三位数，其各位数字立方和等于该数本身。例如：153是一水仙花数

37、，因为153=13+53+33。Private Sub Comma nd1_Click()Dim a As In teger, b As In teger, c As In tegerDim count As Integer, n As Integer, p As IntegerDim outs As Stri ngouts = 他们是：For n = 100 To 999a = n100b = (n Mod 100) 10c = n Mod 10p = a A 3 + b A 3 + c A 3If p = n The nouts = outs + Str( n) + count = cou

38、nt + 1End IfNext nLabel1.Caption = 从 100 到 999 共有 ” + Str(count) + 个水仙花数”Label2.Capti on = outsEnd Sub3.输入一串字符，输出其中字母个数、数字个数与其它字符。Private Sub Comma nd1_Click()Dim n As In teger, ch As In tegerDim num As In teger, oth As In tegerDim s As Stri ng, c As Stri ngch = 0num = 0oth = 0s = Text1.TextFor n =

39、1 To Len(s)c = UCase(Mid(s, n, 1)If c = A A nd c = 0 A nd c max The n max = a(i)If a(i) aver Then count = count + 1Next iPrint 最高成绩：& Str(max) & Space(1) & ” 最低成绩为：& Str(min) & Chr(13) & 平均成绩为：& Str(aver) & 超过平均成绩的人数 & Str(count)End Sub2.假定一个班上有10位同学，每个同学有 5门课程。要求随机产生这个班级所 有同学的成绩(约定成绩是百分制整数)，并求成绩最高分及其在数组中的位 置。* Form!:5023B5llElm7476476为赣71971779396馳 17854 成班：* 123456T89WT34T3L2T275153旳 1r fa - r r ，- 7112532 343234737753627705194Private Sub Comma nd1_Click()Const M = 10, N = 5Dim i As In teger, j As In teger, outs As StringDim a(1 To M, 1 To N) As In tegerRan domize (Timer)Fori = 1 To M