请问一些loop的问题

[复制链接]

宅男-兜着走

2010-9-18 07:50 PM

用for loop我就做到了，可是他给的hint不是用for loop哦
kuang 发表于 2010-9-18 01:28 PM

会For 不会 While==？？不可能吧，一样的。

lord14383

2010-9-18 09:02 PM

回复 1# kuang

第二题
      Dim x As Integer = 0
      Dim y As Integer = 0
      Dim word As String       While x < 5
         y = 0
         While y <= x             word &= (5 - y) & " "             y = y + 1
         End While
         word &= vbCrLf
         x = x + 1
      End While       Label1.Text = word 我用的是GUI你是要用command line你就换Label1.Text就好了

lord14383

2010-9-18 09:23 PM

回复 1# kuang

第一题       Dim xx As Integer = 0
      Dim x As Integer = 0
      Dim y As Integer = 0
      Dim word As String = ""       While xx < 3
         x = 0
         y = 0          While x < 5
            y = 4
            While y >= x                   word &= "* "                   y = y - 1
            End While
            word &= vbCrLf
            x = x + 1
         End While
         xx = xx + 1
         word &= vbCrLf       End While       Label1.Text = word

kuang

2010-9-18 11:49 PM

回复 11# 宅男-兜着走

它的用法我搞不清楚，看来要多下苦功了

kuang

2010-9-18 11:50 PM

回复 12# lord14383

这个是什么的？我看不懂。。vb?

lord14383

2010-9-19 04:42 AM

回复 15# kuang

我只有学过vb。如果你真的看不懂，我也没有办法帮你了。真的有那么难懂吗？while loop是很基本的东西，如果这个都看不懂。。。。真的是要好好学习了。。。。上课应该有教吧？可是逻辑应该看得懂吧？会写c++哪里有可能vb都看不懂？c++是比较低级的语言，如果vb都看不懂要怎样写c++呢？

宅男-兜着走

2010-9-19 10:54 PM

帮你翻译了 Lord 给的答案。

第一题：

int xx =0;
int x =0;
int y = 0;
string word = "";
while(xx < 3){
x = 0;
y = 0;
while(x < 5)
{
y = 4;
while(y >= x)
{
cout << "* ";
y--;
}
cout<< "\n";
x++;
}
xx++;
cout << "\n";
}

复制代码

第二题

int x = 0;
int y = 0;
while(x <5)
{
y=0;
while(y<=x)
{
cout << 5-y << " ";
y++;
}
cout<< "\n";
x++;
}

复制代码

宅男-兜着走

2010-9-19 10:56 PM

回复 kuang

我只有学过vb。如果你真的看不懂，我也没有办法帮你了。真的有那么难懂吗？while lo ...
lord14383 发表于 2010-9-19 04:42 AM

从画星星的题目来看，应该是新手，看不懂是一定的啦

不过，我还是比较觉得 VB 难懂。

lord14383

2010-9-20 03:25 PM

本帖最后由 lord14383 于 2010-9-20 03:30 PM 编辑

Module Module1

Sub Main()
      Dim x As Integer = 0
      Dim y As Integer = 0
      Dim word As String = ""
      While x < 3
         y = 0
         While y < 6 - x * 2
            word &= 6 - x * 2 & " "
            y = y + 1
         End While
         x = x + 1
         word &= vbCrLf
      End While
      Console.Write(word)
      Console.Write("Press any key to continue...")
      Console.ReadKey()
End Sub

End Module

宅男-兜着走

2010-9-20 07:24 PM

//不必 Nested Loop 的方法。
Module Module1
Dim maxNum As Integer = 6
Sub Main()
If maxNum <> 0 Then
Dim col As Integer = maxNum
If maxNum Mod 2 = 0 Then
While col <> 0
col = col - 1
Console.Write(maxNum.ToString())
End While
Console.Write(vbCrLf)
End If
maxNum = maxNum - 1
Main()
Else : Console.ReadKey()
End If
End Sub
End Module

复制代码

123 / 3 页下一页

返回列表

请问一些loop的问题

浏览过的版块