• 所有问题

    • 用VB写1到100以内能被3或7整除的数之和. 在线等，急

    如题所述

    举报该问题
    推荐答案   2016-06-15
    Private Sub Command1_Click()
    For i = i To 100
    If i Mod 3 = 0 Or i Mod 7 = 0 Then
    s = s + i
    End If
    Next i
    Print "能被3或都7整除的数之和为" & s
    End Sub
    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  2016-06-15
    注:VB有点忘了,有问题的话自己一下,大致思路就是这样。
    s=0
    for i=1 to 100
    if (i mod 3=0) and (i mod 7=0) then
    s=s+i
    endif
    next
    print s追答

    if语句中把and改成or

    相似回答
    计算100~300之间所有能被3和7整除的数之和如何用VB书写答：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sum As Integer sum = 0 Dim i As Integer For i = 100 To 300 ' 如果能被3整除且被7整除，则累加 If 0 = i Mod 3 And 0 = i Mod 7 Then ...
    用VB如何写1到100之间所有能被3整除而不能被7整除的整数的和与个数的...答：VB代码如下：Dim i, jj = 0For i = 1 To 100If (i Mod 3 = 0 Or i Mod 7 = 0) And i Mod 21 <> 0 ThenPrint i,j = j + 1If j = 7 ThenPrintj = 0End IfEnd IfNext i
    VB.求出0~100的整数能够被3整除的个数以及能够被7整除的个数。程序...答：private sub command1_click dim sum as integer'和 dim count as integer'个数 sum=0 count=0 text3.text=""For i=1 to 100 If i Mod 3=0 And i Mod 7<>0 Then count=count+1 sum=sum+i text3.text=text3.text & i'text3显示都有什么数 End If Next text1.text="和为:"+...
    VB简单程序编写:求1到100内可以被5或7整除的数之和答：iTot = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then iTot = iTot + i Next i Print iTot 结果是:1680 【由于字数限制，去除了Sub，及变量定义】
    ...至100之间能被7整除的奇数及这些数的和 是一道VB的题目 要求编程...答：dim i as integer,s as integer for i=21 to 100 step 14 print i s=s+i next i print s
    vb题答案!(内部)答：1.编程在窗体上输出101~500之间的所有能被3或者7整除的奇数，按照一行5个的方式输出并最后符合要求的数的和。解：代码为 Private Sub form_load()Show Dim n, sum As Integer Print Spc(6); "101~500之间的所有能被3或者7整除的奇数,及各数的和"i = 0 sum = 0 For n = 101 To 500 ...
    编程用for循环求1-500之间所有能被3和5和7整除的数的和,并统计输出这些...答：还有运行图，希望对你有帮助。#include<stdio.h> main(){int i,n=0;printf("所有符合条件的数字如下:\n");for(i=1;i<=500;i++)if((i%3==0)&(i%5==0)&(i%7==0)){n++;printf("%d ",i);} printf("\n总共%d个\n",n);} ...
    vb 求1~n之间能被3整除,但不能被7整除的所有整数之和答：For i = 1 To n If i Mod 3 = 0 And i Mod 7 <> 0 Then s = s + i Next 在VB中，注释有2种方式：1、以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。2、使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他...
    vb题利用循环计算1-100所有数相加只和答：测试过没有问题，新建text1时记得设置MultiLine为True,代码如下,： Private Sub Command1_Click() For i = 1 To 100 '被7整除的 If i Mod 7 = 0 Then Text1.Text = Text1.Text & " " & i End If '和7相关的 For t = 1 To Len(i) If Mid(i, t, 1)...
    大家正在搜
    从1写到20一共写了多少个1不能的能咋写老写1到10大字1到10怎么写上是从上到下写的吗零到十大写怎么写哪些字是从上到下写的自是从上到下写的字吗到底写一句话怎么写