第一道題
uj5u.com熱心網友回復：
第二道
uj5u.com熱心網友回復：
1Private Function Get_Years(ByVal Amount As Double, ByVal Interrest As Double) As Long
Dim i As Long, n As Double
If Amount = 0 Or interrest = 0 Then Exit Function
n = Amount
Do Until n >= 1000000
n = n * (1 + Interrest)
i = i + 1
Loop
Get_Years = i
End Function
Private Sub Command1_Click()
Text3 = "In " & Get_Years(Val(Text1), Val(Text2)) & "years you will have a million."
End Sub
uj5u.com熱心網友回復：
2Private Sub Command1_Click()
Dim n As Double, m As Double
n = Val(Text1) - 40
m = Val(Text2)
Text3 = n
Text4 = Format(40 * m + n * m * 1.5, "standard")
End Sub
uj5u.com熱心網友回復：
第一題不應該用比扳指頭更數學的演算法嗎？Private Function Get_Years2(ByVal Amount As Double, ByVal Interrest As Double) As Long
Dim y As Double
If Amount = 0 Or Interrest = 0 Then Exit Function
y = Log(1000000 / Amount) / Log(1 + Interrest)
Get_Years2 = RoundUp(y)
End Function
Function RoundUp(ByVal v As Double) As Double
RoundUp = Fix(v) + Sgn(v - Fix(v))
End Function
uj5u.com熱心網友回復：
這問題....是單利還是復利都不說清楚, 換了俺還不掀桌啦.
第二題...
uj5u.com熱心網友回復：
出這種題的人都是猴子派過來的么.uj5u.com熱心網友回復：
所以按那種方法都對，要是不對——去砸出題人家的玻璃好了。uj5u.com熱心網友回復：
呵呵，在計算機的環境下，有時用回圈的方式更有效。實際上，在底層，你的乘法很可能就是加法，大不了移位加，而且是二進制的。考這個題，考的就是計算機思維。uj5u.com熱心網友回復：
這樣的“計算機思維”只適合匯編程式員。數學只要扳指頭水平的程式員，取記錄數也會一條條數，真有思維！
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
去看看很多非線性演算法的實作，你就明白了。實際上，在計算機中顯示對數等運算是相等復雜的，需要更多的資源。在某些情況下，這些運算的底層，也是通過回圈逼近實作的。不過在高級編程界面看上去“高大上”罷了。
你可以試一下，在一些資源較少的環境下，例如單片機，采用回圈逼近比實作復雜的運算代碼可能還要快。
計算機不僅僅是數學。它可以解決數學問題，但它更是一臺跑得更快的機器。比如，計算圓周率。并不是計算機中實作了什么更高級的演算法，而是它可以更快速地回圈。
計算機原理的初級課程中，就有一部分是教初學者熟悉使用計算機的回圈功能來實作多種演算法。最常見的例子，就是開方。在計算機中，我們并不使用數學課中的開方演算法，而是采用回圈逼近演算法。
我一直認為老虎是個計算機方面資深的老手。這次的言論令我十分吃驚。
uj5u.com熱心網友回復：
你才讓我吃驚呢？
如果是剛畢業的學生菜鳥，教材由一幫（專長是單片機或記憶體以K計的微機）老專家寫的，那么無量化地強調效率（記憶體少、用時少）還可以理解。
但是作為有長期作業經驗的老鳥，效率首先考慮的是產出/投入。
如果有現成模塊可用但是用時0.1秒，專門定制估計能降到0.01秒，就算差一個數量級還是選現成的。
至少在大多數高級語言的開發中，效率≠性能。
一段數學式的代碼是容易維護的；
而一段莫名演算法的代碼大概是這樣的——這個陳述句什么意思？尼瑪檔案呢？尼瑪代碼怎么和檔案說的不一樣啊！
高級語言就是這種基礎性演算法封裝好，當黑盒拿來用就行。
軟體工程不就是為了更好地分工合作嚒。
uj5u.com熱心網友回復：
考試你碼只會出這么弱智的題目，中國教育哎
uj5u.com熱心網友回復：
出這些題恐怕只是為了讓學生掌味訓本語法而已轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/115377.html
標籤：VB基礎類
上一篇：VB如何通過列印機驅動開錢箱？
下一篇：請問怎么使用VB實作串口通信？