不知有沒有人有寫這樣程式..

[Jackson_bigcat]

現在小學生還蠻麻煩的...
就是背九九乘法表...
但死背又不是辦法..需活用..
想想以前用程式寫列出九九乘法表算試..
但是隔已久.早已忘光了.
不知有哪位前輩..會寫..
就是..從2*1~9*9任意出題..
填空格...可在(乘數)或(被乘數)與(答案格)之間任意變換
這樣的程式不知會不會太難...
謝謝

[劍痞憶秋年]

Option Explicit

Private Sub cmdCount_Click()

Dim JetT1 As Boolean, JetT2 As Boolean, JetT3 As Boolean
Dim JetCount As Integer

If t1.Text <> "" Then
JetCount = JetCount + 1
JetT1 = True
End If
If t2.Text <> "" Then
JetCount = JetCount + 1
JetT2 = True
End If
If t3.Text <> "" Then
JetCount = JetCount + 1
JetT3 = True
End If

If JetCount <> 2 Then
MsgBox "Error"
Else
If JetT3 Then
If JetT2 Then
t1.Text = CStr(Val(t3.Text) / Val(t2.Text))
Else
t2.Text = CStr(Val(t3.Text) / Val(t1.Text))
End If
Else
t3.Text = Trim(Str(Val(t1.Text) * Val(t2.Text)))
End If
End If

End Sub

Private Sub t1_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

Private Sub t2_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

Private Sub t3_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

[Jackson_bigcat]

感謝妳...
嘗試中..