【文章內容簡介】 個操作符，根據操作符決定所進行的計算。②如果除數為0，用MsgBox提示出錯信息。③要求用if語句和case語句兩種結構實現。運算為加減乘除（+，，* ，/）四種運算，其他符號為非法。單擊“if結構”按鈕，添加代碼：Private Sub Command2_Click()Dim num1, num2, result As SingleDim op As Stringnum1 = Val()num2 = Val()op = Trim()If op = + Then result = num1 + num2ElseIf op = Then result = num1 num2ElseIf op = * Then result = num1 * num2ElseIf op = / Then If num2 = 0 Then MsgBox (運算符不能為0，請重新輸入第二個數!) = = Exit Sub Else result = num1 / num2 End IfElse MsgBox (運算符不符合要求，請重新輸入運算符!) = = Exit SubEnd If = resultEnd Sub單擊“case結構”按鈕，添加代碼：Private Sub Command1_Click()Dim num1, num2, result As SingleDim op As Stringnum1 = Val()num2 = Val()op = Trim()Select Case op Case + result = num1 + num2 Case result = num1 num2 Case * result = num1 * num2 Case / If num2 = 0 Then MsgBox (運算符不能為0，請重新輸入第二個數!) = = Exit Sub Else result = num1 / num2 End If Case Else MsgBox (運算符不符合要求，請重新輸入運算符!) = = Exit SubEnd Select = resultEnd Sub3．完成編程：輸入二次方程ax2+bx+c=0的系數a、b、c，計算并輸出二次方程的根x1，x2。界面如圖33（按下“復位”按鈕也就是如圖33效果）：當a＝0時（彈出警惕框如圖34，然后光標定位a下方的文本框處）圖33圖34當△0時 ，如圖35 當△≥0時，如圖36 圖35 圖36添加代碼：Private Sub Command1_Click()Dim a, b, c, delta, x1, x2 As SingleDim x1str, x2str As Stringa = Val()b = Val()c = Val()If a = 0 Then MsgBox (a178。187。196。220。206。170。0197。182。163。161。) = Exit SubElse delta = b * b 4 * a * cEnd IfIf delta = 0 Then x1 = (b + Sqr(delta)) / (2 * a) x2 = (b Sqr(delta)) / (2 * a) = Round(x1, 2) = Round(x2, 2)Else x1str = Round((b) / (2 * a), 2) amp。 + amp。 Round(Sqr(delta) / (2 * a), 2) amp。 i x2str = Round((b) / (2 * a), 2) amp。 amp。 Round(Sqr(delta) / (2 * a), 2) amp。 i = x1str = x2strEnd IfEnd Sub Private Sub Command2_Click() = = = = = End Sub【實驗報告要求】1. 提前預習實驗相關資料，充分做好實驗準備工作。2. 如實記錄實驗中的數據。3. 實事求是地回答相關問題，嚴禁抄襲。得 分_____________評閱日期_____________教師簽名_____________實驗四 循環(huán)結構程序設計選課班號： 序號： 姓名： 實驗日期： 【實驗目的】1．理解循環(huán)結構程序設計的特點。2．掌握For語句的使用。3．掌握Do While/Until…Loop語句和Do…Loop While/Until語句的使用。4．學習多重循環(huán)的規(guī)則和程序設計方法。5．學習循環(huán)退出語句的使用與應用。6．掌握圖片框、圖像框、定時器的使用方法。7. 掌握一些簡單的算法。 8．了解基本圖形Line和Circle方式。【實驗內容】1．計算n!，要求分別用Do While…Loop、Do…Loop While和For…Next結構實現。設計分析：語句結構用單選按鈕來選擇，用條件語句對單選按鈕的值作出判斷，根據判斷結果轉向不同的循環(huán)結構語句塊。要求創(chuàng)建一個新窗體Form1，在Form1中放置二個Text控件、三個Command控件、三個標簽控件、一個框架控件和三個單選按鈕。界面如圖41所示。圖41 題1用戶界面添加代碼：Private Sub Command1_Click()Dim f As LongDim i, n As Integerf = 1n = Int(Val())If = True Then i = 1 Do While i = n f = f * i i = i + 1 LoopElseIf = True Then i = 1 Do f = f * i i = i + 1 Loop While i = nElse For i = 1 To n f = f * i NextEnd If = fEnd SubPrivate Sub Command2_Click() = = End SubPrivate Sub Command3_Click()Unload MeEnd Sub2．輸入一個整數n（n≥1），請n以內的所有素數（n≤1000）。界面如圖42所示。添加代碼：Private Sub Command1_Click()Dim i, j, n As Integern = Int(Val())If n = 0 Or n 1000 Then MsgBox 輸入的數值范圍不對！, vbOKOnly = Else For i = 1 To n For j = 2 To i 1 If i Mod j = 0 Then Exit For Next If j = i Then = amp。 i amp。 NextEnd If End Sub圖42 題2用戶界面圖43 題3用戶界面3．在處理圖像時，經常會遇到使圖像水平或垂直移動的情況。要求編程實現該功能，運行程序，單擊“水平移動”按鈕，圖片便沿著水平方向移動；單擊“垂直移動”按鈕，圖片便沿著垂直方向移動；單擊“沿對角線移動”按鈕，圖片便沿著對角線方向移動。效果如圖43所示。圖片任意選擇電腦上一幅圖片即可。設計思路：使用Move方法，使圖片產生移動效果。添加代碼：Dim i, flag As IntegerPrivate Sub Command1_Click()If flag = 0 Then For i = 1 To 3645 i Next flag = 1Else 0, 0 flag = 0End IfEnd SubPrivate Sub Command2_Click()If flag = 0 Then For i = 1 To 1740 0, i Next flag = 1Else 0, 0 flag = 0End IfEnd SubPrivate Sub Command3_Click()If flag = 0 Then For j = 1 To 1740 + 3640 / 1740, j Next flag = 1Else 0, 0 flag = 0End IfEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load() = 0 = 0End Sub4．在電視節(jié)目中，經常會有滾動的廣告字幕。要求編程實現該功能。運行程序，單擊“演示”按鈕，字幕開始水平滾動；單擊“暫?！卑粹o，字幕停止?jié)L動。效果如圖44所示。設計思路：在Timer事件中，控制Label控件的Left屬性值，從而實現滾動字幕的效果。圖44 題4