UC知道这两题怎么也读不懂，各位VB大虾帮忙注释下阿
来源：百度知道 编辑：UC知道 时间：2024/06/04 08:50:27
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()过程【是不是打错了？下面没有Mysub的过程啊，只有Mysub2的，暂且认为是mysub2】
Y = b '把b赋给y
Call Mysub2(4,b) '调用Mysub2的过程
Print y + b '输出y+b的值
End Sub
Public Sub Mysub2(x,t) '定义Mysub2()过程
t = 0
For k =1 To x '循环x次
t = t + k '从1加到x，累加
Next
End Sub
第一格程序的过程：
第一次cal：1+2+3＝6
第二次cal：1+2+3+4＝10
输出：6+10＝16
第二题：
Public Function Fn1(x) As String '定义Fn1()
K = Len(x) '判断字符串x的长度
Fn1 = Mid(x,2,k-2) '截去字符串x的首位的字符
End Function
Private Sub Form_Click()
Dim a As String , b As String , s As String
a = “ ABCDEFG “ : b = “ 12345 ” '定义a，b字符串
s = Fn1(a) + Fn1(b) '把a,b字符串截去首位并相连赋到s
Print Fn1 (Fn1 (Fn1 ( s ) ) ) '把s字符串三次截去首位字符并输出最后结果
End Sub
第二个程序过程：
a=" ABCDEFG "
b=" 12345 "
s="ABCDEFG12345&qu