UC知道一个VB小程序，求高手修改~
来源：百度知道 编辑：UC知道 时间：2024/05/11 16:33:15
我是初学者，以前没学过。是一个关于奥运会的小程序，稍微懂的应该能从程序里看出我想要的结果。本人太菜，虚心求教~
<script language=vbscript>
year2=(inputbox("请输入举办奥运会的年份")
a=1+(year2-1896)/4
if a<=0 then
msgbox(year2&"年奥运会还没开始举办呢")
if int(a)=a then
city=inputbox("请输入举办奥运会的城市")
else
msgbox(year2&"年没有举办奥运会")
next
msgbox(year2&"年"&city&"奥运会是第"&a&"届奥运会")
</script>
详细点好吗？
<script language=vbscript>
year2=(inputbox("请输入举办奥运会的年份")
a=1+(year2-1896)/4
if a<=0 then
msgbox(year2&"年奥运会还没开始举办呢")
if int(a)=a then
city=inputbox("请输入举办奥运会的城市")
else
msgbox(year2&"年没有举办奥运会")
next
msgbox(year2&"年"&city&"奥运会是第"&a&"届奥运会")
</script>
详细点好吗？
Do
year2 =InputBox("请输入举办奥运会的年份"))
a = 1 + (year2 - 1896) / 4
If a <= 0 Then
MsgBox year2 & "年奥运会还没开始举办呢,请从新输入"
Else
If Int(a) = a Then
city = InputBox("请输入举办奥运会的城市")
Exit Do
Else
MsgBox year2 & "年不举办奥运会,请从新输入"
End If
End If
Loop
MsgBox year2 & "年" & city & "奥运会是第" & a & "届奥运会"
你这是VBS吧，如果你直接保存成.VBS就不用加<script language=vbscript>和</script>,加了反而会出错；如果是打算放在网页（也就是保存成.html）里就把上面的代码放在<html><head>…………</head> </html>中间
if int(a)=a then
你的这个程序是输入一个年份和地点 系统会告诉你相应的一句话 提示多少年在哪举办多少届奥运会。如果输入的年份小于1896年提示没有举办，这句没有问题 下语句是判断输入的是不是奥运年，你的if int(a)=a then 有问题可以直接改成if （year2-1896)%4 = 0 then 继续你下面的语句 还有就是msgbox(year2&"年"&city&"奥运会是第"&a&"届奥运会") 的位置应该在city=inputbox("请输入举办奥运会的城市")的后面
<script