Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print

相关推荐

• 解一道vb函数题,private sub command1 _click(),for i =1to4 ,for j =1to3 ,x=3 ,for k=1to 2,x=x+3,n...
• vb用function编写一个产生随机整数过程,输出n个指定范围的随机整数Sub sj(i%,a%,b%)Dim x%x = Int(Rnd * (b - a + 1)) + aEnd SubPrivate Sub Command1_Click()Dim n%,a%,b%,i%,x%n = InputBox("请输入随机整数的个数n")a = InputBox("请输入取值范围的下限a")b = InputBox("请输入取值范围的上限b")For i = 1 To nCall sj(x,a,b)Print x;Next iEnd Sub为什么运行出来的都是零
• vb求m+mm+mmm+...+mm...mmm(n个m)要求 n ,m值 用 inputbox输入Dim m%,n%,i%,j%,a(0 To 9999999) As IntegerPrivate Sub Form_Click()m = InputBox("请输入m值 ")n = InputBox("请输入n值 ")For i = n To 0 Step -1a(n) = a(n) + 10 ^ (i - 1)Next iPrint SUM(m,n)End SubPrivate Function SUM(m As Integer,n As Integer) As LongIf n = 1 ThenSUM = mElseSUM = m * a(n) + SUM(m,(n - 1))End IfEnd Function帮忙把这个改一改
• 将3*3的矩阵转置我编了个程序Private Sub Form_click()Dim a(1 To 3,1 To 3),i As Byte,j As Byte,t As ByteFor i = 1 To 3For j = 1 To 3a(i,j) = Val(InputBox("a（" & i & "," & j & "）=?"))Next jNext iFor i = 2 To 3For j = 1 To i - 1t = a(i,j):a(i,j) = a(j,i):a(j,i) = tNext jNext iFor i = 1 To 3For j = 1 To 3Print a(j,i);Next jPrintNext iEnd Sub为什么输出的还是原来的矩阵,没有转置呢?
• 关于for ……next语句内外循环的问题因为我不是很理解FOR NEXT循环语句的循环规则,所以麻烦大神详细解释一下每一步是怎么循环的好么?①private sub command1_click（）for i =1 to 4x=3for j = 1 to 3for k = 1 to 2x = x+3next knext jnext itxt1.value = str(x)end sub②private sub command1_click()dim i,j,xfor i = 1 to 20 step 2x= 0for j = i to 20 step 3x= x + 1next jnext itext1.value = str(x)end sub
• Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a = a + 1 Next j Next i Print a End Sub
• 一道vb题（懂的解） n=0 For i=1 To3 For j=5 To 1 step -1 n=n+1 Next j,i Print n; j; i
• VB x=0 for i =0 to 4,for j =0 to i-1,x=x+(i+j-1),exit for next j,next i,print x.
• 下面程序执行后,X的结果为() X=0 For i=1 to 5 For j=i to 5下面程序执行后,X的结果为()X=0For i=1 to 5 For j=i to 5 X=X+1 Next jNext iPrint X
• Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print
• 气体受热膨胀,气压变大,气体体积增大
• 与是故学然后知不足意思相近的诗句