神马品牌网慈溪红十字医院招聘:Vb问题！
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 19:30:11
Dim a(1 To 10) As Integer
For j = 1 To 10
a(j) = InputBox("输入下标为" & j & "的值")
Print a(j);
Next j
谁能帮我解答一下所有的篇码？
For j = 1 To 10
a(j) = InputBox("输入下标为" & j & "的值")
Print a(j);
Next j
谁能帮我解答一下所有的篇码？
Dim a(1 To 10) As Integer :定义一个数组A,这个数组有10个元素,数据类型是整形
For j = 1 To 10 :与NEXT J形成循环语句,J是循环变量,J的取值从1到10,共循环10次,每循环一次,执行一次循环体语句(FOR与NEXT之间的语句)
a(j) = InputBox("输入下标为" & j & "的值") :给数组A的每个元素赋值,值从键盘输入,InputBox是赋值函数,等待用户从键盘输入数据."输入下标为" & j & "的值"是 赋值函数的提示.
Print a(j); 打印数组A每个元素的值
Next j 与FOR形成循环语句.
设变量a(1-10中的任意一个) 作为整数
函数a(j)=inputbox
当j=1 a=1时 输出为:a(j)函数的结果，依次类推:循环
Dim a(1 To 10) As Integer '定义数组变量a为整型,数组下标下界是1,上界是10
For j = 1 To 10 '用For循环为变量j赋值
a(j) = InputBox("输入下标为" & j & "的值") '在对话框中,输入下标的值,把值赋予数组a,也就是说,a的下标下界由变量j产生
Print a(j); '输出数组a
Next j '由于上面使用了For循环,此处是下一个循环