vb求助高手指點,求助各位高手指點小弟

時間 2022-08-10 12:20:03

1樓:學古箏

xjnzhidao 已經回答了你的前兩個問題,我就不再贅述了,

我仔細看了你的隨機生成那一部分,我看你的意思是在23456 to 20345678內生成20個不重複的隨機數,我想你是改自其他的一個**,不過沒有理解其意思。這兩句應該是這樣的

1、istart = istart + 23456 '下次隨機生成時,少生成一個

這個istart應該是陣列下標(最小的那個)原來的應該是1,所以你改了,不過這裡的1不應該改

還是istart = istart + 1 就對了

也就是istart = istart + 23456 改為 istart = istart + 1

2、if istart > 20 then exit do這句是需要改的,istart 是最小下標,你的最小的也是23456自然這個是不合適的。

應該改為 if istart >(23456-1)+20 then exit do

注意這裡應該是23455+20才能產生20個

還有就是

list1.additem cstr(sreturn)

這句話,sreturn是陣列中的數字加上回車換行,你加上list裡面不知道你的意思,加進去就是一長串數字啊

2樓:匿名使用者

private sub command1_click 是從form1呼叫這個嗎

vb中e的近似值怎麼程式設計 求高手指點

3樓:季綠柳鄞玥

假定窗體form1上有一個label1控制元件用來顯示結果,那麼,只需要在form1_load()中加入以下語句即可:

label1.caption

=round(

exp(1),5)

4樓:匿名使用者

private sub form_click()dim e#, i!, t#

e = 1

i = 1

t = 1

do while (1 / t) >= (10 ^ -4)t = t * i

e = e + 1 / t

i = i + 1

loop

print e

end sub

5樓:匿名使用者

這就是do loop while a啊

private sub form_click()dim tal as double, lin as double, i%

i = 0: lin = 1

do'e≈1+(1/1!)+(1/2!)+(1/3!)+…+(1/n!)

tal = 1

i = i + 1

for j = 2 to i

tal = tal * j

next j

lin = lin + 1 / tal

loop while 1 / tal >= 0.0001print lin

end sub

求助各位高手指點小弟

6樓:愛卡

thinkpadsl410 2842evc 機器是上市的型號,沒有藍芽。

office都是試用版本,金鑰需要自己單獨購買

求高手指點vb程式設計 以下程式的執行結果是 private sub command1_click()

7樓:匿名使用者

private sub command1_click()

for i = 1 to 10

getvalue i

next i

print getvalue(i)

end sub

private function getvalue(byval a as integer)

static s as integer

s = s + a

getvalue = s

end function

'因為s是靜態變數,所以每次執行完後s的值會保留

'當i=1 時,呼叫  getvalue i  ,s的值是1,s=s+a=0+1=1

'當i=2 時,呼叫  getvalue i  ,s的值是1,s=s+a=1+2=3

'當i=3 時,呼叫  getvalue i  ,s的值是3,s=s+a=3+3=6

'當i=4 時,呼叫  getvalue i  ,s的值是6,s=s+a=6+4=10

'當i=5 時,呼叫  getvalue i  ,s的值是10,s=s+a=10+5=15

'當i=6 時,呼叫  getvalue i  ,s的值是15,s=s+a=15+6=21

'當i=7 時,呼叫  getvalue i  ,s的值是21,s=s+a=21+7=28

'當i=8 時,呼叫  getvalue i  ,s的值是28,s=s+a=28+8=36

'當i=9 時,呼叫  getvalue i  ,s的值是36,s=s+a=36+9=45

'當i=10 時,呼叫  getvalue i  ,s的值是45,s=s+a=45+10=55

'當i=11時,迴圈結束,此時i的值為11

'執行print  getvalue(i)

'此時呼叫  getvalue i  ,s的值是55,s=s+a=55+11=66

'所以最後輸出66

'同樣的道理,如果你再次點選,s的值開始為66,最後將輸出132,

'依次類推,執行程式後,每次單擊,輸出結果依次為66,132,198,264..............

8樓:匿名使用者

執行結果是:66

相當於從1 加到 11 。

private sub command1_click()for i = 1 to 11

x = i + x

next

print x

end sub

9樓:不想起名字了

程式執行結果是 66

vb語言中先對一個數求餘數(mod)在對一個數求模(/)有什麼作用求高手指點 10

10樓:網海1書生

這要看你用在什麼場合,比如要把1234這個數分解為12和34兩個數,可以這樣:

k1 = 1234 mod 100   '=34

k2 = int(1234 / 100)   '=12

在數學中,商和餘數本來就是同一個除法運算的運算結果的組成部分(無法除盡的自然有商和餘數,能除盡的也是有餘數的,0也是數啊),比如上面的兩個語句在數學中可以這樣表示:

1234 ÷ 100 = 12 ... 34

所以mod和/結合使用是非常自然的事,一點也不奇怪,一個求商,一個求餘數,簡單得很。至於在程式設計中有什麼作用,要根據具體情況來看,並沒有所謂的「總結性回答」。

另外糾正你一點:求模與求餘數是同一個概念(mod的英文原意是求餘數,而讀音與「模」諧音,所以又叫求模),/則是普通的除法運算,或者叫求商。

11樓:匿名使用者

你的問題就不對!模和餘數是一個運算子mod。mod和整除運算子常用來取取數。例如:

a=12345, a=a mod 10 則將a中的5取出, a=a\10 取1234兩者聯合使用可以從a中取出任意一個數。

12樓:聽不清啊

你最好把具體的語句拿出來才能說得清楚。通常用在分離各位數字中:

以a=12345為例,

a\10000=1

a mod 10000\1000=2

a mod 1000 \ 100=3

a mod 100 \10 =4

a mod 10=5

也可使用以下方法:

a\10000=1

a\1000 mod 10=2

a\100 mod 10=3

a\10 mod 10=4

a mod 10=5

急求助法律高手指點(實時彙報事態進展)

1 屬於。還可以要求合同簽訂後期間的實際經營損失,如房租,利息等費用,如果認為違約金過分少於實際損失可向法院起訴要求適當增加,按照你所說的情況應該會獲得法院支援。2 沒有。合同簽訂後如要變更或解除合同需合同當事人協商一致,否則構成違約,守約方可以要求賠償或要求違約方繼續履行合同。3 可以主張賠償。但...

一定要愛她,!戀愛求助!請高手指點!謝了!

可以以一起學習的名義接近她,這樣她不會有心理負擔,說不定在不知不覺中就在一起了。那你就先好好學習,關鍵是你覺得值不值得,值得的話就儘量要和她靠齊,她在哪上高中你就在哪上,再就是要把學習學好,那樣你們放學可以一起,有不會的問題也可以一起討論,既能學好習又能增加感情。那就要看你是不是一定要愛她呢?喜歡就...

求心理高手指點啊,心理高手指點

清者自清,何須想那麼多 心理高手指點 可能現在工作或生活的節奏不斷加快給你帶來極大的精神壓力,感覺心理緊張,需要調節。適當調整工作與休息的時間,定好鍛鍊身體的時間,經常散散心,放鬆繃緊的神經。如何緩解和消除精神壓力呢?緩解壓力的方法 回家後先大聲吼 5 分鐘要將心裡的怨氣發洩出來 再坐在沙發上靜靜地...