原创力文档- 1、本文档共9页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
代码：
代码：
Private Sub C1_Click()
Dim x As Integer
Dim y As Single
x = Int(Rnd * 31) + 60
T1.Text = x
y = Sin(3.1415926 * x / 180)
T2.Text = y
End Sub
Private Sub C2_Click()
End
End Sub
运行前：
运行时：
结束：
2、
代码：
Private Sub C1_Click()
Dim r As Single
Dim s As Single
Dim l As Single
r = T1.Text
s = 3.1415926 * r * r
T2.Text = s
l = 2 * 3.1415926 * r
T3.Text = l
End Sub
Private Sub C2_Click()
End
End Sub
运行前：
输入数字：
计算：
结束：
3、假设有变量a=2,b=5,c=4,d=3,e=6，编写程序，计算表达式a+bc and d*a=e的值，将结果打印在窗体上。
运行代码：
Private Sub C1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim e As Single
Dim y As Boolean
a = 2
b = 5
c = 4
d = 3
e = 6
y = a + b c And d * a = e
T1.Text = y
End Sub
Private Sub C2_Click()
End
End Sub
运行前：
运行时：
结束：
您可能关注的文档
最近下载
- 地图的发展史的历程.ppt
- 2014花灯调完整版.doc
- GB∕T18972-2017旅游资源分类、调查与评价(高清版).pdf
- 【语文】第15课《青春之光》教案 2024-2025学年统编版语文七年级下册.docx VIP
- 浅析布鲁赫《g小调小提琴协奏曲第一乐章》演奏法要点.docx
- BS EN 12390-3-2019 硬化混凝土试验.第3部分：试验试样的抗压强度.pdf
- 外围及地下车库等公共设施的清洁、保洁工作方案.docx VIP
- 2024年最新离婚协议书下载6篇.docx
- LEGO乐高积木拼砌说明书21333,文森特·梵高——星月夜,LEGO®Ideas(年份2022)安装指南_第2份共2份.pdf
- (NEW)天津大学《718有机化学》历年考研真题汇编.pdf
文档评论（0）