看程序,)private sub form-click()dim a(5,5) as integer,s(5) as integerfor i=1 to 5s(i)= 0for j=1 to 5m(i,j)=i+jnext jnext ifor each x in sprint x;nextend sub

看程序,)private sub form-click()dim a(5,5) as integer,s(5) as integerfor i=1 to 5s(i)= 0for j=1 to 5m(i,j)=i+jnext jnext ifor each x in sprint x;nextend sub access下面程序运行后输出的是 Private Sub Form_Click() For i=1 To 4 x=1 For j=1 To 3 x=3 For k=1 To看不懂啥意思,谁能帮我说下每一步是什么意思,怎么得到答案的33.下面程序运行后输出的是Private Sub Form_Click 15、执行下面的程序,消息框的输出结果是______.Option Base 1 Private Sub Command1_Click() Dim a(10)15、执行下面的程序,消息框的输出结果是______.Option Base 1Private Sub Command1_Click()Dim a(10),p(3) As Integerk=5For i=1 Private Sub 与 Sub的区别 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 33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As Doublesum = 0n = 0For i=1 To 5x = n / in = n + 1sum = sum + xNext iEnd Sub该程序通过For循环来计算一个表达式的值,这个表达式是______.A、1+1/2+2/3+3/4+4/5 B Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))VB的一个程序 设计程序,输出1-50内的奇数Private Sub Form Load()Dim i as integerFor i=1 To 50If.thenPrint iEnd If.End Sub请帮忙在.处写出相应的程序步骤 谢谢了急用!~看好了 一共两个.号谢谢~Next后面是什么?前一个空对了 一些计算机的程序的计算问题!最好能一步一个解释!程序填空1、以下程序是找出50以内所有能构成直角三角形的整数组.请完成程序.Private Sub Command1_Click()For a=1 To 50For b=a To 50c=Sqr(a^2+b^2)If ____ An 下面程序循环后,为什么会是那样的结果?请详细说明其执行过程,Private Sub Form_Click()For a = 1 To 3For b = 1 To 3For c = 1 To 3Print a,b,cNext cNext bNext aEnd Sub 请解释下面程序每一句含义以及最后输出的值Private Sub Form-Click()For i=1 to 4X=1For j=1 to 3X=3For k=1 to 2X=X+6Next kNext jNext iprint x End sub 英语翻译我要全部翻译出来 ' Check for normal characters.Private Sub Form_KeyPress(KeyAscii As Integer)txtDisplay_KeyPress KeyAsciiEnd Sub' Check for unusual characters.Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer)txtDisplay_K 程序填空1、以下程序是找出50以内所有能构成直角三角形的整数组.请完成程序.Private Sub Command1_Click()For a=1 To 50For b=a To 50c=Sqr(a^2+b^2)If ____ And c=Int(c) Then Print a;b;cNext bNext aEnd SubIf ____ ThenText1.Text 判断一个数是否是质数? 其中程序中if i=x then 是何意?Private Sub Form_Click()Dim x As Integerx = InputBox()For i = 2 To x - 1If x Mod i = 0 Then Exit ForNext iIf i = x ThenMsgBox 是素数ElseMsgBox 不是素数End IfEnd Sub 编写程序计算1+3+5+……+99的值,这是个填空题.private sub command1_click()dim i,s as integers=0for i=1 to ____________s=s+(2*i-1)_______________print s=;send sub答案是第一空填50,为什么最大是99,要填50呢?这个50是怎么 请给下面程序中的 If I = 0 Then这一句解释一下,Const n = 10Dim data()Private Sub Form_Load()Me.AutoRedraw = TrueReDim data(n)For I = 1 To ndata(I) = 10 * IPrint data(I);NextEnd SubPrivate Sub Command1_Click()Dim I%,J%,x%Static m%Print:Pr SOS!Private Sub Command1_Click()/s=0/For j=1 To 20/If j Mod 5 0 Then/s=s+j/End If/Next j/Print s/End Sub程序运行后,单击命令按钮,输出的结果是_________. 帮忙 以下程序用于计算1-1/2+1/3-1/4...1/100的值 共有三处错Private Sub C1_Click()Dim I As integerDim sign As integerDim total As integersign=1total=0for i=1 to 100 sign=sign*(-1) total=sign*1/Inext iText1.text=totalEnd Sub