word版可編輯-visualbasic程序設(shè)計(jì)教程第四版劉炳文編著清華大學(xué)精心整理docxdocx-資料下載頁(yè)
2025-07-15 11:43本頁(yè)面
【正文】 231號(hào) 453號(hào) 276號(hào) 096號(hào) 122號(hào) 339號(hào) 302號(hào) 編寫(xiě)程序，按成績(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。 運(yùn)動(dòng)員 amp。 成績(jī)For i = 0 To 9 Print amp。 i + 1 amp。 amp。 Format(w(i, 0), 000) amp。 amp。 w(i, 1)NextEnd SubPrivate Sub Form_Load()For i = 0 To 9 w(i, 0) = InputBox(請(qǐng)輸入第 amp。 i + 1 amp。 運(yùn)動(dòng)員的編號(hào)) w(i, 1) = InputBox(請(qǐng)輸入第 amp。 i + 1 amp。 運(yùn)動(dòng)員的成績(jī))Next = 名次排列End Sub．VB編寫(xiě)程序，建立并輸出一個(gè)10*10的矩陣，該矩陣兩條對(duì)角線元素為1，其余元素均為0Private Sub Form_Click() Dim a(1 To 10, 1 To 10) As Integer For i = 1 To 10 For j = 1 To 10 a(i, j) = 0 If i = j Then a(i, j) = 1 If i + j = 11 Then a(i, j) = 1 Print a(i, j)。 。 Next j Print Next iEnd Sub(x+y)的n次方的展開(kāi)式的各項(xiàng)系數(shù)。例如第一行系數(shù)是1；第二行1，1；第三行1，2，1……請(qǐng)編寫(xiě)程序輸出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 a(i, 1) = 1 For j = 1 To m a(j, j) = 1 If j = 2 And j = i 1 Then a(i, j) = a(i 1, j 1) + a(i 1, j) End If Next jNext iFor i = 1 To m For j = 1 To m If i = j Then Print Tab(j * 4)。 Str(a(i, j))。 End If Next j PrintNext iEnd Sub
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1