【正文】
c End Sub 控制標(biāo)簽”老師,您辛苦了“的文字顯隱: Private Sub Timer1_Timer() If = True Then = False Else = True End If = vbGreen(文字顏色變?yōu)榫G色) End Sub 控制標(biāo)簽”請求老師看報告“的文字顯隱 Private Sub Timer2_Timer() If = True Then = False Else = True End If = vbBlack(文字顏色變?yōu)楹谏? End Sub 以上為各種運(yùn)算的程序代碼。雖然看著頁面簡單,但是程序的設(shè)計有的不同于課本上所學(xué)的,很多都是在設(shè)計的時候摸索實驗出來的。 設(shè)計簡介: 本科學(xué)計 算器是一種能實現(xiàn)加 ,減 ,乘 ,除等運(yùn)算功能 ,基本實現(xiàn)了Windows 自帶計算器的所有功能。要實現(xiàn)計算器的這些功能就用到我們所學(xué)的VB 知識編寫程序來實現(xiàn)運(yùn)算功能并解決問題,也是我們實訓(xùn)要達(dá)到的目的。慢慢地在原來設(shè)計的基礎(chǔ)上添加了很多比較現(xiàn)代化以及人性化的元素,希望可以讓頁面看起來內(nèi)容更豐富,從而給此次設(shè)計增彩。 計算器工作頁面以及工作代碼截圖: 第 5 頁 多媒體技術(shù)與應(yīng)用設(shè)計之滾動字幕 功能介紹: 本程序模擬電影電視片頭或片尾垂直向上移動字幕。 c End Sub 乘方運(yùn)算:第一個輸入的數(shù)先賦給 a,第一個輸入的數(shù)再賦給 b 一次 Private Sub Command5_Click() = 最終答案為: (實現(xiàn)對上次運(yùn)算