西北農(nóng)林科技大學(xué)計算機網(wǎng)絡(luò)作業(yè)_1-資料下載頁
2024-10-17 19:21本頁面
【正文】 ：西北農(nóng)林科技大學(xué) vb實習(xí)作業(yè)第五章(1)例 52Private Sub Command1_Click()Dim sum!, n%, aver!sum = 0 n = 0 x = Val(InputBox(“請輸入”))Do While x 9999 sum = sum + x n = n + 1 x = Val(InputBox(“請輸入”))Loop aver = sum / n MsgBox “共輸入” amp。 n amp。 “ 個數(shù),平均值為:” amp。 aver End Sub(2)例 53 Private Sub Command1_Click()Dim a%(65 To 90), c As String * 1 le = Len(Text1)For i = 1 To le c = UCase(Mid(Text1, i, 1))If c = “A” And c 0 Then “。Chr(j)?！?“。a(j)。”“。Next j End Sub(3)例 54 Private Sub Command1_Click()Dim a$()Dim x(0 To 10)As Integer a = Split(Text1, ”,“)For i = o To UBound(a)If(a(i) 0)Thenk = a(i)10x(k)= x(k)+ 1End IfNext iPrintPrint ”100分的有:“ amp。 x(10)amp。 ”人“For i = 9 To 0 Step1Print i * 10 amp。 ”分“。i * 10 + 9amp?！狈钟?“ amp。 x(i)amp。 ”人“Next iEnd SubPrivate Sub Command2_Click()End End Sub(4))輸入多名學(xué)生的一門課程成績（成績用數(shù)組存放，要求成績用文本框輸入），統(tǒng)計0560670780890100個分數(shù)段人數(shù)。Private Sub Command1_Click()Dim a$()Dim x(0 To 10)As Integer a = Split(Text1, ”,“)For i = o To UBound(a)If(a(i) 0)Thenk = a(i)10x(k)= x(k)+ 1End IfNext iPrintPrint ”90100分的有:“ amp。 x(10)+ x(9)amp。 ”人“For i = 8 To 6 Step1Print i * 10 amp。 ”分“。i * 10 + 9amp?！狈钟?“ amp。 x(i)amp。 ”人“Next iFor i = 0 To 5s = x(i)+ sNext iPrint ”059分的有“ amp。 s?！比恕?End Sub(5)例 56(用窮舉法、輾轉(zhuǎn)相除法兩種方法)Private Sub Command1_Click()Dim m%, n% m = Val(InputBox(”請輸入第一個數(shù)m:“))n = Val(InputBox(”請輸入第二個數(shù)n:“))If m n Then t = m: m = n: n = t For x = m To m * n If x Mod m = 0 And x Mod n = 0 Then Print ”最小公倍數(shù)為:。x End Sub(6)例 57(7)例 58(8)例 59(9)用比較交換法對10個學(xué)生成績實現(xiàn)從低到高排序(10)用選擇法對10個學(xué)生成績實現(xiàn)從低到高排序(11)例 512(12)第136頁第3題(13)第136頁第4題(14)第136頁第5題(15)第136頁第7題(16)第136頁第8題(17)第136頁第11題
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1