計算機二級vb教程ppt課件-wenkub
2023-05-18 07:08:04 本頁面
【正文】 ．關(guān)于格式 （ 1）“測試表達式”可以是數(shù)值、字符串表達式。 如果使用塊 If來編程，程序代碼為： If x = 0 Then If x = 0 Then y = 0 Else y = 1 End If Else y = 1 End If 嵌套時，程序注意使用縮進格式，增加可讀性。 不合格 End If 3． 關(guān)于 語句塊 語句塊可以是一條或多條語句，可寫成一行或多行。 Visual Basic程序設(shè)計教程 23 如變量 Average存放成績，進行等級轉(zhuǎn)換的語句為： If Average = 90 Then 39。 （ 5） A、 B、 C分別放入三個文本框。 （ 2） A與 B比較，小的數(shù)放入 A，大的數(shù)放入 B； （ 3） A與 C比較，小的數(shù)放入 A，大的數(shù)放入 C。 編制事件過程 Command1_Click如下： Private Sub Command1_Click() Dim x as Single x=InputBox(輸入 x,計算分段函數(shù)的值 ) If x=5 Then =Str(1x*x) Else _ =Str((x5)^) End Sub Visual Basic程序設(shè)計教程 18 【 例 42】 在文本框內(nèi)輸入三個數(shù)，“排序”按鈕對它們從小到大排列。 行 If要求代碼寫在一行內(nèi)，語句過長可用續(xù)行符 如果語句 1或語句 2有多條語句，則用冒號“ :”分隔。 西文字符使用 ASCII碼比較 漢字使用漢字內(nèi)碼比較。 Visual Basic程序設(shè)計教程 12 3．優(yōu)先級 算術(shù)運算符或字符串運算符的優(yōu)先級高于關(guān)系運算符。 VB常用的關(guān)系運算符有 6種： = (等于 )、 (不等于 )、 (大于 )、 =(大于等于 )、 (小于 )、 = (小于等于 )。字體 = 仿宋 _GB2312 End Sub 每個復(fù)選框的 Click事件，都采用選擇結(jié)構(gòu) 在選擇顏色時，也可使用： = Private Sub Check1_Click() 39。綠色 = RGB(0, 255, 0) End Sub Private Sub Option3_Click() 39。設(shè)置 Caption Check1~3：設(shè)置文本框字型。 設(shè)置文本框字體字型 Visual Basic程序設(shè)計教程 8 各控件： 1個文本框：顯示文字。 VB中選擇結(jié)構(gòu)主要用 IF和 Select Case語句。 流程可以如圖所示。 算法表示：自然語言、流程圖、結(jié)構(gòu)圖等。 算法的優(yōu)劣關(guān)系到程序質(zhì)量的好壞。 如路徑問題：假設(shè)某人在某大街 53號工作，現(xiàn)接到一份工作通知單，要求他去該大街的門牌號分別為 98, 183, 37, 122, 14的地方去服務(wù)，假定兩個間隔的門牌號之間相差 10米，則他該怎樣完成任務(wù)，共走多少路？ Visual Basic程序設(shè)計教程 4 第 1種算法：按工作通知單順序，則他要走的路為： (|5398| +|98183|+ (18337) + | 37122| +(12214)) 10 =469 10=4690米 第 2種算法：最近位置服務(wù)優(yōu)先法，將服務(wù)次序改為37,14,98,122,183，則他要走的路為： (16+23+84+24+61) 10=208 10=2080 第 2種算法只需要走第 1種算法的一半路不到。 算法決定了程序的結(jié)構(gòu)。 當(dāng)條件滿足時執(zhí)行 a塊程序 段，條件不滿足時執(zhí)行 b塊 程序段。 Visual Basic程序設(shè)計教程 7 【 例 41】 設(shè)計一個程序，界面如圖。設(shè)置 Text 3個框架：用于分組。設(shè)置 Caption 對單選按鈕和復(fù)選框編寫了共 9個簡單的事件過程。藍色 = RGB(0, 0, 255) End Sub Private Sub Option4_Click() 39。粗體 If = 1 Then = True Else = False End If End Sub Private Sub Check2_Click() 39。 使用關(guān)系運算符的表達式稱為關(guān)系表達式。 所有的關(guān)系運算符優(yōu)先級相同，執(zhí)行次序從左到右。 比較時，先比較第 1個字符，如不同，則得出結(jié)果；否則再比較第 2個字符，依次逐一比較，直到比較完畢或遇到一對不相同的為止。 Visual Basic程序設(shè)計教程 16 5 x5)(x 5x x1 f ( x )1 / 42????????【 例 】 編程，輸入 x，求下列分段函數(shù) f(x)值。界面如圖。 通過這樣兩次比較， A便是最小數(shù)了。 兩數(shù)互換使用語句組： X = A : A = B : B = X Visual Basic程序設(shè)計教程 20 【 例 42】 三數(shù)排序 程序代碼如下 : Option Explicit Private Sub Command1_Click() Dim A As Single, B As Single, C As Single, X As Single A = Val(): B = Val() C = Val() If A B Then X = A: A = B: B = X If A C Then X = A: A = C: C = X If B C Then X = B: B = C: C = X = A: = B: = C End Sub Visual Basic程序設(shè)計教程 21 塊 If語句采用多行代碼的形式，其格式為： If 條件 1 Then 語句塊 1 [ElseIf 條件 2 Then [ 語句塊 2 ]] …… [Else [ 語句塊 n+1 ]] End If 1．語句執(zhí)行過程 執(zhí)行過程如圖 Visual Basic程序設(shè)計教程 22 使用塊 If語句 2．關(guān)于格式 （ 1） If與 End If必須成對出現(xiàn)。其中標(biāo)簽 Label5用于顯示等級 = 等級： amp。 Visual Basic程序設(shè)計教程 24 編寫嵌套的選擇結(jié)構(gòu)程序 If語句允許出現(xiàn)嵌套形式。 Visual Basic程序設(shè)計教程 26 Dim nflag As Integer Dim smystring As String Private Sub Form_Load() nflag = 1 smystring = 歡迎使用 Visual Basic = 18 End Sub Private Sub Form_Click() If nflag = 1 Then = 黑體 Print smystring nflag = nflag + 1 Else If nflag = 2 Then = 楷體 _gb2312“ Print smystring nflag = nflag + 1 Else If nflag = 3 Then = 隸書
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1