- 1、本文档共12页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vba程序设计用例:程序流图及程序代码vba程序设计用例:程序流程图及程序代码vba程序设计用例:程序流程图及程序代码vba程序设计用例:程序流程图及程序代码
VBA程序教学用例
【例1】求解一元二次方程Ax+Bx+C=0。
顺序结构的VBA程序:
SUB JFC1()
A = Sheets(解一元二次方程).Cells(1, 2)
B = Sheets(解一元二次方程).Cells(2, 2)
C = Sheets(解一元二次方程).Cells(3, 2)
X1=(-B+SQR(B^2-4*A*C))/2/A
X2=(-B-SQR(B^2-4*A*C))/2/A
DEBUG.PRINT “X1=”,X1
DEBUG.PRINT “X2=”,X2
END SUB
提示:先将三个系数A、B、C存放到表解一元二次方程的单元格B1:B3中,运行结果在立即窗口中(可用CTRL+G组合键打开立即窗口)。
带判断条件的VBA程序:
Sub JFC2()
A = Sheets(解一元二次方程).Cells(1, 2)
B = Sheets(解一元二次方程).Cells(2, 2)
C = Sheets(解一元二次方程).Cells(3, 2)
If B * B - 4 * A * C = 0 Then
Sheets(解一元二次方程).Cells(4, 2) = (-B + Sqr(B ^ 2 - 4 * A * C)) / 2 / A
Sheets(解一元二次方程).Cells(5, 2) = (-B - Sqr(B ^ 2 - 4 * A * C)) / 2 / A
Else
Sheets(解一元二次方程).Cells(4, 2) = 此方程无实根
Sheets(解一元二次方程).Cells(5, 2) = 此方程无实根
End If
End Sub
提示:先将三个系数A、B、C存放到表解一元二次方程的单元格B1:B3中,运行结果在B4:B5中)。【例2】给定成绩数据在表sheet2中,求最高分、最低分和平均分。
(1)程序流程总图
(2)VBA程序
Sub CJTJ()
X = Sheets(成绩统计).Cells(2, 2)
MA = X
MI = X
P = 0
I = 2
Do While Sheets(成绩统计).Cells(I, 2)
X = Sheets(成绩统计).Cells(I, 2)
P = P + X
If X MA Then MA = X
If X MI Then MI = X
I = I + 1
Loop
P = P / (I - 2)
Sheets(成绩统计).Cells(I + 1, 1) = 最高分
Sheets(成绩统计).Cells(I + 1, 2) = MA
Sheets(成绩统计).Cells(I + 2, 1) = 最低分
Sheets(成绩统计).Cells(I + 2, 2) = MI
Sheets(成绩统计).Cells(I + 3, 1) = 平均分
Sheets(成绩统计).Cells(I + 3, 2) = P
End Sub
思考题:如果要在CJTJ程序中增加计算标准差功能,程序该如何修改?
【例3】打印九九乘法表。
Sub 九九乘法表()
Dim i as integer, j as integer
For i=1 to 9
For j=1 to 9
Sheets(“九九乘法表”).Cells(I,j)= I ”*” j ”=” i*j
Next j
Next i
End sub
程序说明:
循环嵌套:外循环I循环,内循环J循环;
关键语句:
Sheets(“九九乘法表”).Cells(I,j)
= I ”*” j ”=” i*j
思考题:如何打印主对角线下面的三角形状的九九乘法表?
【例4】打印N以内的素数。
(1)流程图
(2) 程序代码
Public Sub 打印N以内的素数()
Dim I As Integer, J As Integer, K As Integer, R As Integer, N As Integer, H As Integer
N = Sheets(SHEET1).Cells(1, 2)
R = 3
H = 1
For I = 2 To N
K = 0
For J = 1 To I
If I Mod J = 0 Then
您可能关注的文档
- unit2 i’m wan lingling and i’m thirteen years old.unit2 i’m wang lingling and i’m thirteen years old.unit2 i’m wang lingling and i’m thirteen years old.unit2 i’m wang lingling and i’m thirteen years old..ppt
- unit3 book1 检unit3 book1 检测unit3 book1 检测unit3 book1 检测.ppt
- unit2 writingnit2 writingunit2 writingunit2 writing.ppt
- unit2 readingppt课件unit2 reading ppt课件unit2 reading ppt课件unit2 reading ppt课件.ppt
- unit3 teenageproblems 课件1unit3 teenage problems 课件1unit3 teenage problems 课件1unit3 teenage problems 课件1.ppt
- unit3《computes》word studyunit3《computers》word studyunit3《computers》word studyunit3《computers》word study.ppt
- unit2第2课时教学课件nit2第2课时教学课件unit2第2课时教学课件unit2第2课时教学课件.ppt
- unit4 section-2unit4 sectionb-2unit4 sectionb-2unit4 sectionb-2.ppt
- unit3_a_healty_life课件unit3_a_healthy_life课件unit3_a_healthy_life课件unit3_a_healthy_life课件.ppt
- unit4 sectionb 1a-2funit4 section b 1a-2funit4 section b 1a-2funit4 section b 1a-2f.ppt
最近下载
- 艾梅乙医学ppt课件.pptx VIP
- 海姆立克急救法(完美版)课件.pptx VIP
- 锂离子电池不良失效分析系列压差大.pptx VIP
- 《童年》阅读评测试题(附答案).pdf VIP
- 英语常用词根词缀表(排版整齐).pdf VIP
- 【小升初】2024-2025学年四川省成都市下学期新七年级分班真题数学试题(含答案).docx VIP
- TD∕T 1087-2023 主体功能区优化完善技术指南.pdf
- 优秀备课组评选方案.docx VIP
- 稳定币发展十年:趋势、应用与前景.docx VIP
- 四川省成都市成都石室联合中学2024-2025学年上学期七年级分班(奖学金)模拟数学试题(含答案).pdf VIP
文档评论(0)