网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,177贴子：1,165,942
  • 6回复贴，共1页

新手弱弱的问个问题··请求指导··

Private Sub Command1_Click()
     Dim sn!, a!, b!, c!, i!, d!, e!
     sn = 0
     c = 0
     i = Val(Text1.Text)
     For a = 0 To i
         For b = 0 To i - 1
             d = 2 * 10 ^ b
             c = c + d
         Next
         e = c / (i + 1)
         sn = sn + e
     Next
     Text1.Text = sn
End Sub
要求输入一个数字I然后就是几个2。。然后这些求和
SN=2+22+222+2222....
最后求的是SN。。。请问下E的输出是对的。。是其中每个单项。。但是求和为什么不对呢·


谁帮一下啊··


Private Sub Command1_Click()
Dim n, sum As Long
sum = 0
n = Val(Text1.Text)
For i = 1 To n
Dim e As Long
e = Val(String(i, "2"))
sum = sum + e
Next
MsgBox sum
End Sub
偷懒的用了个string函数，看看是不是你要的效果，如果是的话，自己再写个string函数吧。


确实是我要的效果·但是不用这个函数能写一个吗？


我主要想知道我哪错了


你那个e好像有问题
Dim n, e
e = 0
n = 3 '生成 3 个 2，即 222
For i = 0 To n - 1
e = e + 2 * 10 ^ i
Next


E没问题啊。。。。单独输出E是对的··我把你的循环带进去也是一样的··单独输出是对的··但是一累加就不对了·


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 6回复贴，共1页
分享到: