经典VB编程(必考).docxVIP

1.求下面级数前?s?项中偶数项的和?SUM。在求和过程中，以第一个数值大于?10000??的项为 末项，计算并输出和?SUM。1!-2!+3!-4!+?…?+(-1)^(s-1)*s!+?…… Private?Sub?Command1_Click() Dim?n?As?Integer Dim?item?As?Double Dim?sum?As?Double sum?=?0 n=2 Do?While?True item?=?1 Dim?i?As?Integer For?i?=?2?To?n item?=?item?*?i Next sum?=?sum?+?item If?item??10000?Then Exit?Do Else n=n+2 End?If Loop sum?=?-1*sum MsgBox?(sum) End?Sub sum?=?368047 2.建立一个?9×9?的整型二维数组（由?Rnd?函数产生[10，60）的随机整数对数组初始化）， 输出数组中所有奇数行元素的和。 Dim?A(8,?8)?As?Integer Dim?i,?j?As?Integer For?i?=?0?To?8 For?j?=?0?To?8 A(i,?j)?=?10+Int(Rnd()?*51) Next Next Dim?sum?As?Integer For?i?=?0?To?8?Step?