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

 
 
 
日一二三四五六
       
       
       
       
       
       

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

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

本吧签到人数:0

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

  • 图片

  • 吧主推荐

  • 游戏

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

初学者,问个简单的问题

  • 只看楼主
  • 收藏

  • 回复
  • 幻ゴ觉
  • 求过二级
    2
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
VB6.0
用FOR/next循环打印
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 18 19 20
21 22 23 24 25 26 27 28 29 30
。。。。。。。。。。。。。100
怎么做啊


  • slz1234566
  • API
    12
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Dim i As Integer, a As Integer, cj As Integer, str As String
a = 1
For i = 0 To 100 Step 10
For a = a To i
str = str & " " & CStr(a
)Next a
Print str
str = ""
cj = a
Next i


2026-01-10 16:43:57
广告
不感兴趣
开通SVIP免广告
  • slz1234566
  • API
    12
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
这个才是正确的
Dim i As Integer, a As Integer, cj As Integer, str As String
a = 1
For i = 0 To 100 Step 10
For a = a To i
str = str & " " & CStr(a)
Next a
Print str
str = ""
cj = a
Next i


  • Small_Shy
  • 啥也不懂
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
for i=1 to 100
print i,
next


  • li549423097
  • 数据类型
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
4楼正解,实在不知道2楼或3楼什么心态


  • 西职丶空洞楼主
  • 啥也不懂
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
0 0
4L正解
For i = 1 To 100
Print i;
If i Mod 10 = 0 Then Print
Next
这样更方便些,如果变量i去除以10 余数为0,那么换行,


  • 冷浩辰
  • 递归爆栈
    7
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
六楼正解


登录百度账号

扫二维码下载贴吧客户端

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