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 ...