visual basic 程序設(shè)計(jì)教程-第四版-劉炳文編著-清華大學(xué)出版社

1、Visual Basic 程序設(shè)計(jì)教程部分習(xí)題參考第四版 劉炳文 編著 清華大學(xué)出版社第五章4 4 inputbox函數(shù)輸入數(shù)據(jù)，在窗體上顯示和及平均值。Dim a as single For i=1 to 4） sum=sum+an=n+1 avg=sum/nnext it t 據(jù)用適當(dāng)?shù)母袷皆诖绑w上顯示出來(lái)。Dim a as variant Fontsize=20 x）t a x） t a x） t a x） t a x）t a5.7設(shè) a=5，b=2.5，c=7.8，編程序計(jì)算： y=（ab）/（a+bc）程序：Dim a as single，b as single，c as singl

2、e a=5b=2.5c=7.8 pi=3.14y=（pi*a*b）/（a+b*c）t ;yDim a as long，d as integer ，h as integer，s as integer x“）d=int（a/86400）h=int（ a-d*86400）/3600） s=a-d*86400-h*3600t d、自由落體位移公式為：s=gt2/2+v0t其中0 g t 0=4.8m/， g inputbox t 兩個(gè)變量的值。Dim v as single，t as single，s as single g=9.81= x） v=val（v） x） t=val（t）s=g*t*t/2

3、+v*tprint “位移量是：”;s第七章7.1S 的值dim i,s as integers=0for i=2 to 100 step 2 s=s+inextprint s13 20億。Private Sub Form_click()Dim p As Double Dim r As Single Dim n As Integerp = 130000000r = 0.01n = 0Do While p = 200000000 p = p * (1 + r)n = n + 1 LoopPrint n; 年后; 中國(guó)人口增加到; pEnd Sub33形，如可以構(gòu)成，則計(jì)算并輸出三角形的面積，否則

4、要求重新輸入。當(dāng)輸入-1時(shí)結(jié)束程序。Dim a as single；b as single；c as single Start:a = inputbox(“請(qǐng)輸入第一條邊長(zhǎng)-1 結(jié)束：”,”數(shù)據(jù)輸入”) a=val（a）if a=-1 then endend if ） b=val（b） x“請(qǐng)輸入第三條）c=val（c）if a+b=c or a+c=b or b+c i ThenPrint a(2 * i - j);ElsePrint a(j); End If Next jNext iEnd Sub7.6勾股定理中三個(gè)數(shù)的關(guān)系是 。編寫程序，輸出 30 以內(nèi)滿足上述關(guān)系的整數(shù)組合。3，4，5

5、 就是一個(gè)滿足要求的整數(shù)組合Private Sub Command1_Click()Dim Max As Integer, I As Integer, J As Integer, K Max = 30For I = 3 To Max - 2For J = I + 1 To Max - 1 K = Sqr(I 2 + J 2)If K = Int(K) And K = Max Then Print I, J, K NextNextEndSub7.8如果一個(gè)數(shù)的因子之和等于這個(gè)數(shù)的本身，則稱這樣的數(shù)為“完全數(shù)”。例如，整數(shù) 28 的因子為1，2，4，7，1428 是一個(gè)完全數(shù)，編寫一個(gè)程序，從鍵盤

6、上輸入整數(shù)M M N 之間的所有的完全數(shù)form load() inti,j,m,n,summ =inputbox(輸入最小正整數(shù))n =inputbox (輸入最大正整數(shù)) for j=m to nsum=0for i=1to jif(j mod i=0)and (i j )then sum=sum i nextifj=sumthenprint sum& 是完全數(shù)nextprint 查找完畢beepend sub 7.10從鍵盤上輸入一個(gè)學(xué)生的學(xué)號(hào)和考試成績(jī)，然后輸出該學(xué)生的學(xué)號(hào)和考試成績(jī)，并根據(jù)成績(jī)按下面的規(guī)定輸出對(duì)該學(xué)生的評(píng)語(yǔ)：成績(jī)80100607950594049039評(píng)語(yǔ)very g

7、oodgoodfairpoorfailPrivate Sub Form_Click()n = InputBox(請(qǐng)輸入學(xué)號(hào)) s = InputBox(請(qǐng)輸入分?jǐn)?shù))If s = 80 ThenPrint學(xué)號(hào)：n，分?jǐn)?shù)：s學(xué)生評(píng)語(yǔ)：VeryGood ElseIf s = 60 And s = 50 And s = 40 And s = 0 And s = 39 ThenPrint 學(xué)號(hào)：; n; ，; 分?jǐn)?shù)：; s; ,; 學(xué)生評(píng)語(yǔ)：; FailEnd IfEnd Sub 做前者的對(duì)調(diào)數(shù)。如給定一個(gè)兩位的正整數(shù)，請(qǐng)找到另一個(gè)兩位的正整數(shù)，值得這兩個(gè)整數(shù)之和等于他們 Private Sub Com

8、mand1_Click() Dim a As StringDim i As Longa = InputBox(輸入一個(gè)兩位的正整數(shù):) If Val(a) = 100 ThenMsgBox 輸入不合法Exit SubEnd IfFor i = 1 To 99If Val(a) + i = Val(getDuiTiao(a) + getDuiTiao(CStr(i) Debug.Print iEnd If NextEnd SubPrivate Function getDuiTiao(ByVal vStr As String) As String Dim strTmp As StringstrTm

9、p = Right(CStr(vStr), 1) & Left(CStr(vStr), 1) getDuiTiao = strTmpEnd Function第八章10 5 5 個(gè)元素對(duì)換，即1 10 2 9 個(gè)元素互換10 1 個(gè)元素互換。 分別輸出數(shù)組原來(lái)各元素的值和對(duì)換后各元素的值。Option Base 1Private Sub Form_Click()arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)Print For i = 1 To 10Printarr(i);Next iPrintFor i = 1 To 5For j = 6 To 10 t =

10、 arr(i) arr(i) = arr(j)arr(j) = t Next jNext iPrint For i = 1 To 10Printarr(i);Next iEnd Sub設(shè)有如下兩組數(shù)據(jù)。（1）2，8，7，6，4，28，70，25（2）79，27，32，41，57，66，78 ，80編寫一個(gè)程序，把上面兩組數(shù)據(jù)分別讀入兩個(gè)數(shù)組中，然后把兩個(gè)數(shù)組中對(duì)應(yīng)下標(biāo)的元素相加，即 2+79， 8+27，25+80，并把相應(yīng)的結(jié)果放入第三個(gè)數(shù)組中，最后輸出第三個(gè)數(shù)組的值。Option Base 1Private Sub Form_Click() Dim A, B, C(8) As Intege

11、rA = Array(2, 8, 7, 6, 4, 28, 70, 25)B = Array(79, 27, 32, 41, 57, 66,78,80)For i = 1 To 8C(i) = A(i) + B(i)Next iPrint For i = 1 To 8PrintA(i);Next iPrintPrint For i = 1 To 8Print Next iPrintPrint 第三個(gè)數(shù)組為：; For i = 1 To 8Print C(i);Next i PrintEnd Sub8.725 36 78 1312 26 889375 18 22 3256 44 3658然后執(zhí)行

12、以下操作：輸出矩陣兩個(gè)對(duì)角線上的數(shù)；分別輸出各行和各列的和。交換第一行和第三行的位置。交換第二行和第四行的位置。輸出處理后的數(shù)組。Dim a(4, 4), b(4, 4) As Integer For i = 0 To 3For j = 0 To 3a(i, j) = Val(InputBox(請(qǐng)輸入第 & i + 1 & 行第 & j + 1 & 列的數(shù)) Next jNext iPrint 原始數(shù)據(jù) For i = 0 To 3Print a(i, 0) & & a(i, 1) & & a(i, 2) & & a(i, 3) & 和 & Val(a(i, 0) + a(i, 1) + a(

13、i, 2)+ a(i, 3)Next iPrint 和和和和For j = 0 To 3Print ; Val(a(0, j) + a(1, j) + a(2, j) + a(3, j); Next jPrint對(duì)角線For i = 0 To 3Print Tab(i * 2); a(i, i) Next iPrintFor i = 0 To 3Print Tab(3 - i) * 2); a(i, 3 - i)Next Print調(diào)整For j = 0 To 3b(2, j) = a(0, j)第一行和第三行b(0, j) = a(2, j)b(1, j) = a(3, j)b(3, j)

14、= a(1, j) Next jPrint 調(diào)整后數(shù)據(jù)For i = 0 To 3Print b(i, 0) & & b(i, 1) & & b(i, 2) & & b(i, 3) Next i設(shè)有如下人員名冊(cè)：姓名性別年齡文化程度籍貫張得功男24大學(xué)本科河北李得勝男30高中畢業(yè)北京王麗女25研究生ft東 這個(gè)人的情況。例如，輸入“張得功則顯示：張得功男24大學(xué)本科河要求：使用動(dòng)態(tài)數(shù)組，輸入的人數(shù)可以根據(jù)實(shí)際情況改變。當(dāng)檢索名冊(cè)中不存在的人名時(shí)，輸出相應(yīng)的信息。每次檢索結(jié)束后，詢問(wèn)是否繼續(xù)檢索，根據(jù)輸入的信息確定是否結(jié)束程序。dim arr()/定義數(shù)組Adodc1.RecordSource

15、= select * from 數(shù)據(jù)表 where 1=1 and 姓名= & text1.text Adodc1.Refreshi_count = Adodc1.Recordset.RecordCount/if i_count=0thenmsgbox 查找人員不存在,64,提示信息 elseredim arr(i_count)/重新定義數(shù)組，使符合動(dòng)態(tài)數(shù)目./ 這里對(duì)取得數(shù)據(jù)進(jìn)行顯示處理end ifDim Msg, Response Msg = 確認(rèn)退出?Response = MsgBox(Msg, vbQuestion + vbYesNo, 提示)Select Case Response

16、Case vbYes/退出Case vbNo/繼續(xù)End Select10100米短跑，運(yùn)動(dòng)員和成績(jī)?nèi)缦拢?07 號(hào)14.5 秒077 號(hào)15.1 秒156 號(hào)14.2 秒231 號(hào)14.7 秒453 號(hào)15.2 秒276 號(hào)13.9 秒096 號(hào)15.7 秒122 號(hào)13.7 秒339 號(hào)14.9 秒302 號(hào)14.5 秒編寫程序，按成績(jī)排出名次，并按如下格式輸出名次運(yùn)動(dòng)員成績(jī)1.2.3.10.Form1 Command Dim i As Integer, j As IntegerDim n As Integer, m As Integer Dim w(9, 1) As DoublePriv

17、ate Sub Command1_Click() Dim a1 As Double, a2 As Double a1 = 0a2 = 0For i = 1 To 10For j = 0 To 9 - iIf w(j, 1) w(j + 1, 1) Then a1 = w(j, 0)a2 = w(j, 1)w(j, 0) = w(j + 1, 0)w(j, 1) = w(j + 1, 1)w(j + 1, 0) = a1w(j + 1, 1) = a2End If Next jNext iFor i = 0 To 9Print w(i, 0) NextPrint 名次 & 運(yùn)動(dòng)員 & 成績(jī)For

18、 i = 0 To 9Print & i + 1 & & Format(w(i, 0), 000)& & w(i, 1)Next End SubPrivate Sub Form_Load()For i = 0 To 9w(i0InputBox(請(qǐng)輸入第& i1 &運(yùn)動(dòng)員的編號(hào)) w(i1InputBox(請(qǐng)輸入第& i1 &運(yùn)動(dòng)員的成績(jī))NextCommand1.Caption = 名次排列 End SubVB10*1010 Private SubForm_Click()Dim a(1 To 10, 1 To 10) As IntegerFor i = 1 To 10For j = 1 To 10 a(i, j) = 0If i = j Then a(i, j) = 1If i + j = 11 Then a(i, j) = 1 Print a(i, j); ;Next j PrintNext i End Sub8.12.楊輝三角形每一行是(x+y)的 n 次方的