Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and beginning April 20th, 2021 (Eastern Time) the Yahoo Answers website will be in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.

VB程式語言設計作業...急急急....

1.設計一個程式使用者輸入英文單字,如果是小寫字母換成大寫字母,如果是大寫字母就換成小寫字母輸出。

2.設計一個程式輸出九九乘法表

P.S就是讓使用者輸入一個數字EX:3...然後就要輸出

1*1=1 1*2=2 .....到...... 1*9=9

2*1=2 2*2=4 .....到...... 2*9=18

3*1=3 3*2=6 .....到...... 3*9=27

非常急的程式作業...可以利用Select case.和on...goto.on..gosub.或IF...then...else...

總之是要簡單的啦..因為我們才剛學而已.真的寫不出來.....>"<

請解答的大大講出這個程式的基本特色.若有加其他的簡單程式.可以加分...

所以麻煩了^^

6 Answers

Rating
  • Anonymous
    2 decades ago
    Favorite Answer

    Private Sub Form_Activate()

    n = InputBox("輸入")

    For i = 1 To Len(n)

    s = Mid(n, i, 1)

    If s = UCase(s) Then

    Print LCase(s);

    Else

    Print UCase(s);

    End If

    Next

    End Sub

    2.

    Private Sub Form_Activate()

    n = Val(InputBox("輸入數值"))

    For i = 1 To n

    For j = 1 To 9

    Print i & "*" & j & "=" & i * j;

    If j Mod 9 = 0 Then Print

    Next

    Next

    Source(s): 自己
  • Anonymous
    2 decades ago

    好熟悉的作業

    我們老師也出過這題

    不過我已經忘記怎麼寫了

    拍水喔

  • Anonymous
    2 decades ago

    Private Sub Form_Activate()

    n = InputBox("輸入")

    For i = 1 To Len(n)

    s = Mid(n, i, 1)

    If s = UCase(s) Then

    Print LCase(s);

    Else

    Print UCase(s);

    End If

    Next

    End Sub

    Source(s): 自己
  • Anonymous
    2 decades ago

    都是問作業的,ㄎㄎㄎㄎ,也許是巧合吧!因為是我朋友問的說= =&quot;

  • How do you think about the answers? You can sign in to vote the answer.
  • 2 decades ago

    看到兩個相似度達90%的問題同時出現

    是巧合還是........

  • Anonymous
    2 decades ago

    不會寫就跟老師說不會寫

    起碼老師會重頭再教一遍

    也會知道他講的東西或許太深

    光在這裡找槍手要程式碼,對你並沒有實質幫助

    而老師也不會知道你哪裡不懂,而漸漸的把課程難度調高,這樣對你有啥實質意義?

    運氣好,今天讓你過關,那明天呢?後天呢?誰能保證這裡隨時有人可以當你免費槍手?

Still have questions? Get your answers by asking now.