vb基础

hanchunchun 2010-04-20 09:55:42
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
...全文
216 16 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
7楼2简单。我喜欢
wq382793896 2010-04-24
  • 打赏
  • 举报
回复
看看··
游子 2010-04-24
  • 打赏
  • 举报
回复
我路过。。。。一说算法我头就疼。。
liangjingke 2010-04-23
  • 打赏
  • 举报
回复
支持5楼 顶11楼 好像有点乱@!@
myy168 2010-04-23
  • 打赏
  • 举报
回复
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
myy168 2010-04-23
  • 打赏
  • 举报
回复
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
andylauren 2010-04-22
  • 打赏
  • 举报
回复
这个程序运行的结果是什么,不对吗,要什么结果?
gooore 2010-04-22
  • 打赏
  • 举报
回复
貌似好解决啊。用数组比较麻烦。

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
舉杯邀明月 2010-04-21
  • 打赏
  • 举报
回复
你只打印8行,

For i = 0 To 7

就可以了。
舉杯邀明月 2010-04-21
  • 打赏
  • 举报
回复
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

telnet7250 2010-04-21
  • 打赏
  • 举报
回复
接着顶你.
aaron_gl 2010-04-21
  • 打赏
  • 举报
回复
只提供一个思路
首先对要进行循环的数字初始化
然后用 len(),left() 与right 就可以搞定了
chinaboyzyq 2010-04-21
  • 打赏
  • 举报
回复
[Quote=引用楼主 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
????
……
[/Quote]

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
chinaboyzyq 2010-04-21
  • 打赏
  • 举报
回复

'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
学习风 2010-04-20
  • 打赏
  • 举报
回复
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
lb_bn 2010-04-20
  • 打赏
  • 举报
回复
帮楼主顶上去。。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧