FC2ブログ

シーリスfamilyの浮き浮き快進撃 (笑

※スパム対策に画像認証付けました

logs

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

メモメモー!

↓今学校で作ってる途中の逆ポーランド記法に直すプログラム
Private Sub CommandButton1_Click()

Dim k As Integer
Dim i As Integer
Dim work As String
Dim Priorty As Integer
Dim elment As String
Dim A As String
Dim ini As String
ReDim ini(Len(work))

k = 0
i = 0

elment = InputBox("")

Do While (ini = 0)
If (elment = "(") Then
A = 4
ElseIf (elment = "0" Or "1" Or "2" Or "3" Or "4" Or "5" Or "6" Or "7" Or "8" Or "9") Then
A = 3
ElseIf (elment = "*" Or "/") Then
A = 2
ElseIf (elment = "+" Or "-") Then
A = 1
ElseIf (elment = ")") Then
A = 0
End If
ini = ini - 1
Loop

MsgBox elment
End Sub
スポンサーサイト

トラックバックURL

http://siriaru.blog59.fc2.com/tb.php/172-e06b1add

この記事へのトラックバック

この記事へのコメント

日本語でおk(o゚Д゚)ノ

  • 28/02/2009
  • 金木犀 ♦-
  • URL
  • 編集 ]

>金木犀クン

ややや、学校にフラッシュメモリ忘れて、ここにメモっただけだから・・・w

後、まだ完成じゃないよ!

  • 28/02/2009
  • しーりす ♦-
  • URL
  • 編集 ]

( )の部分が顔文字に見えてしまうのはオイラだけ?w

  • 11/03/2009
  • ケロロSGT ♦-
  • URL
  • 編集 ]

いや、俺もところどころそう見えるよ・・・w
作ってるときはそんなに思わないけどねw

  • 22/03/2009
  • シーリス ♦-
  • URL
  • 編集 ]

これがどんな意味になるのか、早く解るようになりたいZE
(´∀`*)うふふ

  • 31/03/2009
  • 幽喜 ♦-
  • URL
  • 編集 ]
コメント投稿フォーム

Paging Navigation

Navigations, etc.

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。