Private Sub Command1_Click() b=-15.1 a=sub1(2.54,b+10

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/16 17:20:09

Private Sub Command1_Click() b=-15.1 a=sub1(2.54,b+10) print "b=";b;"a=";a End Sub
Private Sub Command1_Click()
b=-15.1
a=sub1(2.54,b+10)
print "b=";b;"a=";a
End Sub
Public function sub 1(a As string,b as integer)as integer
b=b+10
a=-b
sub1=a
end function
运行程序后输出内容为（B）
B b=-15.1 a=-5
求详解

各值变化如下
Private Sub Command1_Click()
b=-15.1
a=sub1(2.54,b+10) 这句调用sub1函数,其中第二个参数的值为b+10=-5.1
print "b=";b;"a=";a 这句是输出,分号的意思是紧凑连接输出
End Sub
Public function sub 1(a As string,b as integer)as integer 参数a=2.54,b=-5.1,但b定义为整型,所以被取整b=-5
b=b+10 ' b=b+10=-5+10=5
a=-b 'a=-b=-5
sub1=a 'sub1=a=-5
end function
可以得出sub1的返回值是-5,所以aa=sub1(2.54,b+10)=-5,在command1_click里b的值一直是-15.1没有改变过,所以输出的结果是b=-15.1 a=-5
再问：得出sub1的返回值是-5，为什么a=-5？
再答：因为这句呀 a=sub1(2.54,b+10)，这里调用了sub1，并把sub1的值赋给了a
再问：可是。。。我根本不明白这句是什么东西。。。
再问：可是。。。我根本不明白这句是什么东西。。。
再答：晕，打个比方，比如我要算一个角度的正弦值，那我就要用b=sin(a) sin就是一个函数，a 就是这个函数的参数，如果给a 赋个值，比如 30 度，那么sin(30)就等1/2，然后把1/2赋值给b，那么b的值就是1/2 在上面的代码中Public function sub1 就定义了一个叫sub1的函数，它有两个参数a和b，只要给出a和b的值，它就能够计算出一个结果并返回。a=sub1(2.54,b+10) , 给出了两个参数的值2.54和-5.1后， sub1过程经过运算返回了值-5，并赋值给a. 需要说明的是，两个过程中都有a 和 b ，但是它们各自不相干,完全可以用其他字母代替
再问： a=-5(2.54,b+10)=5是为什么。。。
再答：汗，你还没搞清楚函数是怎么调用的呀。sub1(2.54,b+10)这是一个整体，返回-5，就象sin(30）返回1/2一样。建议你找本书看看函数的调用吧

Private Sub Command1_Click() b=-15.1 a=sub1(2.54,b+10 Private Sub Command1_Click() A = Val(Text1.Text):B = Val(Tex 帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBo private sub command1_click( ) FOR a=1 TO 5 y=1 FOR b=1 TO 5 Private Sub Command1_Click() Dim b,k For k=1 to 6 b=23+k Nex 帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b 0402 Private Sub Command1_Click() Dim a As Single,b As Singl Private Sub Command1_Click() Dim a As Long a = 1234 a& = 456 Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) Private Sub Command1_Click() vb Private Sub Command1_Click()

Private Sub Command1_Click() ​b=-15.1 a=sub1(2.54,b+10

Private Sub Command1_Click() b=-15.1 a=sub1(2.54,b+10