投稿時間：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
|