UC知道关于VB改错程序的问题
来源：百度知道 编辑：UC知道 时间：2024/06/04 03:09:34
程序1
Dim a() As Variant
Dim b(4) As Integer
a=Array(4,7,2,1,8,10)
b=a
===================================================================
我觉得应该把b(4)改成b(5)，请问还有其他错误么，有的话怎么改,小弟没找出来
程序2
Dim m as Integer
Dim Tot as Integer
m=0
Do
Tot=Tot+m
m=m+1
Loop While x<10
==================================================================
好像最后一句应该是Loop While x<=10
可还有其他错误么，怎么改啊
Dim a() As Variant
Dim b(4) As Integer
a=Array(4,7,2,1,8,10)
b=a
===================================================================
我觉得应该把b(4)改成b(5)，请问还有其他错误么，有的话怎么改,小弟没找出来
程序2
Dim m as Integer
Dim Tot as Integer
m=0
Do
Tot=Tot+m
m=m+1
Loop While x<10
==================================================================
好像最后一句应该是Loop While x<=10
可还有其他错误么，怎么改啊
1.
Dim a() As Integer
Dim b(5) As Integer
a={4,7,2,1,8,10}
For x As Integer 0 to 5
b(x)=a(x)
Next x
2.Dim m as Integer
Dim Tot as Integer
m=0
Do
Tot=Tot+m
m=m+1
Loop While Tot<=10
Private Sub Form_click()
Dim a As Variant
Dim b As Variant
a = Array(4, 7, 2, 1, 8, 10)
b = a
For i = 0 To UBound(b)
Print b(i)
Next
End Sub
数组赋值，需要2变数组类型一致，动态对动态，静态对静态
========================
Private Sub Form_click()
Dim m As Integer
Dim Tot As Integer
m = 0
Do
Tot = Tot + m
m = m + 1
Loop While m < 10
Print Tot
'应该是m<10才对吧。x变量重头到尾都没出现使用的变量 你拿它来当循环条件
'结果是陷入死循环里，按照题目给的信息看应该是m拿来做条件，求Tot的结果
End Sub
应该没了吧，你都没有说清楚题目，第二题无缘无故多了个x怎么跳出循环啊？