- Access exercises (91)
- C# exercises (79)
- Excel exercises (278)
- Power Apps exercises (13)
- Power Automate exercises (18)
- Power BI exercises (139)
- Power Platform exercises (157)
- Python exercises (28)
- Report Builder exercises (141)
- SQL exercises (198)
- SSAS exercises (51)
- SSIS exercises (46)
- SSRS exercises (99)
- VBA exercises (85)
- Visual Basic exercises (46)
VISUAL BASIC EXERCISES▼
VISUAL BASIC EXERCISES▼
- Drawing forms (2)
- Form events (1)
- Variables and data types (2)
- Enumerations and constants (2)
- Form validation (3)
- Menus and toolbars (2)
- Files and folders (1)
- Basic DataGridViews (1)
- Reacting to DataGridView events (3)
- Advanced DataGridViews (2)
- Creating classes (4)
- Coding in VB.NET (2)
- Variables and constants (3)
- Testing conditions (2)
- Passing arguments (3)
- Using arrays (2)
- Loops (2)
- Working with files (3)
- Lists (3)
- Creating properties (3)
Visual Basic | Lists exercise | Create a list of dates which are on Friday 13th
This exercise is provided to allow potential course delegates to choose the correct Wise Owl Microsoft training course, and may not be reproduced in whole or in part in any format without the prior written consent of Wise Owl.
You need a minimum screen resolution of about 700 pixels width to see our exercises. This is because they contain diagrams and tables which would not be viewable easily on a mobile phone or small laptop. Please use a larger tablet, notebook or desktop computer, or change your screen resolution settings.
Press CTRL + D to add the file called frmUnluckyDates.vb from the above folder into your project (or right click on the project and choose to add it as an existing item). Change your project's properties to make this the default form for your project.
Attach code to the left-hand button so that when you click on it you see something like this:
Clicking on the button shown should generate a list of Friday 13ths, then set this list as the data source for the listbox.
Some hints on how to proceed are shown below.
You can use the AddMonths method to add a given number of calendar months on to any given date. You may also find this code excerpt useful:
'get the 13th of this month
Dim startDate As Date = System.DateTime.Today
startDate = New DateTime(startDate.Year, startDate.Month, 13)
When you've got the first button working, attach code to the Fridays only button using the FindAll lambda function (or some other method) to count only those dates which fall on a Friday:
What you should see when you click on the right-hand button.
Remembering that this is a silly superstition, touch the table for luck anyway and close down your application and any open forms.