編寫vb程式,求1編寫一個vb程式,求11213141n的值。測試資料n50答案

2021-03-08 19:05:00 字數 2295 閱讀 9066

1樓:匿名使用者

private sub ***mand1_click()print "第3題:";

dim n as integer, s as doublen = inputbox("n=", , 50)for i = 1 to n

s = s + 1 / i

next i

print "sum(" & n & ")="; format(s, "0.00")

end sub

private sub ***mand2_click()print "第4題:";

dim n as integer, s as doublen = inputbox("n=", , 50)for i = 1 to n

s = s + (-1) ^ (i - 1) * (1 / i)next i

print "sum(" & n & ")="; format(s, "0.00")

end sub

private sub ***mand3_click()print "第5題:";

dim n as integer, s as doublen = inputbox("n=", , 20)for i = 1 to n

for j = 1 to i

s = s + j

next j

next i

print "sum(" & n & ")="; send sub

private sub ***mand4_click()print "第6題:";

dim n as integer, s as doublen = inputbox("n=", , 50)for i = 1 to n

if i mod 3 = 0 or i mod 7 = 0 thens = s + i

end if

next i

print "sum(" & n & ")="; send sub

private sub ***mand5_click()print "第7題:";

dim n as integer, s as doublen = inputbox("n=", , 10)s = 1

for i = 1 to n

s = s * i

next i

print n & "!="; s

end sub

2樓:

^^private sub form_click()dim i as integer

dim x as single

for i = 1 to 50

x = x + 1 / i

next

print x

end sub

private sub form_click()dim i as integer

dim x as single

for i = 1 to 50

x = x + (-1) ^ (i - 1) / inext

print x

end sub

函式遞迴

private sub form_click()print f(50)

end sub

public function f(x as integer) as single

if x > 1 then

f = f(x - 1) + (-1) ^ (x + 1) / xelse

f = 1

end if

end function

vb程式設計計算1+1/2!+1/3!+1/4!+1/5!的值

3樓:哪呢

private sub ***mand1_clickdim s as integer, i as integer, c as integer

s=0c=1

for i =1 to 5

c=c*i

s=s+i/c

next i

4樓:會飛滴包子

private sub ***mand1_click()n=inputbox("請輸

入n:")

dim a as integer

a = 1

dim sum as double

for i = 1 to n

for j = 1 to i

a = a * j

next

sum = sum + 1 / a

a = 1

next

print sum

end sub

用VB編寫一個鬧鐘程式

做一個簡單的鬧鐘程式很簡單的。我這裡不用if語句。首先我們在窗體上新增一個標籤控制元件,再畫一個 鬧鐘 將鬧鐘得interval屬性改為1000,雙擊鬧鐘,進入鬧鐘的 檢視,編寫 private subtimer1 timer timeend sub就行了。謝謝。dimttime s asinteg...

vb編寫程式計算分段函式,VB編寫程式,計算分段函式

在窗體上放一個命令按鈕,將 複製到窗體裡,程式執行單擊一次命令按鈕可輸入一次n的值 如下 private sub command1 click dim n,y as single n inputbox 請輸入n的值 select case n case is 0 y 2 n 5 case 0 y 0...

編寫VB程式,求Sn a aa aaan個a 的值,其中n是表示a的個數,a是

dim sn,a,n,i,m m 0sn 0 a int rnd 10 n text1.text for i 1 to n m 10 i 1 a m sn sn m next i 應該就是這樣了,有點久沒用vb,有點忘了 private sub form click dim sn a int rnd...