? 發問時間: 電腦與網際網路程式設計 · 9 年前

關於vb控制台 程式碼

問題如下..

1.寫一迴圈,於迴圈內輸入整數,若為奇數則相乘,值到按零結束

2.輸入起始值與終止值,請顯示此範圍所有偶數值的總合

3尤鍵盤輸入華氏溫度,並將華氏溫度轉為攝氏

3.由鍵盤輸入N後 產生下列圖形 輸入N值:5

*

**

****

*****

******

*

***

*****

*******

*********

弄到頭都痛了

跪求各位大大~"~

已更新項目:

用的是vb2008 控制台

需要用 dim來宣告

因為剛接觸到vb

似乎開頭是

Module Module1

Sub Main()

而不是用

Private Sub Command1_Click()

2 個解答

評分
  • 9 年前
    最佳解答

    Sub Main()

    For i% = 1 To 5

    Console.WriteLine(New String("*", i))

    Next i

    console.writeline()

    For i% = 1 To 9 Step 2

    Dim s$ = New String(" ", 4 - (i - 1) / 2)

    Console.writeLine(s & New String("*", i) & s)

    Next i

    '下面是公式化的版本

    Console.WriteLine("plz input number of lines (1~40) :")

    Dim Ins$ = Console.ReadLine()

    If IsNumeric(Ins) Then

    Dim Ln As Integer = CInt(IIf(CDec(Ins) > 40D, 40, Ins)) * 2

    Dim Lg As Integer = CInt(IIf(Ln Mod 2, (Ln - 1) / 2, Ln / 2)) - 1

    For i% = 1 To Ln Step 2

    Dim s$ = New String(" ", Lg - (i - 1) / 2)

    Console.WriteLine(s & New String("*", i) & s)

    Next

    Console.WriteLine()

    Else

    Console.WriteLine("Plz input Number")

    End If

    Console.Read()

    End Sub

    2011-11-08 17:14:34 補充:

    Console.WriteLine("hello")

    Dim k@ = 1

    Do

    Dim Ins$ = Console.ReadLine()

    If IsNumeric(Ins) Then

     Dim p@ = CDec(Ins)

     If p Then

      If CInt(p) Mod 2 Then

      k *= CInt(p)

      Console.WriteLine(k)

      End If

     Else

      Exit Do

     End If

    Else

     Console.WriteLine("plz no.")

    End If

    Loop

    Console.WriteLine("bye")

    2011-11-08 17:14:50 補充:

    上面是Q1

    2011-11-08 17:17:20 補充:

    Q2

    console.writeline("start :")

    dim x& =Console.Readline()

    console.writeline("end :")

    dim y& =console.readline()

    if x mod 2 then x += 1

    dim sum@

    for i = x to y step 2

    sum += i

    next i

    console.writeline(sum)

    2011-11-08 17:17:33 補充:

    Q2 --> 意見

    2011-11-08 17:34:35 補充:

    溫度轉換, 可參考Property

    http://msdn.microsoft.com/zh-tw/library/4d7sx9hd(V...

    2011-11-11 00:05:05 補充:

    如果對程式碼有疑問, 請補充

  • 1.能在描述清楚一點嘛?

    2.思考中 ..

    3.

    c為攝氏

    f為華氏.

    Private Sub Command1_Click()

    c = Val(Text1.Text)

    f = Val(Text2.Text)

    Text2.Text = c * 9 / 5 + 32

    End Sub

    Private Sub Command2_Click()

    c = Val(Text1.Text)

    f = Val(Text2.Text)

    Text1.Text = (f - 32) * 5 / 9

    End Sub

    剩下的靠你自己自由發揮了

    4.

    Private Sub Command1_Click()

    n = Val(Text1.Text)

    For i = 1 To n

    For j = 1 To i

    Print "*";

    Next j

    Print

    Next

    End Sub

    你下面第二個圖 是真的這樣 還是編排的問題

    不過那樣的話 也是可以作

    2011-11-08 16:21:29 補充:

    !好吧 .. 另請高明

    我是vb6

還有問題?馬上發問,尋求解答。