|
論壇說明 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
|
主題工具 | 顯示模式 |
2006-04-10, 01:29 PM | #1 |
註冊會員
|
不知有沒有人有寫這樣程式..
現在小學生還蠻麻煩的...
就是背九九乘法表... 但死背又不是辦法..需活用.. 想想以前用程式寫列出九九乘法表算試.. 但是隔已久.早已忘光了. 不知有哪位前輩..會寫.. 就是..從2*1~9*9任意出題.. 填空格...可在(乘數)或(被乘數)與(答案格)之間任意變換 這樣的程式不知會不會太難... 謝謝 |
送花文章: 326,
|
2006-04-10, 10:15 PM | #2 (permalink) |
長老會員
|
看看符不符合您要的(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 |
__________________ 一切有為法 如夢幻泡影 如露亦如電 應作如是觀 |
|
送花文章: 150,
|