- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB 实验代码
VB 实验代码
实验一
实验二
1
Private Sub Command1_Click()
Text1 =
Text2 =
Text3 =
End Sub
Private Sub Command2_Click()
Text3 = Val(Text1) / V al(Text2) End Sub
Private Sub Command3_Click()
Text1 = Val(Text3) * V al(Text2) End Sub
Private Sub Command4_Click()
End
End Sub
1
Private Sub Command1_Click() Label1 = Text1
End Sub
Private Sub Form_Load() Text1.PasswordChar = * Text1.FontSize = 20 Label1.FontSize = 20 Label1.Alignment = 2 Label1.BorderStyle = 1 Label1.BackColor = vbWhite Command1.FontSize = 20 End Sub
2-2
Private Sub Command1_Click() Label1 = 欢迎来到重庆 Command1.Visible = False Command2.Visible = True
Private Sub Command2_Click()
Label1 = welcome to ChongQing Command2.Visible = False Command1.Visible = True
End Sub
Private Sub Form_Load()
Label1 = 欢迎来到重庆 Label1.Alignment = 2 Command1.Visible = False Command2.Visible = True
End Sub
2-3
Private Sub Form_Load() Label1.BackColor = vbRed Label2.BackColor = vbBlue Label3.BackColor = vbGreen Label4.BackColor = vbY ellow
End Sub
Private Sub Label1_Click() Text1.ForeColor = Label1.BackColor
End Sub
Private Sub Label2_Click() Text1.ForeColor = Label2.BackColor
End Sub
Private Sub Label3_Click() Text1.ForeColor = Label3.BackColor
End Sub
Private Sub Label4_Click() Text1.ForeColor = Label4.BackColor
End Sub
Private Sub Text1_Change()
实验三
1
Private Sub Command1_Click()
Dim R As Single
Const Pi As Single = 3.1415926
R = Val(Text1)
Label3 = Int(2 * Pi * R * 1000 + 0.5) / 1000
Label5 = In t(Pi * R A 2 * 1000 + 0.5) / 1000 End Sub
3-2
Private Sub Command1_Click()
Dim Lx As Long, Ux As Long
Lx = Val(Text1)
Ux = Val(Text2)
Randomize
Label3 = Int((Ux - Lx) * Rnd + Lx)
End Sub
3-3
Private Sub Command1_Click()
Dim x As Integer
x = Val(InputBox( 请输入一个整数! ))
Picture1.Cls
If x Mod 2 = 0 Then
Picture1.Print 你输入的数 ; x; 是偶数
Else
Picture1.Print 你输入的数 ; x; 是奇数
End If
End Sub
3-4
3-5
Private Sub Command1_Click()
Dim a As Date
a = Now
Print 输出结果为:
Print
Print Format(a, hh:mm:ss AMPM dddd, yyyy-mm-dd) End Sub
Private Sub Form_Load()
For
您可能关注的文档
- 包装印刷试谈香皂的包装结构设计.docx
- 包装材料计算公式.docx
- 包装防护及交付控制程序.docx
- 匈奴人与匈牙利人是真有交集.docx
- 匈牙利的那些一流大学.docx
- 化妆品业务跟单流程.docx
- 化妆品工艺学试题.docx
- 化妆品和洗涤剂检验.docx
- 化妆品牌排名.docx
- 化妆舞会策划方案6篇.docx
- 2026年及未来5年蓝信流量统计日志系统项目市场数据调查、监测研究报告.docx
- 2026年及未来5年多功能烟气分析仪项目市场数据调查、监测研究报告.docx
- 2026年及未来5年热熔焊制45°弯头项目市场数据调查、监测研究报告.docx
- 2025年学历类自考中国文化概论-中国当代文学作品选参考题库含答案解析.docx
- 2026年及未来5年微控双温区锑扩散系统项目市场数据调查、监测研究报告.docx
- 2026年及未来5年变频电机转子项目市场数据调查、监测研究报告.docx
- 2026年及未来5年数显压力机项目市场数据调查、监测研究报告.docx
- 2026年及未来5年电话十台灯十时钟项目市场数据调查、监测研究报告.docx
- 2026年及未来5年移动空调控制板项目市场数据调查、监测研究报告.docx
- 2026年及未来5年大豆纤维服饰项目市场数据调查、监测研究报告.docx
最近下载
- 2025年人工智能与机器学习课程期末考试题及答案.docx VIP
- 雪迪龙 SCS-900UV使用说明书.pdf VIP
- 2026中国电科36所校园招聘考试模拟卷及答案解析(夺冠).docx VIP
- 古代诗人名人王维人物介绍PPT.pptx VIP
- 温州市2026届高三第一次适应性考试(一模)语文试卷(含答案详解)原卷.pdf
- EXCEL上机操作题.doc VIP
- 贵州兴义电力发展有限公司2026年校园招聘备考题库及答案详解参考.docx VIP
- 金属材料学 戴起勋 上传完整版.doc VIP
- 心率变异性分析评价糖尿病患者自主神经病变应用.doc VIP
- 道路旅客运输企业安全生产操作规程汇编 .pdf VIP
原创力文档


文档评论(0)