AS/A2 computing 2013 July batch

[Ravichandran]

Dear students of Block 6 AS computing, welcome to the computing class. I am your facilitator Dr.Ravichandran ( you can call me Dr.Ravi), I will be your course facilitator for AS computing and A2 computing. I will start communicating with you in this discussion forum - where you can start posting your queries and useful resources.

You are highly encouraged to interact with me and also with your peers as the class begins from 30th July 2013.

All the best and keep moving. Do not hesitate to ask and send your queries if you have one.

Regards,

Dr.Ravichandran

i HAVE ATTACHED THE SYLLABUS TOO.

YOU CAN DOWNLOAD THE ATTACHMENT FILE.

[Yuganesh]

Write a vb program to identify the missing numbers in a sequence of  double digit numbers .The lowest and the highest values must be stated .

Example >    "93,94,96,97,99"

Answer  95,98

[Ahmad Ammar Rashid]

enter any number in a 3 by 4 array. covert these numbers into binary numbers (zeros and ones) .then find the total number of "1" and "0" in each row and column.

[Syed Muhammad b. Syed Hood]

sorry for the late question
write a vb program to store the names of 10 students, their scholars and gender. then find the no of students for students for each scholarship according to gender
example:
UEM male=3 female 1

[MOHAMMAD LUQMAN B MOHD RADZAI]

write a program that accepts 10 numbers, then arrange the numbers in an ascending order. Multiply the first number and the last number together until the last two number in the middle. print each of the result.

[Mohd Afif Farhan b. Mat Said]

write a vb program to accept 10 number and (a) find how many numbers are perfect square, (b)then print sum of the square root of that number,
ex: 4 and 16 are perfect square, the square root of that number are 2 and 4
sum = 6

[Mohd Afif Farhan b. Mat Said]

answer for
write a program that accepts 10 numbers,Multiply the first number and the last number together until the last two number in the middle. print each of the result.


Private Sub Command1_Click()
Dim a(10)
For i = 1 To 10
a(i) = InputBox("enter no")
Next i

For i = 1 To 5
b = 11 - i
c = Val(a(i)) + Val(a(b))
Form1.Print a(i); " + "; a(b); " = " + Str(c)
Next i: MsgBox "done"
End Sub

[Ravichandran]

Dear Students,

                       As promised, I have uploaded the SDLC slides and also the Packet and circuit switching PPT for your kind perusal. Please feel free to ask any doubts that may strike you during the course of your reading.

Also, I have give tons of useful resources for AS computing to our Class Queen Maizatul. Remember she would only give it to you if you ask. So, better ask her or better you can go and check Yuganesh computer desktop and download the folder with name AS computing.

All the best guys, keep moving.

Regards,

Dr.Ravi

[Ariel Logujin Takom]

Thanks for the PPT sir!

Ravichandran said:

Dear Students,

                       As promised, I have uploaded the SDLC slides and also the Packet and circuit switching PPT for your kind perusal. Please feel free to ask any doubts that may strike you during the course of your reading.

Also, I have give tons of useful resources for AS computing to our Class Queen Maizatul. Remember she would only give it to you if you ask. So, better ask her or better you can go and check Yuganesh computer desktop and download the folder with name AS computing.

All the best guys, keep moving.

Regards,

Dr.Ravi

[Ahmad Ammar Rashid]

hey guys~ my question was to find the LCM ( lowest common multiple) of a given 2 numbers. This is the code i came up with :

Private Sub Command1_Click()
a = InputBox("enter a number")
b = InputBox("enter a number")
If a > b And a / b = Int(a / b) Then Form1.Print a: MsgBox "end": End
If b > a And b / a = Int(b / a) Then Form1.Print b: MsgBox "end": End

c = a * b
Form1.Print c
MsgBox "end"
End Sub

[Nabil Izzularif Bin Mohd Safiai]

this is for hafiz's question
a = Val(Text1.Text)
r = Val(Text2.Text)
n = Val(Text3.Text)
List1.AddItem "n" & vbTab & "x"
List1.AddItem "_________"
For s = 1 To n
x = a * r ^ (s - 1)
List1.AddItem s & vbTab & x
Next

[Ariel Logujin Takom]

I found the solution to Yuga's problem. Define a range of numbers (e.g. 90 to 99) and insert 5 numbers (e.g. 91, 93, 95, 96, 98) and print the missing numbers (output should be 90, 92, 94, 97, 99).

MsgBox "Hi! This is a program that detects which double-digit numbers that are missing in an increasing range of numbers :D "
a = InputBox("Please input the first value of the range. Value must be a double-digit number")
b = InputBox("Please input the last value of the range. Value must be a double-digit number")

Dim n(5) As Integer
For i = 1 To 5
n(i) = InputBox("Please input the double-digit number. Remember, the value must be from smallest to biggest.")
Next i

i = 1
If n(i) <> a Then MsgBox Str(a) + " is missing from the sequence."

Do
a = a + 1
If n(i) <> a Then MsgBox Str(a) + " is missing from the sequence."
If n(i) = a Then i = i + 1
Loop Until a = b

[Maizatul Akmal Mohamad]

here's the solution for aiman's. (pls correct me)

Dim a(3, 3)
Private Sub Command1_Click()

For r = 1 To 3
For c = 1 To 3
a(r, c) = InputBox("enter any value")
Next
Next

For r = 1 To 3
For c = 1 To 3
b = Val(a(r, c))
If b / 2 = Int(b / 2) Then Form1.Print Val(a(r, c))
Next
Next
End Sub