新經(jīng)濟(jì)管理學(xué)院本科畢業(yè)論文范文成人學(xué)院-文庫(kù)吧資料
2024-09-20 10:56本頁(yè)面
【正文】 Now) * Pi / 180) = 234 2 * Sin(6 * Minute(Time) * Pi / 180) = 21 + 2 * Cos(6 * Minute(Time) * Pi / 180) = 234 + 15 * Sin(6 * Minute(Time) * Pi / 180) = 21 15 * Cos(6 * Minute(Time) * Pi / 180) ss = Hour(Time) If ss 12 Then ss = ss 12 = 234 2 * Sin(ss * 30 * Pi / 180 + Minute(Time) / 2 * Pi / 180) = 21 + 2 * Cos(ss * 30 * Pi / 180 + Minute(Time) / 2 * Pi / 180) = 234 + 11 * Sin(ss * 30 * Pi / 180 + Minute(Time) / 2 * Pi / 28 28 180) = 21 11 * Cos(ss * 30 * Pi / 180 + Minute(Time) / 2 * Pi / 180) End Sub Public Sub disPlay(kDay As Date) Dim mY1 As Integer, mY2 As Integer, dY1 As Integer, dY2 As Integer, wY As Integer Dim temP As String, temP1 As Integer, temP2 As String, temP3 As String, temP4 As String, temP5 As String ShowNum wPw1(color_index), G_y, Val(Mid(Trim(Str(Year(kDay))), 1, 1)), 1, 1 ShowNum wPw1(color_index), G_y, Val(Mid(Trim(Str(Year(kDay))), 2, 1)), 1, 2 ShowNum wPw1(color_index), G_y, Val(Mid(Trim(Str(Year(kDay))), 3, 1)), 1, 3 ShowNum wPw1(color_index), G_y, Val(Mid(Trim(Str(Year(kDay))), 4, 1)), 1, 4 If Month(kDay) 10 Then mY1 = 0 mY2 = Month(kDay) Else mY1 = Int(Month(kDay) / 10) mY2 = Int(Month(kDay) Mod 10) End If ShowNum wPw1(color_index), G_m, mY1, color1, 1 ShowNum wPw1(color_index), G_m, mY2, 1, 2 If Day(kDay) 10 Then dY1 = 0 dY2 = Day(kDay) Else dY1 = Int(Day(kDay) / 10) dY2 = Int(Day(kDay) Mod 10) End If ShowNum wPw1(color_index), G_d, dY1, 1, 1 ShowNum wPw1(color_index), G_d, dY2, 1, 2 = 今日是 : + ssFtv(Month(kDay), Day(kDay)) = seaSonYx(kDay) 29 29 39。計(jì)算器變量初始化 s_mem_B = False S_mem = 0 chk = 0 e = f = op = = 0 g = 1 ShowNumFun Pt, wPw2(3), 1 ShowNumARG Pt, wPw1(3), 20 39。 = False = False 39。單擊返回今天 Private Sub C_clock_Click() = Year(Date) = Month(Date) = Day(Date) txt_Sub 22 22 disPlay (Date) End Sub Private Sub Form_Activate() RunMain picScroll End Sub Private Sub Form_Load() 39。 . = f End If End Sub Private Sub cmdT_Click() 39。 Trim(Str(Index)) = f End If Exit Sub eh2: = E e = f = op = End Sub Private Sub cmdOp_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdOp(Index) End Sub Private Sub cmdOp_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdOp(Index) End Sub Private Sub cmdOp_Click(Index As Integer) On Error GoTo eh3 op_Sub = e op = chk = 0 Select Case Index Case 0 op = + Case 1 op = Case 2 19 19 op = * Case 3 op = / Case 4 op = ^ End Select Exit Sub eh3: = E e = f = op = End Sub Private Sub cmdPi_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdPi End Sub Private Sub cmdPi_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdPi End Sub Private Sub cmdPi_Click() If op = Then e = = e Else f = = f End If End Sub Private Sub cmdPM_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdPM End Sub Private Sub cmdPM_MouseUp(Button As Integer, Shift As Integer, x As Single, 20 20 y As Single) Show_b Picture5, P9, cmdPM End Sub Private Sub cmdPM_Click() On Error GoTo eh1 op_Sub = e op = chk = 1 Exit Sub eh1: = E e = f = op = End Sub Private Sub cmdPt_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdPt End Sub Private Sub cmdPt_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdPt End Sub Private Sub cmdPt_Click() If op = Then e = e amp。單一功能鍵按下、松開(kāi) Private Sub cmdOps_Click(Index As Integer) Dim sum As Double, i As Integer On Error GoTo eh1 Select Case Index Case 0 e = Str(Sqr(Val(e))) ShowNumFun Pt, wPw1(3), 10 Ji_suan Case 1 If e 0 Then e = Val(txtDisp) Else e = 0 End If Ji_suan Case 2 e = Str(Sin(Val(e) * g)) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 3 e = Str(Cos(Val(e) * g)) 15 15 ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 4 e = Str(Tan(Val(e) * g)) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 5 e = Str(Atn(Val(e))) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 6 e = Str(1 / Sin(Val(e) * g)) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 7 e = Str(1 / Cos(Val(e) * g)) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 8 e = Str(Exp(Val(e))) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 9 e = Str(Log(Val(e))) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 10 Randomize If op = Then e = Str(9999999999 * Rnd)
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1