188宝金博页面版

  • 图案背景
  • 纯色背景
视图
标记
批注
批注本地保存成功，开通会员云端永久保存 去开通
luli10040

上传于：2016-03-25

粉丝量：1

该文档贡献者很忙，什么也没留下。


  • 相关
  • 目录
  • 笔记
  • 书签

188宝金博页面版:更多相关文档

  • VB复习题程序代码

    星级： 5 页

  • 期末 vb复习题 代码

    星级： 16 页

  • VB程序复习题

    星级： 11 页

  • VB程序设计复习题

    星级： 2 页

  • VB复习题及参考答案

    星级： 15 页

  • VB程序设计期末复习题

    星级： 19 页

  • VB程序设计复习题纲

    星级： 6 页

  • 《VB程序设计》期末复习题

    星级： 18 页

  • 程序设计VB考试复习题

    星级： 11 页

  • VB程序设计复习题答案

    星级： 11 页

暂无目录

点击鼠标右键菜单,创建目录

    暂无笔记

    选择文本，点击鼠标右键菜单，添加笔记

    暂无书签

    在左侧文档中，点击鼠标右键，添加书签

    188宝金博页面版: vb复习题程序参考代码

    下载积分： 1000

    内容提示： 1.?Dim?a?As?Integer,?b?As?Integer,?c?As?Integer,?d?As?Integer?a?=?InputBox("输入一个数")?b?=?InputBox("输入一个数")?c?=?InputBox("输入一个数")?Print?"输入的 3 个数是：";?a;?"、";?b;?"、";?c?If?a?>?b?Then?d?=?a:?a?=?b:?b?=?d?If?a?>?c?Then?d?=?a:?a?=?c:?c?=?d?If?b?>?c?Then?d?=?b:?b?=?c:?c?=?d?Print?"从小到大排列为：";?a;?"、";?b;?"、";?c???2.?Dim?num?As?Integer,?i?As?Integer,?s?As?Long?Randomize?For?i?=?1?To?10?num...

    文档格式：DOCX | 页数：4 | 浏览次数：21 | 上传日期：2016-03-25 22:09:18 | 文档星级：
    1. Dim a As Integer, b As Integer, c As Integer, d As Integer a = InputBox("输入一个数") b = InputBox("输入一个数") c = InputBox("输入一个数") Print "输入的 3 个数是："; a; "、"; b; "、"; c If a > b Then d = a: a = b: b = d If a > c Then d = a: a = c: c = d If b > c Then d = b: b = c: c = d Print "从小到大排列为："; a; "、"; b; "、"; c   2. Dim num As Integer, i As Integer, s As Long Randomize For i = 1 To 10 num = Int(Rnd() * 100 + 1)         s = s + num Next Print "产生的随机数之和是："; s   3. Dim i As Integer, s As Integer Print "100 内能被 7 整除的数有："; For i = 1 To 100         If i Mod 7 = 0 Then                 Print i; "、";                 s = s + i         End If Next i Print Print "这些数之和是："; s   4. Dim x As Integer, y As Integer x = InputBox("请输入成绩") If x > 100 Or x < 0 Then         Print "输入错误"         Exit Sub End If y = Int(x / 10) Select Case y 

    阅读了该文档的用户还阅读了这些文档

    188宝金博页面版:关于我们

    188宝金博页面版:帮助中心

    188宝金博页面版:关注我们

    • 新浪微博

    关注188宝金博页面版公众号

    188宝金博页面版
    阅读
    APP
    阅读
    返回
    顶部
    188宝金博页面版官网登录在线平台入口（2026已更新）—江苏协昌电子科技股份有限公司