微軟VB程式語言→一些關於程式碼的問題

Question

(一)請設計一除法出題程式，答案必須整除，字型大小14，位數為底下情況擇一:2位數(所謂2位數其範圍為10~99)對1位數、3位數對1位數。
(二)請設計一跑馬燈程式，速度可從1/1000~1秒調整，捲軸改變量為20，名字以標籤放置，字型大小20，顏色紅色，方向跑法為底下情況擇一:由左往右、由右往左、左右循環。

就這兩題，我試了好多次都做不出來，會的人拜託教教我吧。

東西我大概做出來了，不過這兩題，都有遇到一些小問題，像第一題，我不知道要如何讓第一個數字為二位數，我的跑馬燈跑起來也怪怪的。

以下是跑馬燈的部份
Dim CHK As Integer

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()
CHK = 0
Label1.Caption = HScroll1.Value
End Sub

Private Sub HScroll1_Change()
Timer1.Interval = HScroll1.Value
Label1.Caption = HScroll1.Value
End Sub

Private Sub Timer1_Timer()
If CHK = 0 Then
Command1.Left = Command1.Left + 250
If Command1.Left + Command1.Width + 250 >=

Form1.Width Then
CHK = 1
End If
Else
Command1.Left = Command1.Left - 250
If Command1.Left < 0 Then
CHK = 0
End If
End If
Label2.Caption = Time
End Sub

以下是除法出題的部份
Private Sub Command2_Click()
a = Int(Rnd * 1) + 1
If a = 1 Then Label3.Caption = "/"

Randomize

If a = 1 Then Label1.Caption = Int(Rnd * 99) + 1
If a = 1 Then Label2.Caption = Int(Rnd * 9) + 1

Label1.Caption = Label1.Caption - Label1.Caption Mod Label2.Caption

End Sub

Answer 1

你的跑馬燈真的是跑馬燈... 我都眼花了...
先回你除法那題
要用亂數取個二位數可以參考我的做法
Int(Rnd * 90) +10
這就是一個完整的二位數
不過這得確定 Rnd 的範圍是 0~1 且不含 1
且 Int(0~90) 為無條件捨去

在你原來的程式中
我看你的Label1應該是指 10位數 而Label2是指個位數吧
那麼可以
十位數：Int(Rnd * 9) + 1
個位數：Int(Rnd * 10) + 1

試試看吧~

2006-06-05 10:40:28 補充：
更正～個位數：Int(Rnd * 10)

Answer 2

參考下面的網址看看

http://phi008780508.pixnet.net/blog

Answer 3

我覺得呀，在這裡回答問題，自己可以選擇要答或是不答。
沒有必要說大道理給不懂的提問者。
因為如果他們懂這些大道理就不會上來問作業了。
而且提問者如果自己想擺爛混畢業，那是他們自己的決定，與我們無關吧。
雖說作業是要自己做沒錯，可是你出社會後，老闆教給你的工作，如果網路上或是圖書館有資料，大部份的人不也就拿來修改嗎?
懂得如何利用資源才是高手。
以下只是小弟的個人意見，如有冒犯請見諒。

Answer 4

既然寫好了就把程式po出來看看?

2006-06-13 16:59:48 補充：
Dim CHK As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
CHK = 0
Timer1.Enabled = False
HScroll1.Max = 1000
HScroll1.Min = 1
Label1.Caption = HScroll1.Value
End Sub

2006-06-13 17:00:29 補充：
Private Sub HScroll1_Change()
Timer1.Interval = HScroll1.Value
Label1.Caption = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
If CHK = 0 Then
Command1.Left = Command1.Left + 250
If Command1.Left + Command1.Width + 250 >= Form1.Width Then
CHK = 1
End If
Else

2006-06-13 17:00:59 補充：
Command1.Left = Command1.Left - 250
If Command1.Left < 0 Then
CHK = 0
End If
End If
Label2.Caption = Time
Timer1.Enabled = True
End Sub

2006-06-13 17:02:43 補充：
要人幫忙看你寫好的程式有無問題,又不把程式貼出來,你要人家怎樣幫你?