单击一次命令按钮后,下列程序的执行结果是
Private Sub Command1_Click()
s=P(1) + P(2) + P(3) + P(4)
Print s
End Sub
Public Function P(N As Integer)
Static Sum
For i=1 To N
Sum=Sum + i
Next i
P=Sum
End Function
发布于 2022-05-11 10:20:27
登录后免费查看答案
关注者
0
被浏览
13
1 个回答
推荐阅读
-
在窗体中有一个命令按钮Commandl,编写事件代码如下:Private Sub Commandl Click( )Dim S As Integers=p(1)q+p(2)q+p(3)+p(4)debu9.Print SEnd SubPublic Function P(N As Integer)Dim Sum As IntegerSum==0For i=1 To NSum=Sum+1Next iP=SumEnd Function打开窗体运行后,单击命令按钮,输出的结果是( )。
2022-05-13 关注 0 浏览10 1答案
-
设有命令按钮Command1的单击事件过程,代码如下:Private Sub Command1_Click()Dim a(3,3)As IntegerFor i=1 To 3For j=1 To 3a(i,j)=i*j+iNext jNext iSum=0For i=1 To 3Sum=Sum+a(i,4-i)Next iPrint SumEnd Sub运行程序,单击命令按钮,输出结果是。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个名为 Command1 的命令按钮,然后编写如下程序:Private Sub Command1_Click( ) Dim i As Integer Sum=0 n=InputBox("Enter a number") n=Val(n) For i=1 To n Sum=______ Next i Print SumEnd SubFunction fun(t As Integer)As Long p=1 For i=1 To t p=p*i Next i______End Function以上程序的功能是,计算 1!+2!+3!+…+n!,其中n 从键盘输入,请填空。
2022-05-11 关注 0 浏览10 1答案
-
有如下程序:Private Sub Form_Click()Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后,单击窗体,输出结果为
2022-05-11 关注 0 浏览53 1答案
-
阅读下列程序:Private Sub Command1_Click()Dim i As Integer, k As Integerk=2For i=1 To 3Print H(k) ;Next iEnd SubFunction H(j As Integer)a=0Static ba=a + 1b=b + 1H=a*b + jEnd Function程序运行后,单击命令按钮输出结果是
2022-05-11 关注 0 浏览18 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1_Click()Dim a As Varianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next ix=Sum/5For i =1 To 5If a(i)>x Then Print a(i);Next iEnd Sub程序运行后,单击命令按钮,在窗体上显示的内容是
2022-05-11 关注 0 浏览13 1答案
-
设有如下程序:Private Sub Form Click( )Dim ary(1 To 5)As IntegerDim i As IntegerDim sum As IntegerFor i=1 To 5ary(i)=i+lsum=sum+ary(i)Next iPrint sumEnd Sub程序运行后,单击窗体,则在窗体上显示的是( )。
2022-05-11 关注 0 浏览16 1答案
-
有如下程序:Option Base 1Private Sub Form_Click()Dim arr, SumSum = 0arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)For i = 1 To 10If arr(i) / 3 = arr(i) \ 3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub程序运行后,单击窗体,输出结果为
2022-05-11 关注 0 浏览20 1答案
-
阅读程序Option Base 1Private Sub Form_Click()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)\3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub程序运行后,单击窗体,输出结果为
2022-05-11 关注 0 浏览32 1答案
-
设有如下程序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循环来计算一个表达式的值,这个表达式是
2022-05-13 关注 0 浏览14 1答案