vb题 Private Sub Command 1 _Click（）Dim x As Integerx=Val（Inpu

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/08 11:41:58

vb题
Private Sub Command 1 _Click（）
Dim x As Integer
x=Val（InputBOX（"输入数据"））
Text1=Str（fun（x）+fun（x）+fun（x））
End Sub
Private Function fun（ByRef n As Integer）
If n Mod 3=0 Then
n=n+n
Else
n=n*n
End If
fun=n
End Function
当单击命令按钮,在输入对话框中输入2时,文本框中显示的是__
答案为什么不是12?

和你的fun()函数的传值方式有关
ByRef传的是X的地址,X的值会因为每次调用fun()而改变
Private Function fun（ByRef n As Integer）
Text1=Str（fun（x）+fun（x）+fun（x））
Text1=Str（4+16+256）
结果为276
如果改为
Private Function fun（ByVal n As Integer）
ByVal传值方式,X的值就不会因为调用fun()而改变
结果就会是你预期的12
再问： ByRef传的是X的地址，X的值会因为每次调用fun()而改变是调用了三次fun()么？是因为有三个fun（）所以调用三次？
再答：是的。每调用一次X的值都改变了。因为fun() 中有语句改变了X的值

几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val( VB Private Sub Command1_Click()Dim x As Integerx = 15768Prin 问一道VB填空题：Private Sub Form_Click（） Dim x As Integ private sub command（）_click（） for i=2 to10 for j=2 to 解一道vb函数题,private sub command1 _click(),for i =1to4 ,for j =1 VB while语句Private Sub Command2_Click()Dim x As SingleDim y A vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp VB编程option base 1private sub command1_click() dim d d=array( 用vb 求π Private Sub Form_Click()Dim i As Long,pi As Double,k 帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBo 帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b 9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer