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設計程式，有兩個題目
我遇到VB的問題，想請大師幫忙解決，謝謝
private sub timer1 timer timer1.enabled falseif label1.left 1000 then 這裡的 1000根據你的label1的長度來定.label1.left me.widthelse label1.left label1.left 20 20表示...
VB問題，我編的程式不好用，請幫忙
這個是郵箱嗎？我發給你，只是我自己編的 private sub command1 click dim shengao as integer,tizhong as integer dim biaozhun shuchu shenggao val text1.text tizhong val text2...
關於vb的問題
僅供參考 private sub command1 click dim warning as string dim sql as string warning 輸入有效性判斷。if textuser then warning warning 使用者名稱 if textpassword then wa...