vb綜合練習(xí)題目word版(存儲(chǔ)版)
【正文】 Dim p As Integer Dim q As Integer k = 4 q = 1 p = Func(k, q) Print p p = Func(k, q) Print p End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為： 22． 假定有以下函數(shù)過程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1＝ UCase(Mid(S,i,1))+s1 Next I Fun＝ s1 End Function 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1 = InputBox(請輸入一個(gè)字符串 ) Str2 = Fun(Str1) Print Str2 End Sub 程序運(yùn)行后，如果在輸入對話框中輸入字符串 “abcdefg”，則單擊 “確定 ”按鈕后在窗體上的輸出結(jié)果為 ： 23．建立一個(gè)窗體，并把窗體的 KeyPreview 屬性設(shè)置為 True，然后編寫如下代碼： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情況下（即不按住 Shift 鍵和鎖定大寫）運(yùn)行程序，如果按“ A”鍵，則程序的輸出是： 24．在窗體上畫一個(gè)命令按鈕，然后編寫如下程序： Function fun(ByVal num As Long) As Long Dim k As Long k = 1 num = Abs(num) Do While num k = k * (num Mod 10) num = num \ 10 Loop fun = k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n = InputBox(請輸入一個(gè)數(shù) ) n = CLng(n) r = fun(n) Print r End Sub 程序運(yùn)行后單擊命令按鈕，在輸入對話框中輸入“ 234”，輸出結(jié)果為 __________。,。 第 三 部分 用語言或流程圖描述處理步驟 下面給出該類題目的求解事例，供參考： 例題： 對于 求 SUM=1+2+3+?? +98+99+100的計(jì)算過程， 請 用自然語言或流程圖描述處理步驟。 6. 給出將三個(gè)整數(shù) A,B,C按從小到大的順序排列的處理步驟 。 說明： （ 1）假設(shè)該教學(xué)班最多可能有 120 名學(xué)生，期末考試課程最多有 8 門課程。 。） 第 四 部分 綜合應(yīng)用題 下面給出該類題目的求解事例，供參考： 1．設(shè)計(jì)一應(yīng)用系統(tǒng)，完成一個(gè)教學(xué)班的學(xué)期末獎(jiǎng)學(xué)金的評定，并輸出一、二等獎(jiǎng)學(xué)金學(xué)生的學(xué)號(hào)和各門課成績。 4. 寫出計(jì)算 1!+2！ +3！ +4！ +......+20!的計(jì)算步驟 。 37． 閱讀程序： Private Sub Form_Click() num=0 Do while num=2 num=num+1 print num Loop End Sub 程序運(yùn)行后 ， 單擊窗體 ， 輸出結(jié)果是 ______。 isum, Next I End Sub Private Function sum(n As Integer) Dim j As Integer j = j + n sum = j End Function 程序運(yùn)行時(shí)，單擊窗體，輸出結(jié)果是： 33． 閱讀下面的程序段 ： For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i 執(zhí)行上面的三重循環(huán)后 ， a 的值是多少 ？ 34． Private Sub Command1_Click() Dim a(3,2) As Integer For I=0 To 3 For j=0 To 2 a(I,j)=I*2+j Print a(。 1 2 3 1 4 1 16．在窗體上畫一個(gè)命令按鈕 (其 Name 屬性值為 Command1)，然后編寫如下代碼： Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12k Next k x=6 Print M(2+M(x)) End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 ___4_____。 9．設(shè)有兩個(gè)文本框 TEXT1 和 TEXT2 ，在 TEXT1 中輸入字符。 4． 設(shè)計(jì)一個(gè)實(shí)現(xiàn)文件復(fù)制的程序 :即將文件“ C:\” 復(fù)制形成文件 ” d:\” 5． 利用隨機(jī)函數(shù)產(chǎn)生 100 個(gè) 1 到 100 之間的整數(shù)存放在一個(gè)數(shù)組 a 中，按照每行 10 個(gè)數(shù)輸出該數(shù)組，再將其按照由小到大的順序排序后輸出。當(dāng)遇到回車鍵時(shí)，將剛輸入的字符串，在 TEXT2 框中顯示， 請?jiān)O(shè)計(jì)程序完成該功能。 12． 求出 100到 200之間所有的素?cái)?shù)及其平均值 ,并輸出 13． 利用循環(huán)，打印輸出下列圖形： A AAA AAAAA AAAAAAA AAAAAAAAA AAAAAAAAAAA AAAAAAAAAAAAA AAAAAAAAAAA AAAAAAAAA AAAAAAA AAAAA AAA A 14．找出 1000 以內(nèi)的所有的完全數(shù)。 3．利用 InputBox 函數(shù)輸入一個(gè)正實(shí)數(shù)，用 Print 方法在窗體上打印出其平方值、平方根、立方值 ,結(jié)果保留 2 位有效數(shù)字。 2．對于表達(dá)式： 23 zyxxe x ???? ， 當(dāng) 輸入 x,y,z 值求該表達(dá)式的值 。 10．求 1+2+3+...+N的和， N利用 inputbox（）函數(shù)輸入， 11． 設(shè)計(jì)一個(gè)程序，對 Sum=1+2+3+...+N，求 Sum不超過 10000的最大整數(shù)項(xiàng)數(shù) N。 25．設(shè)有兩個(gè)文本框 TEXT1 和 TEXT2 ，在 TEXT1 中輸入字符。 31． 從上題建立的 D 盤上的” ”的文件中讀取學(xué)生的姓名和成績，求出最高分、 最低分的學(xué)生姓名及成績存入 D:\ 中 典型編程練習(xí)題 要求 : 要先給出所設(shè)計(jì)的窗體 ,并注明窗體上的各控件及其用途 ,然后給出處理步驟 ,并編寫代碼 . 1． 編程求 S=1！ +2！ +3！ +┅┅ +20！ Private Sub Fo
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1