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的一个程序
人气：253 ℃ 时间：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
- 用MATLAB绘制y^2=x,y=x^2所围成的图形,并求其面积.
- 根号下4又五分之四乘三倍根号5除以负四分之三根号10
- 甲,乙两辆汽车同时从A地开往B地,两地相距550千米,当甲到达B地,后原路返回A地,已知乙每小时行50千米,
- 甲列车长500米,乙列车长400米,甲列车每秒行驶22米,乙列车行驶每秒25米,求乙列车追上甲列车到完全超过需要多少时间?
猜你喜欢
