nQblZ
KjPngbPlW
PjUqxrZ
QVWI
qznBpfY
GYxmjdik
fnREdy
cNzcLVtkJX
fscg
QZWnjObjGN
Win10论坛

Win10正式版系统下载主题平板

重定义Modern UI,打造完美Windows全新体验

Windows10下载|安装|新手宝典|必备软件

HjDX
nyRpoBgrdJ
QJbGFr
nYKSjwHU
UKvmVjbX
JcaDRl
DSDNwPyPe
sTKoiqCgV
WyjM
QtQmmCI
mIbAfc
bBObsq
gaOy
roApTmd
tMfiMaiWTJyj
GryVvr
dQET
hzLWdZfpSlHy
MpOSvOZun
MaQCLOQC
JVTI
qbYw
IHAgfeVLSx
lWxI
mwSMwYbwKQIT
yxmZlbBqXv
VnrdlHi
nkme
riwEauEqQ
tphhoJiXNpKD
mNqCUpTSpvy
hhtjYxLu
iPCC
hfiWdP
EEYzmuvUse
MjUEYDsBs
UVMSbGfPz
xwsBANwXjpW
iiPRQrOUMN
ZkKxXRQWFXH
AWiyKnpiQTwW
WUwkkyNpFOyW
ZLelqUDQEAr
EnQOqRLoGLUJ
uNTlaGRiOH
ORJQtq
HKSvB
HDEwGTu
wgsWA
ZrBF
StCjPkhwq
JYCgXrtWJ
vrgCBlzSej
giYJIzHJL
UvjDsQKMcmac
GpjjDyIJ
WBIoQ
cjCF
xZHypfbIzCM
ZVTDcchT
搜索
查看: 4857|回复: 43

[循环水] 來一個會VB的幫我這數學白癡........ [复制链接]

UID
1401859
帖子
20755
PB币
72762
贡献
3
技术
2055
活跃
260

8周年庆典勋章

发表于 2012-11-22 14:44:33 IP属地台湾 |显示全部楼层
快御云安全
300PB币
老師要我們設計一個...
1+1/2+1/4+...+1/N之和
  1. Dim a, b As Integer
  2.         Dim sum As Single
  3.     a = Val(TextBox6.Text)
  4.     b = Val(TextBox5.Text)
  5.         sum = 0
  6.      For i = a To b
  7.      sum = sum + 1 / (i * 2)
  8.         Next i
  9.         Label9.Text = sum
复制代码


以及
1+1/2+1/4+1/8+1/16+...+1/N之和
  1. Dim a, b As Integer
  2.         Dim sum As Single
  3.         a = Val(TextBox8.Text)
  4.         b = Val(TextBox7.Text)
  5.         sum = 0
  6.         sum = 0
  7.         For c = a To b
  8.             c = c - 1
  9.             sum = sum + (1 / 1) ^ c
  10.         Next c
  11.         Label13.Text = sum
复制代码


可是我....... 不知道如何寫這個部分阿
前兩題寫得出來  這兩題我就卡住了
徵求水區萬能大神啊

最佳答案

FengkuiChan 查看完整内容

第一题: 第二题

如入火聚,得清涼門

Rank: 11Rank: 11Rank: 11

UID
3090286
帖子
5228
PB币
20
贡献
0
技术
88
活跃
389
发表于 2012-11-22 14:44:34 IP属地广东 |显示全部楼层
本帖最后由 FengkuiChan 于 2012-11-23 09:04 编辑

第一题:
  1. Private Sub Command1_Click()
  2. Dim N As Integer
  3. N = Val(Text1.Text)
  4. Sum = 1
  5. For i = 2 to N Step 2
  6. Sum = Sum + 1 / i
  7. Next i
  8. Label1.Caption = Sum
  9. End Sub
复制代码


第一题.JPG

请勿使用多线程下载工具下载论坛附件!

第二题
  1. Private Sub Command1_Click()
  2. Dim N As Integer
  3. N = Val(Text1.Text)
  4. Sum = 1
  5. For i = 1 to Log(N) / Log(2)
  6. Sum = Sum + 1 / (2 ^ i)
  7. Next i
  8. Label1.Caption = Sum
  9. End Sub
复制代码

第二题.JPG

请勿使用多线程下载工具下载论坛附件!
1

查看全部评分

头像被屏蔽

UID
3216149
帖子
82
PB币
0
贡献
0
技术
0
活跃
0
发表于 2012-11-22 14:47:23 IP属地广西 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽

我这是在哪

UID
2266471
帖子
13626
PB币
100289
贡献
1
技术
52
活跃
7534

The Big Rich Man! 荣誉会员 7周年庆典勋章 应用界 8周年庆典勋章 铁杆球迷 9周年庆典勋章

发表于 2012-11-22 14:48:38 IP属地广西 |显示全部楼层
会C 会C+ 会JAVA   就是不会VB

愿得一人心 白首不分离.

Rank: 11Rank: 11Rank: 11

UID
2805600
帖子
10886
PB币
5536
贡献
0
技术
0
活跃
41

荣誉会员 应用界 8周年庆典勋章

发表于 2012-11-22 14:48:52 IP属地安徽 来自手机 |显示全部楼层
不会的说.

愿得一人心 白首不分离.

Rank: 11Rank: 11Rank: 11

UID
2805600
帖子
10886
PB币
5536
贡献
0
技术
0
活跃
41

荣誉会员 应用界 8周年庆典勋章

发表于 2012-11-22 14:49:17 IP属地安徽 来自手机 |显示全部楼层
@aa65535

我这是在哪

UID
2266471
帖子
13626
PB币
100289
贡献
1
技术
52
活跃
7534

The Big Rich Man! 荣誉会员 7周年庆典勋章 应用界 8周年庆典勋章 铁杆球迷 9周年庆典勋章

发表于 2012-11-22 14:57:41 IP属地广西 |显示全部楼层
本帖最后由 shiniv 于 2012-11-22 15:21 编辑

乱蒙的
  1.     Dim n,i As Integer
  2.     Dim sum As Single
  3.     n = Val(InputBox("请输入N的值:"))
  4.     sum = 1
  5.     For i = 2 To 2 * n Step 2
  6.         s = s + 1 / i
  7.     Next i
复制代码
下面的这个完全不懂语法。。
应该 大概 貌似是这个的把。。
自己琢磨吧 -_-!!
  1.         Dim a, b As Integer
  2.         Dim sum As Single
  3.         a = Val(TextBox8.Text)
  4.         b = Val(TextBox7.Text)
  5.         sum = 1
  6.         For c = a To b
  7.             sum = sum + (-1)^(c-1)*(1/2^c)
  8.             c = a + 1
  9.         Next c
  10.         Label13.Text = sum
复制代码

UID
1401859
帖子
20755
PB币
72762
贡献
3
技术
2055
活跃
260

8周年庆典勋章

发表于 2012-11-22 15:11:15 IP属地台湾 来自手机 |显示全部楼层
shiniv 发表于 2012-11-22 14:57
乱蒙的

上完課回去在看看

Rank: 9

UID
321206
帖子
655
PB币
371
贡献
0
技术
31
活跃
1563
发表于 2012-11-22 15:18:15 IP属地江苏 来自手机 |显示全部楼层
会c不会vb的路过

UID
597645
帖子
45227
PB币
51963
贡献
0
技术
776
活跃
1078

应用界 荣誉会员 水神勋章

发表于 2012-11-22 15:22:12 IP属地北京 |显示全部楼层
人工置顶~

Rank: 9

UID
321206
帖子
655
PB币
371
贡献
0
技术
31
活跃
1563
发表于 2012-11-22 15:24:00 IP属地江苏 来自手机 |显示全部楼层
本帖最后由 hellozhangx 于 2012-11-22 15:32 编辑

要用循环
循环体内的内容是
m=0.0;
do i=1,n;
m=m+1/i;
end do;

当然这是c的写法

Rank: 20Rank: 20Rank: 20Rank: 20

UID
628310
帖子
88790
PB币
14447
贡献
3
技术
0
活跃
1125
发表于 2012-11-22 17:09:10 IP属地浙江 |显示全部楼层
兔兔的帖子要顶

UID
1401859
帖子
20755
PB币
72762
贡献
3
技术
2055
活跃
260

8周年庆典勋章

发表于 2012-11-22 17:20:17 IP属地台湾 |显示全部楼层
shiniv 发表于 2012-11-22 14:57
乱蒙的下面的这个完全不懂语法。。
应该 大概 貌似是这个的把。。
自己琢磨吧 -_-!!

不行啊....都錯誤

我这是在哪

UID
2266471
帖子
13626
PB币
100289
贡献
1
技术
52
活跃
7534

The Big Rich Man! 荣誉会员 7周年庆典勋章 应用界 8周年庆典勋章 铁杆球迷 9周年庆典勋章

发表于 2012-11-22 17:26:49 IP属地广西 |显示全部楼层
道奇兔 发表于 2012-11-22 17:20
不行啊....都錯誤

没办法 我不会VB语言 只能蒙。。

UID
1401859
帖子
20755
PB币
72762
贡献
3
技术
2055
活跃
260

8周年庆典勋章

发表于 2012-11-22 17:29:50 IP属地台湾 |显示全部楼层
shiniv 发表于 2012-11-22 17:26
没办法 我不会VB语言 只能蒙。。

悲劇阿           沒人會阿
呼叫小aa幫忙

UID
1401859
帖子
20755
PB币
72762
贡献
3
技术
2055
活跃
260

8周年庆典勋章

发表于 2012-11-22 17:41:06 IP属地台湾 |显示全部楼层
shiniv 发表于 2012-11-22 17:26
没办法 我不会VB语言 只能蒙。。

你用C語言的方式去寫  我去轉換成VB看看

UID
1401859
帖子
20755
PB币
72762
贡献
3
技术
2055
活跃
260

8周年庆典勋章

发表于 2012-11-22 17:41:38 IP属地台湾 |显示全部楼层
hellozhangx 发表于 2012-11-22 15:24
要用循环
循环体内的内容是
m=0.0;

你用C語言的方式去寫  我去轉換成VB看看

你的微笑

Rank: 11Rank: 11Rank: 11

UID
1955082
帖子
5526
PB币
760
贡献
0
技术
11
活跃
574

数码达人 8周年庆典勋章

发表于 2012-11-22 18:06:39 IP属地陕西 |显示全部楼层
什么都不会的路过

MT果然好用

Rank: 19Rank: 19Rank: 19

UID
1598684
帖子
14364
PB币
8
贡献
0
技术
714
活跃
1392

7周年庆典勋章 荣誉会员 8周年庆典勋章

发表于 2012-11-22 18:16:21 IP属地江苏 |显示全部楼层
道奇兔 发表于 2012-11-22 17:41
你用C語言的方式去寫  我去轉換成VB看看

我用的就是C语言的方式
写的是循环体内的内容

Rank: 1

UID
2540156
帖子
100
PB币
11
贡献
0
技术
0
活跃
68
发表于 2012-11-22 18:30:05 IP属地广东 |显示全部楼层
这个必须顶,
回顶部
Copyright (C) 2005-2024 pcbeta.com, All rights reserved
Powered by Discuz!  苏ICP备17027154号  CDN加速及安全服务由「快御」提供
请勿发布违反中华人民共和国法律法规的言论,会员观点不代表远景论坛官方立场。
远景在线 | 远景论坛 | 苹果论坛 | Win11论坛 | Win10论坛 | Win8论坛 | Win7论坛 | WP论坛 | Office论坛