投稿日	： 2006/06/13(Tue) 20:58
投稿者	： まいった
Ｅメール	：
ＵＲＬ	：
タイトル	： 0除算回避について

【開発環境VB6 WindowsXP SP2】
こんばんわ。はじめての投稿です。至らない点多々あると
思いますがご教授宜しくお願いします。

現在独学でVB6を勉強中で簡単な電卓プログラムを作成しております。
下記が0-9までのボタンをコントロール配列にし、+-*/のボタンを下記の
コントロール配列で行っているのですが0除算の回避の仕方が
いまいちわかりません。
=をindex0
+をindex1
-をindex2
*をindex3
/をindex4
としております。select〜case内にif〜文でも書ければ可能でしょうが・・・
どなたかご教授宜しくお願い致します。


Private Sub key_Click(index As Integer)          
    B = Text1.text                        
    If A = 0 Then A = Text1.text
    
    Select Case C                              
        Case 0
            A = B
        Case 1
            A = A + B
        Case 2
            A = A - B
        Case 3
            A = A * B
        Case 4
            A = A / B
        End Select
    
    C = index                                  
    Text1.text = A                      
    D = True

    
End Sub

★ - 0除算回避について - まいった 06/13-20:58No.6659
• Re: 0除算回避について - Renard 06/14-01:47 No.6660