网站地图 最近更新

当前位置

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

高校等考试题天天练二级VB]10月25日

全国等级考试资料网 2023-07-21 01:22:25 125次 大 中 小
知识点：程序填空（二）
以下程序段的作用是利用随机函数产生100个[100，300]之间的随机整数，打印其中5的倍数，和不是5的倍数的其他数的和。
Private Sub Command1_Click()
 Dim s As Integer, i As Integer
  s = 0
 For i = 1 To 100
   Randomize
   x = Int(  （1）  )
   s = s + x
   If x Mod   （2）   = 0 Then
     Print x;
     t = t + x
   End If
  Next i
  Print
  Print "非5倍数的数的和为";   （3）  
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应用》真题