• 所有问题

    • 用vb6.0做题：生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和.

    如题所述

    举报该问题
    其他回答
    第1个回答  2020-08-07
    Dim a %,i%,s%
    For i= 1 to 20
    a=Int(Rnd*101-200)
    If a mod 5 = 0 then
    s=s+a
    End if
    Print a;
    next i
    Print s
    相似回答
    VB编程产生100个0-100之间的随机整数找出其中能被3整除的数,并且按由...答：函数代码如下：Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2End Function二、举个例子，要产生10个1到100之间的随机整数，如下：1、打开VB6.0开发软件，新建一个标准exe工程；2、在设计界面上添加一个Text控件和一个Command控件；3、Command1控件的Caption属性设置为"产生10...
    VB:编程题~~在文本框1中输入一个整数n,判断其能否同时被5和7整除...答：If Not IsNumeric(Text1.Text) Then Exit Sub If Val(Text1.Text) Mod 5 = 0 And Val(Text1.Text) Mod 7 = 0 Then Label1.Caption = Text1.Text & "能同时被5和7 整除"Else Label1.Caption = Text1.Text & "不能同时被5和7 整除"End If End Sub ...
    求出1~200之间5的倍数或7的倍数的和的VB表达式怎么写答：for i=1 to 200 i=i+1 dim sum，m，n as integer m=（i/5）mod 5 n=(i/7) mod 7 if m=n=0 then sum=m+n next i ，差不多是这个意思啊。
    求vb6.0函数和语句大全~!视频时间 10:34
    vb练习题答：B = Val (Text2 . Text ) ‘从文本框Text2接收第2个数 IF A < B THEN MIN=B ELSE MIN=A END IF Text3 . Text =MIN ‘用文本框Text3输出最终结果 End Sub 2、按照从大到小的顺序输出100以内能被6整除的正整数 Private Sub Form_Click ( )Dim I As Integer Print “ 按照从大到小...
    求文档: 长沙理工大学vb期末考试试题答：都是发的一本练习册，没有纸质文档，你可以到机房上机做，多做几套期末就能过
    大家正在搜
    vb随机生成一个数vb随机生成十个数如何生成随机数vbvb 生成数组vb不能生成exevb如何生成可执行文件vb怎么生成不了exevb生成exevb如何生成exe