UC知道快考试了，这两题怎么也看不懂，各位VB大虾帮忙注释下阿
来源：百度知道 编辑：UC知道 时间：2024/05/07 08:46:40
1．
Private Sub Form_Click()
Dim b As Integer ,y As Integer
Call Mysub(3,b)
Y = b
Call Mysub2(4,b)
Print y + b
End Sub
Public Sub Mysub2(x,t)
t = 0
For k =1 To x
t = t + k
Next
End Sub
2.
Public Function Fn1(x) As String
K = Len(x)
Fn1 = Mid(x,2,k-2)
End Function
Private Sub Form_Click()
Dim a As String , b As String , s As String
a = “ ABCDEFG “ : b = “ 12345 ”
s = Fn1(a) + Fn1(b)
Print Fn1 (Fn1 (Fn1 ( s ) ) )
End Sub
Private Sub Form_Click()
Dim b As Integer ,y As Integer
Call Mysub(3,b)
Y = b
Call Mysub2(4,b)
Print y + b
End Sub
Public Sub Mysub2(x,t)
t = 0
For k =1 To x
t = t + k
Next
End Sub
2.
Public Function Fn1(x) As String
K = Len(x)
Fn1 = Mid(x,2,k-2)
End Function
Private Sub Form_Click()
Dim a As String , b As String , s As String
a = “ ABCDEFG “ : b = “ 12345 ”
s = Fn1(a) + Fn1(b)
Print Fn1 (Fn1 (Fn1 ( s ) ) )
End Sub
第一段代码在调用函数是有几处错误，第二段的引号要改一下
Private Sub Form_Click()
Dim b As Integer, y As Integer
Call Mysub(3, b) '第一次调用函数Mysub(3, 0)b未赋值默认为0>k=1 to 3>t=6>导出Mysub(3, 6)
y = b 'y=6
Call Mysub(4, b) '第2次调用函数Mysub(4, 6)>k=1 to 4>导出Mysub(4,10)>b=10
Print y + b '6+10=16
End Sub
Public Sub Mysub(x, t)
t = 0 't所在位置的值始终为0
For k = 1 To x
t = t + k
Next
End Sub
Public Function Fn1(x) As String
k = Len(x)
Fn1 = Mid(x, 2, k - 2)
End Function
Private Sub Form_Click()
Dim a As String, b As String, s As String
a = "ABCDEFG": b = "12345"
s = Fn1(a) + Fn1(b) 'Fn1(a)=BCDEF,Fn1(b)=234
Print Fn1(Fn1(Fn1(s))) '其余的你自己也能理解
End Sub