育才学习网1. 求助这道C#的loop题目要怎么写
static void Main(string[] args)
{
ulong input = 0;
while (input65)
{
Console.WriteLine();
Console.Write("input a number between 0 and 65:");
try
{
input = ulong.Parse(Console.ReadLine());
if (input > 65) throw new Exception();
}
catch
{
Console.WriteLine("error format! input again.");
}
}
Console.WriteLine("factorial of {0} is {1}.", input, fact(input));
Console.ReadKey();
}
static ulong fact(ulong i)
{
if (i
2. 请问Do
Const a="XXXX"
Dim i As Integer
i=0
Do
i=i+1
Msgbox a
Loop Until i>=1000 '直到i>=1000停止
另外，不准ma人！
<html> < body> <script type="text/vbscript">
i=0
Do
i=i+1
Msgbox "aaa"
Loop Until i>=10</script></body> </html>
3. 用VB的do
给你做到第4题吧：
Private Sub Command1_Click()
Dim i As Long, x As Long, y As Long, c As Double
'第一题
For i = 1 To 100
If i Mod 2 = 0 Then
x = x + i
End If
Next
' MsgBox "1到100中偶数的和是：" & x
'第二题
x = 0
For i = 1 To 1000
If i Mod 10 = 0 Then
x = x + i
End If
Next
'MsgBox "1到1000中10的倍数的和是：" & x
'第三题
x = 0
Do
y = y + 1
x = x + y
If x > 1000 Then Exit Do
Loop
' MsgBox "求恰好使s=1+2+3+…+n的值大于1000时n的值是：" & y
'第四题
c = 1: y = 1
Do
y = y + 1
c = c + 1 / y
If c >= 2 Then Exit Do '大于10改成c>=10 ====大于15改成if c>=15
Loop
MsgBox "定义S=1+1/2+1/3+……+1/n，求当s>=2时的最小的n值：" & y
End Sub