【正文】 = ThenMsgBox 請輸入“橫坐標X(k1)右”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請輸入“M2g2M1g1”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請輸入“磁場強度B”的數(shù)值！GoTo enddEnd IfIf = ThenMsgBox 請輸入“FH標準具間距d”的數(shù)值！GoTo enddEnd IfA = (2 * PI * C * (Val() * Val() Val() * Val()))B = (Val() * Val() * Val() * ((Val() * Val() Val() * Val())))If A = 0 ThenMsgBox 輸入數(shù)據(jù)有誤，請核實數(shù)據(jù)！GoTo enddEnd IfIf B = 0 ThenMsgBox 輸入數(shù)據(jù)有誤，請核實數(shù)據(jù)！GoTo enddEnd IfE = Abs(A / B) 39。計算荷質比e/m = Format$((E), +00) 39。以科學計數(shù)法形式輸出顯示荷質比e/mConst D = * 10 ^ 11 39。定義常量荷質比的標準值 = Format$(Abs(E D) / D, .%) 39。進行誤差分析并以百分數(shù)形式輸出顯示If = ThenMsgBox 請輸入實驗者姓名！GoTo enddEnd IfDim appdisk$ 39。保存數(shù)據(jù)Dim byt() As Byte appdisk = Trim() If Right(appdisk, 1) \ Then appdisk = appdisk amp。 \Open amp。 \ For Append As 11Print 11, Print 11, 39。保存標題Print 11, 39?？崭馪rint 11, Text25, Text22, Text21, Text26, , , 39。保存實驗者姓名日期時間Print 11, 39?？崭馪rint 11, Label1, , , Label2, , , Label12(0), 39。保存D1相關數(shù)據(jù)Print 11, 39。空格Print 11, Label3(0), , , Label4(0), , , Label12(1), 39。保存D2相關數(shù)據(jù)Print 11, 39。空格Print 11, Label3(1), , , Label4(1), , , Label12(3), 39。保存Dk相關數(shù)據(jù)Print 11, 39?？崭馪rint 11, Label5, , , Label6, , , Label12(2), 39。保存Dk1相關數(shù)據(jù)Print 11, 39?？崭馪rint 11, Label11, , , Label8, , Label10。 , Label7, , Label9 39。保存d\f\B相關數(shù)據(jù)Print 11, 39?？崭馪rint 11, Label13, , , , Label14, 39。保存實驗處理結果Print 11, 39。.......Print 11, 39?？崭馪rint 11, 39。空格Close 11MsgBox 保存成功！endd: End Sub…………………………………………Private Sub Text1_Change() = Abs(Str$(Val() Val())) 39。計算k級圓環(huán)直徑D1End Sub…………………………………………Private Sub Text2_Change() = Abs(Str$(Val() Val())) 39。計算k級圓環(huán)直徑D1End Sub…………………………………………Private Sub Text4_Change() = Abs(Str$(Val() Val())) 39。計算k級圓環(huán)直徑D2End Sub…………………………………………Private Sub Text5_Change() = Abs(Str$(Val() Val())) 39。計算k級圓環(huán)直徑D2End Sub…………………………………………Private Sub Text7_Change() = Abs(Str$(Val() Val())) 39。計算k級圓環(huán)直徑DkEnd Sub…………………………………………Private Sub Text8_Change() = Abs(Str$(Val() Val())) 39。計算k級圓環(huán)直徑DkEnd Sub…………………………………………Private Sub Text10_Change() = Abs(Str$(Val() Val())) 39。計算k1級圓環(huán)直徑D(k1)End Sub…………………………………………Private Sub Text11_Change() = Abs(Str$(Val() Val())) 39。計算k1級圓環(huán)直徑D(k1)End Sub…………………………………………Private Sub Timer1_Timer() 39。顯示當前系統(tǒng)時間Text18 = TimeEnd Sub…………………………………………Private Sub Form_Load() 39。顯示當前系統(tǒng)日期 = DateEnd Sub…………………………………………Private Sub Text22_Change() 39。姓名輸入文本框內容自動滾動 = Len()End Sub………………………………………… 畢業(yè)論文（設計）題目（黑體2號字，加粗，居中） 前 言（正文一級標題用黑體3號，加粗，居中，段前段后各空1行）XXXXXXXXXXXXX XXXXXXXXXX（宋體，5號）XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX （宋體小4號字，首行縮進2字符） 1．正文一級標題（正文一級標題用黑體3號，加粗，居中，段前段后各空1行）1．1 正文二級標題（黑體小4號字，加粗，首行縮進2字符）1．1．1 正文三級標題（宋體小4號字，首行縮進2字符）XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX（宋體小4號字，首行縮進2字符）…… （正文一級標題用黑體3號，加粗，居中， 段前段后各空1行） 2．1 正文二級標題（黑體小4號字，加粗，首行縮進2字符）XXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX（宋體小4號字，首行縮進2字符） 結論（結語）部分（正文一級標題用黑體3號，加粗，居中， 段前段后各空1行）XXXXXXXXXXXXXXXXXXXXXXXXXXX（宋體小4號字，首行縮進2字符） 參考文獻（黑體3號，加粗，居中，段前段后各空1行）[1] XXXX……[2] XXXX……(參考文獻內容用宋體，5號字) 【注：此模板為畢業(yè)論文（設計）寫作提供參考標準。本模板不能涵蓋的，各院（部）請在《聊城大學畢業(yè)論文（設計）撰寫規(guī)范》要求基礎上，根據(jù)專業(yè)特點參照本專業(yè)最高權威期刊要求，對論文（設計）格式進行適當調整，經教務處批準后在本學院統(tǒng)一施行?！? 33