Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) = x(i - 1,j - 1) + i + j Next j Next iprint (3,4)

VB中 Option ExplicitPrivate Sub Form_Click()Dim 5Fg Integer （1）Dim L * og As Long （2）Dim s - ig As Single (3)Dim dob_ As Double （4)Dim _Name AS String （5）Dim bln@ Frag As Boolean （6）Dim do As Data （7）End Sub电脑上的提示 请帮忙解释下面语句意思-2'填写遗漏值 Dim n As Integer Dim arrR() As Integer, arrB() As Integer ReDim arrR(5), arrB(5) Dim r As Range Dim k As Long Dim t As Integer arrR(0) 问一道VB填空题：Private Sub Form_Click（） Dim x As Integ问一道VB填空题：Private Sub Form_Click（）Dim x As Integerx=5Do Print x;x=x-1Loop While Not xEnd Sub（A）5 （B）5 4 3 2 1（C）出现语法错误的信息 （D）陷入 语句dim arr(-3 to 5,2 to 6)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 - 帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integera = 5b = 3c = 4Print SecProc(a ,b ,c)End SubFunction FirProc(x As Integer,Y As Integer,z As Integer)FirProc = 2 * x + y + 3 * zEnd FunctionFun VB代码翻译中文`急用`谢谢`各位高手帮忙``Dim 鼠X As SingleDim 鼠Y As SingleDim 地鼠 As ByteDim 对数 As IntegerDim 总数 As Integer Sub 判断(X, Y)Select Case 地鼠 Case 0, 1, 2 X = 地鼠 Y = 0 Case 3, 4, 5 X = 地鼠 - 3 Y = 1 vb中数据类型 两个double类型的数据相除返回结果如果是很大的小数总是溢出怎么办?Dim x As IntegerFor x = 5 To 14Dim y As IntegerFor y = 51 To 60Dim z As Doublez = (Cells(y,12) / (((Cells(y,8) + Cells(y,9) + Cells(y,10) + C 麻烦解释这个程序Private Sub pl(x As Integer,ByVal y As Integer)x = 4:y = 5:z = 6End SubPrivate Sub Command1_Click()Dim x As Integer,y As Integerx = 1:y = 2:z = 3Print x,y,zCall pl(y,z)Print x,y,zEnd Sub Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) = x(i - 1,j - 1) + i + j Next j Next iprint (3,4) Dim a(9) As Integer,x As Integer,k As Integer,I As Integer RandomizeDo While I vb 编程 用pi /4 =1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止Dim pi As Double, i As Integer, x As Long x = 1 i = 1 While 1 / x > 10 ^ -6 pi = pi + i * (1 / x) Private Function p1(x As Integer,y As Integer,z As Integer)p1 = 2 * x + y + 3 * zEnd FunctionPrivate Function p2(x As Integer,y As Integer,z As Integer)p2 = p1(z,y,x) + xEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As 0402 Private Sub Command1_Click() Dim a As Single,b As Single Dim c As Single,d As Single Dim m A0401Private Sub Form_Load()Dim x As Long,s As Stringx = InputBox(输入一个整数(1~40000))If x Mod 2 = 0 Thens = 偶数Elses = 奇数End IfMsgBo 您给我的计算公式没有去处重复的组合呀!就是33个数字的那个.如题 原程序：Sub tt() Application.ScreenUpdating = False Dim i,j,k,l,m,n As Integer Dim Ar(33) As Integer,Arsum As Long,tempSum As Long Dim x As Long Dim FS As Ob 使用下列语句：dim x (1 to 10,3)as single,则数组占用内存空间的字节数是：答案是160,怎么算的, VB dim x as integer dim i as integer x = 100 for i = 1 to 100 step 5 x = x - i / 6 next i print x 我用手机编的 不好排版 我的答案上是-54 VB编程 Dim sum As Double,x As Double sum = 0 x = 0 For i = 1 To 5 x = n / i n=n+1 sum=sum+x nextprint结果为,sum 为什么结果是1/2+2/3+3/4+4/5而不是1+1/2+2/3+3/4+4/5