爱问知识人 爱问教育 医院库

vb

首页

vb

编程,输入一个1~9之间的整数a,计算多项式 a+aa+aaa+aaaa+aaaaa+…的前n项的和(n<=7),要求将计算多项式中每一项的运算写作函数。
参考程序:(注意static的使用)
Private Static Function sum(a As Integer) As Single  '自定义求每项值的函数
  Dim s As Single
  s = s * 10 + a                       '每一项的值均为其前项乘以10后加a
  sum = s
End Function
Private Sub form_Click()
  Dim s As Single, a As Integer, i As Integer
  Dim n As Integer
  a = Val(InputBox("输入一个小于10的正整数a"))
  n = Val(InputBox("输入一个小于10的正整数n"))
  Cls
……
……
……
……
End Sub

提交回答

类似问题

换一换
  • 软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):