計算機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