1樓:迷途和尚
首先新建乙個標準工程,在窗體中新增乙個command1命令按鈕,在其中加入下面**:
private sub command1_click()
dim a(9) as integer '定義乙個陣列,存放十個兩位數。
dim n as integer '用於迴圈十次。
dim sum as integer '存放元素之和。
dim svalue as single '存放平均值(平均值可能有小數字,因此使用單精度)
dim max as integer '存放當前最大的值。
dim maxindex as integer '存放最大數的元素下標。
'--下面**是產生十個兩個數到陣列a()
randomize timer '產生真正不重複的隨機數。
for n = 0 to 9
a(n) =fix((rnd * 89) +10) '保證隨機數在10-99之間。
sum = sum + a(n) '計算和。
if a(n) >max then
max = a(n) '總是存放最大的值。
maxindex = n '總是存放最大的值的下標。
end if
next svalue = sum / 10 '計算平均值。
'--下面**是輸入結果。
print "各元素之和:" sum
print "元素平均值:" svalue
print "比平均值大的各元素:" 用下面迴圈計算出。
for n = 0 to 9
if csng(a(n)) svalue then 'csng函式是強制改變資料型別,這是的將整型改改單精度。
print a(n)
end if
next print "最大值及其元素下標:" max & maxindex &
'--下面是列印分隔線。
print "-
printend sub
執行上面程式可以得到你想要的結果。
祝你學習進步。
2樓:匿名使用者
發給你了 自己看資訊吧。
以前我也做過的。
vb的簡單程式設計
3樓:匿名使用者
用log 函式 + 換底公式。
log(number):返回數值 number 的自然對數。
nnumber 引數是任意大於 0 的有效數值表示式。
說明自然對數是以 e 為底的對數。常數 e 的值約為 。
用 n 的自然對數除 x 的自然對數,可以得到以 n 為底的 x 的對數。如下所示:
log n(x) =log(x) /log(n)以下示例為乙個自定義的 log10(x) 函式過程,該過程計算以 10 為底的對數:
function log10(x)
log10 = log(x) /log(10)end function
你要求的 log5 10 是:log(10) /log(5)
4樓:匿名使用者
根據換底公式 以十為底的對數可以用 log(10)/log(5)表示。此題可簡化為:/log(5)。
通用的:loga b =log(a)/log(b)==
您的問題==我的課題 奉獻知識==輝煌生命黑龍江省 張志晨。
5樓:網友
log(10);
log5(10)用換底公式解決就ok啦,log(10)/log(5)
求用vb解答
6樓:聽不清啊
製作這個程式的時候先在窗體中加入乙個標籤,並且把窗體標籤的內容設定為空,然後再製作乙個命令按鈕,也把命令按鈕的顯示改為開始,再加入乙個定時器控制項。核心在於計時器控制項中。需要設定乙個全域性變數t,並且在窗體的裝載事件中設定t的值為60,並且把標籤的顯示就是等於t。
然後設定定時器控制項的屬性,時間屬性為1000毫秒,每隔1000毫秒之後,定時器控制項就觸發一次,把t的值減1,並且更新標籤的顯示內容,當t的值達到0的時候就不顯示0,而是顯示「時間到」三個漢字。並設定定時器控制項的interval屬性為0
dim t as integer
private sub form_load()t = 60 = t
= 開始"
end sub
private sub timer1_timer()t = t - 1
if t > 0 then
= t = 時間到"
end if
end sub
我想學 程式設計 , 大家都說從vb開始 ,我不知道對不對,希望推薦一下!
7樓:匿名使用者
絕對錯誤,vb嚴格意義上說都不能算是程式語言,參雜了太多微軟的東西還是先學c語言,我保證你不會後悔。
《c語言程式設計》譚浩強寫的,不錯。
編譯器很多,上網搜「c語言編譯器」就出來了。
8樓:龍魔王者
如果你要入門,我建議學c++吧,它是c語言的公升級版,而且功能比c好,容易學。c的話操作有點麻煩,沒有c++的操作方便,而且容易理解。
9樓:瘋狂的羅素
可以到書店買一本《c語言教程(第三版)》清華大學出版社,譚浩強主編,綠顏色的封皮,內容對於初學者相當不錯!現在許多大學都把它作為基礎教材。老師推薦的。
10樓:月夜幽蘭
強烈建議學c語言,去買譚浩強編寫的《c程式設計》這本書,我大一時學的就這本,寫得很不錯,適合初學者,而且c語言學好了再學c++就能更好的理解了,其他的編譯語言也比較好學了。
vb新手求教
11樓:涐吢銥舊囿儚
你的問題描述很模糊呀。
按一般的理解,你的x、y、z 都應該是整數的吧。
這「如數值表中y值有24、27,而3*y返回值可能是26」,怎麼理解啊?
3*y應該就是3的倍數,都有24、27了,怎麼會取到26呢?
你說的「已知x的數值,要求返回3*y對應的x、z值」,應該是先按x的值,查到它對應的y值吧?
然後把這個y乘以3,按這個乘積再在y值查詢,找到後得到對應的x和z吧?
只是真的無法理解你說的「如數值表中y值有24、27,而3*y返回值可能是26」是怎麼回事了。
再談下查表方法吧。你的描述中只說了x、y的「查詢」,如果x和y的值域不是很大,可以建立乙個。
「稀疏表」,雖然記憶體多消耗很多(你可以大概算一下實際需求量,幾。
十、近百個m其實都不算啥),但可以極速查詢。
另外乙個比較省資源並且也高效的方法,就是用 dictionary 物件。
要用兩個物件,分別按x值和y值各建立乙個。
這個在。一、兩w個資料內查詢,也是非常快速的。
你的主要問題是,對需求描述不清楚,暫時無法給你具體的實現方案。
12樓:匿名使用者
假設y的值為1~1000,現在y為400,3y為1200,怎麼返回?
簡單vb**等
vb高手來
VB中,簡單的問題 高手幫幫,VB中,一個簡單的問題 高手幫幫
你要的其實就是模擬按鍵 使用keybd event api就能完成。函式vb申明 public declare sub keybd event lib user32 byval bvk as byte,byval bscan as byte,byval dwflags as long,byval d...
簡單的VB題目,乙個簡單的VB題目
首先 function t i as integer as long if i 0 then t 1 else t i t i 1 end if end function 這是乙個功能函式 原型function t i as integer as long 輸入引數 i 為整形 i as integ...
程式的疑問,求高手解答,乙個程式的疑問,求高手解答。
include stdio.h include math.h main else break 這一句不用的。讓迴圈提前結束了。這是著名的哥德 猜想問題。另外除了3 31 5 29,11 23還有17 17 滄海雄風 你的取值範圍有問題 都去了 a 2 sqrt 根本不可能出現大於輸入數字一半的你能把...