Facebook Sharer
选择您要替换的背景颜色:
【农历新年】背景图片:
个性化设定
 注册  找回密码
楼主: kuang
打印 上一主题 下一主题

请问一些loop的问题

[复制链接]

46

主题

6

好友

6456

积分

百变名嘴

Rank: 13Rank: 13Rank: 13Rank: 13

11#
发表于 2010-9-18 07:50 PM |只看该作者
用for loop我就做到了,可是他给的hint不是用for loop哦
kuang 发表于 2010-9-18 01:28 PM



    会For 不会 While==?? 不可能吧, 一样的。


回复

使用道具 举报

7

主题

0

好友

1098

积分

黄金长老

Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8

12#
发表于 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就好了


回复

使用道具 举报

7

主题

0

好友

1098

积分

黄金长老

Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8

13#
发表于 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


回复

使用道具 举报

160

主题

1

好友

5万

积分

本站精忠 MVP

Rank: 20Rank: 20

14#
发表于 2010-9-18 11:49 PM |只看该作者
回复 11# 宅男-兜着走

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


回复

使用道具 举报

160

主题

1

好友

5万

积分

本站精忠 MVP

Rank: 20Rank: 20

15#
发表于 2010-9-18 11:50 PM |只看该作者
回复 12# lord14383

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


回复

使用道具 举报

7

主题

0

好友

1098

积分

黄金长老

Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8

16#
发表于 2010-9-19 04:42 AM |只看该作者
回复 15# kuang


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


回复

使用道具 举报

46

主题

6

好友

6456

积分

百变名嘴

Rank: 13Rank: 13Rank: 13Rank: 13

17#
发表于 2010-9-19 10:54 PM |只看该作者
帮你翻译了 Lord 给的答案。

第一题:

  1. int xx =0;
  2. int x =0;
  3. int y = 0;
  4. string word = "";
  5.        while(xx < 3){
  6.             x = 0;
  7.             y = 0;
  8.        while(x < 5)
  9.        {
  10.                 y = 4;
  11.                 while(y >= x)
  12.                 {                 
  13.                 cout << "* ";                    
  14.                 y--;
  15.                 }
  16.                 cout<< "\n";
  17.                 x++;
  18.        }
  19.             xx++;
  20.             cout << "\n";
  21.             }

复制代码
第二题

  1.     int x = 0;
  2.     int y = 0;
  3.     while(x <5)
  4.     {
  5.        y=0;
  6.        while(y<=x)
  7.        {
  8.            cout << 5-y << " ";
  9.            
  10.           y++;
  11.        }
  12.         cout<< "\n";
  13.       x++;
  14.     }
复制代码


回复

使用道具 举报

46

主题

6

好友

6456

积分

百变名嘴

Rank: 13Rank: 13Rank: 13Rank: 13

18#
发表于 2010-9-19 10:56 PM |只看该作者
回复  kuang


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


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

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


回复

使用道具 举报

7

主题

0

好友

1098

积分

黄金长老

Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8

19#
发表于 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


回复

使用道具 举报

46

主题

6

好友

6456

积分

百变名嘴

Rank: 13Rank: 13Rank: 13Rank: 13

20#
发表于 2010-9-20 07:24 PM |只看该作者

  1. //不必 Nested Loop 的方法。
  2. Module Module1

  3.     Dim maxNum As Integer = 6

  4.     Sub Main()
  5.         If maxNum <> 0 Then
  6.             Dim col As Integer = maxNum
  7.             If maxNum Mod 2 = 0 Then
  8.                 While col <> 0
  9.                     col = col - 1
  10.                     Console.Write(maxNum.ToString())
  11.                 End While
  12.                 Console.Write(vbCrLf)
  13.             End If
  14.             maxNum = maxNum - 1
  15.             Main()
  16.         Else : Console.ReadKey()
  17.         End If
  18.     End Sub
  19. End Module
复制代码


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

JBTALKS.CC |联系我们 |隐私政策 |Share

GMT+8, 2024-11-20 09:43 PM , Processed in 0.105300 second(s), 21 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

Ultra High-performance Dedicated Server powered by iCore Technology Sdn. Bhd.
Domain Registration | Web Hosting | Email Hosting | Forum Hosting | ECShop Hosting | Dedicated Server | Colocation Services
本论坛言论纯属发表者个人意见,与本论坛立场无关
Copyright © 2003-2012 JBTALKS.CC All Rights Reserved
合作联盟网站:
JBTALKS 马来西亚中文论坛 | JBTALKS我的空间 | ICORE TECHNOLOGY SDN. BHD.
回顶部