除法运算（VB）

1、1234【实例2.1】输入被除数和除数，计算商和余数。程序运行时，在文本框中输入被除数和除数，单击“=”命令按钮，计算并将结果显示在相应的标签上。 5（1）设计用户界面 （2）设置对象属性添加1个命令按钮和7个标签；选取文本框图标 ，添加2个文本框 6对象属性属性值窗体（名称）CaptionfrmEx2_1除法运算标签1Caption被除数标签2Caption除数标签3Caption商标签4Caption余标签5Caption7对象属性属性值标签6（名称）BorderStyle CaptionlblQ1-Fixed Single（置空）标签7（名称）BorderStyle Captionlbl

2、R1-Fixed Single（置空）文本框1（名称）TexttxtOp1（置空）文本框2（名称）TexttxtOp2（置空）命令按钮（名称）CaptioncmdEqual8（3）编写单击“=”命令按钮的代码 Private Sub cmdEqual_Click() Dim m As Integer Dim n As Integer Dim q As Integer Dim r As Integer m = Val(txtOp1.Text) n = Val(txtOp2.Text) q = m n r = m Mod n lblQ.Caption = Str(q) lblR.Caption =

3、 Str(r)End Sub 只能存放整数只能存放整数 整除运算符整除运算符 求余运算符求余运算符 p409（4）运行程序验证。 10【实例2.2】已知球的半径，计算球的体积和表面积。在文本框中输入半径，单击“计算”命令按钮，计算并输出结果，体积值和表面积的值显示在相应的标签上。球的体积和表面积的计算公式为： 334rv24rs11（1）设计用户界面添加5个标签、1个命令按钮和1个文本框 （2）设置各对象的属性 12对象属性属性值窗体（名称）CaptionfrmEx2_2计算球的体积和表面积标签1Caption球的半径标签2Caption体积标签3Caption表面积标签4（名称）Border

4、Style CaptionlblV1-Fixed Single（置空）标签5（名称）BorderStyleCaptionlblS1-Fixed Single（置空）13对象属性属性值文本框（名称）TexttxtR（置空）命令按钮（名称）CaptioncmdCalc计算14（3）编写单击“计算”命令按钮的代码 Private Sub cmdCalc_Click() Dim pi As Double Dim r As Double Dim v As Double Dim s As Double pi = 3.141592 r = Val(txtR.Text) v = 4 * pi * r 3 /

5、3 s = 4 * pi * r 2 lblV.Caption = Str(v) lblS.Caption = Str(s)End Sub 只能存放实型数只能存放实型数 乘方运算符乘方运算符 p41p5315（4）运行程序验证 16【实例2.3】输入字符串，实现首尾连接。程序运行时，在文本框中输入字符串，单击“连接”命令按钮，将输入的字符串接入标签内容的尾部，同时，清除文本框中的内容，继续在文本框中输入字符串，单击“连接”，反复多次，在标签中显示多个字符串连接的结果。 17（1）设计用户界面添加1个文本框、2个标签和1个命令按钮 （2）设置各对象的属性 18对象属性属性值窗体（名称）Capti

6、onfrmEx2_3字符串连接标签1Caption请输入字符串标签2（名称）BorderStyle CaptionlblResult1-Fixed Single（置空）文本框（名称）TexttxtString（置空）命令按钮（名称）CaptioncmdConnect连接19（3）编写单击“连接 ”命令按钮的代码 Private Sub cmdConnect_Click() Dim s As String s = txtString.Text & lblResult.Caption = lblResult.Caption & s txtString.Text = End Sub

7、只能存放字符串只能存放字符串 字符串连接符字符串连接符 p4120（4）运行程序验证 输入you后的效果 3个字符串的连接结果 21【实例2.4】窗体中有2个标签、1个文本框和1个命令按钮。程序运行时，在文本框中输入一个字符，单击“显示Ascii码值”命令按钮，在标签中显示出相应的ASCII码值。 22操作步骤 （1）设计用户界面在窗体中添加所需控件 （2）设置各对象的属性 23对象属性属性值窗体（名称）CaptionfrmEx2_4ASCII码值查询标签1Caption输入一个字符标签2（名称）BorderStyle CaptionlblResult1-Fixed Single（置空）文本框

8、（名称）TexttxtChar（置空）命令按钮1（名称）CaptioncmdAscVal显示Ascii码值24（3）编写单击“显示Ascii码值”命令按钮的代码 Private Sub cmdAscVal_Click() Dim m As Integer m = Asc(txtChar.Text) lblResult.Caption = 字符 & txtChar.Text & 的Ascii码值为： & m txtChar.Text = End Sub p6125（4）运行程序验证 26【实例2.5】窗体中有1个命令按钮。程序运行时，单击“背景色”命令按钮，随机改变窗体颜

9、色。27操作步骤 （1）设计用户界面在窗体中添加1个命令按钮 （2）设置各对象的属性 28对象属性属性值窗体（名称）CaptionfrmEx2_5变色窗体命令按钮（名称）CaptioncmdBkColor背景色29（3）编写单击“背景色”命令按钮的代码 Private Sub cmdBkColor_Click() Dim colnum As Integer Randomize colnum = Int(16 * Rnd) frmEx2_5.BackColor = QBColor(colnum)End Sub 产生产生(0,1)之内的实数之内的实数 Rnd * 100产生产生(0,100)之内的

10、随机实数之内的随机实数 Int(Rnd * 100)产生产生0,99之内的随机整数之内的随机整数 Int(Rnd * 100) + 10产生产生10,109之内的随机整数之内的随机整数 保证与前一次的产生值无关保证与前一次的产生值无关 0至至15p64p30630（4）运行程序验证 3132【实例2.6】程序一运行，3个文本框立刻处于锁定状态，而且显示“文本框锁定状态”。单击“上到下”命令按钮，清空3个文本框、上面文本框处于可输入状态、下面2个文本框处于锁定状态，同时输入焦点在上面文本框中；单击“下到上”命令按钮，清空3个文本框、上面2个文本框处于锁定状态、下面文本框处于可输入状态，同时输入焦

11、点在下面文本框中。在上面文本框中输入一行小写字母，则中间文本框中将会随之显示出与上面文本框中的内容对应的大写字母；在下面文本框中输入一行大写字母，则中间文本框中将会随之显示出与下面文本框中的内容对应的小写字母。 33操作步骤 （1）设计用户界面在窗体中添加所需控件 （2）设置各对象的属性 34对象属性属性值窗体（名称）CaptionfrmEx2_6连锁反应效果标签1Caption文本1标签2Caption文本2标签3Caption文本3文本框1（名称）MaxLengthTexttxtUp20（置空）35对象属性属性值文本框2（名称）MaxLengthTexttxtMiddle20（置空）文本框

12、3（名称）MaxLengthTexttxtDown20（置空）命令按钮1（名称）CaptioncmdToDown上到下命令按钮2（名称）CaptioncmdToUp下到上36（3）实现程序一运行时所产生的功能 Private Sub Form_Load() txtUp.Locked = True txtMiddle.Locked = True txtDown.Locked = True txtUp.Text = 文本框锁定状态 txtMiddle.Text = 文本框锁定状态 txtDown.Text = 文本框锁定状态End Sub 不允许用户编辑不允许用户编辑 37（4）编写“上到下”命令

13、按钮的Click事件过程 Private Sub cmdToDown_Click() txtUp.Text = txtMiddle.Text = txtDown.Text = txtUp.Locked = False txtDown.Locked = True txtUp.SetFocus End Sub 设置输入焦点设置输入焦点 38（5）编写“下到上”命令按钮的Click事件过程 Private Sub cmdToUp_Click() txtUp.Text = txtMiddle.Text = txtDown.Text = txtUp.Locked = True txtDown.Locke

14、d = False txtDown.SetFocusEnd Sub 39（6）编写上面文本框和下面文本框中内容 发生变化时触发的代码 Private Sub txtUp_Change() txtMiddle.Text = UCase(txtUp.Text) End SubPrivate Sub txtDown_Change() txtMiddle.Text = LCase(txtDown.Text) End Sub 40【实例2.7】上面文本框用于接收用户输入的内容，下面文本框为多行文本框，且不可编辑。程序运行时，单击“添加”命令按钮，将上面文本框中输入的内容追加到下面文本框中，同时清除上面文

15、本框中的内容；单击“清除”按钮，删除下面文本框中的全部内容。41操作步骤 （1）设计用户界面在窗体中添加所需控件 （2）设置各对象的属性 42对象属性属性值窗体（名称）CaptionfrmEx2_7多行文本框文本框1（名称）TexttxtInput（置空）文本框2（名称）TextMultiLineScrollBarsLockedtxtInfo（置空）True2-VerticalTrue命令按钮1（名称）CaptioncmdAppend添加命令按钮2（名称）CaptioncmdClear清除43（3）编写单击“添加”命令按钮的代码Private Sub cmdAppend_Click() Dim

16、 s As String s = txtInput.Text & chr(13) & chr(10) txtInfo.Text = txtInfo.Text & s txtInput.Text = txtInput.SetFocusEnd Sub 回车换行符回车换行符 44（4）编写单击“清除”命令按钮的代码 Private Sub cmdClear_Click() txtInfo.Text = txtInput.SetFocusEnd Sub 45【实例2.8】单击命令按钮，实现弧度值与度数的互相转换。转换公式为： 其中r表示弧度值，d表示度数。 180dr46操作步

17、骤 （1）设计用户界面在窗体中添加所需控件 （2）设置各对象的属性 47对象属性属性值窗体（名称）CaptionfrmEx2_8弧度与度的转换标签1Caption弧度值标签2Caption度数文本框1（名称）TexttxtRad（置空）文本框2（名称）TexttxtDeg（置空）48对象属性属性值命令按钮1（名称）CaptionPictureStyleTooTipTextcmdRad（置空）选取一图标文件1-Graphical弧度值转换为度命令按钮2（名称）CaptionPictureStyleTooTipTextcmdDeg（置空）选取一图标文件1-Graphical度转换为弧度值49（3）

18、编写命令按钮cmdDeg的Click事件过程 Private Sub cmdDeg_Click() Dim d As Double Dim r As Double r = Val(txtRad.Text) d = r * 180 / 3.141592 txtDeg.Text = Str(d)End Sub 50（4）编写命令按钮cmdRad的Click事件过程 Private Sub cmdRad_Click() Dim d As Double Dim r As Double d = Val(txtDeg.Text) r = d * 3.141592 / 180 txtRad.Text = S

19、tr(r)End Sub 51【实例2.9】在窗体中有4个图片框，每个图片框内各有一标签。程序运行时，单击某一图片框，该图片框出现相应图片；鼠标指针移动到某一标签上，则包含该标签的图片框中的图片立刻消失。 注意添加注意添加标签的方标签的方法法52操作步骤 （1）设计用户界面（2）设置各对象的属性 选取工具箱中的图片框图标 ，添加4个图片框在每个图片框上分别添加标签 53对象属性属性值窗体（名称）CaptionfrmEx2_9四季图图片框1（名称）picSpring图片框2（名称）picSummer图片框3（名称）picAutumn图片框4（名称）picWinter54对象属性属性值标签1（名称

20、）BackStyleCaptionlblSpring1-Transparent春标签2（名称）BackStyleCaptionlblSummer1-Transparen夏标签3（名称）BackStyleCaptionlblAutumn1-Transparen秋标签4（名称）BackStyleCaptionlblWinter1-Transparen冬55（3）编写各图片框的Click事件过程 Private Sub picSpring_Click() picSpring.Picture= LoadPicture(scn_spring.wmf)End SubPrivate Sub picSumme

21、r_Click() picSummer.Picture= LoadPicture(scn_summer.wmf)End Sub添加图片添加图片 56（4）编写各标签的MouseMove事件过程 Private Sub lblSpring_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single) picSpring.Picture = LoadPicture()End Sub自动产自动产生代码生代码框架框架 57【实例2.10】在窗体中有1个图像框和2个命令按钮，且在图像框上装有一幅图片。单击“放大”和“缩小”

22、命令按钮，实现图片放大和缩小功能。 58操作步骤 （1）设计用户界面（2）设置各对象的属性 添加2个命令按钮，再选取工具箱中的图像框图标 ，添加1个图像框。59对象属性属性值窗体（名称）CaptionfrmEx2_10图片的放大与缩小图像框PictureStretch选取一图形文件True命令按钮1（名称）CaptioncmdLargen放大命令按钮2（名称）CaptioncmdLessen缩小60（3）编写单击“放大”和“缩小”命令按钮的代码 Private Sub cmdLargen_Click() imgShow.Width=imgShow.Width+100 imgShow.Heigh

23、t=imgShow.Height+100End SubPrivate Sub cmdLessen_Click() imgShow.Width=imgShow.Width100 imgShow.Height=imgShow.Height100End Sub61 【实例2.11】设计电子表。显示出今天的年、月、日、星期和时间。62操作步骤 （1）设计用户界面（2）设置各对象的属性 在窗体上添加9个标签，其中有5个标签用于显示年、月、日、星期和时间。选取工具箱中的计时器图标 ，在窗体上添加1个计时器 63对象属性属性值窗体（名称）CaptionMaxButtonBackColorfrmEx2_11电

24、子表False兰绿色标签1（名称）CaptionBorderStylelblYear（置空）1-Fixed Single标签2CaptionBackStyle年0-Transparent标签3（名称）CaptionBorderStylelblMonth（置空）1-Fixed Single标签4CaptionBackStyle月0-Transparent64对象属性属性值标签5（名称）CaptionBorderStylelblDay（置空）1-Fixed Single标签6CaptionBackStyle日0-Transparent标签7CaptionBackStyle星期0-Transpare

25、nt标签8、9（名称）CaptionBorderStylelblWeek、lblTime（置空）1-Fixed Single计时器（名称）EnabledIntervaltmrClockTrue100065（3）编写计时器tmrClock的Timer事件过程 Private Sub tmrClock_Timer() lblYear.Caption = Year(Date) lblMonth.Caption = Month(Date) lblDay.Caption = Day(Date) lblWeek.Caption = Weekday(Date, vbMonday) lblTime.Capti

26、on = TimeEnd Sub 66 【实例2.12】设计一个动画。窗体中有1幅“热气球”图片。单击“向左”命令按钮，热气球缓缓地左移；单击“向右”命令按钮，热气球缓缓地右移。 67操作步骤 （1）设计用户界面（2）设置各对象的属性 添加1个图像框、2个命令按钮和2个计时器 68对象属性属性值窗体（名称）CaptionPicturefrmEx2_12飘荡的气球选取一图形文件图像框（名称）StretchPictureimgBalloonTrue选取一图形文件计时器1、2（名称）EnabledIntervaltmrLeft、 tmrRightFalse200命令按钮1（名称）Captioncmd

27、LeftMove向左命令按钮2（名称）CaptioncmdRightMove向右69（3）编写单击“向左”命令按钮的代码 Private Sub cmdLeftMove_Click() tmrLeft.Enabled = True tmrRight.Enabled = FalseEnd Sub 70（4）编写控制左移计时器tmrLeft的Timer 事件过程 Private Sub tmrLeft_Timer() imgBalloon.Left = imgBalloon.Left 100End Sub 71（5）“向右”命令按钮和控制右移计时器的相 关代码与左移时类似 Private Sub

28、cmdRightMove_Click() tmrRight.Enabled = True tmrLeft.Enabled = FalseEnd SubPrivate Sub tmrRight_Timer() imgBalloon.Left = imgBalloon.Left + 100End Sub72【实例2.13】设计一个调色器。窗体中有1个文本框、3个标签、3个水平滚动条和3个命令按钮。用3个水平滚动条分别表示红、绿、蓝三色的取值，单击“文字颜色”命令按钮，设置文本框中文字的颜色；单击“背景色”命令按钮，设置文本框的背景色；单击“默认值”命令按钮，将文本框设置为：黑色文字、白色背景。 7

29、3操作步骤 （1）设计用户界面（2）设置各对象的属性 选取水平滚动条图标 ，添加3个水平滚动条，分别表示“红”、“绿”、“蓝”三种颜色值。再添加其他所需控件 74对象属性属性值窗体（名称）CaptionfrmEx2_13文本调色标签1Caption红标签2Caption绿标签3Caption蓝水平滚动条1（名称）MaxMinhsbRed2550水平滚动条2（名称）MaxMinhsbGreen255075对象属性属性值水平滚动条3（名称）MaxMinhsbBlue2550文本框（名称）TexttxtWord花落知多少命令按钮1（名称）CaptioncmdWdColor文字颜色命令按钮2（名称）C

30、aptioncmdBkColor背景色命令按钮3（名称）CaptioncmdDefColor默认值76（3）编写“文字颜色”按钮的Click事件过程。 Private Sub cmdWdColor_Click() Dim r As Integer Dim g As Integer Dim b As Integer r = hsbRed.Value g = hsbGreen.Value b = hsbBlue.Value txtWord.ForeColor = RGB(r, g, b)End Sub产生合成色的处理函数产生合成色的处理函数 77（4）编写“背景色”按钮的Click事件过程。 Pr

31、ivate Sub cmdBkColor_Click() Dim r As Integer Dim g As Integer Dim b As Integer r = hsbRed.Value g = hsbGreen.Value b = hsbBlue.Value txtWord.BackColor = RGB(r, g, b)End Sub78（5）编写单击“默认值”命令按钮的Click事件 过程 Private Sub cmdDefColor_Click() txtWord.ForeColor=RGB(0, 0, 0) txtWord.BackColor=RGB(255, 255, 25

32、5)End Sub 79【实例2.14】窗体中有1个图像框、1个水平滚动条和1个垂直滚动条，在图像框中载入一幅图。程序运行时，将水平滚动条中的滑块从左至右移动时，图片宽度随之变大，反之变小；将垂直滚动条的滑块从上至下移动时，图片高度随之变大，反之变小。 80操作步骤 （1）设计用户界面（2）设置各对象的属性 选取工具箱中垂直滚动条图标 ，添加1个垂直滚动条，再添加其他所需控件。81对象属性属性值窗体（名称）CaptionfrmEx2_14图片的扩大与缩小图像框（名称）HeightPictureStretchWidthimgShow1000选取一图形文件True1000水平滚动条垂直滚动条（名称

33、）LargeChangeMaxMinSmallChangehsbSize(vsbSize)150300010005082（3）编写水平滚动条hsbSize的Change事 件过程 Private Sub hsbSize_Change() imgShow.Width = hsbSize.ValueEnd Sub83（4）编写垂直滚动条vsbSize的Change事 件过程 Private Sub vsbSize_Change() imgShow.Height = vsbSize.ValueEnd Sub84（5）补充编写如下滚动条的Scroll事件代码 Private Sub hsbSize_S

34、croll() imgShow.Width = hsbSize.ValueEnd SubPrivate Sub vsbSize_Scroll() imgShow.Height = vsbSize.ValueEnd Sub85【实例2.15】窗体中有一幅图，添加1个标签。程序运行时，单击窗体，弹出输入框，当用户输入并按“确定”按钮返回后，将输入的文字显示在窗体的标签上。 86操作步骤 （1）设计用户界面（2）设置各对象的属性 在窗体中添加1个标签 87对象属性属性值窗体（名称）CaptionPicturefrmEx2_15添加文字选取一图形文件标签（名称）BackStyleCaptionFont

35、ForeColorlblInfo0-Transparent（置空）华文行楷，一号粉色88（3）编写窗体的Click事件过程 Private Sub Form_Click() Dim s As String s = InputBox(请输入一段文字, 录入) lblInfo.Caption = sEnd Sub所输入的内容所输入的内容p7689【实例2.16】在窗体中添加1个标签和1个命令按钮。程序运行时，在标签中显示“树上有5只鸟，用枪打死1只，树上还剩几只？”，单击“查看答案”命令按钮，则在消息框显示正确答案“答案是0，你猜对了吗？”。 90操作步骤 （1）设计用户界面（2）设置各对象的属性

36、 在窗体中添加所需控件 91对象属性属性值窗体（名称）CaptionfrmEx2_16趣味问题标签（名称）BorderStyle CaptionlblInfo1-Fixed Single（置空）命令按钮（名称）CaptionPicture StylecmdKey查看答案选取一图标文件1-Graphical92（3）编写窗体的Load事件过程和“查看答案” 命令按钮的Click事件过程 Private Sub Form_Load() lblQuestion.Caption = “树上有5只鸟， 用枪打死1只，树上还剩几只？End SubPrivate Sub cmdKey_Click() Msg

37、Box 答案是0，你猜对了吗？, vbOKOnly + vbInformation, 提示End Sub p7993【实例2.17】设计一个多窗体程序，程序中含有2个窗体，第一窗体中有1个标签、2个命令按钮和1个计时器。第二窗体中有1个标签、1个文本框和1个命令按钮。程序运行时，启动第一窗体，单击“变色”命令按钮，标签中文字的颜色每秒随机变色一次。单击“编辑”命令按钮，计时器停止工作，并打开第二窗体，在文本框中输入内容，单击“返回”命令按钮，关闭第二窗体，并将已输入的内容显示在第一窗体的标签上。 p22894操作步骤 （1）设计第一个窗体的界面（2）设置各对象的属性 在窗体中添加所需控件 95

38、对象属性属性值窗体（名称）CaptionfrmEx2_17_1多窗体示例标签（名称）CaptionlblTitle单击“编辑”按钮，输入显示内容命令按钮1（名称）CaptionPicture StylecmdSetColor变色选取一图标文件1-Graphical命令按钮2（名称）CaptionPicture StylecmdEdit编辑选取一图标文件1-Graphical计时器（名称）EnabledIntervaltmrColorFalse100096（3）添加第二窗体 选择【工程】|【添加窗体】命令 97（3）添加第二窗体 工程资源管理器将变为 错误的形式： 98（4）设计第二个窗体的界面

39、（5）设置各对象的属性 添加1个标签、1个文本框和1个命令按钮 99对象属性属性值窗体（名称）CaptionfrmEx2_17_2输入文本标签Caption请输入显示的文本内容文本框（名称）TexttxtContent（置空）命令按钮1（名称）CaptionPictureStylecmdBack返回选取一图标文件1-Graphical100（6）编写第一窗体中的各事件过程 Private Sub tmrColor_Timer() Dim r As Integer Dim g As Integer Dim b As Integer r = Int(Rnd * 256) g = Int(Rnd * 256) b = Int(Rnd * 256) lblTitle.ForeColor = RGB(r, g, b)End Sub101Private Sub cmdSetColor_Click() tmrColor.Enabled = TrueEnd SubPrivate Sub cmdEdit_Click() tmrColor.Enabled = False frmEx2_17_1.Hide frmEx2_17_2