VB程序如下：Dim a a = Array(1,2,3,4,5,6,7,8) i = 0 For k = 100 To 90 Step -2完全看不懂...要详解..VB程序如下：Dim aa = Array(1,2,3,4,5,6,7,8)i = 0 For k = 100 To 90 Step -2s = a(i)^2If a(i) > 3 Then Exit Fori = i + 1Next kPrint k; a(

VB中Dim A!是什么意思 VB程序如下：Dim a a = Array(1,2,3,4,5,6,7,8) i = 0 For k = 100 To 90 Step -2完全看不懂...要详解..VB程序如下：Dim aa = Array(1,2,3,4,5,6,7,8)i = 0 For k = 100 To 90 Step -2s = a(i)^2If a(i) > 3 Then Exit Fori = i + 1Next kPrint k; a( 【例4】(2000年4月)下列程序执行后的输出结果是( ).main(){char arr[10];strcpy(arr,your); strcat(arr,me);arr[3]='&';printf(%s ,arr);}A.you&me B.you C.me D.err 下列程序执行后的输出结果是（ ）.#include main() { char arr[2][4]; strcpy(arr[0],you);strcpy(arr[1],me);arr[0][3]='&';printf(%s ,arr); } a、you&me b、you c、me d、err 有如下程序dim arr(3,3) for j=1 to 3 for j=1 to 3 arr(j,k)=(j-1)*3+k next k next j有如下程序dim arr(3,3) for j=1 to 3 for j=1 to 3 arr(j,k)=(j-1)*3+k next k next j for j=2 to 3 for k=2 to 3 print arr(k,j); next k print next j 运行程序后 VB编程问题.如何让计算出的100以内的勾股数的计算结果显示在List中?现在编的程序如下：Private Sub Command1_Click()Dim a,b,c As DoubleFor a = 1 To 100For b = a To 100c = Sqr(a * a + b * b)If c = Fix(c) And c Dim arr(0 To 30,0 To 11) As Double for i = 1to31 arr(m-1,0)=arr(m-1,0)+1 next i 表达有啥毛病?刚才问题可能没说清楚我想建立一个数组,然后在一定条件判断下让数组里的数从0开始加,每满足一个条件就加1.Dim a 我用vb写了一个计算长方形~正方形或三角形面积的程序~代码如下~怎样修改啊~Private Sub Command1_Click()Dim a As StringDim h,l,s As Singlea = InputBox(请输入形状（只限于长方形~正方形或三角形）,请输 求教用VB 写程序.求两自然数m,n的最小公倍数.这样写对吗?Dim a%,b%,t%,i%a=inputbox(“第1个数”)：b=inputbox(“第2个数”)If a 下列VB程序是 （ ）控制结构,执行下列程序后变量Z的值是（ ）.下列VB程序是 （ ）控制结构,执行下列程序后变量Z的值是（ ）.Dim z as integer,x as integerz=0For x=1 to 10 step 2z=z+xnext x.A 循环结构 Z=25B vb 计算90°角正弦结果为 .893996663600558程序是这样,Private Sub Command1_Click()Dim a As Singlea = CSng(Text1.Text)MsgBox 计算结果为: & Sin(a)End Sub vb程序Dim a(1 To 20) As Integer,i As Integer,j As IntegerDim a(1 To 20) As Integer,i As Integer,j As IntegerPrivate Sub Command1_Click()Dim a(1 To 20) As IntegerFor j = 1 To 2For i = 1 To 10a(i) = Int(Rnd * 21) + 20Text1 = Text1 & Str(a(i))Next iTe vb题 下面程序的功能是什么?Private Sub Command1_Click() Dim s%,n% Dim a As String n = 0 a = InputBox(Please input a number:) For s = 1 To Len(a) If (func(Val(Mid(a,s,1)))) Thenn = n + 1NextPrint n End Sub Private Function func(x%) As Bool vb中 按如下定义的数组A的元素个数为?option base 1 dim a(-1 to 5 ,5)as integer 求详解 VB编程,一元二次方程a*x^2+b*x+c=0的根Dim a As Double Dim b As Double Dim c As Double Dim delta As Double Dim x1 As Double Dim x2 As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) delta = b * b - sort()数字排序中：arr.sort(sortNumber)调用的过程给讲一下!function sortNumber(a,b){return a - b}var arr = new Array(6)arr[0] = 10arr[1] = 5arr[2] = 40arr[3] = 25arr[4] = 1000arr[5] = 1document.write(arr + )document.write(a 49 B 0 C　不确定　D　程序出错 选哪个呢?为什么?VB程序 Dim aa=Array(1,2,3,4,5,6,7) For i =Lbound (0) TO Ubound(a) a(i)=a(i)*a(i) Next i Print a(i)上面打错了。是For i =Lbound (a) TO Ubound(a) VB 使显示每行的最大值的位置（下面的程序可以把最大值找出）Private Sub cmdbegin_Click() Dim a(4,3) As Integer,i As Integer,j As Integer Dim max As Integer For i = 1 To 4 For j = 1 To 3 a(i,j) = InputBox(请输入矩阵的第