- 1、本文档共41页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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()
您可能关注的文档
- (过热蒸汽温度控制系统设计开题报告.doc
- .山东建筑大学招投标课程设计.doc
- 2016年“道路运输平安年”活动方案.doc
- [doc] 线性二次型积分最优变结构原理与应用.doc
- [DOCIN]政府部门”三定“规定执行评估研究.pdf
- 2016年北京房地产市场发展研究报告1.docx
- [初中政治]湘教版思品八上第五单元第二节法律对未成年人的特殊保护.ppt
- 2016年传染病管理工作总结.doc
- 2016年大学党支部先进事迹材料范文(精简版).doc
- [建筑]消防安全教育培训记录表3 .doc
- GB/T 32151.38-2024温室气体排放核算与报告要求 第38 部分:水泥制品生产企业.pdf
- 中国国家标准 GB/T 32151.38-2024温室气体排放核算与报告要求 第38 部分:水泥制品生产企业.pdf
- 《GB/T 22069-2024燃气发动机驱动空调(热泵)机组》.pdf
- GB/T 22069-2024燃气发动机驱动空调(热泵)机组.pdf
- 中国国家标准 GB/T 22069-2024燃气发动机驱动空调(热泵)机组.pdf
- 中国国家标准 GB/T 11064.1-2024碳酸锂、单水氢氧化锂、氯化锂化学分析方法 第1部分: 碳酸锂含量的测定 滴定法.pdf
- GB/T 11064.1-2024碳酸锂、单水氢氧化锂、氯化锂化学分析方法 第1部分: 碳酸锂含量的测定 滴定法.pdf
- 《GB/T 11064.1-2024碳酸锂、单水氢氧化锂、氯化锂化学分析方法 第1部分: 碳酸锂含量的测定 滴定法》.pdf
- GB/T 1148-2024内燃机 铝活塞.pdf
- 中国国家标准 GB/T 1148-2024内燃机 铝活塞.pdf
最近下载
- 2024年浙江省镇海中学自主招生数学试卷及答案 .pdf VIP
- 工抵房购买协议合同范本.docx
- 关于印发《铜陵有色金属集团控股有限公司对标世界一流管理提升行动实施方案》的通知(铜色控股企管〔2020〕260号).doc VIP
- 小学班级文化建设 ().ppt
- 登录网址httphnhhxy.fanya.chaoxing.comportal,点击登录。.doc
- 海德汉_HEIDENHAIN_iTNC_530_编程操作手册1012.pdf
- 吴国伦年谱简编.pdf
- 《网络空间地图测绘理论体系白皮书》.docx
- 锅炉安装改造维修质量保证手册-符合TSG 07-2019特种设备质量保证管理体系.docx
- 《汉字小故事》课件.ppt VIP
文档评论(0)