Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))
VB的一个程序
人气：319 ℃ 时间：2020-01-29 05:48:25
解答
Private Sub command1_click() Dim m(10)For k = 1 To 10m(k) = 11 - k Next k x = 5 Print m(2 + m(x))这就是个绕弯子的程序,没什么意义,考你的理解能力的.严格的说,这个程序可能有错误,Dim m(10)应该改成Dim m...
推荐
- Private Sub Command0_Click() Dim a(10, 10) For m = 2 To 4 For n = 4 To 5 a(m, n) = m * n Next n Nex
- 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
- Private Sub Command1_Click() For i=1 To 4 x=4 For j =1 To 3 x=3 For k=1 To 2 x=x+6 Next k Nex
- 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
- 1 APEC has a ___-layer organisational structure.
- -6倍根号7*三分之一倍根号21除以二倍根号3和（四倍根号6-三倍根号2）除以二倍根号2
- 已知等比数列1,X1,X2,···X2n,2,求X1×X2×···×X2n
- 线段a,b,c的长都是整数,且a≤b≤c,如果b=4,那么以a,b,c为边可组成几个不同形状的三角形?分别列出它们的边长,其中有几个等腰三角形?
猜你喜欢
