主观

使用窗体的Click事件在窗体输出1~1000之间能同时被5和7整除的整数,如图所示,

请填空

   Private Sub Form_Click()

   Dim i As Integer

   Dim Sum As Integer

   Cls

   For i=1 To 1000

   If 【 】 Then

     Sum=Sum+i

     Printi

   End If

   Next i

   Print

   Print"Sum="&Sum

 End Sub

参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服