دانشجویان دانشگاه سیرجان

برای دوستانی که SMS داده بودند که پاسخ سئوالات رو در متن وبلاگ بذارم.

Sub Question5()
  Dim S As Integer
  Dim N As Integer
  Dim I As Integer
  Dim F As Integer
  S = 3
  For N = 3 To 100
    For I = 2 To Int(N / 2)
      If N Mod I = 0 Then
        F = 1
        Exit For
      Else
        F = 0
      End If
    Next
    If F = 0 Then
      S = S + N
    End If
  Next
  MsgBox "Result = " & S
End Sub

Sub Question6()
  Dim Str As String
  Dim InvStr As String
  Str = InputBox("Enter Sample Text")
  For I = Len(Str) To 1 Step -1
    InvStr = InvStr & Mid(Str, I, 1)
  Next
  MsgBox "Str: " & Str & Chr(10) & "Inv: " & InvStr
End Sub

Sub Question7()
  Dim I As Integer
  Dim J As Integer
  Dim Tmp As Variant
  Sheet2.Select
  For I = 3 To 20
    For J = I + 1 To 20
      If Cells(J, 1) < Cells(I, 1) Then
        Tmp = Cells(I, 1)
        Cells(I, 1) = Cells(J, 1)
        Cells(J, 1) = Tmp
        Tmp = Cells(I, 2)
        Cells(I, 2) = Cells(J, 2)
        Cells(J, 2) = Tmp
      End If
    Next
  Next
End Sub

Sub Question8()
  Load UserForm1
  UserForm1.Show
End Sub

Function IsFirst(Num As Integer)
  ' Question9
  Dim N As Integer
  For N = 2 To Num / 2
    If Num Mod N = 0 Then
      IsFirst = False
      Exit Function
    End If
  Next
  IsFirst = True
End Function

Sub Question10()
  Dim A As Double
  Dim B As Double
  Dim Res As Double
  Dim Sign As String
  A = InputBox("Enter 1st Number:")
  B = InputBox("Enter 2nd Number:")
  Sign = InputBox("Enter Sign:")
  Select Case Sign
    Case "+"
      Res = A + B
    Case "-"
      Res = A - B
    Case "*"
      Res = A * B
    Case "/"
      Res = A / B
  End Select
  MsgBox A & " " & Sign & " " & B & " = " & Res
End Sub

Sub Question11()
  Dim Pass As String
  For I = 1 To 3
    Pass = InputBox("Enter Password:")
    If Pass = "abc123" Then
      Load UserForm1
      UserForm1.Show
      Exit Sub
    Else
      If I < 3 Then
        MsgBox "Wrong Password" & Chr(10) & "You Can Enter " & 3 - I & " Password"
      Else
        Application.Quit
      End If
    End If
  Next
End Sub
 

دوست عزیزی که علیرقم خواهش من خودش رو معرفی نکرده خواسته بود که در مورد سئوال اول نمونه سئوالات توضیح بدم.

- فیلد: به هر یک از ستونها در یک جدول بانک اطلاعاتی یک فیلد گفته میشود.

- رکورد: به هر یک از سطرها در یک جدول بانک اطلاعاتی یک رکورد گفته میشود.

- سلول: از تقاطع هر فیلد و رکورد در یک جدول بانک اطلاعاتی یک سلول بوجود می آید.

- شیت: هر یک از صفحات یک فایل اکسل را یک شیت مینامند.

هر شیت در اکسل 2007 شامل 16384 فیلد و 1048576 رکورد است

سلام به دوستان عزیز

از اینکه نظر دادید ممنونم. به درخواست آقای میرزایی عزیز پاسخ نمونه سئوالاتی را که سر کلاس داده بودم بصورت یک فایل اکسل برای دانلود میذارم امیدوارم مورد استفاده قرار بگیره.

برای دانلود فایل اینجا کلیک کنید

ظهراً دوستان استفاده ای از این وبلاگ ندارند و استقبالی نمیکنند. امتحانات پایان ترم نزدیکه و من هم از این به بعد فرصت نمیکنم که هر روز به وبلاگ سر بزنم تا جوابگوی سئوالات دوستان باشم بنابراین از دوستانی که لطف دارند و هنوز سری به ما میزنند تقاضا دارم درصورتی که سئوالی داشتند به شماره تلفنی که قبلاً اعلام کرده بودم SMS بزنند تا در صورت امکان بتونم جوابگوی عزیزان باشم.

عناوینی که در امتحان برنامه سازی پیشرفته هست عبارتند از:

1- ساختمان کامپیوتر

2- انواع نرم افزارها

3- انواع کامپیوترها

4- بیت و بایت

5- تبدیل سیستمها (دودویی به اکتال و هگزادسیمال و دسیمال و برعکس)

6- مقایسه ظرفیت فایلها

7- داده ها

8- رکوردها

9- فایلها

10- سیستم فایلها

11- ظرفیتها (مقایسه اندازه گیری ظرفیت فایلها)

12- انواع حافظه ها

13- بانکهای اطلاعاتی

14- فرمول نویسی ها

15- برنامه نویسی

16- توابع

17- جداول

18- ارتباط بین جداول

با سلام به همه دوستان تعدادی سئوال نمونه از درس برنامه سازی پیشرفته آماده کردم که امیدوارم مورد استفاده قرار بگیره. میتونید فایل نمونه سئوالها را از لینک زیر دانلود کنید.

نمونه سئوالات امتحانی اکسل

دوستان عزیز نظرات شما بعد از تأیید از طرف مدیر وبلاگ نمایش داده میشوند بنابراین تقاضا دارم در هنگام نوشتن نظرات خودتون رو معرفی کنید. درصورتی که نمیخواهید اسمتون نمایش داده بشه اعلام کنید تا پس از خواندن نظر اون رو پاک کنم.

با عرض سلام به شما دوست ناشناس

نکته اول اینکه در رابطه با استفاده از تابع Rank و نیز کلیه توابع اکسل در کلاس روز چهارشنبه توضیح دادم. بطور کل آدرس دهی در اکسل بر دو نوع است (نسبی و مطلق). همانطور که میدانید آدرس نسبی به آدرسی گفته میشود که متغیرهای آن با جابجایی آدرس فرمول تغییر میکنند ولی در آدرس مطلق متغیرها ثابت میمانند. درضمن گفتیم که برای مطلق کردن یک آدرس کافی است که در آن از علامت ($) استفاده کنیم. بنابراین در تابع Rank مورد استفاده در فایل شما باید آدرس نمره درس مورد نظر نسبی و آدرس لیست کلیه نمرات مظلق باشد. بعنوان مثال با فرض اینکه نمرات شما در ستون E و از سطر 3 تا 20 باشد و شما در ستون F رتبه هر درس را بخواهید کافی است که در سلول F3 فرمول زیر را نوشته و سپس آن را برای کل ستون کپی کنید.

(Rank(E3,E$3:E$20,0=

و اما نکته دوم اینکه با عرض شرمندگی من نمیتونم برنامه ویژوال بیسیک پروژه را در سایت بگذارم ولی میتونم در رابطه با اون راهنمایی کنم.
برای انجام این پروژه شما باید یک فرم طراحی کنید که در روی اون یک ComboBox که شامل شماره های دانشجویی هست قرار داشته باشد و تعدادی TextBox که هر یک از آنها برای نمایش موارد خواسته شده استاد (مانند نام و نام خانوادگی و نمرات دروس و مقدار وام و ...) در نظر گرفته میشود. سپس برای رویداد Change از ComboBox یک برنامه بنویسید که با انتخاب هر یک از شماره های دانشجویی کلیه TextBox ها پر شوند.
و اما جهت راهنمایی برای نوشتن برنامه این توضیح لازم است که شما باید از یک حلقه For ... Next و یک شرط If ... End If برای یافتن شماره انتخاب شده در ComboBox استفاده کنید و در صورت برقراری شرط مقدار هر یک از TextBox ها را برابر با مقدار سلول هم ردیف با مورد یافت شده قرار دهید. امیدوارم که این توضیح بتونه کمک کنه.

باز هم با عرض شرمندگی من به دو دلیل متن برنامه را در سایت قرار نمیدم.
اول اینکه همه یک پروژه تحویل میدهند و این به ضرر خود شماست چون استاد در رابطه با سئوالهایی که میکنه بیشتر سختگیری میکنه.
دوم اینکه استاد صد در صد میفهمه که این کار من بوده و ممکنه که اعتمادش نسبت به من هم سلب بشه.

اما باز هم به عنوان کمک اگه فکر میکنید که نیاز به کمک برای نوشتن برنامه دارید میتونم بصورت خصوصی راهنمایی کنم. میتونید روی شماره 09355196918 برای من SMS بفرستید. (این شماره فقط برای SMS است و قابل تماس گیری نیست)

سلام به همه دوستان

از اینکه به وبلاگ سر زدید و نظر دادید تشکر میکنم. دوستان در مورد دستور VLOOKUP پرسیده بودند. فکر میکنم این دستور رو بطور واضح توی کلاس شرح دادم.

این دستور برای جستجوی یک مقدار در یک فیلد از جدول و بازگرداندن مقدار فیلد دیگر از رکورد پیدا شده بکار میرود. بعنوان مثال اگر شما در یک جدول چهار ستون "شماره دانشجویی" و "نام" و "نام خانوادگی" و "کد ملی" را داشته باشید (با فرض اینکه این فیلدها به ترتیب در ستونهای A تا D از Sheet1 قرار دارند) و بخواهید در Sheet2 با توجه به شماره دانشجویی که در سلول A1 نوشته شده کد ملی دانشجوی مورد نظر را از جدول پیدا کرده و در سلول B1 بنویسد میتوانید از دستور زیر در سلول B1 استفاده کنید. (با فرض اینکه اطلاعات در جدول شما از سطر 2 تا 100 نوشته شده اند)

=VLOOKUP(A1; SHEET1!A2:D100; 4; FALSE)

در این دستور

A1 همان شماره دانشجویی است که قرار است در جدول پیدا کنید.

SHEET1!A2:A100 جدول اطلاعات شماست

4 شماره ستونی است که پس از یافتن شماره دانشجویی مورد نظر مقدار آن باید ثبت شود

امیدوارم که با این مثال مفهوم کلی دستور رو درک کرده باشید. به امید موفقیت.

سلام به همه همکلاسی های عزیز

امیدوارم که از کلاس روز چهارشنبه راضی بوده و استفاده کرده باشید و همچنین بخاطر ضعف در بیان مطالب من رو ببخشید. اگر فکر میکنید که این کلاس مفید بوده و مایل به ادامه آن هستید خواهشمندم از طریق همین وبلاگ هماهنگ کنید. درضمن دوستانی که مایلن بصورت خصوصی کلاس داشته باشند هم میتونن از همین طریق با من هماهنگ کنند.

پیشنهاد میکنم برای ارائه پروژه تا اونجایی که ممکنه خودتون انجام بدبد ولی اگه دوستان مشکلی در رابطه با پروژه پیشنهادی استاد دارن میتونم راهنمایی کنم.

هرکدام از دوستانی که فکر میکنن میتونن در ارائه مطالب در این وبلاگ کمک کنند در قسمت نظرات این موضوع را مطرح کنند تا اسمشان را در قسمت نویسندگان وبلاگ اضافه و کد ورود به وبلاگ را برایشان SMS کنم.