Admin
Honour Admin
Tổng số bài gửi : 21
Points : 5179
Join date : 24/04/2010
Age : 32
Đến từ : Yên Trị - Ý Yên - Nam Định
 |  Tiêu đề: bài thi giữa kỳ học kỳ II Sun Apr 25, 2010 10:07 am | |
| | |
|
khanhnhat
Gà Công nghệ cao
Tổng số bài gửi : 37
Points : 5159
Join date : 15/05/2010
Age : 32
| | Tiêu đề: Re: bài thi giữa kỳ học kỳ II Sun May 16, 2010 5:39 pm | |
| - Code:
-
Function UCLN(a As Integer, b As Integer) As Integer
While a <> 0 And b <> 0
Dim t As Integer
t = a
a = b
b = t Mod b
Wend
UCLN = a + b
End Function
Private Sub cmdt_Click()
Dim a As Integer
Dim b As Integer
Dim t As Integer
a = Val(txta.Text)
b = Val(txtb.Text)
If (optucln.Value = True) Then
txtkq.Text = UCLN(a, b)
Else
t = a * b
txtkq.Text = t / UCLN(a, b)
End If
End Sub
Private Sub optbcnn_Click()
optucln.Value = False
End Sub
Private Sub optucln_Click()
optbcnn.Value = False
End Sub
| |
|
