網(wǎng)友解答: 首先，你得明確，VB是一種語(yǔ)言，凡是語(yǔ)言都有一定規(guī)范，計(jì)算機(jī)語(yǔ)言在這方面更嚴(yán)格，語(yǔ)言的基本單位是字詞，學(xué)習(xí)一門語(yǔ)言，你不能想當(dāng)然認(rèn)為你學(xué)過(guò)的東西在新的語(yǔ)言中一定適用。向我們翻

首先，你得明確，VB是一種語(yǔ)言，凡是語(yǔ)言都有一定規(guī)范，計(jì)算機(jī)語(yǔ)言在這方面更嚴(yán)格，語(yǔ)言的基本單位是字詞，學(xué)習(xí)一門語(yǔ)言，你不能想當(dāng)然認(rèn)為你學(xué)過(guò)的東西在新的語(yǔ)言中一定適用。向我們翻詞典一樣，VB也有自己的詞典，其中有內(nèi)置的函數(shù)，你可能在想，VB一定認(rèn)識(shí)“arccos”，但實(shí)際上，它的詞典中并沒有這個(gè)詞，但這并不意味著我們拿這個(gè)問題沒辦法，VB有很多函數(shù)、算法實(shí)現(xiàn)這個(gè)目的。

對(duì)于這個(gè)問題，可以用級(jí)數(shù)的方法，或者找到類似的函數(shù)進(jìn)行轉(zhuǎn)換。相似地，VB自帶函數(shù)有cos（余弦函數(shù)）和atn（反正切），考慮到算法最優(yōu)，可以選擇atn。

下面分析反余弦和反正切的關(guān)系。僅從數(shù)學(xué)上推導(dǎo)，設(shè)arccos（x）=y，則x=cosy，1-x2=siny，得到tany=√（1-x2） /x，充分考慮了兩個(gè)函數(shù)的定義域和值域后，關(guān)系是個(gè)類似分段函數(shù)的形式：當(dāng)-1≤x<0時(shí)，arccos（x）=π+atn√（1-x2） /x；當(dāng)x=0時(shí)，arccos（x）=π /2；當(dāng)0<x≤1時(shí)，arccos（x）=π+atn√（1-x2） /x。具體怎么寫，到后面介紹函數(shù)過(guò)程一起帶過(guò)。

再說(shuō)說(shuō)“函數(shù)未申明”什么意思。前面說(shuō)過(guò)，VB有自己的語(yǔ)言體系，沒看到過(guò)的它就不認(rèn)識(shí)，但它也沒有這么死板，你可以把新詞加入到它的詞庫(kù)，比如說(shuō)“arccos”，你得讓VB認(rèn)識(shí)它，就得介紹它，就要用一大堆話解釋它，解釋一次，VB就知道了，以后可以直接用了。在你要經(jīng)常用到“arccos”，給它申明下，寫個(gè)function過(guò)程很有用。

函數(shù)申明的語(yǔ)法

［private］[public]function bb（a as 數(shù)據(jù)類型,b as 數(shù)據(jù)類型……） as 數(shù)據(jù)類型

……

end function

function arccos（x as double）as string

const pi=3.1415926

if x<-1 or x1 then

arccos="無(wú)意義"

else

select case x

case is <0

arccos=str（pi+atn（sqr（1-x^2）/x））

case 0

arccos=str（pi/2）

case else

arccos=str（atn（sqr（1-x^2）/x））

end select

end if

end function

沒試過(guò)，不知道有什么問題，有興趣自己慢慢調(diào)試。