精华内容
下载资源
问答
  • While...Wend的应用(VB6.0代码编写) While...Wend的应用 QQ223857666勾月
  • VB中关于while...wend的使用

    千次阅读 2019-02-23 08:50:47
    While a>b  a=a-b Wend fun=a End Function 在调试时发现函数是错误的。为使函数能产生正确的返回值,应做的修改是( )。 A) 把a=a-b改为a=b-a B) 把 a=a-b 改为a=a\b C) 把...

    设a、b都是自然数,为求a除以b的余数,某人编写了以下函数:
    Function fun(a As Integer,b As Integer)
    While a>b
        a=a-b
    Wend
    fun=a
    End Function
    在调试时发现函数是错误的。为使函数能产生正确的返回值,应做的修改是(  )。
    A) 把a=a-b改为a=b-a
    B) 把 a=a-b 改为a=a\b
    C) 把While a>b 改为While a<b
    D) 把While a>b 改为While a>=b

    参考答案:D
    

    【解析】程序中没有考虑余数为0的情况,即,条件中应该有a=b,则a=a-b,这样才能正确得到余数0。因此程序中应该修改While的条件a>b为a>=b。
    例如,a取值为6,b的取值为3,第一次循环,a的值为a=6-3=3
    当再次执行程序时,a=3,b=3,不满足条件a>b这种情况,那么就无法求得余数了,故增加条件a=b

    展开全文
  • 运行效果: 程序代码: Private Sub Command1_Click()  Dim a As Long, b As Long  Form1.Cls ... While a &lt;= 9      '限制条件,0-9,一共输出10行    a = a + 1   '调整输出...
    运行效果:
    VB编程:While...Wend语句实例漂亮的星星-17

    程序代码:
    Private Sub Command1_Click()
        Dim a As Long, b As Long
        Form1.Cls               '清空窗体
        While a <= 9            '限制条件,0-9,一共输出10行
            a = a + 1           '调整输出位置
            For b = 1 To 23 - a
                Print " ";
            Next b
            For b = 1 To 2 * a - 1
                Print "*";
            Next b
            Print
        Wend
    End Sub

    编写总结:
        1、print后面的“;”表示不换行连续输出;
        2、单独输出print,表示回车换行;
        3、VB编程时,敲入“?”会自动变为print。

    展开全文
  • 掌握使用Do While…Loop /Do Until…Loop语句进行循环控制 从页面输入一个值n,计算1+2+3+4+。。。+n的和(分别用Do While…Loop /Do Until…Loop语句做一遍) 从页面输入一个值n,计算n!的值(分别用Do While…Loop...

    实验内容

    1. 掌握使用Do While…Loop /Do Until…Loop语句进行循环控制
    2. 从页面输入一个值n,计算1+2+3+4+。。。+n的和(分别用Do While…Loop /Do Until…Loop语句做一遍)
    3. 从页面输入一个值n,计算n!的值(分别用Do While…Loop /Do Until…Loop语句做一遍)
    4. 编写实验报告。

    在这里插入图片描述

    代码

    Do While…Loop 版本:
    在这里插入图片描述
    Do Until…Loop版:
    在这里插入图片描述
    while循环

    Private Sub Command1_Click()
    
        Dim i As Double
        Dim mysum As Double
        Dim endnum As Double
        endnum = Val(Text1.Text)
           
        Do While i < endnum
            i = i + 1
            mysum = mysum + i
        Loop
        Text3.Text = mysum
        
    End Sub
    
    Private Sub Command2_Click()
    
        Dim i As Double
        Dim mymul As Double
        mymul = 1
        Dim endnum As Double
        endmul = Val(Text2.Text)
           
        Do While i < endmul
            i = i + 1
            mymul = mymul * i
        Loop
        Text4.Text = mymul
    
    End Sub
    

    until循环

    Private Sub Command1_Click()
    
        Dim i As Double
        Dim mysum As Double
        Dim endnum As Double
        endnum = Val(Text1.Text)
           
        Do Until i = endnum
            i = i + 1
            mysum = mysum + i
        Loop
        Text3.Text = mysum
        
    End Sub
    
    Private Sub Command2_Click()
    
        Dim i As Double
        Dim mymul As Double
        mymul = 1
        Dim endnum As Double
        endmul = Val(Text2.Text)
           
        Do Until i = endmul
            i = i + 1
            mymul = mymul * i
        Loop
        Text4.Text = mymul
    
    End Sub
    
    
    展开全文
  • vb 循环 Do While 语句

    2012-04-19 14:31:00
    Do While (i > 0) i = i -1 Loop 先判断 ,当条件为 True 时,运行 For Each ref_row As DataGridViewRow In ExcelProcesses Next 转载于:https://www.cnblogs.com/IRIS-TK1/archive/201...

    Do While (i > 0)
                i = i - 1

      Loop

     

    先判断 ,当条件为 True 时,运行

     

     

      For Each ref_row As DataGridViewRow In ExcelProcesses
                Next

    转载于:https://www.cnblogs.com/IRIS-TK1/archive/2012/04/19/2457068.html

    展开全文
  • VB6.0 实现循环中的continue功能

    千次阅读 2019-03-26 13:52:17
    一个老项目中来了个需求,改点东西,VB6的代码,要在循环中根据条件跳过某次循环,也就是实现类似其他语言中的从continue功能。 网上查了一圈,VB6的语法原因,没有提供continue关键字。 根据一些建议,用了goto,...
  • 描述:SecureCRT如何直接执行vb脚本运维脚本的方法 步骤: 进入终端,菜单栏选择script,然后点击run,选择脚本即可
  • while循环 语法 while 条件; do … ; done 脚本案例一: 需求:每隔半分钟检查系统负载,当系统负载大于10的时候就发一封邮件告警。最小单元是任务计划 cron 脚本示例: [root@garytao-01 aming]# vi while1...
  • while和if判断条件小认识

    千次阅读 2018-08-10 11:17:51
    之前查代码定位问题时对while和if中判断条件有疑惑,后来自己验证了,现记录如下,代码很low,别介意。 while.c代码如下所示: include include
  • 【PC】自制QQ机器人(python+VB6)

    千次阅读 多人点赞 2019-08-28 17:21:43
    目前网上的那些QQ机器人都需要下载什么...VB6:1.定时获取QQ消息,也就是对方说了什么。2.定时发送来自python处理好的回答(txt文件格式)。3.对获取的QQ消息分析,既不能是对方上次发的消息(已经处理完并发送)也...
  • VB中Exit For与Exit Function

    千次阅读 2019-02-18 09:13:53
    1.Exit for 为直接退出循环,例如编写程序 for i= 1 to 5 if n=i then exit for end if ...那么在n=i=2时,就直接退出FOR循环,不在进行后面的循环。...2.Exit Function 在调用函数过程时,function返回的是一个结果...
  • while和do while

    热门讨论 2017-10-15 23:15:25
    vbwhile语句的3种写法
  • vba如何退出while循环?

    万次阅读 2013-11-22 08:59:54
    While 表达式    Wend 如:循环100次  While i  i = i + 1    If i = 100 Then GoTo 100    Wend 100: '退出while msgbox "已经退出while 了!"   方式2、 i = 1 Do While i  If i = 100...
  • while循环九九乘法表、do.while循环九九乘法表、for循环_九九乘法表
  • vb 跳出循环

    千次阅读 2010-10-12 14:43:00
    do 循环跳出循环用exit do for 循环跳出循环用exit for select 选择语句跳出时用exit select...sum as integer 例子: do while x>100 m1:x=x+1 '语句1  sum=x^2 '语句2
  • vb乘法表代码乘法表代码乘法表代码乘法表代码
  • 一、运行效果 二、技巧总结 ...(2)当循环(Do...While...Loop)或者(While...Wend);   (3)直到循环(Do...Until...Loop); 三、测试代码 Private Sub Command1_Click()  Dim a As ...
  • 以百鸡百钱为载体,通过比较for语句和do语句,掌握这两种语句的异同。
  • 1+2+3...程序,用do while循环方法求整数的和运算,VB.net2008源代码
  • do while循环和while循环的区别
  • C语言

    万次阅读 多人点赞 2019-12-18 23:01:50
    C语言 42.C语言是一种计算机高级语言。 43.C语言允许直接访问物理地址,能进行位操作。 44.C语言是结构化程序设计语言 45.c程序要通过编译,连接才能得到可执行的目标程序 46.用c语言编写程序,可以编写出任何类型的...
  • 基于VB的文字动画特效代码Private Sub TextEffect( _ ByVal sText As String, _ ByVal lX As Long, ByVal lY As Long, _ Optional ByVal bLoop As Boolean = False, _ Optional ByVal lStartSpacing As Long = ...
  • VB电子相册

    2015-06-14 21:10:52
    VB电子相册 电子相册 1、数据库连接 Public conn As ADODB.Connection Public Sub conDB() Set conn = New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & App...
  • VB.NET 教程_01_基础语法

    万次阅读 多人点赞 2018-08-08 00:48:58
    VB.Net是一种简单,现代,面向对象的计算机编程语言,由微软开发,将.NET Framework和公共语言运行库的强大功能与作为Visual Basic标志的生产力优势相结合。 Visual Basic .NET(VB.NET)是在.NET Framework上...
  • 这是一段简单的while和if语句嵌套使用的C++代码,使用与初学者对while和if语句的理解,加深C++程序编译的思想!
  • VB 程序检测按键

    千次阅读 2017-07-18 14:43:36
    VB 程序检测按键 VB按键常量
  • while循环跳出返回值技巧

    千次阅读 2018-12-05 15:26:42
    while()循环中,假设使用错误机制时,针对不同的错误类型,返回不同的值时,需要注意。 可以在不同错误后,置位错误标志位,置位循环标志位,使之跳出循环,根据不同情况的错误标志位数值,跳出循环后返回不同的...
  • VB.Net has a built-in migration tool, but converting VB6 code to VB.NET isn’t as easy as loading it to the newer software. The migration tool does a lot of the work, especially with syntax,...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 32,338
精华内容 12,935
关键字:

vbwhile