DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT F
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/29 20:46:29
DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT FOR I=1 TO 5 FOR J=1 TO 5 IF A(J)>A(
Dim k As Integer
n = 0
Total = 0
For k = 0 To 25
Label1(k) = Chr(97 + k) Ne '----------可能差个运着符或 "&"连接符吧
next '-----------------
end sub,------------没这个咋行.代码太少看不清意思,只能看语法了,
猜测是按a-Z键.Label1(K)控件会对应显示,a-Z的26个字符.
n = 0
Total = 0
For k = 0 To 25
Label1(k) = Chr(97 + k) Ne '----------可能差个运着符或 "&"连接符吧
next '-----------------
end sub,------------没这个咋行.代码太少看不清意思,只能看语法了,
猜测是按a-Z键.Label1(K)控件会对应显示,a-Z的26个字符.
DIM AS INTEGER A(6),I,T,J,P T=0 FOR I=1 TO 6:A(I)=7-I:NEXT F
Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i =
dim a(10,10) as integer for i=1 to 10 for j=1to 10 a(i,j)=i*
vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer
评定等级() Dim i As Integer For i = 3 To 11 t = Sheets(1).Cells(
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s
VB dim x as integer dim i as integer x = 100 for i = 1 to 10
Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n =
Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) =
求结果dim a(6) for i=0 to 6 a(i)=i+1 next for i=0 to 6 count=co
Dim x(100), a For i = 1 To 100 x(i) = i Next i For Each a In