当前位置: 开源爱好者 » VB源码 » 其它源码 » 详情页

VB 测试GoTo语句用法实例

  • 时间:2018-05-07
  • 测试环境:VB6.0
  • 源码概述:for循环

VB 测试GoTo语句用法实例,Dim x As Integer, i As Integer
  For x = 2 To Val(Text1) '确定求素数的范围
   For i = 2 To x - 1 '确定除数的范围
   If (x Mod i) = 0 Then GoTo aa
   '只要有一个数被除尽则转到GoTo所指位置取下一个数判断
   Next i
   Text2 = Text2 & " " & x ' 把素数都输出
  aa: 'GoTo语句所指的标号处
   Next x '取下一个数判断是否是素数
  End Sub

VB 测试GoTo语句用法实例测试效果图
源码包大小:2.16K
该源码已累计下载了:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图