freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

計算機二級vb教程ppt課件-wenkub.com

2025-04-30 07:08 本頁面
   

【正文】 判題開始 Flag = 0 If Then If Val() = Result Then MsgBox 非常正確 !, , 信息 : Flag = 1 ElseIf Then If Val()=Result Then MsgBox 非常正確 ,做得很棒 !,信息:Flag=1 ElseIf Then If Val()=Result Then MsgBox 非常正確 ,很聰明 !, , 信息 : Flag = 1 ElseIf Then If Val()=Result Then MsgBox 好極了 ,完全正確 !, 信息 : Flag = 1 End If If Flag = 0 Then MsgBox 很遺憾 ,你沒有做對 ,下次努力吧 !, , 信息“ = 出題“ End If End Sub Visual Basic程序設計教程 66 上面程序雖然較長,但部分處理過程類似。出題開始 A = Int(Rnd * 9 + 1): B = Int(Rnd * 9 + 1): C = Int(Rnd * 4 + 1) If C = 4 Then A = A * B = A: =B Select Case C 39。 ( 5)標志 Flag表示答題是否正確,正確為 1,否則為 0。 ( 1)命令按鈕應具有出題和判題兩個功能。 i , , 信息 End If End If End Sub ( 1) T T2可改用 X1和 X2,但并非真正的 X值。 X2= amp。 + amp。 X2= amp。a≠0 If D = 0 Then 39。 amp。 , , 信息 39。 為防止出錯,在編程前應考慮周全。 這些模塊集組合起來形成一個整體,完成指定功能的問題要求。 復雜程序應根據(jù)錯誤號 ()來編寫處理程序。禁止當前過程任何錯誤處理程序 Visual Basic程序設計教程 55 【 例 】 求一元二次方程的實數(shù)解,程序可以編寫成: Private Sub Form_Click() Dim A As Single, B As Single, C As Single Dim D As Single, X1 As Single, X2 As Single On Error GoTo ErrLine A = Val(InputBox(“a=”)): B = Val(InputBox(“b=”)) C = Val(InputBox(“c=”)) D = B * B 4 * A * C Print “X1=”。 優(yōu)秀 A4: …… 不過現(xiàn)在基本上使用以 If和 Select Case語句為主。大于 100無效 If Average 0 Then GoTo A4 39。 Visual Basic程序設計教程 52 2.語句流程 先計算表達式的值, 若值為 1,轉(zhuǎn)移到目標列表中的第 1個目標處 若值為 2,轉(zhuǎn)移到目標列表中的第 2個目標處, …… 。 Visual Basic程序設計教程 51 On...GoTo語句 On...GoTo語句可實現(xiàn)多分支。 Visual Basic程序設計教程 50 如要求輸入一個 0的數(shù),再進行一些處理,代碼: Private Sub Command1_Click() Dim A As Single,…… A = Val(InputBox(請輸入一整數(shù) )) If A 0 Then GoTo ProA MsgBox 數(shù)據(jù)輸入有錯 ! GoTo ProB ProA: 39。 False時,框架及其內(nèi)部的控件都不可見 Visual Basic程序設計教程 49 Goto語句 實現(xiàn)程序流程無條件轉(zhuǎn)移到本過程的另一處。 默認值為 Frame1 Caption:框架標題,一般說明框架內(nèi)控件特性。 Visual Basic程序設計教程 47 2.創(chuàng)建框架容器內(nèi)其它控件的方法: ( 1)先建框架,在選擇框架后依次創(chuàng)建其中的各控件。 在學第 8章后,可用過程調(diào)用方法,進行程序復用。 事件:各復選框的 Click。 默認值為 Check1 Alignment:對齊方式,整數(shù)類型。是否按下第二個? = 18 Else 39。啟動時 ,10磅單選按鈕處于選中狀態(tài) = Hello! End Sub Private Sub Option1_Click() = 10 End Sub Private Sub Option2_Click() = 18 End Sub Private Sub Option3_Click() = 36 End Sub Visual Basic程序設計教程 39 【 例 45】 修改例 44,增加一個“確定”命令按鈕,只有當單擊“確定”后,才使文本框字號才發(fā)生變化。 True表示選中 3.單選按鈕的事件 單選按鈕的主要事件是 Click事件 Visual Basic程序設計教程 38 【 例 44】 設計三個單選按鈕,用來控制文本框中文本的字號 1 36磅。 Visual Basic程序設計教程 34 40000元以下的工資、薪金部分的稅率表 Visual Basic程序設計教程 35 【 例 43】 計算個人所得稅 程序 Private Sub Form_Load() = 個人所得稅 = 薪金總額 = = = 計算 End Sub Visual Basic程序設計教程 36 Private Sub Command1_Click() Dim X As Single, Y As Single X = Val() Select Case X 1600 Case Is 40000, Is 1600 MsgBox 輸入的薪金有錯 , , 出錯 Case 0 To 500: Y = (X 1600) * Case 500 To 2022: Y = 500 * + (X 1600 500) * Case 2022 To 5000: Y=500*+1500*+(X 1600 2022)* Case 5000 To 20220 Y=500 * + 1500 * + 3000 * + (X 1600 5000) * Case Is 20220 Y=500*+1500*+3000*+15000*+(X160020220)* Case Else: Y = 0 End Select = 個人所得稅為 : amp。 ( 5)語句塊可以是一條或多條語句,可寫成一行或多行。 Select Case 測試表達式 [Case 表達式值 1 [ 語句塊 1 ]] [Case 表達式值 2 [ 語句塊 2 ]] …… [Case Else [ 語句塊 n+1]] End Select Visual Basic程序設計教程 29 2
點擊復制文檔內(nèi)容
教學課件相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1