VB課程設(shè)-26測繪C111張爍

1、.10以內(nèi)加法測試設(shè)計報告學(xué)院 土木工程 班級 測繪C111 學(xué)號 117564 姓名 張爍 成績 一、設(shè)計思路1.要達(dá)到的目的綜合利用VB語言進(jìn)行程序設(shè)計的能力。通過使用VB的標(biāo)準(zhǔn)控件，加深對控件的多個屬性的認(rèn)識。了解如何使用屬性進(jìn)行程序設(shè)計。2.關(guān)鍵問題的解決運用控件屬性進(jìn)行程序設(shè)計。控件之間的聯(lián)系二、模塊之間的調(diào)用關(guān)系，或程序流程圖 點擊開始后進(jìn)入測試界面輸入測試者名字輸入測試時間輸入完后測試開始，隨機(jī)出現(xiàn)10以內(nèi)加法試題，測試完后，自動統(tǒng)計測試時間，正確率，答題數(shù)。三、部分程序關(guān)鍵源代碼及注釋Private Sub Command1_Click()If Command1.Caption

2、 = "開始" Then 點擊開始，進(jìn)入界面n = InputBox("請輸入您的大名", "提示") 輸入游戲者的名字time = InputBox("請輸入測試時間（分）", "的數(shù)學(xué)測驗") 輸入測試時間Text4.Text = n Label9.Caption = timeTimer1.Enabled = TrueCall initnCommand1.Caption = "暫停"m = timeLabel9.Caption = Format(m, "00&q

3、uot;) & "：00"ElseIf Command1.Caption = "暫停" Then 點擊暫停后變?yōu)槔^續(xù)Command1.Caption = "繼續(xù)"Timer1.Enabled = FalseElseIf Command1.Caption = "繼續(xù)" Then 點擊繼續(xù)后變?yōu)闀和imer1.Enabled = TrueCommand1.Caption = "暫停"End IfEnd SubDo a = Int(Rnd() * 10) a取0到10之間的數(shù) b = Int

4、(Rnd() * 10) b取0到10之間的數(shù)Loop While a = 0 Or b = 0 條件是a=0或者b=0 c = a + b Label1.Caption = a & "+" & b & "=" 顯示a+b=Private Sub Command2_Click() Timer1.Enabled = False 未輸入時間Label5.Caption = "測試被終止！" 則測試不被允許四、設(shè)計方案的完善及目前存在的問題1設(shè)計方案要完善的地方控件的調(diào)用以及聯(lián)系圖示應(yīng)更加詳細(xì)。源代碼部分不太詳細(xì)。2

5、. 目前存在的問題創(chuàng)新要求沒有解決。五、本次設(shè)計的收獲及心得體會這次的visual basic 課程設(shè)計，通過自己的努力完成了一個簡單的編程算法測試，在設(shè)計的過程中遇到了不少問題，發(fā)現(xiàn)了很多自己的不足。通過不斷的改進(jìn)和完善程序終于有了一個簡單的模型。這是學(xué)vb以來第一次編程序，雖然我的程序還有很多缺陷和不足，但是在編程中學(xué)到了不少東西，也懂得了作為一個編程人員應(yīng)具備的素質(zhì)。現(xiàn)在我們的知識還很少，以后還會更加努力的學(xué)習(xí)知識，掌握更多的技術(shù)知識。六、對該題目和VB設(shè)計的意見和建議1. 對該題目的意見和建議這道題目不僅是10以內(nèi)加法設(shè)計，還附加了倒計時時鐘，進(jìn)度條以及模擬鍵盤的使用，對我們的思維擴(kuò)散有很大的幫助，可以加強對多個控件的掌握能力。另外這道題可以適當(dāng)?shù)倪M(jìn)行改進(jìn)，比如增加加減法，乘法等一系列運算。2對本次設(shè)計的意見和建議這次設(shè)計其中我感覺在