【正文】 試設(shè)計一考勤管理系統(tǒng)，使之能提供以下功能： 1）錄入學(xué)生的缺課記錄； 2）修改某個學(xué)生的缺課記錄； 3）查詢某個學(xué)生的缺課情況； 4）統(tǒng)計某段時間內(nèi)，曠課學(xué)生姓名及曠課次數(shù)，按曠課次數(shù)由多到少 排序； 5）統(tǒng)計某段時間內(nèi)，有學(xué)生曠課的課程及曠課人次，按曠課人次由多到少排序； 6）系統(tǒng)以菜單方式工作。假設(shè)有 20名選手。 開始 S U M = 0 X = 1 S U M = S U M + X X = X + 1 X = 1 0 0 輸出 S U M 結(jié)束 練習(xí)題目： 要求：首先給出所使用的變量名稱、類型以及變量的用途 ： 1. 判定一個數(shù) X是否是偶數(shù)的處理步驟 。a(I,j)。 27． 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click( ) For i=1 To 4 x=4 For j =1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序運行后，單擊命令按鈕，輸出結(jié)果是 ( ) 。 i=1 s=0 Do until i10 s=s+i i=i+1 Loop Print s=。 8． 數(shù)制轉(zhuǎn)換 問題： 將一個十進制整數(shù) m 轉(zhuǎn)換成 r進制（ 2或 8進制） 字符串。 29． 編程建立一個包含若干行字符串的文本文件，然后將該文件的內(nèi)容按行讀出，加上行號后復(fù)制到另外一個文本文件中。 23． 編寫一個子過程 (或函數(shù)過程 )，功能是求階乘，并調(diào)用該過程計算： S=1!+2!+3!+?? +n！的值，其中 n 的值可以通過鍵盤隨機 輸入，圖 271 是程序界面。 7．輸入一個整數(shù)，判定是正數(shù)還是負數(shù)，并輸出結(jié) 果 8．輸入 x,y,z 三個數(shù)，按從小到大的次序顯示。 其處理過程是： （一）設(shè)計界面 （在紙上畫出界面，并注明各控件的 名稱 ） ： （二）處理步驟： 單擊命令按鈕，按以下步驟處理 （ 1）定義 3個變量： N， s， x，分別用于存放：輸入的數(shù)值，和值，控制循環(huán) （ 2） 將文本框 1的值，提供給變量 N； （ 3） s=0（累加前，將變量 s初始化為 0） ； （ 4） X=1（設(shè)置循環(huán)的開始值） （ 5） 當 X=N 時 重復(fù)執(zhí)行 S=s+x X=X+1 （ 6） 在文本框 2中顯示和值 S （三）編寫有關(guān)的代碼： Private Sub Command1_Click() Dim n%， s%， x% N=val() S=0 X=1 Do while x=n S=s+x X=x+1 Loop Text2=s End Sub 請輸入 N 運算結(jié)果 計算 文本框 1： TEXT1 文本框 2： TEXT2 命令 按鈕 1： Command1 標簽 1： Label1 標簽 2： Label2 第一部分 練習(xí)題目 要求 : 要先給出所設(shè)計的窗體 ,并注明窗體上的各控件及其用途 ,然后給出處理步驟 ,并編寫代碼 . 1． 設(shè)計一個程序，完成利用文本框輸入任意兩個數(shù)的乘法運算，并顯示計算結(jié)果。 5． 求方程 AX+B=0 的解。 15． 輸入一組不重復(fù)的數(shù)據(jù) (10 個數(shù)據(jù) )，同時找出最大值和最小值 ,并輸出它們 . 17． 輸出如圖所示的下三角數(shù)據(jù) 18． 用隨機函數(shù)產(chǎn)生 50 個 [10， 100 ）的隨機整數(shù)，并按照由小到大的順序打印出來 (10 個數(shù)一行 )。 27．設(shè)計一個程序 ，在窗體上當按下鍵盤上的“ Ctrl”鍵并單擊鼠標器的左鍵，然后在文本框中顯示：“按下鍵盤上的 Ctrl 鍵并單擊鼠標器的左鍵”。 （ 1）設(shè)計成一個子過程： Private Sub Instert(a() As Single,n As Integer， x As Single) 有關(guān)的實現(xiàn)語句 End Sub （ 2）設(shè)計另一個過程調(diào)用上述該過程，完成輸入、輸出。 注意：回車鍵的 ASCII 碼是 13，其掃描碼也是 13 10．設(shè)計一個程序，每間隔 1 秒，在文本框中顯示數(shù)字，依次是： 1 2 3 4 5 6 7 8 9 10 等等，直到顯示 30 止。 1 2 3 2 4 6 18．假定有如下的 Sub 過程： Sub s(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a,b Print a,b End Sub 程序運行后，單擊命令按鈕，輸出結(jié)果為： 19．閱讀程序 Function F(a As Integer) b = 0 Static c b = b + 1 c = c + 1 F = a + b + c End Function Private Sub mand1_click() Dim a As Integer a = 2 For i = 1 To 3 Print F(a) Next i End Sub 運行上面的程序，單擊命令按鈕，輸出結(jié)果為： 20．閱讀程序 Sub Sabp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5 a(2) = 6 a(3) = 7 a(4) = 8 Sabp a() For i = 1 To 4 Print a(i) Next i End Sub 運行上面的程序后，單擊命令按鈕，輸出結(jié)果為： 21．假定有下面的過程： Function Func(a As Integer, b As Integer) As Integer Static m As Integer, i As Integer m = 0 i = 2 i = i + m + 1 m = i + a + b Func = m End Function 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim k As Integer