求vb高手解決，求VB高手解決濾波問題

1樓：扈懷煒

定義一個陣列，初始化陣列，把資料寫入 list1，然後排序，資料寫入list2

option base 1

dim arr(15) as integerfor i=1 to 15

arr(i)=rnd(100)+899

list1.additem arr(i)

next

for i=1 to 14

k=ifor j=i to 15

if arr(k)

k=jendif

next

t=arr(i)

arr(i)=arr(k)

arr(k)=t

next

for i=1 to 15

list2.additem arr(i)

next

2樓：

private sub command1_click()randomize

dim aa(1 to 15) as integerdim i, j as integer

dim randdata, change as integeri = 1

form1.list1.clear

form1.list2.clear

do while i <= 15

randdata = int(rnd() * 1000)if randdata >= 100 thenaa(i) = randdata

form1.list1.additem aa(i)i = i + 1

end if

loop

for i = 2 to 15

for j = i to 15

if aa(i - 1) < aa(j) thenchange = aa(i - 1)

aa(i - 1) = aa(j)

aa(j) = change

end if

next j

form1.list2.additem aa(i - 1)next i

form1.list2.additem aa(15)end sub

3樓：

private sub command1_click()dim i as integer, a(15) as integerrandomize

for i = 1 to 15

a(i) = int(rnd * 900 + 100)list1.additem a(i)

next i

for i = 1 to 14 '選擇法排序for j = i + 1 to 15

if a(i) < a(j) then '從小到大temp = a(i)

a(i) = a(j)

a(j) = temp

end if

next j

next i

for i = 1 to 15

list2.additem a(i)

next i

end sub

我才考完這個 呵呵！

求vb高手解決濾波問題

4樓：匿名使用者

簡單的話可以這樣：

取第k個數值及其後面相鄰的n個數值，求平均值，賦給第k個數值。

以前做過，效果還可以，這裡的n得自己試：大了失真，小了無效。

5樓：匿名使用者

同學 我也在研究這個問題 。。。。你研究出來了嗎?

6樓：匿名使用者

dim n as single

private·····

即把n定義為全域性變數，用cls

dim n as single

private sub timer1_timer()form1.scale (-400, 400)-(400, -400)

clsx = 50 * sin(n)

y = 50 * cos(n)

circle (x, y), 10

if n < 10 then

n = n + 0.5

else

exit sub

end if

end sub

別忘了把timer屬性改一下

7樓：匿名使用者

象**軟體那樣 畫個5日或者10日**？

求vb高手解答

8樓：扶桑看天

不用想的太複雜,就是處理一個長整形變數,拆分取出需要的部分

求高手重寫vb方法 迴歸分析，求高手重寫vb方法 迴歸分析

public string funregression double arrx,double arry,integer ncount sumx sumy sumx2 sumy2 sumxy 0.0 for int k 0 k ncount k double m ncount sumxy sumx s...

vb問題高手請進,vb問題高手請進！

我給你說一下我原來怎麼做的 老師教的在輸入資料時用控制元件陣列的index我用的是caption 這樣可以輸入小數點計算時查詢運算子 將這個符合的前面和後面的字串分開 再進行運算 不知道這樣可不可以 不知你的資料是怎麼輸入的,小數點又是怎麼輸入的,這些都不知道,不好說哦.一般就是判斷在輸入資料裡是不...

求高手解決高中化學平衡問題， 高分 求高手解決高中化學平衡問題

第二問 由於氫氣的濃度是不變的，又co和ch3oh的係數相等，所以不論體積怎麼變化，反應都相當於是一個前後體積不變的反應，因此改變體積平衡不移動。第三問 1 因為生成甲醇的反應時放熱反應 第一問中焓變 0 所以降低溫度，平衡向放熱方向移動，即轉化率增大的方向，而圖中的三條曲線中，x表示的轉化率最大，...