史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 程式語言討論區
忘記密碼?
註冊帳號 論壇說明 標記討論區已讀

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』

Google 提供的廣告


發文 回覆
 
主題工具 顯示模式
舊 2006-04-10, 01:29 PM   #1
Jackson_bigcat
註冊會員
榮譽勳章
UID - 189279
在線等級: 級別:19 | 在線時長:441小時 | 升級還需:39小時級別:19 | 在線時長:441小時 | 升級還需:39小時級別:19 | 在線時長:441小時 | 升級還需:39小時級別:19 | 在線時長:441小時 | 升級還需:39小時
註冊日期: 2005-03-29
VIP期限: 2010-01
文章: 143
精華: 0
現金: 0 金幣
資產: 146076 金幣
預設 不知有沒有人有寫這樣程式..

現在小學生還蠻麻煩的...
就是背九九乘法表...
但死背又不是辦法..需活用..
想想以前用程式寫列出九九乘法表算試..
但是隔已久.早已忘光了.
不知有哪位前輩..會寫..
就是..從2*1~9*9任意出題..
填空格...可在(乘數)或(被乘數)與(答案格)之間任意變換
這樣的程式不知會不會太難...
謝謝
Jackson_bigcat 目前離線  
送花文章: 326, 收花文章: 16 篇, 收花: 95 次
回覆時引用此帖
舊 2006-04-10, 10:15 PM   #2 (permalink)
長老會員
 
劍痞憶秋年 的頭像
榮譽勳章
UID - 15
在線等級: 級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時
註冊日期: 2002-12-06
住址: 步雲崖
文章: 280
精華: 0
現金: 15847 金幣
資產: 20867 金幣
預設 看看符不符合您要的(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, 收花文章: 33 篇, 收花: 130 次
回覆時引用此帖
舊 2006-04-11, 07:20 PM   #3 (permalink)
註冊會員
榮譽勳章
UID - 189279
在線等級: 級別:19 | 在線時長:441小時 | 升級還需:39小時級別:19 | 在線時長:441小時 | 升級還需:39小時級別:19 | 在線時長:441小時 | 升級還需:39小時級別:19 | 在線時長:441小時 | 升級還需:39小時
註冊日期: 2005-03-29
VIP期限: 2010-01
文章: 143
精華: 0
現金: 0 金幣
資產: 146076 金幣
預設

感謝妳...
嘗試中..
Jackson_bigcat 目前離線  
送花文章: 326, 收花文章: 16 篇, 收花: 95 次
回覆時引用此帖
發文 回覆


主題工具
顯示模式

發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用


所有時間均為台北時間。現在的時間是 12:40 AM


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


SEO by vBSEO 3.6.1