1樓：匿名使用者
記第乙個文字框為textbox1，第二個文字框為textbox2，第三個文字框為textbox3，算得的的弧度值為hu，執行操作時按下的按鈕為command1
則**如下：
pirvate sub command1_click()
dim a as single
a= val(textbox1.text)'取出第乙個文字框中輸入的數字
dim str as string
str = textbox2.text'取出第二個文字框中輸入的角度，例："109度28分19秒"
const pi as single =3.1415926 '定義圓周率常量pi
dim m as integer,n as integer,p as integer
dim du as single,fen as single,miao as single,hu as single'定義一些中間變數與結果
'定位度分秒三個字的位置
m=instr(str,"度")
n=instr(str,"分")
p=len(str)
'取出對應的度、分、秒的數值
du=val(mid(str,1,m-1))
fen=val(mid(str,m+1,n-m-1))
miao=val(mid(str,n+1,p-n-1))
hu=du/180*pi+fen/60/180*pi+miao/3600/180*pi '計算弧度，根據「弧度值=角度值*pi/180」，1度等於60分 ，1分等於60秒，
textbox3.text =str(a * sin(hu)) '計算結果，並顯示在第三個文字框中
end sub
2樓：匿名使用者
1、角度轉化為弧度
弧度值=角度值*3.1415926/1802、1度等於60分 ，1分等與60秒，轉換成以度為單位3、text3.text=text1.
text*sin(text2.text*3.1415926/180)
3樓：匿名使用者
這麼詳細。還說。入門沒有。
VB裡的程式問題
private sub cmdstart click 此過程是單擊cmdstart這個控制項的時候開始執行的。x 0 x變數的值為0 for y 1 to 100 step 2 開始乙個for迴圈，迴圈變數是y，初始值是1，終止是100，步長是2，迴圈就是迴圈變數從1開始，每迴圈一次，增加2，然後到...
幫忙設計下VB程式，幫忙設計下VB程式。
1 根據題目 父子今年年齡和為50歲，5年後父親的年齡是兒子的4倍，問今年父親多少歲？兒子多少歲？可得出結論 兒子年齡 5 4 50 兒子年齡 5 2 然後使用乙個迴圈得到結果 option explicit private sub form load dim 兒子年齡 as integer for...
地鐵票價計算程式VB流程圖及VB程式
化凌晴 同意樓上 至少我回答問題不是看重錢什麼的 是幫人幫得心安理得 oo蒼雪 學習樓上的精神。助人為樂！ 爛掉 蘿蔔 這種上課考試類的 估計給300分都不一定有人做 自己好好學學把 好好學習才是關鍵，這樣以後才不後悔 如何用vb設計一個地鐵票價查詢系統？ 地鐵票價查詢系統 這個沒意義吧！按公里收費...