1樓：岔路程式緣
dim c(10) as single, v(10) as single
private sub command1_click()
dim i as integer, j as integer
form1.autoredraw = true
clsprint "原始資料是："
print "v"; space(3);
for i = 1 to 10
v(i) = val(inputbox("請輸入第 " & i & " 個 v 的值", "輸入v", i))
print format(v(i), "###0.00"); space(3);
c(i) = val(inputbox("請輸入 v=" & v(i) & " 對應的 c 值", "輸入c", v(i) * 1.2))
next
print "c"; space(3);
for i = 1 to 10
print format(c(i), "###0.00"); space(3);
next
for i = 1 to 9
for j = i + 1 to 10
if v(i) > v(j) then
v(0) = v(i)
v(i) = v(j)
v(j) = v(0)
c(0) = c(i)
c(i) = c(j)
c(j) = c(0)
end if
next
next
end sub
private sub command2_click()
dim v1 as single
dim i as integer, k as integer
v1 = val(inputbox("請輸入要計算的速度 v 的值", "輸入v", v(3)))
for i = 1 to 10
if v(i) = v1 then
print "已經找到與速度 v = " & v1 & " 相對應的 c 值 = " & c(i)
print "因沒有公式 1 , 無法計算，程式到此結束"
exit sub
end if
next
if v1 < v(1) or v1 > v(10) then
print "你輸入的 v = " & v1 & "的值太大或太小，找不到兩個跟它最接近的值"
print "不能完成題目要求，程式終止"
exit sub
else
for i = 2 to 10
if v1 < v(i) then
print "已經找到與速度 v = " & v1 & " 最接近的兩個速度 v 的值，它們分別是：" & v(i - 1) & " 和 " & v(i)
print "因沒有公式 2 , 無法計算出與 v = " & v1 & " 對應的c，程式到此結束"
exit sub
end if
next
end if
end sub
private sub form_load()
command1.caption = "輸入原始資料"
command2.caption = "計算"
end sub
2樓：匿名使用者
那你這樣呀？
dim v(10),c(10)
v(1)=??:v(2)=??:v(3)=??:v(4)=??:。。。。。。v(10)=??
c(1)=??:c(2)=??:c(3)=??:c(4)=??:。。。。。。c(10)=??
這個問號，就是你自己的具體資料，這些資料v從小到大排列！！！
dim i as integer
dim mmax as integer,mmin as integer,k as integer
dim vv
vv = val(inputbox("輸入一個速度"))
for i=1 to 10
if vv = v(i) then
k=iexit for
end if
if i<=9 and vv>= v(i) and vv <= v(i+1) then
mmin = i
mmax = i +1
end if
next i
if k<>0 then
'這裡用公式一，速度用 v(k)
else
if mmax<>0 and mmin<>0 then
'這裡用公式二
end if
end if
3樓：匿名使用者
指導意見：
您好，帶狀皰疹屬於病毒感染，主要以抗病毒**，建議輸液**：頭孢曲松鈉、利巴韋林注射液、維生素c注射液靜滴。注意飲食，忌魚蝦、香菜、脂肪類、辛辣刺激性食物。
避免抓撓，注意衛生。祝**。
求大神幫寫一個vb**，題目如下，就是下圖中的第三題 a、b、c、d、e這5個人合夥夜間捕魚，凌
4樓：慶年工坊
dim sm(5)
sub s()
i = 1
dop i, 5
i = i + 1
loop
end sub
sub p(i, n)
sm(n) = i * 5 + 1
if n = 1 then
for j = 1 to 5
debug.print sm(j),
next
endelse
if sm(n) mod 4 = 0 then p sm(n) / 4, n - 1
end if
end sub
5樓：匿名使用者
我可以幫你 需要si聊我
6樓：匿名使用者
還有春溫?百年漂洗，記憶
編寫一個c語言程式求1~10的階乘。求大神幫助！
7樓：匿名使用者
#include
void main()
print("%d",c);//迴圈輸出每個數的階乘}}這是在網上隨便找了一個，按照你的要求改了改
8樓：匿名使用者
#include "stdafx.h"
long fun(int);
int main(int argc, char* argv)return 0;
}long fun(int m)
else if(m==0)
else
return sum;}
9樓：史瑞擺渡
i＝1;
sum＝1;
dosum＋＝i＊i＋＋;
while i<＝11;
求大神幫忙，用vb設計程式，有兩個題目
關於dell電腦開機問題請高手大神幫忙
你的電腦的bios 有問題，可能是cmos電池沒電了，你先拿去維修點恢復下bios，在換個主機板電池就可以了，還有一種可能就是系統的問題了，我的電腦前一段時間裝的是xp，總是提示f1,f2。後來換了vista，就不會了。再說如果你的是膝上型電腦的話，有的主機板電池市面上時買不到的。所以你可以先換一下...
vb裡check問題，急急急，關於VB的問題！！急急急急急急急急急急急急急急急急
把三個 check 做成控制項陣列，下標為 0 1 2，然後 在 check1 的 click 事件裡輸入以下 text1.text if check1 0 value then text1.text text1.text 音效卡 if check1 1 value then text1.text ...
VB的問題，請高手來
要在picture控制項或form裡使用print時.需將 autoredraw 屬性設定為true 或者將事件寫入 picture1 paint 事件中均可 private type student xm as string 4 bysj as date ksfs as single end ty...