What does VBA mean?
Visual Basic for
Applications
Visual By Arithmetic
Visual Basic Answers
Visual By Algorithms
Using the Select Case construct is ideal when:
An action is taken regardless of the value a
variable
A variable can
take on multiple values
A variable is a Boolean type
Too many if-then statements have already been used
The tab order in a user form:
________ is a
way to control the order in which the controls are selected using the TAB key.
Requireing the user to assign numbers to each
control on the user form
Arranging the worksheets in an Excel workbook
Allowing the controls to be sorted alphabetically
within the user form
The RowSource property of a Combo Box control allows the user to:
control where the output of selected item should go
define the list
of items, from a range of cells, to appear in a drop-down list
restrict which row of cells can be the source of
input items for the drop-down list
have only one item in the drop-down list
Choose the VBA code that will allow you to obtain information about an error.
Err.Name
Err.Type
Err.Description
Err.Title
To save a VBA project with an Excel workbook, the workbook must be saved as what type of file?
xlsv
xlv
xlsm
xlsx
You can use VBA to connect to a database in SQL Server using:
an
ADODB.Connection
Access as a go-between
Just a simple SQL statement
an ethernet cable
On July 4, 2013, What will be displayed in the message box from the following statement: MsgBox(Format(Now,"mm-dd-yyyy"))
7/4/2013
07-04-2013
07/04/2013
7-4-2013
Which of the following do not work on Excel on Mac
ActiveX Controls
Form Controls
Which of the following would you begin a comment line with?
Equal sign
Double quote
Underscore
Single quote
What is difference between a sub routine and a function.
Sub routine can return a value.
Function can
return a value.
Which of the following snippets of VBA code is not a loop?
Do Until... Loop
Select Case...
Case... Case Else... End Select
Do While... Loop
For Each.. Next
What does VBA stand for
Very Basic Applications
Visual Basic Applied
Virtual Basic for Advanced programming
Visual Basic for
Applications
What is a macro used for?
To link Excel files together
To automatically
complete a series of Excel steps
To create buttons and forms in Excel
To access programs in Excel
To comment a block of code, you must first:
Turn on Caps Lock
Activate the
Edit toolbar in the Visual Basic Editor
Turn on Num Lock
Restart Excel
How do you declare the variable myvar as an integer?
Dim myvar As
Integer
Declare myvar is an Integer
Document myvar as an Integer
The 'not equal to' operator is:
<>
==
>=
<=
To continue to run code even if a line of code causes an error, choose the VBA code to continue to the next line of code.
On Error Resume
Goto
On Error Resume
Next
Next
To force all variables is a VBA project to be declared, which must be stated in a module?
Option Implicit
Option Explicit
Option Declare
Option Variables
True or False? Commenting at the end of a line of code is permissible.
True
False
What do you need to select to set the developer mode?
Show mini toolbar on selection
Show developer
tab in the Ribbon
Show macro code settings
Show visual basic options menu
True or False? It is possible to name a Sub with a string containing a space.
True
False
Which of the following is not a VBA data type?
VarChar
Integer
String
Long
Date
To obtain the value of the number of characters used in a textbox field on a form, which snippet of VBA code would you use?
Char(Forms!DataEntryfrm.Text11.Value)
Spaces(Forms!DataEntryfrm.Text11.Value)
Length(CStr(Forms!DataEntryfrm.Text11.Value))
Len(CStr(Forms!DataEntryfrm.Text11.Value))
You've created a user form named 'Entry_Form'. To make the user form appear, use which of the following statements?
Entry_Form.Show
Entry_Form.Appear
UserForm.Load
UserForm.Entry_Form.Run
The shortcut keystroke to open the VBA IDE is:
Alt+V
F10
Alt+Ctrl+F8
Alt+F11
Is it possible to create an array with the lowerbound being two?
Sometimes
No
Yes
Correct this statement to start a 5-iteration loop: For x = 1 to 10 Step -2
For x = 1 to 10
Step 2
For x = 1 to 10 Step 5
For x = 1 to 5 Step 2
For x = 1 to 5 Step 5
Which of these is not a Visual Basic object?
Range
Sheets
FontSize
Selection
What does a VBA macro consist of?
User instructions and Excel functions
Computer code
that performs some actions on or with objects
Macro instructions that direct the user application
and provide help to the user
Excel functions
Declaring a public variable allows the user to..
Use the variable as a named range in Excel
Use the variable only within the module in which
the variable was declared
Use the variable anywhere in Excel
Use the variable
anywhere in the project in which the variable was declared
Which worksheet event can be used to run a procedure upon deleting the contents of a cell?
Change
Click
Calculate
Activate
How do you figure out the number of items in a collection?
(none of these are correct)
Using Ubound property
Using Count
property
Using Items property
Using Contains method
Which of the following VBA windows shows the code of the active object?
Immediate window
Properties window
Code window
Explorer Window
In the statement x = "4" + "5"', x = ?
1
45
-1
9
What is the shortcut keystroke to debug VBA code one line at a time?
Alt+F5
F5
Ctrl+F8
F8
The way to pass the latest values of variables between functions and procedures is identified as:
ByChange
ByUpdate
ByRef
(none of these)
Which of these statements will start a loop of exactly 20 iterations?
For i = 1 to 21
For i = 2 to 22
For i = 2 to 40
For i = 2 to 40
Step 2
Dim a,b as integer What is the type of a?
variant
integer
What is the difference between activating and initializing a user form?
Initialize will always run when showing a user form
whereas Activate will only run when showing a user form that has not been
stored in memory.
Activate will
always run when showing a user form whereas Initialize will only run when
showing a user form that has not been stored in memory.
There are no differences. Both are run whenever a
user form is shown.
There are differences only if Option Explicit is
stated.
The statement 'Dim a, b as Single' declares the variables a and b as what variable types?
a as Single; b as Single
a as Double, b as Single
a as Double; b as Double
a as Variant; b
as Single
What is the property of a cell that allows you to set the font color of the contents?
Font.Color
CellColor
Cell.Color
FontColor
Choose the VBA code that switches control from the application to the OS.
DoEvents
Continue
Wait
Goto
What does the DoEvents do?
Declare a new event that can be fired from code
Allows operation
system to process other events
Runs all events (built-in or custom) in a vb
project
Runs all Excel events in a vb project
If you want to create a definition for a custom object in VBA, which of the following would be the best choice to insert into your project?
UserForm
Module
Class Module
Procedure
Which of the following functions do not perform a calculation
Val
IPmt
Exp
Sqr
To change a comment in cell A1, which will do the job?
Range("A1").Comment("My
Comment")
Range("A1").Comment.Text("My
Comment")
Range("A1") = "My Comment"
Range("A1").Text("My Comment")
Combine into one line: If x > 5 Then y = x - 5 End If
y = x - 5 If x > 5
If x > 5 Then
y = x - 5
If x > 5, y = x - 5
If x > 5 Then y = x - 5 End If
Which code will allow user to edit a password protected worksheet.
Sheets("Sheet1").Unprotect
Sheets("Sheet1").Unlock
Password:="Password"
Sheets("Sheet1").Unprotect
Password:="Password"
Sheets("Sheet1").Edit
Password:="Password"
Sheets("Sheet1").DisableProtect
Password:="Password"
To change the text displayed in a label on a form, choose the VBA code that will allow you to update the property.
Me.Label3.Text = "Hello"
Me.Label3 = "Hello"
Me.Label3.Value = "Hello"
Me.Label3.Caption
= "Hello"
Which of the following actions will NOT cause a macro to run in Excel?
Add a new worksheet
Click on a picture
Open a workbook
(all of these
will NOT cause a macro to run in Excel)
When stepping through code as a way to see how the values in variables change, use the:
Watch Window
Locals Window
Immediate Window
Variables Window
Choose the VBA code that will allow you to verify that an Item exists in the Dictionary object Dict1.
If xDict1.Key("Testing")
If xDict1.Exists "Testing" Then
If
xDict1.Exists("Testing") Then
If xDict1.Item("Testing") Then
What value is x holding after this statement is executed: x = Left("Apple",3) & Right("People", 3)
ApplePeople
Appple
AppPeo
Apple
Month(#12/25/02#) will output?
December
#12
#12#
12
#December
'Do While x < 5' is equivalent to:
Do While x > 5
Do Until x >=
5
Do While x <= 5
Do Until x > 5
What will Format(2.36, “#0.0”) output?
"#2.36"
"#2.4"
"2.3"
“2.4”
"#.36
You have written a function called Switch requiring the input string parameters a and b. The function will concatenate the values assigned to b and a, in that order. What line of code is needed within the function?
Switch = "b" & "a"
Switch = ba
Switch = b &
a
Switch = b, a
The library to make ADODB.connection work.
Microsoft Active
X Data Objects
Microsoft Active X Data Objects Recordset Microsoft
ADO for DDL and Security Microsoft Add-Inn Designer MIcrosoft OLAP Designer
Server Driver
In the next statement: "Dim bValue as Boolean" What will be the default value for "bValue" variable?
Null
Undefined
True
False
Blank
What is the right syntax to raise your custom error?
Cannot raise custom error
Err.Raise
Number:=999, Description:="My custom error"
RaiseError Number:=999, Description:="My
custom error"
Error.Raise Number:=999, Description:="My
custom error"
Under which menu option in the VBA IDE can you password protect a VBA project?
Tools>References
Tools>Protection
Tools>Options
Tools>VBAProject
Properties
You want to count how many records for a given customer based on CustomerID which is of field type short text in table tblCustomer. The customer id we want the count for is 123-AC. We are using the domain aggregate function DCount and assign it to an integer variable intC what is the correct syntax.
intC = DCount
("*","tblCustomer","[CustomerID] = ' & 123-AC
& "'")
Syntax is incorrect can't save in an integer
variable if you are counting on a field type of short text.
intC =
DCount("tblCustomer","*","Me.CustomerID =
123-AC")
intC=DCount("123-AC","tblCustomer","[CustomerID]")
intC =
DCount("*","tblCustomer","[CustomerID] = " &
123-AC)
What is BOF?
A property of
the Recordset object.
All answers are correct.
A property of the Document object.
Choose the VBA code to execute a Word MailMerge in Access
Docmd.MailMerge
objWord.Execute MailMerge
objWord.MailMerge.Execute
objWord.MailMerge
What is the difference between these commands CreateObject("Word.Application") GetObject(, "Word.Application")
CreateObject
always creates a new object. GetObject throws an error if no object of the
class exists.
CreateObject always creates a new object. GetObject
takes an existing one or create a new one.
The difference is only in performance.
GetObject always creates a new object. CreateObject
throws an error if no object of the class exists.
What stores Excel data?
Field
Variable
(all of these)
Compartment
Which of the following snippets of VBA code will allow you to return the first array index in the array xItems?
xItems.MoveFirst
UBound(xItems)
First(xItems)
LBound(xItems)
When integrating Excel, which VBA code will allow you transfer data from recordset xRec in Access directly onto a spreadsheet (xlws) in Excel.
xlws.range("A1").CopyFromRecordset
xRec
xlws.CopyFromRecordset xRec
Docmd.TransferSpreadsheet xlws, xRec
Docmd.TransferDatabase xlws, xRec
Choose the VBA code to remove data from Row 2 in a multiple column listbox.
Me.List0.Remove 2
Me.List0.RemoveItem
1
Me.List0.Remove 1
Me.List0.Delete 2
As an alternative to the If.. Then.. ElseIf..Else condition, how would you format the Choose function with variable x1 and the following conditions: "Red", "Blue", "Yellow", "White"
Choose(x1,"Red","Blue","Yellow","White")
Choose x1, "Red", "Blue",
"Yellow", "White"
Choose(x1 = "Red", x1 = "Blue",
x1 = "Yellow", x1 = "White")
Choose x1("Red", "Blue",
"Yellow", "White")
With out creating a reference to the Microsoft Scripting Runtime for the DLL to create a Dictionary object, choose the VBA code to allow you to do so.
CreateObject "Dictionary.Scripting"
CreateObject("Dictionary.Scripting")
CreateObject("Scripting.Dictionary")
CreateObject("Application.Dictionary")
True or False? An 'If-Then' statement must always be paired with an 'End If'.
False
True
When integrating Excel, instead of adding a reference, which VBA code would you use to open Microsoft Excel.
Set xlapp =
CreateObject("Excel.Application")
Set xlapp = Excel.Application
Set xlapp = CreateObject("Windows.Excel")
Set xlapp =
CreateObject("Application.Excel")
Choose the VBA code used to add a new record to the recordset xRec.
xRec.AddNew
xRec.Edit
xRec.Add
xRec.AddItem
Choose the VBA code that you would use to obtain the user login on a computer using a Windows operating system.
CurrentDb.User
Environ("User")
CurrentProject.UserLogin
Environ("Username")
In Access, which VBA code will allow you to suppress alerts when deleting records from a table.
DoCmd.Alerts Off
DoCmd.Alerts False
DoCmd.SetWarnings Off
DoCmd.SetWarnings
False
Where you can create you custom events?
Only in classes
Only in userforms
Only in modules
Classes and
userforms but not in modules
You can't create custom events
Is it possible to expand storage space for dynamic Array variables with two or more dimensions, keeping the existing data?
Yes, by changing
the size of only the last dimension.
Yes, by changing the size of only the first
dimension.
No.
Yes, without restrictions.
Which Will Not display VBA code?
VBA view
Alt-F11
Right mouse click workbook sheet then select view
code
Click Developer option in the ribbon then click
Visual Basic button
You want to dump the values stored in a 12-element array named Rates into the cell range A1:A12. How can you get that done?
Range("A1:A12")
= Application.WorksheetFunction.Transpose(Rates)
Range("A1:A12") = Rates
Range("A1:A12") = Rates(1 to 12)
Range("A1:A12") = Rates(12)
The application property that will assign a shortcut key to run a macro is:
OnKey
Keystoke
ShortKey
Shortcut
Which function will allow you to convert a value to number?
CStr
CLng
CVal
CCurr
When you have added a new linked table using VBA code and it does not appear in Navigation Pane that displays the list of tables, forms, macros, and queries in the database. Which VBA code would you use to update the list of database objects displayed in the Navigation Pane.
Application.Refresh
Application.RefreshDatabaseWindow
CurrentDb.RefreshDatabase
CurrentDb.Refresh
Which statement will assign a random integer from 1 to 5 to the variable x?
x = Int(Rnd * 5)
x = Int(Rnd * 5)
+ 1
x = Int(Rnd * 5 + 1)
x =Rnd * 5
Choose the VBA code to filter the rowsource in a multiple column listbox that will allow you to filter the records listed using the LIKE statement and the variable xCompany.
Me.List0.RowSource = "SELECT * FROM tblOrders
WHERE Company LIKE *" & xCompany
Me.List0.RowSource
= "SELECT * FROM tblOrders WHERE Company LIKE '*" & xCompany
& "*'"
Me.List0.RowSource = ʺSELECT * FROM tblOrders WHERE
Company LIKE *'ʺ & xCompany & ʺ'*ʺ
Me.List0.RowSource = ʺSELECT * FROM tblOrders WHERE
Company LIKE 'ʺ & xCompany & ʺ'ʺ
Which is NOT a method of the Workspace object:
Activate
Close
What will Format(“A123”, “&&&&&&”) output?
None of the above
“&&&A123”
“&A&1&2&3&&”
“A123”
“A123&&&”
Without using SQL, choose the VBA code to allow you to delete the table Employees.
CurrentDb.Execute DeleteTable,
"Employees"
Docmd.Delete "Employees"
Docmd.Execute "Employees", Delete
CurrentDb.TableDefs.Delete
"Employees"
The ____________ allow(s) for multiple controls in a user form, to execute the same sub.
single command button
option buttons
class module
grouped controls
Choose the VBA code that will allow you to check to see if the form MainMenufrm is loaded.
If IsObject("MainMenufrm").Open Then
If Forms!MainMenufrm.IsLoaded Then
If
CurrentProject.AllForms("MainMenufrm").IsLoaded Then
If IsObject("MainMenufrm").IsLoaded Then
Choose the VBA code that you would use to call a public function named VBAFunction from a form called FormA while passing a variant x1 in the module of FormB form.
Call VBAFunction x1
Forms!FormA.VBAFunction(x1)
Call VBAFunction(x1)
Forms!FormA.VBAFunction x1
What is a result of this code? Sub Test() Dim myNumber As Double myNumber = -10.635 Debug.Print Fix(myNumber) Debug.Print Int(myNumber) End Sub
-11 -11
-10 -10
11 11
-10 -11
10 11
What is the short cut to get Immediate Window
Ctrl + M
Ctrl + W
Ctrl + I
Ctrl + G
Out put of below code: Dim a As Single Dim b As Single a = 7 b = 2 MsgBox a / b & ", " & a \ b
3.5, 3.5
3, 3
3, 3.5
3.5, 3
To remove the records listed in a subform, which property and value would you need to add to your VBA code.
RowSource = Null
ControlSource = ""
RowSource = ""
RecordSource =
""
Choose the VBA code used to close database and the Microsoft Access instance.
Docmd.Close
CurrentProject.Quit
Me.Close
Docmd.Quit
Output of below code: Dim a As Integer Dim b As Integer a = 1000 b = 33 MsgBox a * b
Run-time error
'6': Overflow
32767
0
33000
Which of the following would NOT be a good use for a macro?
Inserting a logo on all spreadsheets
Performing the same calculation on multiple
workbooks
Computing
statistical calculations on data
Which tools should be used to compile the program?
Package &
Deployment Wizard
MS Visual Compiler
.Exe Generator
Data Object Viewer
Setup Creator
What reference will you add to add active x objects ,i.e. buttons, at runtime?
Microsoft Visual
Basic for Applications Extensibility Library
Microsoft Active X Data Objects Microsoft Add-In
Designer OLE Automation
To change the font color a textbox field, choose the VBA code that will allow you change the control's property.
Me.Text11.Font.Color = vbRed
Me.Text11.FontColor = vbRed
Me.Text11.ForeColor
= vbRed
Me.Text11.BackColor = vbRed
A VBA unit is called a _____.
Event Procedure
Executor
Program
Routine
Subroutine
Choose the VBA code to allow you to obtain the value from Row 2 and Column 3 of a mutliple column listbox.
Me.List0.Column 3, 2
Me.List0.Column(2,1)
Me.List0.Column 2, 1
Me.List0.Column(3,2)
To create one array variable to store monthly mortgage rates over the course of a year, the following is the best declaration statement.
Dim Rates(1 to
12) as Single
Dim Rates(1..12) as Integer
Dim Rates(1 to 12) as Decimal
Dim Rates(12) as Single
Choose the function used to send an table's contents in Excel format by email from Access.
call SendObject(acSendTable,
"tblEmployees", acFormatXLS, "Sally Moore;")
Docmd.SendObject(acSendTable,
"tblEmployees", acFormatXLS, "Sally Moore;")
Docmd.SendEmail(acSendTable,
"tblEmployees", acFormatXLS, "Sally Moore;")
Application.SendEmail(acSendTable,
"tblEmployees", acFormatXLS, "Sally Moore;")
To concatenate two lines of VBA code into one line, insert which character between the two joined lines?
&
,
:
;
In order to prevent users from deleting database objects displayed in the Navigation Pane, what VBA code would be used?
Docmd.LockNavigationPane
True
Me.NavigationPane.Locked = True
CurrentDb.NavigationPane.Locked = True
Application.LockNavigationPane = True
To return the value of the Access database file's path, what VBA code will retrieve the value?
Application.FilePath
CurrentDB.Directory
CurDir
ChDir
How can we declare a subroutine or function in VBA?
Public, Private
Protected, Public, Private
Public, Private,
Friend
Private, Public, Internal
What is a Collection object?
An ordered set of data
An ordered set of objects
An ordered set of same type items
An ordered set
of items
In the statement 'x = 400 * y', what is the maximum value that y can be if x has been declared as in Integer?
81.5
800
81
82
What is PlainText ?
None of the above.
A property
A method
An object
