窗体上有一个名称为Command1的命令按钮,其单击事件过程及有关函数过程如下:
Private Sub Command1 Click( )
Dim n As Integer
n=add(5,10)
Print n
End Sub
Function add(v1 As Integer,v2 As Integer,Optiona1 v3)As Integer
If Not IsMissing(v3)Then
add=v1+v2+v3
Else
add=v1+v2
End If
End Function
运行程序,单击命令按钮,以下叙述中正确的是( )。
发布于 2022-05-11 09:57:12
登录后免费查看答案
关注者
0
被浏览
16
1 个回答
推荐阅读
-
窗体上有一个名称为Co mmand1的命令按钮,其单击事件过程及有关函数过程如下:Private Sub Co mmand1_Click()Di mn As Integern =add(5,10)Print nEnd SubFunction add(v1As Integer ,v2As Integer ,Optionalv3)As IntegerIf Not Is Missi ng(v3)Thenadd =v1+v2+v3Elseadd =v1+v2End IfEnd Function运行程序,单击命令按钮,以下叙述中正确的是( )。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上有1个名称为Command1的命令按钮,并有如下事件过程和函数过程:Private Sub Command1_Click()Dim p As Integerp = m(1) + m(2) + m(3)Print pEnd SubPrivate Function m(n As Integer) As IntegerStatic s As IntegerFor k = 1 To ns = s + 1Nextm = sEnd Function运行程序,单击命令按钮Commandl后的输出结果为 ______ 。
2022-05-11 关注 0 浏览16 1答案
-
设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下:Private Sub Command1 Click( )Static x A S Integerx=f(x+5)ClsPrint XEnd SubPrivate Function f(x As Integer)As Integerf=x+xEnd Function连续单击命令按钮3次,第3次单击命令按钮后,窗体显示的计算结果是( )。
2022-05-11 关注 0 浏览27 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是
2022-05-11 关注 0 浏览17 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function fun(ByVal m As Integer)If m Mod 2 = 0 Thenfun = 2Elsefun = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, s As Integers = 0For i = 1 To 5s = s + fun(i)NextPrint sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是( )。
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序:Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(i)=8+iNextx=2Print a(f(x)+x)End SubFunction f(x As Integer)x=x+3f=xEnd Function程序运行后,单击命令按钮,输出结果为。
2022-05-11 关注 0 浏览13 1答案
-
窗体上有一个名为Command1的命令按钮,并有如下程序:Private Sub Corqmand1_Click( )Dim a As Integer,b As Integera=8b=12Print Fun(a,b);a;bEnd SubPrivate Function Fun(ByVal a As Integer,b AS Integer)As Integera=a Mod 5b=b\5Fun=aEnd Function程序运行时,单击命令按钮,则输出结果是( )。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:Function M(x As Integer,y As Integer)As IntegerM=IIf(x>y,x,y)End FunctionPrivate Sub command1_Click()Dim a As Integer,b As Integera=100b=200Print M(a,b)End Sub 程序运行后,单击命令按钮,输出结果为______ 。
2022-05-11 关注 0 浏览19 1答案
-
窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:Private Sub Command1 Click( )Static x As Variantn=0x=Array(1,2,3,4,5,6,7,8,9,10)While n<=4x(n)=x(n+5)Print x(n):n=n+1WendEnd Sub运行程序,单击命令按钮Command1,窗体上显示的是( )。
2022-05-11 关注 0 浏览14 1答案
-
窗体上命令按钮Command1的事件过程如下:Private Sub Command1_Click() Dim total As Integer total = s(1)+s(2) Print totalEnd SubPrivate Function s(m As Integer) As Integer Static x As Integer For i =1 To m x=x+1 Next i S=xEnd Function运行程序,第3次单击命令按钮Command1时,输出结果为 ______
2022-05-11 关注 0 浏览17 1答案