【正文】 1 1 4 6．下面程序段 Dim x x=Int(Rnd)+4 Select Case x Case 5: Print 90~100 Case 4: Print 80~90 Case 3: Print 70~80 Case 2: Print 60~70 Case 1: Print 0~60 End Select 顯示的結(jié)果是： 80~90 7．下面程序段 For i=1 To 3 Step 1 Print Spc(5i) For j=1 To 2*i1 Print * Next j Print Next i 運(yùn)行結(jié)果為： * * * * * * * * * 8．在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程： Prinate 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 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是： 15 9．在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程： Private Sub Command1_Click() x=0 Do until x=1 a=InputBox(請(qǐng)輸入 a 的值 ) a=Val(a) b=InputBox(請(qǐng)輸入 b 的值 ) b=Val(b) x=InputBox(請(qǐng)輸入 x 的值 ) x=Val(x) a=a+b+x Loop Print a End Sub 程序運(yùn)行后，單擊命令按鈕，依次在輸入對(duì)話框中輸入 5， 4， 3， 2， 1， 1,則輸出結(jié)果為： 2 10．在窗體上畫一個(gè)文本框（其中 Name 屬性為 Text1），然后編寫如下事件過(guò)程： Private Form1_Load() = Focus For i=1 To 10 sum=sum+i Next i =sum End Sub 上述程序的運(yùn)行結(jié)果是 ： 11．在窗體上畫兩個(gè)文本框 (其 Name 屬性分別為 Text1 和 Text2)和一個(gè)命令按鈕 (其 Name 屬性為 Command1),然后編寫如下事件過(guò)程： Private Sub Command1_Click() x=0 Do while x50 x=(x+2)*(x+3) n=n+1 Loop =Str(n) =Str(x) End Sub 程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為 ： 2 72 12．寫出下列程序段的運(yùn)行結(jié)果 __s=55________。 注意：回車鍵的 ASCII 碼是 13，其掃描碼也是 13 10．設(shè)計(jì)一個(gè)程序，每間隔 1 秒，在文本框中顯示數(shù)字，依次是： 1 2 3 4 5 6 7 8 9 10 等等，直到顯示 30 止。 9．設(shè)有兩個(gè)文本框 TEXT1 和 TEXT2 ，在 TEXT1 中輸入字符。 設(shè)計(jì)一個(gè) 轉(zhuǎn)換函數(shù) 實(shí)現(xiàn)該功能。 Private Function Find(a() As Single, n As Integer， x As Single)As Integer 有關(guān)的實(shí)現(xiàn)語(yǔ)句 End Function 設(shè)計(jì)另一 個(gè)過(guò)程調(diào)用上述該過(guò)程，完成輸入、輸出。 （ 1）設(shè)計(jì)成一個(gè)子過(guò)程： Private Sub Instert(a() As Single,n As Integer， x As Single) 有關(guān)的實(shí)現(xiàn)語(yǔ)句 End Sub （ 2）設(shè)計(jì)另一個(gè)過(guò)程調(diào)用上述該過(guò)程，完成輸入、輸出。 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ù)組，再將其按照由小到大的順序排序后輸出。 圖 271 程序界面 30． 由鍵 盤輸入 10 位同學(xué)的學(xué)號(hào)和成績(jī)，以文件名” ”存入 D 盤。假定文件名為 c:\。 27．設(shè)計(jì)一個(gè)程序 ，在窗體上當(dāng)按下鍵盤上的“ Ctrl”鍵并單擊鼠標(biāo)器的左鍵，然后在文本框中顯示：“按下鍵盤上的 Ctrl 鍵并單擊鼠標(biāo)器的左鍵”。當(dāng)遇到回車鍵時(shí)，將剛輸入的字符串，在 TEXT2 框中顯示， 請(qǐng)?jiān)O(shè)計(jì)程序完成該功能。 24． 給出計(jì)算 Sum=1+2+3+…… +(n1)+n 的和值的遞歸函數(shù)，并通過(guò)命令按鈕事件調(diào)用，計(jì)算輸出結(jié)果。 提示：子過(guò)程的入口參數(shù)是 X（整型），出口參數(shù)是 W（整型）， W為 1,表示 X是素?cái)?shù)， W為 0，表示X 不是素?cái)?shù)。 15． 輸入一組不重復(fù)的數(shù)據(jù) (10 個(gè)數(shù)據(jù) )，同時(shí)找出最大值和最小值 ,并輸出它們 . 17． 輸出如圖所示的下三角數(shù)據(jù) 18． 用隨機(jī)函數(shù)產(chǎn)生 50 個(gè) [10， 100 ）的隨機(jī)整數(shù)，并按照由小到大的順序打印出來(lái) (10 個(gè)數(shù)一行 )。 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ù)。顯示形式：由小到大輸出 9．輸入一元二次方程 ax2 +bx+c=0 的系數(shù) a,b,c，計(jì)算并輸出一元二次方程的兩個(gè)實(shí)根 x1,x2。 6．已知 3個(gè)數(shù)，設(shè)計(jì)一個(gè)求出最大值的程序。 5． 求方程 AX+B=0 的解。 3．利用 InputBox 函數(shù)輸入一個(gè)正實(shí)數(shù)，用 Print 方法在窗體上打印出其平方值、平方根、立方值 ,結(jié)果保留 2 位有效數(shù)字。 進(jìn)一步完善程序，完成利用文本框輸入任意兩個(gè)數(shù)的加法、減法、乘法、除法運(yùn)算，并顯示計(jì)算結(jié)果 ； 再進(jìn)一步，改進(jìn)，完成，利用隨機(jī)函數(shù)，產(chǎn)生任意兩個(gè) 100 到 200 之間的整數(shù)，并完成兩個(gè)數(shù)的加法、減法、乘法、除法運(yùn)算，并顯示計(jì)算結(jié)果。第一部分 程序設(shè)計(jì)部分 程序設(shè)計(jì)題的設(shè)計(jì)格式及其處理步驟： （ 1）先畫出處理界面（窗體） ，并注明各控件的名稱 ； （ 2）再給出處理步驟， （ 3）寫出程序代碼： 下面給出該類題目的求解事例，供參考： 例如：設(shè)計(jì)程序，求 1+2+3+...+N 的和 值。 其處理過(guò)程是： （一）設(shè)計(jì)界面 （在紙上畫出界面，并注明各控件的 名稱 ） ： （二）處理步驟： 單擊命令按鈕，按以下步驟處理 （ 1）定義 3個(gè)變量： N， s， x，分別用于存放：輸入的數(shù)值，和值，控制循環(huán) （ 2） 將文本框 1的值，提供給變量 N； （ 3） s=0（累加前，將變量 s初始化為 0） ； （ 4） X=1（設(shè)置循環(huán)的開(kāi)始值） （ 5） 當(dāng) X=N 時(shí) 重復(fù)執(zhí)行 S=s+x X=X+1 （ 6） 在文本框 2中顯示和值 S （三）編寫有關(guān)的代碼： Privat