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

Dim a(9) As Integer,x As Integer,k As Integer,I As Integer RandomizeDo While I 帮忙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 integer dim i as integer x = 100 for i = 1 to 100 step 5 x = x - i / 6 next i print x 我用手机编的 不好排版 我的答案上是-54 vb 一个分段函数 编程错误 我用的 vb6.0版的 编一个分段函数 如下Private Sub form_Click()Dim x As Integer,y As Integerx = Val(InputBox(请输入x值:))If x 在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X As Integer输入一个正整数,编程判断该数是奇数还是偶数.Private Sub Form_Click() Dim X As Integer X = InputBox(输入一个正 VB编程.找出所有三位数的升序数,就是个位数字大于十位数,十位数大于百位数.我写了一个Private Sub Text1_Change()Dim x As Integer,y As IntegerIf x 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电脑上的提示 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 请帮忙解释下面语句意思-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 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(请输入矩阵的第 看看这段vb程序哪里错了（已知一元一次方程为AX+B=0,设计一个程序,当用户输入A和B的值,输出X值,界面如Private Sub Command1_Click()Dim a As Integer,b As Integer,c As SingleText1.Text = aText2.Text = bc = -b / aText3.Te 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 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程序是 （ ）控制结构,执行下列程序后变量Z的值是（ ）.下列VB程序是 （ ）控制结构,执行下列程序后变量Z的值是（ ）.Dim z as integer,x as integerz=0For x=1 to 10 step 2z=z+xnext x.A 循环结构 Z=25B 计算机二级vb,Dim a as Integer 则语句“a＝3.7”与“a＝CInt（3.7）”结果完全相同.请问这个怎么解释? vb中 按如下定义的数组A的元素个数为?option base 1 dim a(-1 to 5 ,5)as integer 求详解 VB中的Dim sum As Integer语句Dim sum As Integersum = 0For i = 1 To 20sum = sum + ii = i + 1Next iPrint sum=; sum是怎么计算的 计算结果是多少 您给我的计算公式没有去处重复的组合呀!就是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