VB程序设计的.docVIP

3．题目： (事件)单击窗体。(响应)求一个数（该数为1000以内的数）,它除3余2，除5余3，除7余2，请将满足上面条件的最小数保存到sum变量中。使用for...next语句完成程序 Dim i As Integer For i = 2 To 1000 If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Print i Exit For End If Next i sum = i 4．题目：(事件)单击窗体。 (响应)求10!的值，并将结果输出到窗体上。将结果存入变量SUM中。 Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 7．题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum 9. 题目：(事件)单击窗体。 (响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 Dim i, j, k As Integer For i = 1 To 5 k = 1 For j = 1 To i k = k * j Next s = s + k Next Print (CStr(s)) 11.题目： (事件)单击命令按钮Command1。 (响应)计算如下表达式s的值, s=1+(1*2)+(1*2*3)+……+(1*2*3*……*6)并将结果输出到文本框Text1中。 Dim j As Integer Dim i As Integer j = 1 s = 0 For i = 1 To 6 j = j * i s = s + j Next i Text1.Text = s 13. 题目：(事件)双击窗体。 (响应)求1+5+10+15+……+500的和，并将结果输出到窗体上。将结果存入变量SUM中。 Dim i As Integer For i = 1 To 500 If i Mod 5 = 0 Then sum = sum + i End If Next Print sum 14. 题目：(事件)单击窗体。 (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) 15.题目：(事件)双击窗体。 (响应)求3+6+9+12+15+18+……+300的和，并将结果输出到窗体上。将结果存入变量 SUM中。 Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum 19.题目：请用Select语句编程计算打折后的金额？ 折扣方法如下: 购物300以下，无优惠（使用MsgBox显示无优惠）； 购物300以上，95折； 购物500以上，9折； 购物1000以上，85折； 购物5000以上，8 折? Select Case n Case Is 5000 n = n * 0.8 Case Is 1000 n = n * 0.85 Case Is 500 n = n * 0.9 Case Is 300 n = n * 0.95 Case Else MsgBox 无优惠 End Select 20.题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum +