王峰炬

摘要： 求解多元一次方程组： f(1,1)x1+f(1,2)x2+f(1,3)x3+...=f(1,n) f(2,1)x1+f(2,2)x2+f(2,3)x3+...=f(2,n) f(3,1)x1+f(3,2)x2+f(3,3)x3+...=f(3,n) ...... f(m,1)x1+f(m,2)x2... 阅读全文

摘要： It's easy: Sub getallquwei()Dim i As Byte, j As Byte, k As Byte, n As Integer, arr(1 To 1000, 1 To 10)n = 1For i = 16 To 87For j = 1 To IIf(i = 5... 阅读全文

摘要： Dim prov As New Collection Private Sub Form_Load() prov.Add "北京市,东城,西城,崇文,宣武,朝阳,丰台,石景山,海淀,门头沟,房山,通州,顺义,昌平,大兴,平谷,怀柔,密云,延庆"... 阅读全文