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

正文內(nèi)容

vb第三章visualbasic程序設計基礎(編輯修改稿)

2024-10-22 22:46 本頁面
 

【文章內(nèi)容簡介】 。 。 首先在模塊通用段聲明數(shù)組: Dim a(1 to 10) as integer 隨機整數(shù)的生成由窗體的 Load事件代碼完成: Private Sub Form_Load() Dim p As String : p = : Randomize For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 p = p amp。 Str(a(i)) amp。 , Next i = LTrim(Left(p, Len(p) 1)) End Sub 167。 數(shù)組 求最大、最小以及平均值由“確定”按鈕 Command2的 Click事件代碼完成: Private Sub Command2_Click() Dim max As Integer, min As Integer, s As Single min = 100: max = 10: s = 0 For i = 1 To 10 If a(i) max Then max = a(i) If a(i) min Then min = a(i) s = s + a(i) Next i = max = min = s / 10 End Sub 167。 數(shù)組 “重置”按鈕 Command1的 Click事件代碼: Private Sub Command1_Click() Form_Load = = = End Sub 最后是“關閉”按鈕 Command3的 Click事件代碼: Private Sub Command3_Click() Unload Me End Sub 167。 數(shù)組 三、動態(tài)數(shù)組 (1)聲明數(shù)組:用 Public語句(全局數(shù)組)、用 Private或 Dim語句(模 塊級數(shù)組)、用 Static或 Dim語句(局部數(shù)組)聲明數(shù)組。給數(shù)組附以一個空 維數(shù)表,這樣就將數(shù)組聲明為動態(tài)數(shù) 組。 Dim DA() (2)用 ReDim 語句分配實際的元素個數(shù)。 ReDim DA( X + 1) ReDim 語句只能出現(xiàn)在過程中。與 Dim 語句、 Static 語句不同, ReDim 語句是一個可執(zhí)行語句,遇到這一語句,應用程序在運行時將執(zhí)行一 個操作。 167。 數(shù)組 2. ReDim 語句 在過程級別中使用,為動態(tài)數(shù)組變量重新分配存儲空間。 其語法如下: ReDim [Preserve] 數(shù)組名 (維數(shù)定義 ) [As 數(shù)據(jù)類型 ] [,數(shù)組名 (維數(shù)定義 ) [As 數(shù)據(jù)類型 ]] ? 說明一: (1)Preserve:可選的關鍵字,當改變原有數(shù)組最末維的大小時,使用此 關鍵字可以保持數(shù)組中原來的數(shù)據(jù)。 (2)數(shù)組名:必需的。遵循標準的變量命名約定。 (3)數(shù)組變量的維數(shù):必需的。最多可以定義 60維的多維數(shù)組。“數(shù)組變 量的維數(shù)”參數(shù)使用的語法與固定大小數(shù)組的語法相同。 (4)數(shù)據(jù)類型:可選的。聲明數(shù)組類型。 167。 數(shù)組 說明二: (1)ReDim 語句用來定義或重定義原來已經(jīng)用帶空圓括號(沒有 維數(shù)下標)的 Private、 Public或 Dim語句聲明過的動態(tài)數(shù)組的 大小。 (2)可以使用 ReDim 語句反復地改變數(shù)組的元素以及維數(shù)的數(shù) 目,但是不能在將一個數(shù)組定義為某種數(shù)據(jù)類型之后,再使用 ReDim 將該數(shù)組改為其它數(shù)據(jù)類型,除非是 Variant 所包含的 數(shù)組。 167。 數(shù)組 例:定義一個動態(tài)數(shù)組,并修改數(shù)組的元素數(shù)目和維數(shù): Dim x() As String Dim i As Integer, j As Integer ReDim x(3) For i = 0 To 3 x(i) = i amp。 i amp。 i Next ReDim x(1 To 9, 3) For i = 1 To 9 For j = 0 To 3 x(i, j) = i amp。 j Next j Next i 167。 數(shù)組 3.保留動態(tài)數(shù)組的內(nèi)容 每次執(zhí)行 ReDim 語句時,當前存儲在數(shù)組中的值都會全部 丟失。使用具有 Preserve 關鍵字的 ReDim 語句就可改變數(shù)組 大小又不丟失數(shù)組中的數(shù)據(jù)。 對于多維數(shù)組,在用 Preserve關鍵字時,只能改變數(shù)組中最 后一維的上界。例如: Dim x() As String ReDim x(3) For i = 0 To 3 x(i) = i amp。 i amp。 i Next i ReDim Preserve x(4) x(4) = 4 amp。 4 amp。 4 167。 數(shù)組 四、控件數(shù)組 如果在應用程序中用到一些類型相同且功能類似的控件,則 可將這些相同的控件視為一個“控件數(shù)組”。具有如下的特點: (1)相同的名稱( Name) (2)以下標索引值( Index)來識別各個控件 設計時有三種方法創(chuàng)建控件數(shù)組: (1)將相同名字賦予多個控件 (2)復制現(xiàn)有的控件并將其粘貼到窗體上。 (3將控件的 Index 屬性設置為非 Null 數(shù)值。 167。 數(shù)組 。 步驟 1:繪制控件數(shù)組中要添加的控件 步驟 2:選定其它控件并將其 Name屬性設置成數(shù)組第一個元 素的 Name值。 步驟 3:在為數(shù)組中的其它控件輸入相同名稱時, VB將顯示 一個對話框,要求確認是否要創(chuàng)建控件數(shù)組。此時選擇“是” , 確認操作 ,如圖 。 圖 確認創(chuàng)建控件數(shù)組 167。 數(shù)組 通過復制現(xiàn)存控件添加控件數(shù)組元素 利用復制、粘貼的功能建立控件數(shù)組,具體步驟如下: 步驟 1:繪制控件數(shù)組中的第一個控件。 步驟 2:當控件獲得焦點時,選擇“編輯”菜單中的“復 制”命令,或按“ Ctrl+C” 組合鍵。 步驟 3:在“編輯”菜單中,選擇“粘貼”命令,或按“ Ctr l+V” 組合鍵。 VB將顯示一個對話框詢問是否確認創(chuàng)建控件數(shù) 組。選擇“是”,確認操作,如圖 ,將得到控件數(shù)組中 的第二個控件元素。 步驟 4:重復步驟 3,可得到控件數(shù)組中的其他控件元素。 167。 數(shù)組 直接指定控件數(shù)組中第一個控件的索引值為 0,然后利用前 兩種方法中的任何一種添加控件數(shù)組的成員,將不會出現(xiàn)對話框 詢問是否創(chuàng)建控件數(shù)組。個體步驟如下: 步驟 1:繪制控件數(shù)組中的第一個控件。 步驟 2:將其索引值改為 0。 步驟 3:用現(xiàn)有的控件元素,復制控件數(shù)組中的其他控件, 將不會出現(xiàn)對話框詢問是否確認創(chuàng)建控件數(shù)組。 167。 VisualBasic采用事件驅(qū)動的調(diào)用過程的程序設計方法 ,包含三種基本結構:順序結構、選擇結構和循環(huán)結構。 一、順序結構 順序結構就是按照語句的順序一條一條地執(zhí)行。 [Let] 變量 =表達式 賦值語句具有計算和賦值的雙重功能,它首先計算“ =” 號右邊的表達式,然后把結果賦給“ =” 號左側(cè)的變量。 例如,下面兩個語句的作用是不同的: a = b 39。 將 b的值賦給 a : b = a 39。 將 a的值賦給 b 167。 2. Print方法 Print方法用于在窗體、立即窗口、圖片框、打印機等對象 中顯示文本字符串和表達式的值。 Print方法的格式和功能與早 期 Basic語言中的 Print語句類似。 其使用語法如下: [對象表達式 .]Print[表達式表 ][,|; ] 其中,“對象表達式”可以是窗體、立即窗口 (Debug)、圖片 框、打印機 (Printer)等對象。如果省略“對象表達式”,則在 當前窗體上輸出。 例如: Basic! 39。在 Form1窗體中顯示 Basic! 167。 Print方法的顯示格式有分區(qū)格式和緊湊格式兩種。當各表 達式用逗號作為分隔符時,按打印區(qū)顯示數(shù)據(jù)項,每隔 14列開始 一個打印區(qū),每列的寬度是所選字體磅值大小的所有字符的平均 寬度。當各表達式用分號作為分隔符時,輸出格式為緊湊格式, 此時將在每個數(shù)值后面增加一個空格,如果數(shù)值為正數(shù),將把正 號顯示為空格。 為了使數(shù)據(jù)按指定的位置輸出, VB提供了幾個與 Print配合使用 的函數(shù)。 ( 1) Tab函數(shù) 使用格式如下: Tab( n) 167。 其中, n為數(shù)值表達式,其值為整數(shù),它是下一個輸出位置的 列號,表示在輸出前把光標或打印頭移到該列。通常最左邊的列 號為 1。如果當前的顯示位置已經(jīng)超過 n,則自動下移一行。當 n 大于行的寬度時,顯示位置為 n Mod 行寬,如果 n< 1,則把輸出 位置移到第一列。 Tab函數(shù)把顯示或打印位置移到由參數(shù) n指定的列數(shù),從此列 開始輸出數(shù)據(jù)。要輸出的內(nèi)容放在 Tab函數(shù)后面,并用分號隔 開。例如: Print Tab(10)。 姓名 。Tab(30)。年齡 167。 ( 2) Spc函數(shù) 在 Print方法或 Print語句中,用 Spc函數(shù)跳過 n個空格。 使用格式如下: Spc(n) 其中, n是在顯示或打印下一個表達式之前插入的空格數(shù)。 Spc函數(shù)與輸出項間用分號隔開。例如: Print ABC。Spc(5)。 DEP 39。輸出: ABC DFE 當 Print方法與不同大小的字體一起使用時,使用 Spc函數(shù)打 印的空格字符的寬度總是等于選用字體內(nèi)以磅數(shù)為單位的所有字 符的平均寬度。 167。 例:設計一個窗體說明 Print方法的使用。 在 form1窗體上設計如下事件過程: Private Sub Form_Click() Print Let39。s study VisualBasic amp。 together!, 7 * 10 Print Let39。s study amp。 VisualBasic together!。 7 * 10 Print FontSize = 20 39。設置字體大小 Print Now 39。顯示當前日期和時間 Print FontSize = 20 39。設置字體大小 Print 10*7=。 10 * 7 FontSize = 12 Print 10*7=, 10 * 7 167。 Print FontSize = 10 FontBold = True 39。設置字體為黑體 Print 歡迎使用 。 FontSize = 15 Print VisualBasic! End Sub 167。 二、選擇結構 所謂選擇結構,可以根據(jù)不同的情況做出不同的選擇,執(zhí)行 不同的操作。 VisualBasic支持的 3種選擇結構分別是 :If?The n? 結構、 If?Then?Else? 結構、 Select Case結構。 1. If?Then? 結構 使用 If?Then? 結構可以有條件地執(zhí)行某些語句,它有兩種 語法形式: (1)只選擇執(zhí)行一條語句。 語法為: If條件 Then語句 例如: If x=0 Then y=x+1 167。 (2)需要執(zhí)行多條語句。 語法為: If 條件 Then 若干語句 end If 例如: If intage23 Then Print “ 您已經(jīng)超齡,無法入選國奧隊!” Print “ 感謝您對中國足球的關懷!” end If 167。 ?Then?Else? 結構 使用 If?Then?El
點擊復制文檔內(nèi)容
環(huán)評公示相關推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1