计算机Vb语言考试题及答案

计算机Vb语言考试题及答案一、选择题（8题，每题3分，共24分）

1.下列哪个不是VBA的数据类型？

A.Integer

B.String

C.Boolean

D.Float

2.在VBA中，如何声明一个静态变量？

A.DimstaticVarAsInteger

B.StaticstaticVarAsInteger

C.DimstaticVarAsIntegerStatic

D.VarstaticVarAsInteger

3.以下哪个函数用于获取当前系统的日期？

A.Now()

B.Date()

C.Today()

D.CurrentDate()

4.在VBA中，哪个语句用于退出当前循环？

A.ExitLoop

B.ExitFor

C.Break

D.StopLoop

5.以下哪个不是VBA中的逻辑运算符？

A.And

B.Or

C.Xor

D.Not

6.在VBA中，如何对字符串进行左对齐？

A.StrLeft()

B.StrAlignLeft()

C.StringAlignLeft()

D.StrLeftAlign()

7.以下哪个函数用于将字符串转换为小写？

A.UCase()

B.LCase()

C.StrToLower()

D.ToLower()

8.在VBA中，哪个对象用于操作Excel工作簿？

A.Workbook

B.WorkSheet

C.Application

D.Document

二、（一）多项选择题（5题，每题4分，共20分）

1.下列哪些是VBA的常用控件？

A.CommandButton

B.TextBox

C.ListBox

D.ComboBox

E.ListBox

2.以下哪些是VBA中的数据结构？

A.数组

B.集合

C.字典

D.栈

E.队列

3.在VBA中，以下哪些语句可以用于条件判断？

A.If...Then...Else

B.For...Next

C.While...Wend

D.SelectCase

E.If...Then

4.以下哪些是VBA中的常用函数？

A.Len()

B.Trim()

C.Replace()

D.Find()

E.Split()

5.在VBA中，以下哪些是常用的错误处理语句？

A.OnErrorResumeNext

B.OnErrorGoTo

C.Err()

D.RaiseError()

E.Debug

（二）判断题（5题，每题2分，共10分）

1.VBA中的变量声明必须指定数据类型。（）

2.VBA中的循环语句只能使用For和While。（）

3.VBA中的字符串可以用"+"进行拼接。（）

4.VBA中的数组可以动态调整大小。（）

5.VBA中的子程序和函数可以互相调用。（）

三、（一）填空题（5题，每题4分，共20分）

1.在VBA中，使用_______语句来结束一个过程。

2.VBA中的_______函数用于获取当前系统的时间。

3.在VBA中，使用_______运算符来比较两个值是否相等。

4.VBA中的_______对象用于操作Excel单元格。

5.在VBA中，使用_______语句来跳出当前循环。

（二）计算题（2题，每题5分，共10分）

1.编写一个VBA程序，计算1到100的累加和。

2.编写一个VBA程序，判断一个字符串是否为回文。

四、综合题（2题，每题15分，共30分）

1.编写一个VBA程序，实现一个简单的计算器，可以完成加、减、乘、除四种运算。

2.编写一个VBA程序，读取Excel工作簿中的数据，并统计每个学生的平均成绩。

五、材料分析题（1题，20分）

假设有一个Excel工作簿，其中包含学生的姓名、成绩和课程信息，请编写一个VBA程序，实现以下功能：

1.筛选出成绩大于80分的学生。

2.计算每个课程的平均成绩。

3.将筛选出的学生信息输出到一个新的工作表中。

答案部分：

一、选择题

1.D

2.B

3.B

4.B

5.D

6.A

7.B

8.A

二、（一）多项选择题

1.A,B,C,D

2.A,B,C,D,E

3.A,C,D,E

4.A,B,C,D,E

5.A,B,C,D,E

（二）判断题

1.√

2.×

3.√

4.√

5.√

三、（一）填空题

1.End

2.Now

3.=

4.Range

5.ExitFor

（二）计算题

1.SubSum()

DimsumAsLong

sum=0

Fori=1To100

sum=sum+i

Nexti

MsgBoxsum

EndSub

2.SubIsPalindrome(strAsString)

DimleftAsInteger

DimrightAsInteger

left=1

right=Len(str)

DoWhileleft<right

IfMid(str,left,1)<>Mid(str,right,1)Then

MsgBox"Notapalindrome"

ExitSub

EndIf

left=left+1

right=right-1

Loop

MsgBox"Palindrome"

EndSub

四、综合题

1.SubCalculator()

Dimnum1AsDouble

Dimnum2AsDouble

DimresultAsDouble

DimopAsString

num1=InputBox("Enterfirstnumber")

num2=InputBox("Entersecondnumber")

op=InputBox("Enteroperator(+,-,*,/)")

SelectCaseop

Case"+"

result=num1+num2

Case"-"

result=num1-num2

Case"*"

result=num1*num2

Case"/"

result=num1/num2

CaseElse

MsgBox"Invalidoperator"

ExitSub

EndSelect

MsgBox"Result:"&result

EndSub

2.SubAverageScore()

DimwsAsWorksheet

Setws=ThisWorkbook.Sheets("Sheet1")

DimlastRowAsLong

lastRow=ws.Cells(ws.Rows.Count,"A").End(xlUp).Row

DimtotalAsDouble

DimcountAsInteger

DimavgAsDouble

Fori=2TolastRow

total=total+ws.Cells(i,3).Value

count=count+1

Nexti

avg=total/count

MsgBox"Averagescore:"&avg

EndSub

五、材料分析题

SubAnalyzeData()

DimwsAsWorksheet

Setws=ThisWorkbook.Sheets("Sheet1")

DimlastRowAsLong

lastRow=ws.Cells(ws.Rows.Count,"A").End(xlUp).Row

DimnewWsAsWorksheet

SetnewWs=ThisWorkbook.Sheets.Add

newWs.Name="SelectedStudents"

DimiAsInteger

Fori=2TolastRow

Ifws.Cells(i,3).Value>80Then

newWs.Cells(newWs.Rows.Count,"A").End(xlUp).Offset(1,0).Value=ws.Cells(i,1).Value

newWs.Cells(newWs.Rows.Count,"B").End(xlUp).Offset(1,0).Value=ws.Cells(i,2).Value

newWs.Cells(newWs.Rows.Count,"C").End(xlUp).Offset(1,0).Value=ws.Cells(i,4).Value

EndIf

Nexti

DimcourseAsString

DimcourseCountAsInteger

DimcourseTotalAsDouble

DimcourseAvgAsDouble

DimjAsInteger

DimkAsInteger

Fori=2TolastRow

course=ws.Cells(i,4).Value

courseCount=0

courseTotal=0

Forj=2TolastRow

Ifws.Cells(j,4).Value=courseThen

courseCount=courseCount+1

courseTotal=courseTotal+ws.Cells(j,3).Value

En