【正文】 畫線控件和形狀控件可進行簡單繪圖。 例：設計可顯示系統(tǒng)時間的時鐘。 設計： 拓展練習 思考題 設計一程序如下圖： 窗體裝載，在組合框中添加 100個 3~100之間的隨機整數(shù)； 單擊“判定”可判斷選中的數(shù)是不是素數(shù)，結果用Picture1顯示，如果是，添加到 List1中，不是則添加到 List2中，并統(tǒng)計素數(shù)和非素數(shù)的個數(shù)，判斷完后將組合框中該項目刪除。 運行效果： 引入：組合框和列表框 分析： 布局分析： 控制邏輯分析： 設計： 組合框和列表框的主要屬性 屬性 組合框 列表框 Text 被選中項目的項目值 被選中項目的項目值 (屬性窗口無 ) List(i) 第 I+1項的項目值（從 0開始） 第 I+1項的項目值（從 0開始） ListCount 項目數(shù) 項目數(shù) ListIndex 當前選中項目的索引號 當前選中項目的索引號 (未選中為 1) Style 0下拉式組合框 1簡單組合框 2下拉式列表框 0標準顯示 1復選顯示 MultiSelect 無 0不允許復選 1簡單復選 2擴展復選 Selectd(i) 無 選擇狀態(tài) Sorted 是否自動按字母順序排序 是否自動按字母順序排序 組合框和列表框的 Style屬性的對比 項目值 : 第一項 : (0) (0) 最后一項 : () () 第 I項 : (I1) (I1) 選中的項 : 或 () () 主要方法 （ 1） AddItem 項目 ， [N] 添加項目，須指明待添加的項目， N指示加入的位置，省略即加在最后。 例：在文本框中輸入字符，通過單選按紐和復選框設置字體、字型 運行效果： 引入：單選按鈕、復選框和框架 分析： 設計： 重要屬性 屬性 默認值 含義 Caption 單選 Option1 顯示的文本（在字母的前面加 amp。 Sub過程不返回值， Function過程返回一個值。兩種方式的區(qū)分標志是形參前的關鍵字，形參前加“ ByVal”是傳值，否則是 傳址 ，默認是 傳址 。 Sub過程的結構 Private Sub 過程名 (參數(shù) ) …… End Sub Function 過程的結構 Private Function 過程名 (參數(shù) ) …… End Function 形式參數(shù) Sub過程的調(diào)用： 形式 1： call 過程名 (參數(shù) ) 形式 2：過程名 參數(shù) Function過程的調(diào)用 形式：過程名 (參數(shù) ) 注意： Sub過程第一種調(diào)用形式，參數(shù)必須括起來，第二種形式，參數(shù)不能括起來。所以編寫通用過程的程序， 既要編寫該過程 ， 又要編寫調(diào)用該過程的主程序 (一般是事件過程，該事件過程包含調(diào)用通用過程的語句 )。（每個同學名次） 思考： 輸出一個 5 5矩陣的每行最大元素，及最大元素的下標值。 思考：輸出一個 5 5矩陣，該矩陣主對角線和輔對角線元素為 1，其余元素為 0。 I amp。 位學生的成績 )) S = S + X Next i aver = S / 10 請注意： x里存放的是最后一個同學的成績！ 能不能給多個變量起相同的名字呢？ 什么是數(shù)組 數(shù)組是有 相同名稱 的 一組 變量的集合。 （ 2）多重循環(huán) 這要視具體問題分別對待。 If x Max Then End If Next i Print Print 最大值 =。 思考： 一球從 10米高空落下 ,每次彈起高度為落下高度的 40%,求第 8次落下，小球經(jīng)歷的路程。 “遞推法”又稱為“迭代法”，其基本思想是把一個復雜的計算過程轉化為簡單過程的多次重復。 假定小雞每只 5角，公雞每只 2元，母雞每只 3元。但因為有一段比較長的日子沒上了，陳婷把這個密碼給忘了。 思考： 判 斷一整數(shù)是不是完數(shù)。求其前 2058352312 ???????S考慮另一種算法 (4)s=2+22+222+2222+22222+222222 思考： S=a+aa+aaa+……+aaaa （ N個 a）其中 a是一個 [1， 9]的隨機整數(shù)， N是一個 [5， 10]的隨機整數(shù)。 上講回顧 多分支語句 Select Case 變量 Case 情形 1 語句塊 1 Case 情形 2 語句塊 2 …… Case 情形 N 語句塊 N 【 Case Else 語句塊 N+1】 End Select 計數(shù)循環(huán) For 循環(huán)變量 =初值 To 終值 【 Step 步長 】 循環(huán)體 Next 循環(huán)變量 Do Loop循環(huán) Do while 條件式 循環(huán)體 Loop Case后的表達式有四種形式： 表達式 一個數(shù)： 2 枚舉表達式 (用逗號分隔 ) 多個數(shù)： 2,4,6,8 表達式 1 To 表達式 2 一個范圍 60 To 100 Is 關系運算符表達式 一個范圍 Is 60 第八講 程序舉例（一） 累加、連乘、連接 (1)S=1/2+1/4+1/6+1/8+1/10+…+1/20, 求 s并輸出 s的值。 i End Sub 第 1次循環(huán) i=4 第 2次循環(huán) i=9 退出循環(huán)后 i=11 3. 循環(huán)的嵌套 一個循環(huán)體內(nèi)又包含了一個完整的循環(huán)結構稱為循環(huán)的嵌套 . 對于循環(huán)的嵌套，要注意以下事項： ?內(nèi)循環(huán)變量與外循環(huán)變量不能同名； ?外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉； ?不能從循環(huán)體外轉向循環(huán)體內(nèi)，反之則可以。 Private Sub Command1_Click() j = 0 For i = 1 To 10 Step 2 i = i + 3 j = j + 1 Print 第 。 S=1+22+32+…… +102，計算并輸出 s 例 13 S=1+22+32+……+n 2，問 n為多少時， s的值大于 100000？ 形式 1： Do While|Until 條件 循環(huán)體 Loop 要注意： ? 出了循環(huán)，循環(huán)控制變量值的問題。 思考 ： 輸入 10個數(shù)，輸出偶數(shù)平均值。 1. If… Then語句 (單分支結構 ) If 表達式 Then 語句塊 End If 或 If 表達式 Then 語句 問題 ： 輸入兩個數(shù)存放在 x和 y中 ，比較大小，保證大數(shù)放在 x中，小的數(shù)放在 Y中。 函數(shù)形式：變量 =InputBox(提示 [,標題 ][,默認值 ]) r= InputBox(請輸入半徑 r： , 輸入數(shù)據(jù) , 4) MsgBox函數(shù)和 MsgBox過程（ 輸出提示信息 ） 函數(shù)形式： 變量 = MsgBox(提示 [,圖標 +按鈕 ][，標題 ]) a = MsgBox(密碼錯誤！ , 16 + 1, 登錄 ) 過程形式： Call MsgBox (提示 [,圖標 +按鈕 ][,標題 ]) MsgBox 提示 [,圖標 +按鈕 ][,標題 ] 圖標類型 參數(shù)值 紅色 Stop標志 16 詢問信息 ？ 32 警告信息 ！ 48 信息 I 64 按鈕 參數(shù)值 0 1 2 3 4 5 按下的按鈕 返回值 1 2 3 4 5 6 7 思考 例 8 輸入半徑 ,求圓面積和球體積。 一、順 序 結 構 順序結構即按語句的先后，順序執(zhí)行程序。 練習 把下列算術表達式寫成 VB表達式 （ 1） |x+y|+Z5 （ 2）（ 1+xy） 6 （ 3） （ 4） （ 5） x1 | a | + ln10 + sin(x2 + 2л) / cos(57 o) 3211111RRR?? aacbb242 ???根據(jù)條件寫一個 VB表達式 （ 1）產(chǎn)生一個“ C”~“L”范圍內(nèi)的大寫字符 （ 2）產(chǎn)生一個 100~200之間的正整數(shù) （ 3）已知直角坐標系中任意一個點（ X， Y），表示在第一或第三象限內(nèi) （ 4）表示 X是 5或 7的倍數(shù) （ 5）將任意一個兩位數(shù) X的個位數(shù)與十位數(shù)對換 （ 6）將變量 X四舍五入到小數(shù)點后第 2位小數(shù) （ 7）表示字符變量 C是字母字符 （ 8）取字符變量 S中，第 5個字符起的 6個字符 （ 9）表示 10≤X＜ 20的關系表達式 （ 10） X， Y中有一個小于 Z （ 11） X， Y都大于 Z 寫出下列表達式的值 (1)123+23 MOD 10\7+ASC(A) (2)100+100 amp。 如： a=Abs(3) ?Abs(3) Abs(3) 第五講 VB語言基礎 三、常用內(nèi)部函數(shù) √ √ 數(shù)學函數(shù) 函數(shù)名 舉例 結果 Abs(N) Abs(4) 4 Int(N) Int() Int() 3 4 Fix(N) Fix() Fix() 3 3 Round(N1,[N2]) Round() Round() Round(,1) 4 4 Sqr(N) Sqr(9) 3 Exp(N) Exp(1) Log(N) Log() 1 Sgn(N) Sgn(3) 1 Sin(N) Sin(90*) 1 Rnd(N) Rnd( ) [0,1) 注意 : (1)Int(),Fix(),Round()的區(qū)別 (2)Sin(N)、 Cos(N)、 Tan(N)、 Atn(N) 三角函數(shù)中參數(shù) N為弧度表示 (3)Rnd()產(chǎn)生的是 0到 1(包括 0,但不包括 1)之間的隨機小數(shù) . 若要每次運行程序產(chǎn)生的隨機數(shù)序列不同，應在調(diào)用Rnd函數(shù)的語句前，執(zhí)行 Randomize語句 若要產(chǎn)生 [A,B]之間的隨機數(shù)可用 Int(Rnd()*(BA+1))+A 如 : Int(Rnd()*31)+20 產(chǎn)生的是 [20,50] 舉例 字符串函數(shù) 函數(shù)名 舉例 結果 Left(C,N) Left(ABCD,2) “AB” Right(C,N) Right(ABCD”,2) “CD” Mid(C,N1,N2) Mid(“ABCD,2,2) Mid(ABCD,2) “BC” “BCD” Len(C ) Len(ABCD) Len(學習 VB) 4 4 Ltrim(C ) Len(Ltrim( VB)) 2 Rtrim(C) Len(Rtrim(VB )) 2 Trim(C) Len(TRIM( VB )) 2 Space(N) Len(Space(3)) 3 String(N,C) String(2, VB) “VV” 4 注意 : (1)Len(),返回的是字符串的字數(shù) ,Lenb()返回的是字符串的字節(jié)數(shù) (2)Mid(C,N1,N2)省略 N2表示從第 N1位開始取 ,取到最后 日期和時間函數(shù) 函數(shù)名 舉例 結果 Date() Date() 20220331 Time() Time() 02:30:15 Now() Now() 20220331 02:30:15 Year(D) Year(Date()) 2022 轉換函數(shù) 函數(shù)名 舉例 結果 Val(C) Val(23)+2 Val(23A2)+2 23A2+2 Val(A23)+2 A23+2 Val(2e1)