一道VB题,我做出来是和标准答案不同,只要第二步份.Private Sub Command2_Click()Sum = 0For i = 1 To 20Min = a(1,1)For j = 2 To 5If a(i,j) < Min ThenMin = a(i,j)End IfNext jSum = Sum + MinNext iText2.Text = Sum / 20End Sub打开代码
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/12 14:52:42
![一道VB题,我做出来是和标准答案不同,只要第二步份.Private Sub Command2_Click()Sum = 0For i = 1 To 20Min = a(1,1)For j = 2 To 5If a(i,j) < Min ThenMin = a(i,j)End IfNext jSum = Sum + MinNext iText2.Text = Sum / 20End Sub打开代码](/uploads/image/z/13796596-28-6.jpg?t=%E4%B8%80%E9%81%93VB%E9%A2%98%2C%E6%88%91%E5%81%9A%E5%87%BA%E6%9D%A5%E6%98%AF%E5%92%8C%E6%A0%87%E5%87%86%E7%AD%94%E6%A1%88%E4%B8%8D%E5%90%8C%2C%E5%8F%AA%E8%A6%81%E7%AC%AC%E4%BA%8C%E6%AD%A5%E4%BB%BD.Private+Sub+Command2_Click%28%29Sum+%3D+0For+i+%3D+1+To+20Min+%3D+a%281%2C1%29For+j+%3D+2+To+5If+a%28i%2Cj%29+%3C+Min+ThenMin+%3D+a%28i%2Cj%29End+IfNext+jSum+%3D+Sum+%2B+MinNext+iText2.Text+%3D+Sum+%2F+20End+Sub%E6%89%93%E5%BC%80%E4%BB%A3%E7%A0%81)
xV[oH+J "V;$}RD+qh.4.)Єm -[P&?㱓8N$l/s|oI&0NaUkذ[ݲU+⢽j=/exLFu~luscSi¼&ɤq&g
$0Єi1)OZq%LlP 5Rhl>)v5'qc4hBYV`3ok2GoQ<8d8~F-i7KΔPWWm8ӡyp3gϡݼco<|*֚Z[[Y_"5V~MtIjpdAP?ժXoߝ'/NE/)%9X#Q (xs3&1(LOr=oGnRMٜ0ȃm2ɶ[|.x^qZܓ:po}'U_7(zoTTyc֟a*;>SޏafwGhH uVfc+%95:2hZ
ƍL