不知有沒有人有寫這樣程式..
現在小學生還蠻麻煩的...
就是背九九乘法表... 但死背又不是辦法..需活用.. 想想以前用程式寫列出九九乘法表算試.. 但是隔已久.早已忘光了. 不知有哪位前輩..會寫.. 就是..從2*1~9*9任意出題.. 填空格...可在(乘數)或(被乘數)與(答案格)之間任意變換 這樣的程式不知會不會太難... 謝謝 |
看看符不符合您要的(BY VB6)
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 |
感謝妳...
嘗試中.. |
所有時間均為台北時間。現在的時間是 08:04 PM。 |
Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2024, Jelsoft Enterprises Ltd.
『服務條款』
* 有問題不知道該怎麼解決嗎?請聯絡本站的系統管理員 *