我是初学者,以前没学过。是一个关于奥运会的小程序,稍微懂的应该能从程序里看出我想要的结果。本人太菜,虚心求教~
<script language=vbscript>
year2=(inputbox("请输入举办奥运会的年份")
a=1+(year2-1896)/4
if a<=0 then
msgbox(year2&"年奥运会还没开始举办呢")
if int(a)=a then

展开全部
收起
5回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 灰机小小

    16人对此回答表示赞同

    if int(a)=a then
    展开
    16
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 肆无忌惮

    14人对此回答表示赞同

    <script language=vbscript>
    loop1:
    year2=(inputbox("请输入举办奥运会的年份")
    a=1+(val(year2)-1896)/4
    if a<=0 then
    msgbox(year2&"年奥运会还没开始举办呢")
    goto loop1
    else
    loop2:
    city=inputbox("请输入举办奥运会
    展开
    14
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 自作自受没人管

    8人对此回答表示赞同

    Do
    year2 =InputBox("请输入举办奥运会的年份"))
    a = 1 + (year2 - 1896) / 4
    If a <= 0 Then
    MsgBox year2 & "年奥运会还没开始举办呢,请从新输入"
    Else
    If Int(a) = a Then
    city = InputBox("请输
    展开
    8
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Logan

    7人对此回答表示赞同

    你的这个程序是输入一个年份和地点 系统会告诉你相应的一句话 提示多少年在哪举办多少届奥运会。如果输入的年份小于1896年提示没有举办,这句没有问题 下语句是判断输入的是不是奥运年,你的if int(a)=a then 有问题可以直接改成if (year2-1896)%4 = 0 then 继续你下面的语句 还有就是msgbox(year2&"年"&city&"奥运会是第"&a&"届奥运会") 的位置应该在city=inputbox("
    展开
    7
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 锦鲤本鲤

    7人对此回答表示赞同

    <script language=vbscript>
    loop1:
    year2=(inputbox("请输入举办奥运会的年份")
    a = 1 + (year2 - 1896) / 4

    If a <= 0 Then
    msgbox(year2&"年奥运会还没开始举办呢")
    goto loop1
    End If

    If Int(a) = a Then
    展开
    7
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部