最全VB题库大集合最新版.pptVIP

VB题库 供同学们参考 Private?Sub?Form_Click()For?i?=?1?To?7????For?j?=?1?To?7?-?i????????Print??;????Next?j????????x?=?????For?j?=?1?To?2?*?i?-?1????????x?=?x??i????????????Next?j????????Print?x????Next?iEnd?Sub sum=1/2!-1/4!+1/6!-1/8!+1/10! Private Sub Form_Click() Dim sum As Single Dim p As Long p = 1 i = 2 Do While i = 10 p = p * i * (i - 1) If i Mod 4 = 0 Then sum = sum - 1 / p Else sum = sum + 1 / p End If i = i + 2 Loop Print sum End Sub ‘题目：(事件)单击窗体。?求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。?’ 将结果存入变量J中【35分】 Private Sub Form_Click() ? Dim j As Single ? ******* Pr