网站地图 最近更新

当前位置

： 全国等级考试资料网计算机高校等考试题天天练二级VB]11月2日

高校等考试题天天练二级VB]11月2日

全国等级考试资料网 2023-04-17 20:20:44 90次 大 中 小
知识点：程序问答（二）
程序
Private Sub command1_Click()
Dim a() As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
Dim n As Integer
Randomize Timer
n = 5 + 5 * Rnd()
ReDim a(n)
For i = 1 To n
    a(i) = 10 + Rnd() * 89
    Print a(i)
Next
Print
For i = 1 To n - 1
    k = i
    For j = i To n
        If a(j) > a(k) Then k = j
    Next
    If k <> i Then
       m = a(i)
       a(i) = a(k)
       a(k) = m
    End If
Next
For i = 1 To n
    Print a(i)
Next
End Sub
问题４：请说明以上程序实现的功能。
问题５：在程序运行中将产生几个随机数？
问题６：请说明在程序运行中产生随机数的范围。
相关资料
1 点赞

相关阅读

精彩图文

热点计算机

  • 1一级计算机基础及MSOffice应用模拟习题及答案（8）
  • 2一级计算机基础及MSOffice应用模拟习题及答案（6）
  • 3一级计算机基础及MSOffice应用模拟习题及答案（3）
  • 4一级计算机基础及MSOffice应用模拟习题及答案（1）
  • 5一级计算机基础及MSOffice应用模拟习题及答案（2）
  • 62016年9月全国计算机基础及MSOffice应用成绩分析报告入口
  • 72016年9月全国计算机等级考试MSOffice成绩查询入口
  • 82009年9月计算机等级考试一级MSOffice真题及答案解析
  • 92012年3月全国计算机一级MSOffice考试试题及答案
  • 102014年3月全国计算机等级考试一级《MSOffice应用》真题