1樓：
private sub command1_click()dim x, y, z, o as singlex = 0.5
y = tan(x) ' tan
z = atn(x) '反tan值
o = 3.14159
dim a, result, k as singlea = val(text1.text)
result = atn(-a / sqr(-a * a + 1)) + 2 * atn(1)
k = result / o * 180
text2.text = k
end sub
當∠a的余弦值=0.6 ,角度為53.1301當∠a的余弦值=0.456，角度為62.8707
2樓：匿名使用者
option explicit
const pi as double = 3.1415626
sub 測試()
dim x as double, jd as double,hd as double
jd = 30 '角度，度
hd = jd * pi / 180 '弧度
'取指定角度的余弦
x = cos(hd)
'根據余弦求度數
x = arccos(x, 4)
msgbox "根據余弦求度數: arccos(x)====>>>" & x
end sub
public function arccos(byval x as double, byval dic as integer) as double
'根據余弦求度數
'引數：余弦（單位弧度）,小數字數
'返回：角度，度數（十進位制）
arccos = atn(-x / sqr(-x * x + 1)) + 2 * atn(1)
arccos = round(arccos / pi * 180, dic)
end function
不知對你有否幫助？
用vb 怎麼自己編寫乙個函式？
3樓：匿名使用者
作用是查詢乙個陣列裡的最大數。
在工程裡新增乙個標準模組，再再裡加入：
function maxnum(x() as double) as double
dim i as integer
maxnum=x(lbound(x())
for i=lbound(x()) to ubound(x())if maxnum end function 4樓： 給你乙個簡單例子，作用是查詢乙個陣列裡的最大數。 在工程裡新增乙個標準模組，再再裡加入： function maxnum(x() as double) as double dim i as integer maxnum=x(lbound(x()) for i=lbound(x()) to ubound(x())if maxnum end function 這樣你就可以在程式裡任何地方使用它了。 vb 怎麼計算正弦值？具體怎麼表示啊？ 5樓：天外琴音 答：因為：1度=3.1415926……/180所以：sin(30)在程式設計時因寫為： print sin(3.14159 / 180 * 30)*************************************** 這還不簡單： dim x x=sin(3.14159 / 180 * 30)print x 6樓：道路艾公尺法搜 vb中乘除有先後順序 所以應該是 弧度=度數*3.14159/180 求用vb編寫的計算器 加減乘除 我做好了 ，但是正弦 余弦 正切餘切不會，求** 7樓：宇桐非吧外交 哈哈 這個 很容易的 就用 最基本的函式 sin（） cos（） tan（）餘切的話 1/ tan() 不過這裡的角度 要轉換為 弧度 的 有疑問再聯絡我！！！！！ 8樓： dim x!, n1!, n2! 'n1,n2分別代表輸入的第乙個數和第二個數 dim strn1$, strn2$ 'strn1,strn2分別代表輸入第乙個 dim firstn as boolean '判斷是否是數字開頭 dim pointflag as boolean '判斷是否已有小數點 dim runsign as integer '變數runsign用來儲存運算符號 dim signflag as boolean '變數signflag判斷是否已有運算符號 private sub form_load() n1 = 0: n2 = 0 strn1 = "": strn2 = "" firstn = true pointflag = false '將 pointflag 設為否，即沒有小數點 runsign = 0 signflag = false '沒有運算符號輸入 end sub private sub cmdn_click(index as integer) select case index '用index 作為判斷分支的條件 case 0 to 9 '如果index是0到9,即數字 if firstnum then '輸入為第乙個數字的話 strn1 = str(index) '實型轉字元型 firstn = false '初賦值標誌為假 else strn1 = strn1 + str(index) '輸入不是第乙個數字的話,將輸入的字元新增到原有字串上 end if '結束 if 塊 text1.text = strn1 '將字串結果顯示到標籤上 case 10 '如果輸入為小數點 if not pointflag then '如果沒有小數點 if firstn then '如果是第乙個字元 strn1 = "0." '顯示為" 0." 不變 firstn = false else strn1 = strn1 + "." '初賦值標誌為假,否則字串上加上小數點符號 end if '結束if塊 else exit sub '已有小數點,則退出單擊事件,也就是對單擊事件不反應 end if pointflag = true text1.text = strn1 '將小數點標誌為真,即在輸入串中有了小數點,在顯示屏上顯示數字串 case 17 if sgn(val(strn1)) = 1 then strn1 = "-" + strn1 else if sgn(val(strn1)) = -1 then strn1 = right(strn1, len(strn1) - 1) end if strn1 = "0." end if text1.text = strn1 case 12 to 15 firstn = true '當輸入為運算符號時,使下一次可以輸入新資料 pointflag = false '還原小數點標記值 if signflag then '前面已有運算子未運算 call run '呼叫計算子程式,該子程式在下面有說明 else signflag = true '前面沒有未運算的,將有無運算子標誌設為"有" strn2 = strn1 '把字串1複製給字串2 strn1 = "" '字串1清空 end if runsign = index - 11 case 11 '如果輸入等號 if not signflag then '如果沒有輸入運算子 text1.text = strn1 '以下均為重置各個變數 ysjg = val(strn1) firstn = true pointflag = false else call run signflag = false '如果已輸入運算子在內,計算清除是否有運算子標誌 end if case 16 n1 = 0 n2 = 0 '如果輸入清除按鈕,以下均為重置各個變數,相當於form_load中的** strn1 = "" strn2 = "" firstn = true pointflag = false runsign = 0 signflag = false text1.text = "0." end select end sub public sub run() dim ysjg as single 'ysjg為區域性變數,用來儲存運算結果 n1 = val(strn2) '將字串轉換成數值 n2 = val(strn1) select case runsign case 1 ysjg = n1 + n2 case 2 ysjg = n1 - n2 case 3 ysjg = n1 * n2 case 4 ysjg = n1 / n2 end select strn2 = str(ysjg) strn1 = strn2 text1.text = strn2 end sub 9樓： vb可以直接呼叫windows的計算器的，為什麼還要自己做呢。 呼叫這個就可以了 calc：計算器 用vb怎麼定義乙個函式 10樓：匿名使用者 dim t as long _________________________________________ public function j(n as integer) as long t = 1 for i = 1 to n t = t * i next i j = t end function _______________________________________ private sub command1_click()text1.text = j(8) '這裡就可以呼叫函式了end sub 11樓：尼歐趙 private function f(dim n as integer) as integer if n=0 then f=1else for i=1 to n t=t*i next f=tendif end function 呼叫的時候如下，x等於24 x=f(4) 12樓：匿名使用者 public function fjiecheng(byval n as integer) dim i, fn as long fn = 1 for i = 1 to n fn = i * fn next return fn end function 你新增一個timer控制元件 interval屬性 100 新增事件 private sub timer1 timer text1.text format now,hh mm ss end sub private sub form load timer1.enabled trueend sub pr... 那樣太麻煩 還是學 flash把 怎樣用c語言編寫乙個小遊戲？請問如何用c語言做乙個圖形介面呢？比如乙個迷宮遊戲的介面 不過你得知道怎麼建工程，不然就得在命令列編譯 鏈結 還是用qt或者mfc，c語言桑不起！用windows gdi 繪圖 要先看下有關方面資料 要不用陣列也行 如何使用c語言編寫簡單... 功能 數字轉換為二進位制字串 函式名稱 numtobinarystr 輸入引數 1 nrawdata 要轉換的數，如255 或 0xff 2 nnumofbits 轉換的位數。3 szdestbuf 轉換到的目的儲存區。返回值 1 true ok 2 false szdestbuf為null int...怎樣用VB做個編寫程式，在文字框中顯示當前系統時間，並隨時間進行變化
如何用C語言編寫圖形遊戲，怎樣用C語言編寫乙個小遊戲？
怎樣用c語言根據題目編寫程式