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

VB问题

首页

VB问题

Private Sub Form_Click()
Dim d As Integer, n As Integer, i As Integer
Dim sum As Long
sum = 0
d = Val(InputBox("d:"))
n = Val(InputBox("n:"))
For i = 1 To n
tn = (10 ^ n - 1) * d / 9
sum = sum + tn
Next i
Print sum
End Sub
其题目是:7.  程序功能:sum=d+dd+ddd+……+ddd..d(d为1-9的数字)。例如:3+33+333+3333(此时d=3,n=4)。从键盘上输入d 的值为8,n的值为9,求sum的值。
为什么我的答案不对呢?

提交回答
好评回答
  • 2013-04-27 13:17:06
    1.将   tn = (10 ^ n - 1) * d / 9   中的   n   改为   i   因为是   i   在循环而不是   n   循环。
    2.将   Print sum   改为   msgbox sum   可避免“对象不支持该属性或方法”的错误。
    详见附件。

    信***

    2013-04-27 13:17:06

类似问题

换一换
  • 软件 相关知识

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

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 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
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):