vb選擇結(jié)構(gòu)程序設(shè)計(參考版)
2025-01-16 00:59本頁面
【正文】 。 最后 ， 通過一些綜合性的例子講述了各種選擇結(jié)構(gòu)的程序的解決方法 。 “日是 ” 。 “月 ” 。 “年 ” 。計算部分 If ((Y Mod 100 0) And (Y Mod 4 = 0) Or (Y Mod 100 = 0) And (Y Mod 400 = 0)) Then Month2 = 29 Else Month2 = 28 End If Select Case M Case 1 day0 = 31 day1 = 0 Case 2 day0 = Month2 day1 = 31 Case 3 day0 = 31 day1 = Month2 + 31 Case 4 day0 = 30 day1 = Month2 + 62 Case 5 day0 = 31 day1 = Month2 + 92 Case 6 day0 = 30 day1 = Month2 + 123 Case 7 day0 = 31 day1 = Month2 + 153 Case 8 day0 = 31 day1 = Month2 + 184 Case 9 day0 = 30 day1 = Month2 + 215 Case 10 day0 = 31 day1 = Month2 + 245 Case 11 day0 = 30 day1 = Month2 + 276 Case 12 day0 = 31 day1 = Month2 + 306 End Select If (D = day0) Or (D 1) Then daysum = (Y 1901) + (Y 1901) / 4 + day1 + D daysum = Int(daysum + ) Else MsgBox 數(shù)據(jù)輸入錯誤 ! End If week = (week + daysum) Mod 7 39。輸入部分 Dim Y, M, D, Month2, day0, day1, daysum, week As Integer Y = InputBox(請輸入當(dāng)前日期 amp。 （ 3） 輸出部分：把計算結(jié)果以適當(dāng)?shù)母袷捷敵?。 總天數(shù)的計算公式為：總天數(shù) =平年累積值 +閏年累積值 +月累積值 +日期 ③ 計算星期幾 。 ?除以上兩種情況以外的其余年份都是平年 。 ?凡是能被 4 整除但不能被 100整除的年份為閏年 ， 如 1980年 。 （ 2） 計算部分：用來完成對輸入的日期是星期幾的計算 ， 因此它是本題的關(guān)鍵 。 number: Exit Sub diff = Abs(number guess) If diff = 0 Then k = 0 ElseIf diff = 2 Then k = 1 ElseIf diff = 10 Then k = 2 Else k = 3 End If Select Case k Case 0 MsgBox 恭喜你 ， 猜對了 ！ Case 1 MsgBox 接近了 ， 再努力 ！ Case 2 MsgBox 有些遠(yuǎn) ， 再努力 ！ Case 3 MsgBox 太遠(yuǎn)了 ， 繼續(xù)努力 ！ End Select End If End Sub 【 例 】 ：編程計算某年某月某日是星期幾 。 _ 如果輸入 1， 則停止猜數(shù) ， 并輸出要猜的數(shù) 。 amp。 vbCrLf amp。 當(dāng)用戶猜的數(shù)與目標(biāo)數(shù)之間相差不超過 2時 ， 提示 “ 接近了 ” ；相差不超過 10時 ， 提示 “ 有些遠(yuǎn) ” ；相差超過 10時 ， 提示“ 太遠(yuǎn)了 ” 。 說明： 為了引導(dǎo)用戶猜中由計算機設(shè)置的隨機數(shù) ， 可以在猜數(shù)的過程中給以適當(dāng)?shù)奶崾?。其語法格式為： IIf(測試表達(dá)式 , 真值部分 , 假值部分 ) 0,340,32????xxxx例如，求分段函數(shù)： y= 函數(shù)值的語句可以簡單地表示為： y=Iif(x0,2*x+3,43*x) 返回 應(yīng)用舉例 【 例 】 ：猜數(shù)游戲 。 IIf 函數(shù) VB中還提供了一個選擇函數(shù) IIf 函數(shù)，用來實現(xiàn)簡單的選擇結(jié)構(gòu)。單擊 “ 鑒定 ” 按鈕 x = Select Case x Case Is = 90 = 優(yōu)秀 Case Is = 80 39。 保持界面不變 ， 雙擊 “ 鑒定 ” 按鈕 ， 修改代碼如下： Private Sub Command1_Click() 39。
電大資料相關(guān)推薦
鄂ICP備17016276號-1