史萊姆論壇

史萊姆論壇 (http://forum.slime.com.tw/)
-   程式語言討論區 (http://forum.slime.com.tw/f76.html)
-   -   不知有沒有人有寫這樣程式.. (http://forum.slime.com.tw/thread172375.html)

Jackson_bigcat 2006-04-10 01:29 PM

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

劍痞憶秋年 2006-04-10 10:15 PM

看看符不符合您要的(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

Jackson_bigcat 2006-04-11 07:20 PM

感謝妳...
嘗試中..


所有時間均為台北時間。現在的時間是 10:42 PM

Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2019, Jelsoft Enterprises Ltd.

『服務條款』

* 有問題不知道該怎麼解決嗎?請聯絡本站的系統管理員 *


SEO by vBSEO 3.6.1