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))
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的一个程序
VB的一个程序
其他人气:292 ℃时间: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科学关于电阻和电压的计算题
- 2把一个长、宽、高分别是6厘米、5厘米、4厘米的长方形涂上黄色后切成许多个棱长是1厘米的小正方体.
- 3岳阳楼记一文将叙事、写景、议论、抒情相结合,这种写法有何好处?
- 4一本故事书比连环画贵5元,一本科技书比连环画便宜3元.这本故事书比科技书贵多少元
- 5芦花荡中环境描写的特点及在课文中的作用
- 6尺规作图: 已知:如图,线段a和h.求作等腰三角形ABC,使底边BC=a,底边上的高AD=h.(保留作图痕迹并写出相应的作法.) 作法:
- 7描写陶渊明的诗句
- 8a b 是两个自然数,他们...
- 9有谁能详细地给我介绍一下数列的通项公式的四种求法.1,裂项相消法2,待定系数法3,累加4,好像是累乘还是什么……好心人,感激不尽!
- 10fall off 与 fall down