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 分鐘要將心裡的怨氣發洩出來 再坐在沙發上靜靜地...