用VB编写程序,从1乘到100
偶试卷的一道题,就这样..补充下：其实是一道填空题：Dims,iAsIntegers=__________i=__________Whilei__________s=__...
偶试卷的一道题,就这样..
补充下：
其实是一道填空题：
Dim s,i As Integer
s=__________
i=__________
While i__________
s=__________
i=__________
Wend
Print s
大家把程序补上就行了。话说写太深奥我看不懂。。 展开
补充下：
其实是一道填空题：
Dim s,i As Integer
s=__________
i=__________
While i__________
s=__________
i=__________
Wend
Print s
大家把程序补上就行了。话说写太深奥我看不懂。。 展开
7个回答
展开全部
dim i as integer,j as variant
j=1 '不加这行 j的值默认为0 结果也就是0了.
for i = 1 to 100
j=j*i
next
msgbox j
'ps.结果很大..9E+157..
'==========================
Dim s,i As Integer
s=1
i=1
While i<=100
s=s*i
i=i+1
Wend
Print s
j=1 '不加这行 j的值默认为0 结果也就是0了.
for i = 1 to 100
j=j*i
next
msgbox j
'ps.结果很大..9E+157..
'==========================
Dim s,i As Integer
s=1
i=1
While i<=100
s=s*i
i=i+1
Wend
Print s
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
用一个for next循环就可以实现了
Option Explicit
Private Sub Form_Load()
Dim i As Integer '循环变量参数
Dim j As Double '由于得到结果大于long型范围，所以设为Double,也可为单精度
j = 1
For i = 1 To 100
j = j * i
Next i
Me.Print j '将Form1 的Autoredaw属性设为True
End Sub
Option Explicit
Private Sub Form_Load()
Dim i As Integer '循环变量参数
Dim j As Double '由于得到结果大于long型范围，所以设为Double,也可为单精度
j = 1
For i = 1 To 100
j = j * i
Next i
Me.Print j '将Form1 的Autoredaw属性设为True
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
dim i as string
dim j as integer
for j=1 to 100
i=i*j
next
text1.text=i
这是一种环循
还有几种
dim j as integer
for j=1 to 100
i=i*j
next
text1.text=i
这是一种环循
还有几种
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>1到100之和</title>
</head>
<script language="javascript">
<!--
sum=0
for(i=1;i<=100;i++)
{
sum=sum+i;
}
document.write("1到100之和为："+sum)
-->
</script>
<body>
</body>
</html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>1到100之和</title>
</head>
<script language="javascript">
<!--
sum=0
for(i=1;i<=100;i++)
{
sum=sum+i;
}
document.write("1到100之和为："+sum)
-->
</script>
<body>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Dim s,i As Integer
s=_1_________
i=____1______
While i__<=100________
s=___i*(i+1)_______
i=__i+1________
Wend
Print s
s=_1_________
i=____1______
While i__<=100________
s=___i*(i+1)_______
i=__i+1________
Wend
Print s
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（5）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
