帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/14 06:26:14
帮忙VB试题
我怎么想都算不对
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
a = 5
b = 3
c = 4
Print SecProc(a ,b ,c)
End Sub
Function FirProc(x As Integer,Y As Integer,z As Integer)
FirProc = 2 * x + y + 3 * z
End Function
Function SecProc(x As integer ,y As integer ,z As Integer)
SecProc= FroProc( z ,x,y)+x
End Function
我自学的怎么样都不对
SecProc= FroProc( z ,x,y)+x" 应该是
SecProc = FirProc(z,x,y) + x
这个是写错了 呵呵
我怎么想都算不对
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
a = 5
b = 3
c = 4
Print SecProc(a ,b ,c)
End Sub
Function FirProc(x As Integer,Y As Integer,z As Integer)
FirProc = 2 * x + y + 3 * z
End Function
Function SecProc(x As integer ,y As integer ,z As Integer)
SecProc= FroProc( z ,x,y)+x
End Function
我自学的怎么样都不对
SecProc= FroProc( z ,x,y)+x" 应该是
SecProc = FirProc(z,x,y) + x
这个是写错了 呵呵
我猜你是写错了
"SecProc= FroProc( z ,x,y)+x" 应该是
SecProc = FirProc(z,x,y) + x
你是不明白这个语句的含义吗?
这里直接说一下这个小程序吧.
首先点击按钮将触发Command的Click事件(即Command1_Click).
事件中先定义了a,b,c三个变量为整数类型,并将三个变量赋值.之后调用SecProc函数,并将传回的结果输出到屏幕上.
根据SecProc的函数定义,计算机将按地址传入给函数SecProc的三个参数x,y,z对应传递给FirProc的y,z,x参数.
由于FirProc是一个Function,因此可以传回数值,这个数值被赋值语句("=")传给SecProc.
由于SecProc也是一个Function,因此同理将FirProc的结果传回给Print,作为Print的参数.
随后Print语句将结果输出.
事件结束.
"SecProc= FroProc( z ,x,y)+x" 应该是
SecProc = FirProc(z,x,y) + x
你是不明白这个语句的含义吗?
这里直接说一下这个小程序吧.
首先点击按钮将触发Command的Click事件(即Command1_Click).
事件中先定义了a,b,c三个变量为整数类型,并将三个变量赋值.之后调用SecProc函数,并将传回的结果输出到屏幕上.
根据SecProc的函数定义,计算机将按地址传入给函数SecProc的三个参数x,y,z对应传递给FirProc的y,z,x参数.
由于FirProc是一个Function,因此可以传回数值,这个数值被赋值语句("=")传给SecProc.
由于SecProc也是一个Function,因此同理将FirProc的结果传回给Print,作为Print的参数.
随后Print语句将结果输出.
事件结束.
帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b
9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer
Private Sub Command1_Click() Dim i As Integer,s As Integer,n
Private Sub Form_Click() Dim a As Integer,b As Integer,k As
b求π为啥是错的Private Sub Command1_Click()Dim s As Integer,n As Do
0402 Private Sub Command1_Click() Dim a As Single,b As Singl
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBo
冒泡排序VB代码输入五个数,并降序排列Private Sub Command1_Click()Dim a As Doub
几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val(
vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp
VB Private Sub Command1_Click()Dim x As Integerx = 15768Prin