同濟大學數據庫作業(yè)答案及

1、實驗一實驗一(1)知識點：控件 標簽標簽、文本框文本框、按鈕按鈕的使用題目：Button1Button2Button3實驗一實驗一(1)VB.NET 窗體應用程序創(chuàng)建過程1. 新建項目2. 窗體設計：控件屬性設置 Label：Text屬性； TextBox：MultiLine屬性(True)； Button：Text屬性；3. 代碼設計：方法、事件過程編程 在三個Button的click事件過程體中，分別給出字體轉換、選中復制的邏輯實現。 三個按鈕的單擊事件過程三個按鈕的單擊事件過程代碼實驗一實驗一(2)知識點：變量聲明，表達式，數據類型轉換、變量聲明，表達式，數據類型轉換、 if語語句、句、

2、IsNumeric函數、函數、MsgBox的使用題目：編程求解雞兔同籠問題光標從TextBox2中移出（失焦）編寫編寫TextBox2的的LostFocus事件過程事件過程代碼變量聲明變量聲明 局部變量聲明的語法 Dim 變量名 As 類型 =初值如, Dim a As Integer 或 Dim a%常見類型 Integer(%) Long(&) Single(!) Double(#) String($) Char Date Boolean9 9數據類型數據類型轉換函數轉換函數(1) Str(N) 將非負數值轉換成字符串后，會。 如, 123 & str(456) 結果為 1

3、23 456 (2) CStr(N) 將數值N轉換成String類型數據 如, 123 & Cstr(456) 結果為 123456 (3)變量名.ToString() 如 , dim x!, y$ x=3.1415926 y=x.ToString() 或 y= & x1010轉換函數說明轉換函數說明(3) Val(C) 將數字字符串轉換為數值類型，當字符串中出現數值類型規(guī)定的字符外的字符，則停止轉換，函數返回的是停止轉換前的結果。例如表達式： Val(-123.45ty3)結果為-123.45。(4) CInt(C) 將數字字符串C轉換為整型數，當字符串中出現數值類型規(guī)定的字

4、符外的字符時，編譯報錯如, CInt(“-123.45ty3”) 類似，類似，CDbl(表達式表達式)本章目錄本章目錄1111IsNumeric函數函數形式：形式： IsNumeric（表達式）（表達式）作用：判斷表達式是否是數字作用：判斷表達式是否是數字, 返回返回true/false 一般用于對輸入數據的合法性檢驗一般用于對輸入數據的合法性檢驗例如例如 IsNumeric(123a) 結果結果Fasle 1212打開一個信息框，等待用戶選擇一個按鈕。 無無返回值返回值用法： MsgBox (提示,按鈕樣式,標題) 有返回值有返回值用法：略 MsgBox函數函數本章目錄本章目錄如：MsgBo

5、x(荒唐解，請重新輸入！, MsgBoxStyle.Question)1313MsgBoxMsgBox按鈕按鈕樣式樣式設置設置 信息圖標 64Information警告信息圖標 48Exclamation詢問信息圖標 32Question關鍵信息圖標 16Critical圖標類型 重試、取消按鈕 5RetryCancel是、否按鈕 4YesNo是、否、取消按鈕 3YesNoCancel終止、重試、忽略按鈕 2AboutRetryIgnore確定、取消按鈕 1OkCancel確定按鈕 0OkOnly按鈕數目 描 述按鈕值枚舉值分組 本章目錄本章目錄MsgBoxStyle.枚舉值枚舉值如：MsgB

6、ox(荒唐解，請重新輸入！, MsgBoxStyle.Question)實驗一實驗一(3)知識點：自定義子過程、if語句、利用TextBox的KeyPress事件進行“按鍵”檢查、共享事件題目：一元二次方程求解代碼子過程定義與調用子過程定義與調用 子過程定義形式 Sub 子過程名(形參列表聲明) 過程體 End Sub 子過程的調用格式 子過程名(實參列表) 自定義自定義子子過程過程quadraticEquationTextBox控件的控件的keypress事件事件 在 tbA_KeyPress事件過程中，進行按鍵檢查。該事件過程為tbA.KeyPress和tbB.KeyPress,tbC.K

7、eyPress三個事件所共享。在 Private Sub tbA_KeyPress(sender As Object, e As KeyPressEventArgs) Handles tbA.KeyPress后鍵入實驗一實驗一(4)知識點：數組、隨機數、if語句、循環(huán)結構、系統(tǒng)常量(VbCrLf)題目：代碼1919 數組聲明及初始化數組聲明及初始化 一維數組 Dim 數組名(下標上界) As 類型 下標上界為常數、已有值的表達式或變量。 下標下界為0。 一維數組的大小為：下標上界 + 1。 例例 Dim a(10) As Integer，Dim st(5) As String本章目錄本章目錄2

8、020多維數組聲明多維數組聲明 Dim 數組名(下標1，下標2) As 類型下標個數決定了數組的維數，每一維的大小=上界+1；數組的大小為每一維大小的乘積。 例例 Dim x(2,4) As Long聲明了一個長整型的二維數組 x；共占據35個長整型變量的空間 x(1,4)x(1,3)x(1,2)x(1,1)x(1,0) x(2,4)x(2,3)x(2,2)x(2,1)x(2,0) x(0,4)x(0,3)x(0,2)x(0,1)x(0,0) 本章目錄本章目錄2121數組的初始化數組的初始化 在定義數組的同時，為數組元素賦初值。形式：Dim 數組() As 類型 =常數1, ,常數n Dim

9、數組(,) As 類型 =行1常數，行m常數例例 Dim x(,) As Integer = 1,2,3,4, 5,6,7,8Dim x(,) As Integer = 1,2,3,4, 5,6,7,812345678數組數組x本章目錄本章目錄2222Rnd 隨機函數隨機函數形式：形式： Rnd() 作用：作用： 產生產生0，1) 雙精度隨機數。雙精度隨機數。 產生某范圍的整數值，其通用表達式為： Int(Rnd() * (上界-下界+1) +下界) 要產生1100 整數：Int(Rnd()*100+1) 注意：每次注意：每次運行產生運行產生相同序列的隨機數。相同序列的隨機數。若若要要產生不同

10、序列的隨機數，可執(zhí)行函數：產生不同序列的隨機數，可執(zhí)行函數： RandomizeRandomize2424ForFor循環(huán)語句循環(huán)語句 For 循環(huán)變量 初值 To 終值 Step 步長語句塊Exit For語句塊Next 循環(huán)變量注意：循環(huán)變量必須為數值型。本章目錄本章目錄2525 Private Sub Button1_Click() Handles Button1.Click Dim i% Label1.Text = For i = 20 To 1 Step -1 If i Mod 6 = 0 Then Exit For Label1.Text &= i & Next E

11、nd Sub例例 i從從20開始循環(huán)減開始循環(huán)減1，當，當i是是6 的倍數時，退出循環(huán)的倍數時，退出循環(huán)2626While/until While/until 循環(huán)語句循環(huán)語句 形式1： Do While|Until 條件 語句塊 Exit Do 語句塊Loop形式2：Do 語句塊 Exit Do 語句塊Loop While|Until 條件本章目錄本章目錄形式1 先判斷后執(zhí)行，有可能一次也不執(zhí)行；形式2 先執(zhí)行后判斷，至少執(zhí)行一次。 形式3： While 條件 語句塊 Exit while 語句塊 End While2828 End語句 1)獨立的End語句 用于結束一個程序的運行，它可以放

12、在任何事件過程中。 2)與其他控制結構關鍵字配套的End語句 用于一個控制語句或過程或塊，相當于語句括號。End語句的多種形式如下： End If 、End Select、End With、 End Type、End Function、End Sub等，本章目錄本章目錄實驗一實驗一(5)知識點：自定義函數， richTexBox控件的KeyPress事件、字符串函數、數據類型轉換題目： 編一函數IsH(n),對于已知正整數n,判斷該數是否是回文數，函數返回值為布爾型。代碼3030常用字符串函數常用字符串函數 本章目錄本章目錄Trim( ABC ) 結果為ABCMid(ABCDE,2,3) 結果

13、為BCDMid(ABCDE,2,6) 結果為BCDE“InStr(1，EFABCDEFG,EF) 結果為1InStr(開始位置，字符串，要找的子串) 返回子串在原串中的起始位置IsH(n)函數函數RichTextBox1_KeyPress事件事件3333函數過程的定義函數過程的定義 形式：FunctionFunction 函數過程名函數過程名( (形參形參) ) As 類型類型 局部變量聲明 語句塊 Return 表達式 或 函數名=表達式End FunctionEnd Function本章目錄本章目錄形參形參( (或稱啞元或稱啞元) ) 只能是變量或數組名。只能是變量或數組名。 僅表示參數的

14、個數、類型，無值。僅表示參數的個數、類型，無值。3434函數過程的調用函數過程的調用 調用形式： 函數過程名(參數列表) 參數列表(稱為實參或實元)：必須與形參個數相同，位置與類型一一對應。可以是同類型的常量、變量、表達式。本章目錄本章目錄實驗一實驗一(6)知識點：單選、復選、組框 結構型控件；列表框、組合框數組型控件題目：代碼實驗一實驗一(7)知識點：多窗體的使用、數組、RND()、InputBox()函數的使用題目：代碼產生產生10個隨機數填入個隨機數填入listBox1中中3939InputBoxInputBox函數函數 打開一個對話框，等待用戶輸入，返回字符串類型的輸入值。形式：Inp

15、utBox(提示,標題,默認值,x坐標位置,y坐標位置)本章目錄本章目錄 注意:提示項不能省略。若要多行提示，可在每行行末加回車換行vbCrLf。添加新數據添加新數據單擊 “添加數據”菜單項全局變量全局變量 在標準模塊(Module)中聲明的，其可訪問性為公有的(public )變量， 它的作用域為整個程序集，可被該程序的所有過程訪問。 如，聲明一個全局變量x，并賦初值0Module commonvariable Public x% = 0End Module本題中的全局變量本題中的全局變量刪除最小值刪除最小值多窗體切換多窗體切換 點擊Form1菜單上的統(tǒng)計項，顯示Form2的實例Form2_Load事件事件將公共全局變量min,max,avg的值填入該窗體上的文本框中兩窗體傳遞數據的另一種方法兩窗體傳遞數據的另一種方法 在Form1中聲明類級別局部變量min,max,avg Form1菜單中的“統(tǒng)計”項單擊事件