爱问知识人 爱问教育 医院库

vb程序设计 代码

首页

vb程序设计 代码

随机产生n(5-25)个大写字母按产生的顺序输出,并统计相邻两个字母满足降序的情况,输出符号条件的每对字符和统计结果 

提交回答
好评回答
  • 2018-05-27 17:35:17
      这个是用EXCEL的VBA做的,结果是正确的,但不一定满足您的要求啊
    Sub xzm()
    Dim str$, str1$, str2$
    Dim k%, m%, n%, p%
    n = Int(Rnd() * 21) + 5
    For i = 1 To n
    m = Int(Rnd() * 26) + 65
      If i = 1 Then
      str = Chr(m)
      str1 = Chr(m)
      k = m
      Else
      str = str & Chr(m)
         If k > m Then
         str2 = str2 & "," & str1 & Chr(m)
         p = p + 1
         k = m
         str1 = Chr(m)
         Else
         k = m
         str1 = Chr(m)
         End If
      End If
    Next
    str2 = Right(str2, Len(str2) - 1)
    MsgBox ("随机产生的字符串:" & str & vbCrLf & vbCrLf _
    & "相邻两个为降序的为:" & str2 & vbCrLf & "共" & p & "组")
    End Sub。
      

    陈***

    2018-05-27 17:35:17

类似问题

换一换
  • 软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):