网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
01月26日漏签0天
vb吧 关注:156,052贴子:1,166,185
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 2回复贴,共1页
<<返回vb吧
>0< 加载中...

IF条件不成立也执行语句,是我哪里写错了么?

  • 只看楼主
  • 收藏

  • 回复
  • hswzm
  • 啥也不懂
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Private Sub Form_Click()
n = InputBox("")
ReDim x(1 To n) As Integer
For i = 1 To n
x(i) = InputBox("")
Next i
t = x(1)
For j = 1 To 20
For i = 2 To n
If t Mod x(i) <> 0 Then Exit For
Print t
Next i
If i >= n Then Exit For ******
If i < n Then t = t + x(1) &&&&
Next j
Print t
End Sub
以上代码
题目是输入N个数,输出其最小公倍数,然而*语句条件成立也不执行,&语句条件不成立也执行。这是什么情况?求指教(F8已试)


  • hswzm
  • 啥也不懂
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
测试用数字:3.1.2.3
按说t累加到6就应该执行exit for 了,然而测试时并不执行,即便可以显示i4n3也不执行,而是跳到下一句执行t=t+X(1)
这是为什么?有什么神奇的原理么?


2026-01-26 08:29:03
广告
不感兴趣
开通SVIP免广告
  • hswzm
  • 啥也不懂
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
哦对还有,本来打算用Do/Loop的,结果Loop后带个until i>n 就无限循环卡出翔了…我整个人也是蒙哔了…


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 2回复贴,共1页
<<返回vb吧
分享到:
©2026 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示