5月5日 PPT美化设计 300集Office 2010微视频教程
5月10/11日 Excel函数实战技巧精粹 高效办公必会的Office实战技巧
5月3/4日 30天精学Excel 网易云课堂-Excel数据透视表应用大全
Excel数据处理与分析实战技巧第1季
查看: 177|回复: 6

零基础9期 第十六课作业贴

[复制链接]
发表于 2017-3-23 22:19:12 | 显示全部楼层 |阅读模式
本帖最后由 唐伯狼 于 2017-4-11 16:58 编辑

老规矩
老规矩
回复

使用道具 举报

发表于 2017-3-24 14:24:22 | 显示全部楼层
本帖最后由 [email protected] 于 2017-3-26 21:53 编辑
复制代码
  1. Sub party()
  2.     Dim i As Integer, line As Integer, rng1 As Range, ii As Integer
  3.     line = 3
  4.         For i = 2 To [a2].CurrentRegion.Rows.Count
  5.             
  6.             If Range("b" & i) = [f2] Then
  7.               
  8.                  Range("f" & line) = Range("b" & i).Offset(0, -1)
  9.                   For ii = 2 To 19
  10.                     If Range("b" & ii).Offset(0, 1) = 9 - Range("b" & i).Offset(0, 1) And Range("b" & ii) = [g2] Then
  11.                         Range("g" & line) = Range("b" & ii).Offset(0, -1)
  12.                     End If
  13.                   Next
  14.           line = line + 1
  15.           End If
  16.           Next
  17. End Sub
复制代码
  1. Sub 取数字()
  2.     Dim i As Integer, k As Integer, sumv1 As Integer, sumv2 As Integer
  3.         For i = 3 To 6
  4.             For k = 1 To Len(Range("g" & i))
  5.                 If Mid(Range("g" & i), k, 2) Like "[0-9][0-9]" Then
  6.                     sumv2 = sumv2 + Mid(Range("g" & i), k, 2)
  7.                      k = k + 1
  8.                  ElseIf Mid(Range("g" & i), k, 1) Like "[0-9]" Then
  9.                     sumv1 = sumv1 + Mid(Range("g" & i), k, 1)
  10.                     Debug.Print Mid(Range("g" & i), k, 1)
  11.                      k = k + 1
  12.                 End If
  13.                 Range("f" & i) = sumv1 + sumv2
  14.            Next
  15.               sumv1 = 0
  16.               sumv2 = 0
  17.         Next

  18. End Sub
复制代码
  
  1. Sub test()
  2.     Dim str As String, N As Integer, count As Integer
  3.    
  4.     str = "病人对医生说:大夫我咳嗽哦。医生问他:你20岁的时候咳嗽吗?病人回答:不咳嗽。医生又问" _
  5.     & "你30时岁的时候咳嗽嘛,病人说不咳嗽。医生在问,你40多岁50岁的时候咳嗽嘛?病人回答:没有" _
  6.     & "咳嗽哦。医生说,那么你现在还不咳嗽,还想什么时候咳嗽呢?"
  7.    
  8.      N = 1
  9.     Do While N < Len(str)
  10.           N = N + 1
  11.         If InStr(N, str, "咳嗽") > 1 Then
  12.             N = InStr(N, str, "咳嗽")
  13.             count = count + 1
  14.               
  15.         End If
  16.      Loop
  17.      MsgBox "咳嗽了" & count & " 次"
  18. End Sub
复制代码


回复 支持 反对

使用道具 举报

发表于 2017-3-24 16:05:19 | 显示全部楼层
本帖最后由 cyxnry 于 2017-3-24 16:23 编辑
  1. '毕业设计个人课表:
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Dim i As Long, j As Long
  4.     Dim 课程 As String, 班级 As String
  5.     Dim 分工rng As Range, 第几课 As String, 周几 As String
  6.     Dim row1 As Long, column1 As Long
  7.     Application.EnableEvents = False
  8.     On Error Resume Next
  9.     If Target.Address(0, 0) = "B3" And Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
  10.         Range("d6:j11").ClearContents
  11.         Range("d13:j16").ClearContents
  12.         Range("d18:j23").ClearContents
  13.         Range("d25:j32").ClearContents
  14.    
  15.         For Each 分工rng In Sheets("教学分工").[a2].CurrentRegion
  16.             
  17.             If 分工rng.Value = Sheets("个人课表").[b3].Value Then
  18.                 课程 = Sheets("教学分工").Cells(分工rng.Row, 1)
  19.                 班级 = Sheets("教学分工").Cells(2, 分工rng.Column) & Sheets("教学分工").Cells(3, 分工rng.Column)
  20.             
  21.                 For i = 3 To 77
  22.                     If Sheets("总课表").Cells(4, i).Value & Sheets("总课表").Cells(5, i).Value = 班级 Then
  23.                         For j = 6 To 19
  24.                             If Sheets("总课表").Cells(j, i) = 课程 Then
  25.          
  26.                                 第几课 = Sheets("总课表").Cells(j, 2)
  27.                                 If 第几课 = "" Then 第几课 = "早自习"
  28.                                  周几 = Sheets("总课表").Cells(3, i)
  29.                     
  30.                                 column1 = Sheets("个人课表").Range("5:5").Find(周几).Column
  31.                                 row1 = Sheets("个人课表").Range("b:b").Find(第几课).Row
  32.                                 Cells(row1, column1) = 课程
  33.                                 Cells(row1 + 1, column1) = 班级
  34.                                 row1 = 0
  35.                                 column1 = 0
  36.                             End If
  37.                         Next
  38.                     
  39.                     End If
  40.                 Next
  41.             End If
  42.         Next
  43.     End If
  44.             
  45. Application.EnableEvents = True
  46. On Error GoTo 0

  47. End Sub
复制代码
  1. 毕业设计之班级课表:
  2. Private Sub Worksheet_Change(ByVal target As Range)
  3.     Dim i As Long, j As Long, k As Long
  4.     Dim row1 As Long, column1 As Long
  5.     Application.EnableEvents = False
  6.     On Error Resume Next
  7.     With Sheets("总课表")
  8.     If (target.Address(0, 0) = "C3" Or target.Address(0, 0) = "B3") And target.Rows.Count = 1 And target.Columns.Count = 1 Then
  9.         Range("d6:j11").ClearContents
  10.         Range("d13:j16").ClearContents
  11.         Range("d18:j23").ClearContents
  12.         Range("d25:j32").ClearContents
  13.         For i = 4 To 10           '周一到周日
  14.             For j = 3 To 77
  15.                               
  16.                 If .Cells(4, j) = Cells(3, 2) And .Cells(5, j) = Cells(3, 3) And Cells(5, i) = .Cells(3, j) Then
  17.                     column1 = j
  18.                     Exit For
  19.                 End If
  20.             Next
  21.             k = 6
  22.             Do
  23.                 If k <> 12 And k <> 17 And k <> 24 Then
  24.                     row1 = .Range("a6", "b19").Find(Cells(k, 2).Value).Row
  25.                
  26.                     Cells(k, i) = .Cells(row1, column1)
  27.                     k = k + 1
  28.                     If Cells(k - 1, i) <> "" Then
  29.                         column2 = (Cells(3, 2) - 7) * 5 + 1 + Cells(3, 3)
  30.                         row2 = Sheets("教学分工").[a4:a20].Find(Cells(k - 1, i).Value).Row
  31.                         Cells(k, i) = Sheets("教学分工").Cells(row2, column2)
  32.                 End If
  33.                 End If
  34.                 k = k + 1
  35.             Loop Until k >= 32
  36.             column1 = 0
  37.             row1 = 0
  38.             column2 = 0
  39.             row2 = 0
  40.         
  41.         Next
  42.     End If
  43.     End With
  44.     On Error GoTo 0
  45.     Application.EnableEvents = True
  46. End Sub
复制代码
  1. Sub 舞林大会()
  2.     Dim i As Long, j As Long, 男 As Long, 女 As Long
  3.     Dim area As Range
  4.     行数 = 3
  5.     Set area = Range([f3], Cells(14, "G"))
  6.    
  7.     For i = 2 To [a1].CurrentRegion.Rows.Count
  8.          If area.Find(Cells(i, 1).Value) Is Nothing Then
  9.             If Cells(i, 2) = "男" Then
  10.                 Cells(行数, "f") = Cells(i, 1)
  11.                 For j = i + 1 To 17
  12.                     If Cells(j, 2) = "女" And Cells(j, 3) = 9 - Cells(i, 3) Then Cells(行数, "g") = Cells(j, 1)
  13.                 Next
  14.             Else
  15.                 Cells(行数, "g") = Cells(i, 1)
  16.                 For j = i + 1 To 17
  17.                     If Cells(j, 2) = "男" And Cells(j, 3) = 9 - Cells(i, 3) Then Cells(行数, "f") = Cells(j, 1)
  18.                 Next
  19.             
  20.             End If
  21.          行数 = 行数 + 1
  22.          End If
  23.    
  24.     Next
  25.    
  26.    
  27. End Sub
复制代码
  1. Sub 不良总数()
  2.     Dim num As Long, str As String, i As Long, j As Long, sn, sumv As String, total As Long
  3.     For i = 3 To Range("g2").CurrentRegion.Rows.Count + 1
  4.         str = Cells(i, "g").Value
  5.         For j = 1 To Len(str)
  6.             sn = Mid(str, j, 1)
  7.             If sn Like "[0-9]" Then
  8.                 sumv = sumv & sn
  9.             Else
  10.                 total = total + Val(sumv)
  11.                 sumv = ""
  12.                
  13.             End If
  14.         Next
  15.         Cells(i, "f") = total
  16.         total = 0
  17.     Next
  18. End Sub
复制代码

回复 支持 反对

使用道具 举报

发表于 2017-3-29 10:45:26 | 显示全部楼层
  1. Function 不良总数(rng As Range) As Long
  2.     Dim i  As Long, j As Long, k As Long, m As Long, n As Long
  3.     For i = 2 To Len(rng)
  4.         If IsNumeric(Mid(rng, i, 1)) And _
  5.             Not IsNumeric(Mid(rng, i - 1, 1)) Then
  6.             m = i
  7.         End If
  8.         If IsNumeric(Mid(rng, i, 1)) And _
  9.             Not IsNumeric(Mid(rng, i + 1, 1)) Then
  10.             n = i
  11.             不良总数 = 不良总数 + Mid(rng, m, n - m + 1)
  12.         End If
  13.     Next
  14. End Function

  15. Sub test()
  16.     Dim i As Long, j As Long, k As Long, pair As Long
  17.     Dim n As Long
  18.     k = Range("A" & Rows.Count).End(xlUp).Row
  19.     pair = (k - 1) / 2 '确认舞会的舞伴对数
  20.     j = 2
  21.     For i = 2 To k
  22.         If Range("B" & i) = "男" Then '先将男性部分放入名单
  23.             j = j + 1
  24.             Range("F" & j) = Range("A" & i)
  25.             For n = k To 2 Step -1
  26.                 If Range("C" & i) + Range("C" & n) = pair + 1 _
  27.                 And Range("B" & n) = "女" Then '设置and条件,签数之和为9,并且为女
  28.                     Range("G" & j) = Range("A" & n)
  29.                 End If
  30.             Next
  31.         End If
  32.     Next
  33. End Sub 
复制代码
回复 支持 反对

使用道具 举报

发表于 2017-4-6 15:03:38 | 显示全部楼层
  1. Sub 不良数目()
  2.     Dim num As Long, str As String, defects As Long
  3.     Dim i As Long, j As Long, area As Range
  4.     For i = 3 To Range("g2").CurrentRegion.Rows.Count + 2
  5.         Set area = Cells(i, "G")
  6.         defects = 0
  7.         For j = 1 To Len(area.Value)
  8.             If Mid(area.Value, j, 1) Like "#" Then
  9.                 Do
  10.                     If Mid(area.Value, j + 1, 1) Like "#" Then
  11.                         defects = defects + Mid(area.Value, j + 1, 1) + Mid(area.Value, j, 1) * 10
  12.                         j = j + 2
  13.                     Else
  14.                         defects = defects + Mid(area.Value, j, 1)
  15.                     End If
  16.                 Loop Until Not Mid(area.Value, j + 1, 1) Like "#"
  17.             End If
  18.             Cells(i, "F") = defects
  19.         Next
  20.     Next
  21. End Sub

  22. Sub 交换舞伴()
  23.     Dim i As Long, num As Long, num_match As Long, j As Long, rng As Range
  24.     j = 3
  25.     For i = 2 To Range("a1").CurrentRegion.Rows.Count
  26.    
  27.         If Cells(i, "B") = "男" Then   '性别为男
  28.             Cells(j, "F") = Cells(i, "A").Value
  29.             num = Cells(i, "C").Value
  30.             num_match = 9 - num
  31.             
  32.             '判断是第一次出现
  33.             If Range("F:F").Find(Cells(j, "F").Value).Address = Cells(j, "F").Address Then
  34.                 Set rng = Range("C:C").Find(num_match)
  35.                 If rng.Offset(0, -1).Value = "女" Then   '数字配对性别为女
  36.                     rng.Offset(0, -2).Copy
  37.                     Cells(j, "G").PasteSpecial (xlPasteValues)
  38.                 Else
  39.                     Set rng = Range("C:C").FindNext(rng)
  40.                     rng.Offset(0, -2).Copy
  41.                     Cells(j, "G").PasteSpecial (xlPasteValues)
  42.                 End If
  43.             Else '第二次出现
  44.                 Cells(j, "F").ClearContents
  45.                 j = j - 1
  46.             End If
  47.             
  48.         Else '性别为女
  49.             Cells(j, "G") = Cells(i, "A").Value
  50.             num = Cells(i, "C").Value
  51.             num_match = 9 - num
  52.             
  53.             If Range("G:G").Find(Cells(j, "G").Value).Address = Cells(j, "G").Address Then
  54.                 Set rng = Range("C:C").Find(num_match)
  55.                 If rng.Offset(0, -1).Value = "男" Then     '数字配对性别为男
  56.                     rng.Offset(0, -2).Copy
  57.                     Cells(j, "F").PasteSpecial (xlPasteValues)
  58.                 Else
  59.                     Set rng = Range("C:C").FindNext(rng)
  60.                     rng.Offset(0, -2).Copy
  61.                     Cells(j, "F").PasteSpecial (xlPasteValues)
  62.                 End If
  63.             Else '第二次出现
  64.                 Cells(j, "G").ClearContents
  65.                 j = j - 1
  66.             End If
  67.         
  68.         End If
  69.         j = j + 1
  70.     Next
  71. End Sub



  72. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  73.     Dim area_fill As Range, grade As Long, class As Long, i As Long, j As Long
  74.     Dim rng_search As Range, class_number As String, rng_class As Range
  75.    
  76.     grade = Sheets("班级课表").Range("b3").Value
  77.     class = Sheets("班级课表").Range("c3").Value
  78.    
  79.    
  80.         
  81.     If Target.row = 3 And (Target.Column = 2 Or Target.Column = 3) Then
  82.         Set area_fill = Union(Range("d6:j11"), Range("d13:j16"), Range("d18:j23"), Range("d25:j32"))
  83.         area_fill.ClearContents '当班级改变时,清除原有数据
  84.         
  85.         '课程安排
  86.         For i = 6 To 32
  87.             For j = 4 To 8
  88.                 If Sheets("班级课表").Cells(i, 3) = "课程" Then  '判断是课程
  89.                     Set rng_search = Sheets("总课表").Cells.Find(grade)
  90.                     Debug.Print rng_search.Address
  91.                     Do
  92.                         Set rng_search = Sheets("总课表").Cells.FindNext(rng_search)
  93.                     Loop Until rng_search.Value = grade _
  94.                     And rng_search.Offset(1, 0).Value = class _
  95.                     And rng_search.Offset(-1, 0).Value = Sheets("班级课表").Cells(5, j)
  96.                     
  97.                     class_number = Sheets("班级课表").Cells(i, 2).Value
  98.                     Set rng_class = Sheets("总课表").Range("A:B").Find(class_number)
  99.                     Sheets("班级课表").Cells(i, j) = Sheets("总课表").Cells(rng_class.row, rng_search.Column).Value '分别找出行与列,填写课程
  100.                     
  101.                 ElseIf Sheets("班级课表").Cells(i, 3) = "教师" Then  '判断是教师
  102.                     Set rng_search = Sheets("教学分工").Cells.Find(grade)
  103.                     
  104.                     Do Until rng_search.Value = grade And rng_search.Offset(1, 0).Value = class
  105.                         Set rng_search = Sheets("教学分工").Cells.FindNext(rng_search)
  106.                     Loop
  107.                     
  108.                     class_number = Sheets("班级课表").Cells(i - 1, j).Value '定义课程
  109.                     Set rng_class = Sheets("教学分工").Range("A:A").Find(class_number)   '找课程
  110.                     On Error Resume Next
  111.                     Sheets("班级课表").Cells(i, j) = Sheets("教学分工").Cells(rng_class.row, rng_search.Column).Value '分别找出行与列,填写课程
  112.                 End If
  113.             Next
  114.         Next
  115.     End If
  116. End Sub

  117. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  118.     If Target.row = 3 And Target.Column = 2 Then
  119.         Set area_fill = Union(Range("d6:j11"), Range("d13:j16"), Range("d18:j23"), Range("d25:j32"))
  120.         area_fill.ClearContents '当班级改变时,清除原有数据
  121.         
  122.         Dim teacher As String, rng As Range, address_first As String, grade As Long, class As Long, subject As String
  123.         Dim rng_subject As Range, subject_address As String
  124.         Dim nday As String, class_num As String
  125.         Dim fill_row As Long, fill_col As Long
  126.         Dim i As Long, j As Long
  127.         Dim m As Long, n As Long
  128.         
  129.         teacher = Sheets("个人课表").[b3].Value
  130.         Sheets("教学分工").Activate
  131.         For m = 1 To Range("a1").CurrentRegion.Rows.Count
  132.             For n = 1 To Range("a1").CurrentRegion.Columns.Count  '找出所有教的课和班级
  133.                 If Sheets("教学分工").Cells(m, n) = teacher Then
  134.                     grade = Sheets("教学分工").Cells(2, n).Value  '年级
  135.                     class = Sheets("教学分工").Cells(3, n).Value  '班级
  136.                     subject = Sheets("教学分工").Cells(m, 1).Value   '所教学科
  137.                
  138.                     Sheets("总课表").Activate
  139.                     For j = 3 To Range("a1").CurrentRegion.Columns.Count
  140.                         If Sheets("总课表").Cells(4, j) = grade Then
  141.                             If Sheets("总课表").Cells(5, j) = class Then
  142.                                 nday = Sheets("总课表").Cells(3, j)
  143.                                 For i = 6 To Range("a1").CurrentRegion.Rows.Count
  144.                                     If Sheets("总课表").Cells(i, j) = subject Then
  145.                                         If Sheets("总课表").Cells(i, 2) = 0 Then
  146.                                             class_num = Sheets("总课表").Cells(i, 1)
  147.                                         Else
  148.                                             class_num = Sheets("总课表").Cells(i, 2)
  149.                                         End If
  150.                                         fill_col = Sheets("个人课表").Cells.Find(nday).Column
  151.                                         fill_row = Sheets("个人课表").Cells.Find(class_num).row
  152.                                         Sheets("个人课表").Cells(fill_row, fill_col) = subject      '填写课程
  153.                                         Sheets("个人课表").Cells(fill_row + 1, fill_col) = grade & "年级" & class & "班"   '填写班级
  154.                                     End If
  155.                                 Next
  156.                             End If
  157.                         End If
  158.                     Next  '那一列科目的寻找
  159.                     
  160.                 End If
  161.             Next
  162.         Next
  163.     End If
  164. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2017-4-13 11:59:57 | 显示全部楼层
本帖最后由 shawn201702 于 2017-4-13 12:02 编辑
  1. <div class="blockcode"><blockquote>Sub 咳嗽()
  2.     Dim str As String, i As Long, sum As Long, j As Long, x As Long
  3.     str = "病人对医生说:大夫我咳嗽哦。医生问他:你20岁的时候咳嗽吗?病人回答:不咳嗽。医生又问" _
  4.     & "你30时岁的时候咳嗽嘛,病人说不咳嗽。医生在问,你40多岁50岁的时候咳嗽嘛?病人回答:没有" _
  5.     & "咳嗽哦。医生说,那么你现在还不咳嗽,还想什么时候咳嗽呢?"

  6.    
  7.   


  8.     For i = 1 To Len(str)

  9.               j = InStr(i, str, "咳嗽")

  10.                    If j <> x And j > 0 Then
  11.    
  12.                         x = j
  13.         
  14.                         sum = sum + 1
  15.    
  16.    
  17.                    End If

  18.     Next

  19.                 MsgBox sum

  20. End Sub
复制代码
  1. Function GetChar(str, mode As Long) As Long

  2.    Dim i As Long, m As Boolean
  3.    
  4.    Application.Volatile


  5.         If Mid(str, 1, 1) Like "#" Then
  6.             
  7.             GetChar = GetChar + Mid(str, 1, 1)
  8.         End If

  9.         For i = 2 To Len(str)
  10.             If mode = 1 Then
  11.    
  12.                 Debug.Print Mid(str, i, 1) Like "#"

  13.            If (Mid(str, i, 1) Like "#") And (Mid(str, i - 1, 1) Like "#") Then

  14.                 GetChar = GetChar - Val(Mid(str, i - 1, 1)) + Val(Mid(str, i - 1, 1) & Mid(str, i, 1))

  15.             ElseIf Mid(str, i, 1) Like "#" Then
  16.                     GetChar = GetChar + Mid(str, i, 1)
  17.             
  18.          
  19.             End If
  20.        End If
  21.      
  22.    Next
  23.    
  24. End Function


  25. Sub 不良数字()


  26.         Dim j As Long, s As Long
  27.         
  28.         
  29.         For j = 3 To 5

  30.             Cells(j, 6) = GetChar(Range("G" & j), 1)

  31.         Next
  32.       
  33. End Sub
复制代码
  1. Sub 舞会()

  2.         Dim i As Long, j As Long, a As Range, b As Range, c As Range, d As Range
  3.         Dim S As Long, t As Long, k As Long, m As Long, 截取 As Long
  4.         Dim 姓名男 As String, 姓名女 As String

  5.         m = 3
  6.         
  7.         For i = 2 To 17
  8.         
  9.              For j = 2 To 17

  10.                  If Cells(i, 2) = "男" And Cells(j, 2) = "女" Then
  11.         
  12.                     Set a = Cells(i, 2).Offset(0, 1)
  13.                             S = a.Value
  14.                                 姓名男 = a.Offset(0, -2)
  15.                            
  16.                     Set b = Cells(j, 2).Offset(0, 1)
  17.                           t = b.Value
  18.                                 姓名女 = b.Offset(0, -2)
  19.                            
  20.                         If S + t = 9 Then
  21.                            
  22.                              For k = 3 To m
  23.             
  24.                                        If Cells(k, 6) = 姓名男 Then
  25.                                 
  26.                                            截取 = 1
  27.                                     
  28.                                        End If
  29.                               Next

  30.                                 If 截取 = 1 Then
  31.   
  32.                                 Else
  33.                                     Cells(m, 6) = 姓名男
  34.                                     Cells(m, 7) = 姓名女
  35.                                     m = m + 1

  36.                                 End If
  37.                                     截取 = 0
  38.    
  39.                       Else
  40.                     
  41.                       End If
  42.   
  43.                   ElseIf Cells(i, 2) = "女" And Cells(j, 2) = "男" Then
  44.                   
  45.                   
  46.                             Set a = Cells(i, 2).Offset(0, 1)
  47.                                 S = a.Value
  48.                                    姓名女 = a.Offset(0, -2)
  49.                                 
  50.                             Set b = Cells(j, 2).Offset(0, 1)
  51.                                 t = b.Value
  52.                                    姓名男 = b.Offset(0, -2)
  53.                             If S + t = 9 Then
  54.                            
  55.                                 For k = 3 To m
  56.             
  57.                                        If Cells(k, 6) = 姓名男 Then
  58.                                 
  59.                                            截取 = 1
  60.                                     
  61.                                        End If
  62.                                 Next

  63.                                     If 截取 = 1 Then
  64.                                 
  65.                                     Else
  66.                                         Cells(m, 6) = 姓名男
  67.                                         Cells(m, 7) = 姓名女
  68.                                  
  69.                                         m = m + 1

  70.                                     End If
  71.                                         截取 = 0

  72.                             Else
  73.                         
  74.                             End If
  75.                   
  76.                   End If
  77.                 Next
  78.             Next

  79. End Sub
复制代码

回复 支持 反对

使用道具 举报

发表于 6 小时前 | 显示全部楼层
测试账号是否为通过QQ账号注册的,谢谢。
回复 支持 反对

使用道具 举报

关闭

站长推荐上一条 /2 下一条

快速回复 返回顶部 返回列表