word版可編輯-visualbasic程序設(shè)計(jì)教程第四版劉炳文編著清華大學(xué)精心整理docxdocx(參考版)
2025-07-18 11:43本頁(yè)面
【正文】 Next j Str(a(i, j))。 If i = j Then For j = 1 To m a(i, j) = a(i 1, j 1) + a(i 1, j) If j = 2 And j = i 1 Then For j = 1 To ma(i, 1) = 1例如第一行系數(shù)是1；第二行1，1；第三行1，2，1……請(qǐng)編寫程序輸出n=10的楊輝三角形Option Base 1Private Sub Command1_Click()Dim a() As Doublem = InputBox(請(qǐng)輸入行數(shù) , 輸入, 0)ReDim a(m, m) As DoubleFor i = 1 To m 。 i + 1 amp。 i + 1 amp。 amp。 amp。 成績(jī)For i = 0 To 9 Print amp。//繼續(xù) End Select，共有10人參加男子100米短跑，運(yùn)動(dòng)員和成績(jī)?nèi)缦拢? 207號(hào) 077號(hào) 156號(hào) 231號(hào) 453號(hào) 276號(hào) 096號(hào) 122號(hào) 339號(hào) 302號(hào) 編寫程序，按成績(jī)排出名次，并按如下格式輸出： 名次 運(yùn)動(dòng)員 成績(jī) 1 ...... .... 2 ...... .... 3 ...... .... .. ...... .... 10 ...... ....在Form1中加入一個(gè)Command控件，粘貼入以下代碼：Dim i As Integer, j As IntegerDim n As Integer, m As IntegerDim w(9, 1) As DoublePrivate Sub Command1_Click()Dim a1 As Double, a2 As Doublea1 = 0a2 = 0For i = 1 To 10 For j = 0 To 9 i If 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) = a1 w(j + 1, 1) = a2 End If Next jNext iFor i = 0 To 9Print w(i, 0)NextPrint 名次 amp。//這里對(duì)取得數(shù)據(jù)進(jìn)行顯示處理end if Dim Msg, Response Msg = 確認(rèn)退出? Response = MsgBox(Msg, vbQuestion + vbYesNo, 提示) Select Case Response Case vbYes 39。/////取出數(shù)據(jù)庫(kù)中滿足條件的數(shù)據(jù)記錄，并且計(jì)算記錄條數(shù)if i_count=0 then msgbox 查找人員不存在,64,提示信息else redim arr(i_count) 39。//定義數(shù)組 = select * from 數(shù)據(jù)表 where 1=1 and 姓名= amp。（3）每次檢索結(jié)束后，詢問(wèn)是否繼續(xù)檢索，根據(jù)輸入的信息確定是否結(jié)束程序。例如，輸入“張得功”，則顯示： 張得功 男 24 大學(xué)本科 河北要求：（1）使用動(dòng)態(tài)數(shù)組，輸入的人數(shù)可以根據(jù)實(shí)際情況改變。 b(i, 3)Next i．設(shè)有如下人員名冊(cè)
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1