查人人中国名人网郑州公办幼儿园排名:高手请教 VB 编程 急！
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 22:59:26
#include <stdlib.h>
main(
{
int i,j,k,l,m;
int nn=0;
for (i=1;i<= 21 - 4;i++)
for (j=i+1;j<= 21 - 3;j++)
for (k=j+1;k<= 21 - 2;k++)
for (l=k+1;l<= 21 - 1;l++)
for (m=l+1;m<= 21 ;m++) {
nn = nn + 1;
printf("%d: %d %d %d %d %d\n",nn,i,j,k,l,m);
}
exit(0);
}
把这段代码用VB语言编写出来。
Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim nn As Integer
nn = 0
For i = 0 To 21 - 4
For j = i + 1 To 21 - 3
For k = j + 1 To 21 - 2
For l = k + 1 To 21 - 1
For m = l + 1 To 21
nn = nn + 1
Print nn,i,j,k,l,m
Next m
Next l
Next k
Next j
Next i
End Sub
int i,j,k,l,m;
int nn=0;
for (i=1;i<= 21 - 4;i++)
for (j=i+1;j<= 21 - 3;j++)
for (k=j+1;k<= 21 - 2;k++)
for (l=k+1;l<= 21 - 1;l++)
for (m=l+1;m<= 21 ;m++) {
nn=nn+1;
print nn;
print i ;
print j;
print k; print l;
print m;
}
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim nn As Integer
nn = 0
For i = 0 To 21 - 4
For j = i + 1 To 21 - 3
For k = j + 1 To 21 - 2
For l = k + 1 To 21 - 1
For m = l + 1 To 21
nn = nn + 1
Next m
Next l
Next k
Next j
Next i
MsgBox CStr(nn) + ": " + CStr(i) + " " + CStr(j) + " " + CStr(k) + " " + CStr(l) + " " + CStr(m) + " "
Private Sub Form_Load()
Me.AutoRedraw = True
nn=0
For i = 1 To 21 - 4
For j = i + 1 To 21 - 3
For k = j + 1 To 21 - 2
For l = k + 1 To 21 - 1
For m = l + 1 To 21
nn = nn + 1
Print nn, i, j, k, l, m
Next
Next
Next
Next
Next
End Sub
咋看都是不像VB代码,
这好象是C语言,我忘,:),不好意思帮不了你.