Private Sub Command0_Click() Dim a(10, 10) For m = 2 To 4 Fo
来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/05/19 04:09:36
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
答案是42.谁能帮我解析一下啊?谢谢!
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
Next m
MsgBox a(2, 5) + a(3, 4) + a(4, 5)
End Sub
不好意思!谢谢啦~
答案是42.谁能帮我解析一下啊?谢谢!
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
Next m
MsgBox a(2, 5) + a(3, 4) + a(4, 5)
End Sub
不好意思!谢谢啦~
这一题不必详细分析过程也可以得到结果,因为a(m, n) = m * n,所以a数组中的元素的值正好等于其两个下标的积,所以a(2, 5) + a(3, 4) + a(4, 5)=2*5+3*4+4*5=42.
Private Sub Command0_Click() Dim a(10, 10) For m = 2 To 4 Fo
Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k)
Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1 For
英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,max
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
private sub command1_click( ) dim a a=array(1,2,3,4) j=1:s=0
Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x =
Private Sub Command1_Click() Dim b,k For k=1 to 6 b=23+k Nex
Private Sub Command1_Click() Dim i As Double,M As Double,L A
Private Sub Command1_Click() Dim a As Long a = 1234 a& = 456
Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a
帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBo