一、运行效果

二、技巧总结
1、常用的循环有三种:
(1)for循环(For...Next);
(2)当循环(Do...While...Loop)或者(While...Wend);
(3)直到循环(Do...Until...Loop);
三、测试代码
Private Sub Command1_Click()
Dim a As Long, b As Long
a = 0
b = 0
Do While a < 100
a = a + 1
b = b + a
Loop
Label1.Caption = "0~100的累加结果为:" & b
End Sub

VB编程:DoWhile...Loop当循环计算0~100累加和-15_彭世瑜_新浪博客相关推荐

  1. VB编程:UBound获取数组上限;LBound获取数组下限-25_彭世瑜_新浪博客

    运行效果: 程序代码: Private Sub Command1_Click() Dim a(5) Text1.Text = UBound(a) Text2.Text = LBound(a) End ...

  2. VB编程:SelectCase多分支选择结构判断成绩优良-11_彭世瑜_新浪博客

    运行效果: 程序代码: Private Sub Command1_Click() If IsNumeric(Text1.Text) Then Select Case CInt(Text1.Text) ...

  3. VB编程:DoWhile...Loop当循环计算0~100累加和-15

    一.运行效果 二.技巧总结 1.常用的循环有三种: (1)for循环(For...Next): (2)当循环(Do...While...Loop)或者(While...Wend): (3)直到循环(D ...

  4. VB编程:While...Wend语句实例漂亮的星星-17_彭世瑜_新浪博客

    运行效果: 程序代码: Private Sub Command1_Click() Dim a As Long, b As Long Form1.Cls               '清空窗体 Whil ...

  5. [转载]VB网络聊天程序的开发(1)_彭世瑜_新浪博客

    原文地址:VB网络聊天程序的开发(1)作者:VB源码博客 互联网已经成为现代社会生活中非常普及的一项事务.在互联网上可以查询信息.电子购物,还可以进行网络聊天.本博将从今天起,具体的计解一下利用VB开 ...

  6. VB编程:DoEvents将控制权交给系统,防止无限循环-14_彭世瑜_新浪博客

    一.运行效果: 1.没有DoEvents时运行(出现未响应): 2.有DoEvents时运行(没有未响应): 二.关键点     1.DoEvents函数,将控制权交给系统,防止无限循环. 2.将下面 ...

  7. VB编程:Timer控件实例幼儿识字卡片-35_彭世瑜_新浪博客

    运行效果: 程序代码: Dim myarray(10) As String     '定义全局变量,文字数组 Dim i As Integer Private Sub Form_KeyDown(Key ...

  8. VB编程:UCase转大写,LCase转小写-4_彭世瑜_新浪博客

    Private Sub Text1_Change() Text2.Text = LCase(Text1.Text)    '转换成小写字母 Text3.Text = UCase(Text1.Text) ...

  9. VB编程:去除文本框首尾空行-51_彭世瑜_新浪博客

    程序代码 Private Sub Command1_Click()     Dim j As Integer     Dim i(100) As String     Text2 = "&q ...

最新文章

  1. Redis 笔记(01)— 安装、启动配置、开启远程连接、设置密码、远程连接
  2. 干货 | XGBoost在携程搜索排序中的应用
  3. rhel7安装vnc出现error: Failed dependencies:
  4. 1.CCProgressTo进度动作,条形进度条,扇形进度条
  5. windows href 可以设置header吗_windows电脑端有什么桌面办公便签可以设置农历时间提醒?...
  6. JavaScript If…Else 语句
  7. 粗心能学计算机吗贴吧,考试丢分 , 真的是粗心那么简单吗?
  8. JS及java验证 IPV6,IPV4地址的 正则表达式
  9. caas k8s主控节点如何查询_k8s中部署prometheus监控告警系统prometheus系列文章第一篇...
  10. Banner字符可以通过类似以下网站生成
  11. 【TDA4系列】使用 Linux + RTOS 开发基于以太网的应用程序
  12. JVM基础学习之基本概念、可见性与同步
  13. 优麒麟19.1安装HP扫描仪驱动
  14. qt中xxx.pro:64: error: Extra characters after test expression.
  15. 【离散数学】陪集精讲
  16. Xenu检测网站死链
  17. html img 拉伸,图片因img标签拉伸的处理办法
  18. 【战神引擎】修复物品叠加防刷又不影响叠加的使用的教程
  19. 区块链技术具体要用到什么开发语言?
  20. 华硕笔记本X450JB拆机及加装固态硬盘

热门文章

  1. ppt转换成H5功能总结
  2. linux配置和查看主机名
  3. apache默认端口号是多少
  4. linux扩充文件夹容量,Linux扩充磁盘空间 【附查看磁盘命令】
  5. Linux通过stty命令操作串口设备(linux串口操作命令)
  6. RTFM — man
  7. android HorizontalScrollView讲解
  8. 【CPU GPU TPU】机器学习扫盲篇
  9. pve 加大local容量_localStorage容量超过5M怎么办
  10. 74LS85的IP核设计