实验31 循环结构程序设计.docx

  1. 1、本文档共6页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
实验31 循环结构程序设计 用For…Next语句编写计算1/(1*2)+1/(2*3)+…+1/(n*(n+1))的程序,并显示其计算结果 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, n As Integer, s As Double n = InputBox("输入求和级数n的值:") s = 0 For i = 1 To n s = s + 1 / (i * (i + 1)) Next MsgBox("1/(1*2)+1/(2*3)…" & "1/" & i - 1 & "*(" & i - 1 & "+1)=" & Format(s, "0.0000000")) End Sub 显示图形* * * * * * * * * * * * * * * * * Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim r, s, c, j As Integer, y(5), ys As String ys = "" r = 1 Do While r <= 4 c = 10 - r : s = 1 y(r) = y(r) & Space(c + s) '定一行中显示的起始位置 Do While s <= 2 * r - 1 y(r) = y(r) & "*" '形成每行中显示的*符号 s = s + 1 Loop r = r + 1 Loop For j = 1 To 4 ys = ys & y(j) & Chr(10) Next MsgBox(ys) End Sub 显示上图的倒置图案 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim r, s, c, j As Integer, y(5), ys As String ys = "" r = 4 Do While r >= 1 c = 10 - r : s = 1 ys = ys & Space(c + s) Do While s <= 2 * r - 1 ys = ys & "*" s = s + 1 Loop r = r - 1 ys = ys & Chr(10) Loop MsgBox(ys) End Sub 利用InputBox函数给一个10个元素的数组赋10个任意的数值型数据,然后分别计算下标为奇数的元素和下标为偶数的元素的和,并显示计算结果。要求在同一个循环语句中实现求和。 Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim x(10) '要求可以是任意数值类型,所以定义为变体变量 Dim odd_num, even_num For i = 1 To 10 x(i) = Val(InputBox("请输入第" & Str(i) & "数据", "输入数组的10个元素")) Next i odd_num = 0 : even_num = 0

文档评论(0)

qwd513620855 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档