visual basic 程序設計教程-第四版-劉炳文編著-清華大學出版社

1、Visual Basic 程序設計教程部分習題參考第四版 劉炳文 編著 清華大學出版社第五章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ù)用適當?shù)母袷皆诖绑w上顯示出來。Dim a as variant Fontsize=20 x）t a x） t a x） t a x） t a x）t a5.7設 a=5，b=2.5，c=7.8，編程序計算： 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 兩個變量的值。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; 年后; 中國人口增加到; pEnd Sub33形，如可以構成，則計算并輸出三角形的面積，否則

4、要求重新輸入。當輸入-1時結束程序。Dim a as single；b as single；c as single Start:a = inputbox(“請輸入第一條邊長-1 結束：”,”數(shù)據(jù)輸入”) a=val（a）if a=-1 then endend if ） b=val（b） x“請輸入第三條）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勾股定理中三個數(shù)的關系是 。編寫程序，輸出 30 以內滿足上述關系的整數(shù)組合。3，4，5

5、 就是一個滿足要求的整數(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如果一個數(shù)的因子之和等于這個數(shù)的本身，則稱這樣的數(shù)為“完全數(shù)”。例如，整數(shù) 28 的因子為1，2，4，7，1428 是一個完全數(shù)，編寫一個程序，從鍵盤

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從鍵盤上輸入一個學生的學號和考試成績，然后輸出該學生的學號和考試成績，并根據(jù)成績按下面的規(guī)定輸出對該學生的評語：成績80100607950594049039評語very g

7、oodgoodfairpoorfailPrivate Sub Form_Click()n = InputBox(請輸入學號) s = InputBox(請輸入分數(shù))If s = 80 ThenPrint學號：n，分數(shù)：s學生評語：VeryGood ElseIf s = 60 And s = 50 And s = 40 And s = 0 And s = 39 ThenPrint 學號：; n; ，; 分數(shù)：; s; ,; 學生評語：; FailEnd IfEnd Sub 做前者的對調數(shù)。如給定一個兩位的正整數(shù)，請找到另一個兩位的正整數(shù)，值得這兩個整數(shù)之和等于他們 Private Sub Com

8、mand1_Click() Dim a As StringDim i As Longa = InputBox(輸入一個兩位的正整數(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 個元素對換，即1 10 2 9 個元素互換10 1 個元素互換。 分別輸出數(shù)組原來各元素的值和對換后各元素的值。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ù)據(jù)。（1）2，8，7，6，4，28，70，25（2）79，27，32，41，57，66，78 ，80編寫一個程序，把上面兩組數(shù)據(jù)分別讀入兩個數(shù)組中，然后把兩個數(shù)組中對應下標的元素相加，即 2+79， 8+27，25+80，并把相應的結果放入第三個數(shù)組中，最后輸出第三個數(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 第三個數(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、以下操作：輸出矩陣兩個對角線上的數(shù)；分別輸出各行和各列的和。交換第一行和第三行的位置。交換第二行和第四行的位置。輸出處理后的數(shù)組。Dim a(4, 4), b(4, 4) As Integer For i = 0 To 3For j = 0 To 3a(i, j) = Val(InputBox(請輸入第 & 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對角線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調整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 調整后數(shù)據(jù)For i = 0 To 3Print b(i, 0) & & b(i, 1) & & b(i, 2) & & b(i, 3) Next i設有如下人員名冊：姓名性別年齡文化程度籍貫張得功男24大學本科河北李得勝男30高中畢業(yè)北京王麗女25研究生ft東 這個人的情況。例如，輸入“張得功則顯示：張得功男24大學本科河要求：使用動態(tài)數(shù)組，輸入的人數(shù)可以根據(jù)實際情況改變。當檢索名冊中不存在的人名時，輸出相應的信息。每次檢索結束后，詢問是否繼續(xù)檢索，根據(jù)輸入的信息確定是否結束程序。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ù)組，使符合動態(tài)數(shù)目./ 這里對取得數(shù)據(jù)進行顯示處理end ifDim Msg, Response Msg = 確認退出?Response = MsgBox(Msg, vbQuestion + vbYesNo, 提示)Select Case Response

16、Case vbYes/退出Case vbNo/繼續(xù)End Select10100米短跑，運動員和成績如下：207 號14.5 秒077 號15.1 秒156 號14.2 秒231 號14.7 秒453 號15.2 秒276 號13.9 秒096 號15.7 秒122 號13.7 秒339 號14.9 秒302 號14.5 秒編寫程序，按成績排出名次，并按如下格式輸出名次運動員成績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 名次 & 運動員 & 成績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(請輸入第& i1 &運動員的編號) w(i1InputBox(請輸入第& i1 &運動員的成績)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 次方的