vb如何編寫每兩秒就-
1樓：網友
在窗體上加入乙個timer控制項。
private sub form_load()text1 = 10
text2 =
end sub
private sub timer1_timer()if text2 = then
text2 = text1 - 1
elseif text2 > 0 thentext2 = text2 - 1
end if
end sub
1/2*1/3*1/4*……*1/100用vb怎樣編寫
2樓：涐吢銥舊囿儚
這個用「乘以倒數」的計算方法來寫**，有點多餘。
直接做除法就行了：
private sub command1_click()dim d as double, i as longd = 1
for i = 2 to 100
d = d / i
nextmsgbox "運算結果為：" & d, 32end sub
用vb編乙個可以計算兩個時間差（以秒計算）的簡單程式應該怎樣做啊，謝謝了
3樓：卡巴
dim h as string '第1時間的小時。
dim h2 as string '第2時間的小時。
dim m as string '第1時間的分鐘。
dim m2 as string '隱告第2時間的分鐘。
dim s as string '第1時間的秒。
dim s2 as string '第2時間的秒。
dim sjc as long '時間差亮攜啟。
if hh=val(h)-val(h2)
end if
if mm=val(m)-val(m2)
end if
if ss=val(s)-val(s2)
end if
sjc=(val(h)*3600)+(val(m)*60)+val(s)
具體的你自己再改敬如改就行了。
用vb怎麼編寫2/1 3/2 5/3....這個數列
4樓：網友
定義三個陣列，表示分子a和分母b和各項值c初始化前兩項的值。
a[0]=2 a[1]=3
b[0]=1 b[1]=2
分子a[n]=a[n-1]+a[n-2]
分母b[n]=n 或是 b[n]=b[n-1]+b[n-2]c[0]=a[0]/b[0] c[1]=a[1]/b[1]sum=c[0]+c[1]
獲取n的值後，迴圈計算每項值，並求和：
for i=2 to n-1
a[i]=a[i-1]+a[i-2]
b[i]=i 或是 b[i]=b[i-1]+b[i-2]c[i]=a[i]/b[i]
sum=sum+c[i]
next
5樓：網友
第一項：分母初始為2，分子初始為1
第二項：分母為第一項的分母+分子，分子為第一項的分母以下類推。
假設f()陣列為數列，fm()陣列為分母，fz()陣列為分子fm(1)=2
fz(1)=1
f(1)=fm(1)/fz(1)
fm(2)=fm(1)+fz(1)
fz(2)=fm(1)
f(2)=fm(2)/fz(2)
以下開始用i表示了（其實第二項，就可以用i表示了）fm(i)=fm(i-1)+fz(i-1)fz(i)=fm(i)
f(i)=fm(i)/fz(i)
如何用vb編寫乙個將數字1到8隨機排序的程式？
6樓：反轉
新增乙個按鈕command1
然後新增如下**，執行後點選按鈕就出來了。我相信你很容易理解這**。
private sub command1_click()dim i as integer, s as stringfor i = 1 to 8
randomize 』初始化隨機數發生器。
s = s & int(rnd * 8) +1 & ","
next i
print s
end sub
兄弟，不好意思，我理解錯了。給你補上。是要陣列，**如下private sub command1_click()dim i, j as integer, s(1 to 8) as integer '聲名。
randomize '初始化隨機數。
i = 1do while (i <= 8) '這是do迴圈，迴圈條件是i<=8
bo = false
s(i) = int(rnd * 8 + 1) '隨機從8個數中取乙個數，可能會取到重複的。
for j = 1 to i - 1 '檢查先前有沒有重複的if s(j) = s(i) then '找到重複的數，則跳到a位置goto a '跳到a位置。
end if
next j
print s(i) '如果上面一直沒找到重複的數，則會執行列印i = i + 1
a:loop
end sub
1*3*5*7*…*99 編寫vb程式
7樓：戀紅
這串數字計算結果應該是非常大的數吧，可能會出現溢位的情況。可以考慮使用雙精度的資料型別來計算，可以修改如下：
dim s as double
s = 1for i = 1 to 99 step 2s = s * i
next i
msgbox s
VB編寫公式
si ni 是什麼，我這裡使用簡單的函式 fs fn 來表示，你可以修改這些函式，實現你需要的功能。private function fs byval i as long as double fs i end function private function fn byval i as long ...
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程式，求1編寫一個vb程式，求11213141n的值。測試資料n50答案
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 su...