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設計程式，有兩個題目
合同問題，請幫忙，關於合同的問題，請幫忙！謝謝！！！
案例分析題1 1 在合同法上稱要約邀請。2 甲廠的答覆，商場給甲廠的第二封信，乙廠的答覆。因為該三者均符合要約的構成要件，因其向特定人發出且內容具體明確如包括具體的 和數量。3 合同不成立，甲廠不可徑直髮貨，因為甲的信件屬於要約，合同的成立須有對方的承諾，而在 合同法 上沉默不視為承諾。故未收到答覆...
問關於VB的問題，問一個關於VB的問題
執行順序如下 注 帶有 的是被執行的語句，後面的數字是被執行的順序。x 0 1 for i 1 to 10 2if i mod 2 1 then 3x x 1 4 else x x 1 end if 5 exit for 6 問題就出在這裡 你退出掉迴圈幹嘛 next i print x 7 結束所...
一個vb控制元件的問題，關於VB模組的問題
在窗體上新增兩個命令按鈕，將第二個命令按鈕command2的index屬性設定為0,下面的 實現點選command1按鈕，將新增一個按鈕，並自動排列。option explicit 輸出十個命令控制元件。dim i as integer private sub command1 click i i ...