vb基础-CSDN论坛

⋅关于C++软件应用的问题 ⋅想进军c++，可是不知从哪着手 ⋅vb基础 更多帖子 关注私信空间博客 hanchunchun 本版专家分：0 结帖率 50%: Private Sub Command1_Click()
Dim a(1 To 7)
  For i = 1 To 7
  a(i) = i: Print a(i)
  Next i
Print
  For i = 1 To 7
     t = a(7)
     For ？？？？
      a(j + 1) = a(j)
     Next j
      ？？？？
     For j = i To 7
      Print a(j)
     Next j
    ？？？？
  Next i

End Sub

目的是打印出
1234567
7123456
6712345
5671234
4567123
3456712
2345671
1234567

0 2010-04-20 21:55:42

回复数 16 只看楼主引用举报楼主

lb_bn 本版专家分：1362: 帮楼主顶上去。。

0 2010-04-20 22:14:45

只看TA 引用举报 #1 得分 1

⋅此用户还没有发表过任何帖子 关注私信空间博客 学习风 本版专家分：330: Dim a(1 To 7)
  For i = 1 To 7
  a(i) = i: Print a(i)
  Next i

这段代码就已经无法实现 1234567

你叫人怎么帮你填那些问号
For ？？？？
  a(j + 1) = a(j)
  Next j
  ？？？？
  For j = i To 7
  Print a(j)
  Next j
  ？？？？
  Next i

0 2010-04-20 22:34:02

只看TA 引用举报 #2    得分 1

⋅【源码】无聊……发份源码：VB6运用【内联汇编代码 + 轻量级COM对象】实现的移位操作 ⋅【源码】VB6中高效的内存访问利器 ⋅遇到两个问题：1是命名管道通讯，客户端连接上了，但写数据“无效句柄”错误；2是用API创建的控件，改变字体颜色和背景颜色起不到作用。 更多帖子 关注私信空间博客 舉杯邀明月 本版专家分：59947 红花 2019年1月 VB大版内专家分月排行榜第一 2018年12月 VB大版内专家分月排行榜第一 2018年11月 VB大版内专家分月排行榜第一 2018年10月 VB大版内专家分月排行榜第一 2018年7月 VB大版内专家分月排行榜第一 2018年6月 VB大版内专家分月排行榜第一 2018年5月 VB大版内专家分月排行榜第一 2018年4月 VB大版内专家分月排行榜第一 2018年3月 VB大版内专家分月排行榜第一 2018年2月 VB大版内专家分月排行榜第一 2018年1月 VB大版内专家分月排行榜第一 2017年9月 VB大版内专家分月排行榜第一 2017年8月 VB大版内专家分月排行榜第一 2017年7月 VB大版内专家分月排行榜第一 2017年6月 VB大版内专家分月排行榜第一 2017年5月 VB大版内专家分月排行榜第一 2017年4月 VB大版内专家分月排行榜第一 2016年11月 VB大版内专家分月排行榜第一 2016年8月 VB大版内专家分月排行榜第一 2016年7月 VB大版内专家分月排行榜第一 2013年12月 VB大版内专家分月排行榜第一 2013年10月 VB大版内专家分月排行榜第一 2013年9月 VB大版内专家分月排行榜第一 2008年5月 VB大版内专家分月排行榜第一 黄花 2017年12月 VB大版内专家分月排行榜第二 2017年11月 VB大版内专家分月排行榜第二 2017年3月 VB大版内专家分月排行榜第二 2016年12月 VB大版内专家分月排行榜第二 2016年10月 VB大版内专家分月排行榜第二 2013年11月 VB大版内专家分月排行榜第二 蓝花 2019年5月 VB大版内专家分月排行榜第三 2016年3月 VB大版内专家分月排行榜第三 2012年9月 VB大版内专家分月排行榜第三

Private Sub Form_Load()

    AutoRedraw = True

    Dim i&, j&

    For i = 0 To 15

        For j = 0 To 6

            Print CStr((j + 7 - i Mod 7) Mod 7 + 1);

        Next

        Print

    Next

End Sub

0 2010-04-21 00:18:43

只看TA 引用举报 #3 得分 3

⋅【源码】无聊……发份源码：VB6运用【内联汇编代码 + 轻量级COM对象】实现的移位操作 ⋅【源码】VB6中高效的内存访问利器 ⋅遇到两个问题：1是命名管道通讯，客户端连接上了，但写数据“无效句柄”错误；2是用API创建的控件，改变字体颜色和背景颜色起不到作用。 更多帖子 关注私信空间博客 舉杯邀明月 本版专家分：59947 红花 2019年1月 VB大版内专家分月排行榜第一 2018年12月 VB大版内专家分月排行榜第一 2018年11月 VB大版内专家分月排行榜第一 2018年10月 VB大版内专家分月排行榜第一 2018年7月 VB大版内专家分月排行榜第一 2018年6月 VB大版内专家分月排行榜第一 2018年5月 VB大版内专家分月排行榜第一 2018年4月 VB大版内专家分月排行榜第一 2018年3月 VB大版内专家分月排行榜第一 2018年2月 VB大版内专家分月排行榜第一 2018年1月 VB大版内专家分月排行榜第一 2017年9月 VB大版内专家分月排行榜第一 2017年8月 VB大版内专家分月排行榜第一 2017年7月 VB大版内专家分月排行榜第一 2017年6月 VB大版内专家分月排行榜第一 2017年5月 VB大版内专家分月排行榜第一 2017年4月 VB大版内专家分月排行榜第一 2016年11月 VB大版内专家分月排行榜第一 2016年8月 VB大版内专家分月排行榜第一 2016年7月 VB大版内专家分月排行榜第一 2013年12月 VB大版内专家分月排行榜第一 2013年10月 VB大版内专家分月排行榜第一 2013年9月 VB大版内专家分月排行榜第一 2008年5月 VB大版内专家分月排行榜第一 黄花 2017年12月 VB大版内专家分月排行榜第二 2017年11月 VB大版内专家分月排行榜第二 2017年3月 VB大版内专家分月排行榜第二 2016年12月 VB大版内专家分月排行榜第二 2016年10月 VB大版内专家分月排行榜第二 2013年11月 VB大版内专家分月排行榜第二 蓝花 2019年5月 VB大版内专家分月排行榜第三 2016年3月 VB大版内专家分月排行榜第三 2012年9月 VB大版内专家分月排行榜第三: 你只打印８行，

For i = 0 To 7

就可以了。

0 2010-04-21 00:20:35

只看TA 引用举报 #4 得分 2

⋅获取域内访问特定共享文件下内容的域用户 ⋅存储过程不可见 ⋅任务计划中如何执行cmd 命令 更多帖子 关注私信空间博客 aaron_gl 本版专家分：50: 只提供一个思路
首先对要进行循环的数字初始化
然后用 len（），left（）与right 就可以搞定了

0 2010-04-21 11:13:02

只看TA 引用举报 #5 得分 4

telnet7250 本版专家分：1: 接着顶你.

0 2010-04-21 11:24:13

只看TA 引用举报 #6 得分 1

⋅快过年了，好人一生平安。 ⋅关于VB的0、""(空字符串)、Null、Empty、与 Nothing 的区别，升三星散分。 ⋅[已处理] =========================c s d n为何反复要求登录=================== 更多帖子 关注私信空间博客 chinaboyzyq 本版专家分：54077 红花 2010年7月 VB大版内专家分月排行榜第一 2010年6月 VB大版内专家分月排行榜第一 2010年5月 VB大版内专家分月排行榜第一 2010年4月 VB大版内专家分月排行榜第一 黄花 2011年12月 VB大版内专家分月排行榜第二 2011年9月 VB大版内专家分月排行榜第二 2011年8月 VB大版内专家分月排行榜第二 2010年8月 VB大版内专家分月排行榜第二 2009年9月 VB大版内专家分月排行榜第二 蓝花 2012年2月 VB大版内专家分月排行榜第三 2011年11月 VB大版内专家分月排行榜第三 2011年3月 VB大版内专家分月排行榜第三 2011年1月 VB大版内专家分月排行榜第三 2010年3月 VB大版内专家分月排行榜第三 2010年2月 VB大版内专家分月排行榜第三 2009年10月 VB大版内专家分月排行榜第三 2009年8月 VB大版内专家分月排行榜第三



'1.

Private Sub Command2_Click()

    Dim a(1 To 7)

    For i = 1 To 7

        a(i) = i

        Print a(i);

    Next i

    Print

    For i = 7 To 1 Step -1

        t = a(7)

        For j = 7 To 2 Step -1

            a(j) = a(j - 1)

        Next j

        a(j) = t

        For j = 1 To 7

            Print a(j);

        Next j

        Print

    Next

End Sub



'2.

Private Sub Command1_Click()

  Dim a As String

  a = "1234567"

  Print a

  For i = 1 To 7

      a = Right(a, 1) + Left(a, 6)

      Print a

  Next

End Sub

0 2010-04-21 14:07:02

只看TA 引用举报 #7 得分 5

⋅快过年了，好人一生平安。 ⋅关于VB的0、""(空字符串)、Null、Empty、与 Nothing 的区别，升三星散分。 ⋅[已处理] =========================c s d n为何反复要求登录=================== 更多帖子 关注私信空间博客 chinaboyzyq 本版专家分：54077 红花 2010年7月 VB大版内专家分月排行榜第一 2010年6月 VB大版内专家分月排行榜第一 2010年5月 VB大版内专家分月排行榜第一 2010年4月 VB大版内专家分月排行榜第一 黄花 2011年12月 VB大版内专家分月排行榜第二 2011年9月 VB大版内专家分月排行榜第二 2011年8月 VB大版内专家分月排行榜第二 2010年8月 VB大版内专家分月排行榜第二 2009年9月 VB大版内专家分月排行榜第二 蓝花 2012年2月 VB大版内专家分月排行榜第三 2011年11月 VB大版内专家分月排行榜第三 2011年3月 VB大版内专家分月排行榜第三 2011年1月 VB大版内专家分月排行榜第三 2010年3月 VB大版内专家分月排行榜第三 2010年2月 VB大版内专家分月排行榜第三 2009年10月 VB大版内专家分月排行榜第三 2009年8月 VB大版内专家分月排行榜第三

引用楼主 hanchunchun 的回复:

Private Sub Command1_Click()
Dim a(1 To 7)
  For i = 1 To 7
  a(i) = i: Print a(i)
  Next i
Print
  For i = 1 To 7
     t = a(7)
     For ？？？？
      a(j + 1) = a(j)
     Next j
      ？？？？
……



Private Sub Command2_Click()

    Dim a(1 To 7)

    For i = 1 To 7

        a(i) = i

        Print a(i);

    Next i

    Print

    For i = 1 To 7

        t = a(7)

        For j = 6 To 1 Step -1

            a(j + 1) = a(j)

        Next j

        a(1) = t

        For j = 1 To 7

            Print a(j);

        Next j

        Print

    Next

End Sub

0 2010-04-21 14:37:15

只看TA 引用举报 #8 得分 5

⋅XML序列化 List派生类 ⋅C# XML序列化List ⋅C# XML序列化指定节点名称 更多帖子 关注私信空间博客 gooore 本版专家分：1179

貌似好解决啊。用数组比较麻烦。



Private Sub Command1_Click()



    Dim i As Integer, j As Integer, k As Integer

    

    For i = 0 To 8

        k = i Mod 7     'k is line start number - 1(from 0 to 6)

        For j = 0 To 6  'Loop to print the number of each line, 7 times.

            Print k Mod 7 + 1;  'From k to print,if bigger than 7, then back to 1...

            k = k + 1

        Next

        Print

    Next

    

End Sub

0 2010-04-22 17:41:51

只看TA 引用举报 #9 得分 5

andylauren

本版专家分：1

版主

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！: 这个程序运行的结果是什么，不对吗，要什么结果？

0 2010-04-22 18:09:10

只看TA 引用举报 #10 得分 1

⋅[不处理] 求CSDN好看的CSS图景 ⋅让记事本自动保存 ⋅VB中,关于写一个记事本 更多帖子 关注私信空间博客 myy168 本版专家分：366: Option Explicit
Dim i As Integer
Dim j As Integer
Dim t As Integer
Private Sub Command1_Click()
    Dim a(1 To 7)
    For i = 1 To 7
        a(i) = i
        Print a(i);
    Next i
    Print
    For i = 1 To 7
        t = a(7)
        For j = 6 To 1 Step -1
            a(j + 1) = a(j)
        Next j
        a(1) = t
        For j = 1 To 7
            Print a(j);
        Next j
        Print
    Next
End Sub

0 2010-04-23 17:52:03

只看TA 引用举报 #11    得分 4

⋅[不处理] 求CSDN好看的CSS图景 ⋅让记事本自动保存 ⋅VB中,关于写一个记事本 更多帖子 关注私信空间博客 myy168 本版专家分：366: Option Explicit
Dim i As Integer
Dim j As Integer
Dim t As Integer
Private Sub Command1_Click()
    Dim a(1 To 7)
    For i = 1 To 7
        a(i) = i
        Print a(i);
    Next i
    Print
    For i = 1 To 7
        t = a(7)
        For j = 6 To 1 Step -1
            a(j + 1) = a(j)
        Next j
        a(1) = t
        For j = 1 To 7
            Print a(j);
        Next j
        Print
    Next
End Sub

0 2010-04-23 17:52:35

只看TA 引用举报 #12    得分 3

liangjingke 本版专家分：2: 支持5楼顶11楼好像有点乱@!@

0 2010-04-23 20:03:20

只看TA 引用举报 #13 得分 2

wq382793896 本版专家分：1: 看看··

0 2010-04-24 03:11:02

只看TA 引用举报 #14 得分 1

⋅数据统计问题 ⋅删除多行文本里面重复值 ⋅PHP问题请教 更多帖子 关注私信空间博客 游子 本版专家分：2210: 我路过。。。。一说算法我头就疼。。

0 2010-04-24 14:01:40

只看TA 引用举报 #15 得分 1

⋅求一条SQL语句，同一个表批量更新 ⋅水个分，致好久不来 ⋅周末散粪玩 更多帖子 关注私信空间博客 神马被哪个妞占用了呢 本版专家分：12519: 7楼2简单。我喜欢

0 2010-04-25 01:21:51

只看TA 引用举报 #16 得分 1

vb基础 [问题点数：40分，结帖人hanchunchun]