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 根本不可能出現大於輸入數字一半的你能把...