1- دو نوع درگاه متداول در ریزرایانه ها را با هم مقایسه کنید

2- چرا قابلیت توسعه برای یک رایانه مهم است؟

3- چه عواملی در سرعت یک رایانه مهم موثر هستند؟

4- رمز گشایی دستور العمل ها از وظایف کدام واحد است؟

5- یک پردازنده 64 بیتی چه تفاوتی با یک پردازنده ی 32 بیتی دارد؟

۶- با وجود حافظه ی رم در سیستم استفاده از حافظه ی سی ام او اس چه ضرورتی دارد؟

7- برنامه ها برای اجرا در کدا م حافظه ذخیره می شوند؟

8- علت تعبیه ی پردازنده بر روی بعضی از کارت های گرافیکی را توضیح دهید.

9- ویژگی نصب واستفاده در سیستم  عامل ها چیست؟

Private Sub Command1_Click()
Dim x As String
x = InputBox("enter your password", "get password")
While x <> "dana"
x = InputBox("enter your password", "get password")
Wend
Label1.Caption = "welcom"
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "get password"
Command2.Caption = "exit"
Label1.Caption = ""
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "display"
Command2.Caption "exit"
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "display"
Command2.Caption "exit"
End Sub

Private Sub Command1_Click()
For i = 10 To 1 Step -1
Print i;
Next i
Print "fire"
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = ""
Command1.Caption = "start"
Command2.Caption = "exit"
End Sub

Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1)
Select Case num
Case Is > 0
Label1.Caption = "positive"
Case Is < 0
Label1.Caption = "negative"
Case Else
Label1.Caption = "zero"
End Select
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
 Command1.Caption = "find sign"
 Command2.Caption = "exit"
 Text1 = ""
 Label1 = ""
End Sub

Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1)
Select Case x
Case 1 To 6
Label1.Caption = "31 days"
Case 7 To 11
Label1.Caption = "30 days"
Case Else
Label1.Caption = "29 days"
End Select
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
 Command1.Caption = "show"
 Command2.Caption = "exit"
 Text1 = ""
 Label1 = ""
End Sub

Private Sub Command1_Click()
Dim g As Single
g = Val(Text1)
If g < 10 Then
Print Tab(15); "you failed"
Else
Print Tab(15); "you passed"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
 Command1.Caption = "run"
 Command2.Caption = "exit"
End Sub

Private Sub Command1_Click()
Dim g As Single
g = Val(Text1)
If g < 10 Then Print Tab(15); "you failed"

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "Run"
Command2.Caption = "Exit"
End Sub