《VB程序设计》课堂例题总结.doc

  1. 1、本文档共41页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
PAGE PAGE 1 《VB程序设计》课堂例题总结 消息对话框的使用 Private Sub Command1_Click() If Not IsNumeric(Text1) Then i% = MsgBox(你输入的不是数字!, 5 + vbQuestion, 警告) If i = 4 Then Text1.SetFocus Else End Else MsgBox 你好, , 欢迎 End If End Sub 求圆的周长与面积 Private Sub Form_Click() Dim r!, s!, c! Const pi = 3.14159 ‘用户声明常量 r = InputBox(请输入园的半径:) s = pi * r * r c = 2 * pi * r MsgBox 园的周长为: c 面积为: s End Sub 计算三角形的面积 Private Sub Command1_Click() Dim a%, b%, c%, s#, area# Dim str1$ a = Val(InputBox(a:)) b = Val(InputBox(b:)) c = Val(InputBox(c:)) s = (a + b + c) / 2 area = Sqr(s * (s - a) * (s - b) * (s - c)) str1 = area= area MsgBox str1 Print str1 End Sub 字体的放大与缩小 随机放大1~3整数倍:Text1.FontSize = Text1.FontSize * Int(Rnd()*3+1) 缩小的比例为任意:Text1.FontSize = Text1.FontSize * Rnd() 连接与求和 Private Sub Command1_Click() Text3.Visible = True Text3.Text = Text1.Text Text2.Text 也可以用Text1.Text + Text2.Text Command1.Enabled = False End Sub Private Sub Command2_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub 字符串的替换 方法一:(多个函数) Private Sub Command1_Click() i = InStr(Text1, Text2) 在Text1中查找出现Text2内容的位置 k = i + Len(Text2) 定位右子串的起始位置 Ls = Left(Text1, i - 1) 取左子串 Text4 = Ls + Text3 + Mid(Text1, k) 左子串连接替换为子串连接右子串实现替换 也可以将上面两步合并为 Text4 = Left(Text1, i - 1) + Text3 + Mid(Text1, k) End Sub 方法二:(Replace函数) Private Sub Command2_Click() Text4 = Replace(Text1, Text2, Text3) End Sub 身份证的查找 Private Sub Command1_Click() Dim a As String, nl%, yue%, ri%, b%, xb$ a = Text1.Text nl = 2010 - Val(Mid(a, 7, 4)) nl = Year(Now()) - Val(Mid(a, 7, 4)) yue = Mid(a, 11, 2) ri = Mid(a, 13, 2) b = Val(Mid(a, 17, 1)) If b Mod 2 = 1 Then xb = GG Else xb = MM Label3.Caption = nl Label5.Caption = yue 月 ri 日 Label7.Caption = 你是 xb End Sub 电话号码升位:将原来任意一个带区号的7位电话号码升到8位,在最前面加8。如020-1234567 → 020区号及电话号码确定: Left(s,4) ”8” Right(s,7) 区号及电话号码不确定: Private Sub Command1_Click()

您可能关注的文档

文档评论(0)

新起点 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档