access数据库编程题题目共10套.docx

access数据库编程题题目共10套.docx

《access数据库编程题题目共10套.docx》由会员分享，可在线阅读，更多相关《access数据库编程题题目共10套.docx（31页珍藏版）》请在冰豆网上搜索。

access数据库编程题题目共10套

PrivateSubCommand1_Click（）

'''不得删除本行注释

TxtWelCome.Value="欢迎使用VBA！

"

EndSub

一-2

PrivateSubCommand1_Click（）

'''不得删除本行注释

Dims%,i%,M%,N%

M=Text1.Value

N=Text2.Value

s=0

Fori=MToN

s=s+i

Next

Label1.Caption=s

EndSub

一-3

PrivateSubCommand1_Click（）

'''不得删改本行注释

DimrsAsADODB.Recordset

DimstrSQLAsString

Setrs=NewADODB.Recordset

strSQL="Select*fromcoursewhere课程编号='"&Text1.Value&"'"'本行需要补充代码

rs.OpenstrSQL,CurrentProject.Connection,2,2'本行需要补充代码

Ifrs.EOFThen

rs.AddNew

rs（"课程编号"）=Text1

rs（"课程名称"）=Text2

rs（"学时"）=Text3

rs（"学分"）=Text4'本行需要补充代码

rs.Update

EndIf

rs.Close

Setrs=Nothing

EndSub

二-1

PrivateSubCommand1_Click（）

'''不得删除本行注释

Label1.Visible=True

EndSub

PrivateSubCommand2_Click（）

'''不得删除本行注释

Label1.Visible=False

EndSub

二-2

PrivateSubCommand1_Click（）

'''不得删除本行注释

DimxAsInteger,yAsInteger,zAsInteger

x=Text1.Value

y=Text2.Value

IfFrame1.Value=1Then

z=x+y

ElseIfFrame1.Value=2Then

z=x-y

Else

z=x*y

EndIf

Label6.Caption=z

EndSub

二-3

PrivateSubCommand1_Click（）

'成绩等级评定

'***UserCodeBegin***

DimrsAsADODB.Recordset

Setrs=NewADODB.Recordset'本行需补充代码

rs.Open"select*from学生",CurrentProject.Connection,2,2

DoWhileNotrs.EOF（）'本行需补充代码

SelectCasers（"综合分"）

CaseIs>=90

rs（"等级"）="优秀"

CaseIs>=80

rs（"等级"）="良好"'本行需补充代码

CaseIs>=70

rs（"等级"）="中等"

CaseIs>=60

rs（"等级"）="及格"

CaseElse

rs（"等级"）="不及格"'本行需补充代码

EndSelect

rs.Update'本行需补充代码

rs.MoveNext

Loop

rs.Close

Setrs=Nothing

'***UserCodeEnd***

等级评定后学生信息.Form.RecordSource="select*from学生"

MsgBox"完成等级评定！

",0+64,"提示"

EndSub

三-1

PrivateSubCommand1_Click（）

'''不得删除本行注释

Label1.ForeColor=RGB（255,0,0）

EndSub

PrivateSubCommand2_Click（）

'''不得删除本行注释

Label1.ForeColor=RGB（0,0,255）

EndSub

三-2

PrivateSubCommand1_Click（）

'''不得删除本行注释

DimaAsInteger,bAsInteger

a=Text1.Value

b=Text2.Value

Ifa>bThen

Label1.Caption="a>b"

ElseIfa=bThen

Label1.Caption="a=b"

Else

Label1.Caption="a

EndIf

EndSub

三-3

PrivateSubCombo1_Change（）

'''不得删改本行注释

DimrsAsADODB.Recordset

DimstrSQLAsString

Setrs=NewADODB.Recordset

strSQL="Select*Frombookwhere书号='"&Combo1.Value&"'"'本行需要补充代码

rs.OpenstrSQL,CurrentProject.Connection,2,2'本行需要补充代码

IfNotrs.EOF（）Then

Text1=rs（"书名"）

Text2=rs（"单价"）

Text3=rs（"数量"）

Text4=rs（"单价"）*rs（"数量"）'本行需要补充代码

EndIf

rs.Close

Setrs=Nothing

EndSub

四-1

PrivateSubCommand1_Click（）

'''不得删除本行注释

TxtEnabled.Enabled=True

EndSub

PrivateSubCommand2_Click（）

'''不得删除本行注释

TxtEnabled.Enabled=False

EndSub

四-2

PrivateSubCommand1_Click（）

'按分段函数求y

DimxAsSingle,yAsSingle

'***CodeBegin***

x=Text1.Value

Ifx<=0Then

y=Abs（x-5）

ElseIfx<=5Then

y=Sqr（x^2-1）

Else

y=3*x-2

EndIf

Label3.Caption=y

'***CodeEnd***

EndSub

四-3

PrivateSubCommand1_Click（）

'按姓名查找教师信息

'***UserCodeBegin***

Dimf_markAsBoolean

DimSQLstrAsString

DimrsAsADODB.Recordset'本行需补充代码

Setrs=NewADODB.Recordset

SQLstr="select教师.姓名,教师.性别,教师.出生日期,教师.职称,专业.专业名称from教师,专业where教师.专业编号=专业.专业编号"

rs.OpenSQLstr,CurrentProject.Connection,2,2'本行需补充代码

f_mark=False

DoWhileNotrs.EOF（）AndNotf_mark

Ifrs（"姓名"）=Text1.ValueThen'本行需补充代码

Text2.Value=rs（"姓名"）

Text3.Value=rs（"性别"）

Text4.Value=rs（"出生日期"）

Text5.Value=rs（"专业名称"）

SelectCasers（"职称"）'本行需补充代码

Case"讲师"

Frame1.Value=1

Case"副教授"'本行需补充代码

Frame1.Value=2

Case"教授"

Frame1.Value=3'本行需补充代码

EndSelect

f_mark=True

EndIf

rs.MoveNext'本行需补充代码

Loop

IfNotf_markThen

MsgBox"查无此人!

",0+64,"提示"

EndIf

rs.Close

Setrs=Nothing

'***UserCodeEnd***

EndSub

五-1

PrivateSubComboFont_Change（）

'''不得删除本行注释

TxtTest.FontName=ComboFont.Value

EndSub

五-2

PrivateSubCommand1_Click（）

'''不得删除本行注释

DimxAsInteger

x=Text1.Value

Ifx<0Then

Label1.Caption="请输入一个自然数"

ElseIfxMod2=0Then

Label1.Caption=x&"是偶数"

Else

Label1.Caption=x&"是奇数"

EndIf

EndSub

五-3

PrivateSubCommand1_Click（）

DimrsAsADODB.Recordset

DimstrSQLAsString'用于存储SQL语句

strSQL="Select姓名FromExamStuWhere生源='"&Text1.Value&"'"'本行需要补充代码

Setrs=NewADODB.Recordset'本行需要补充代码

rs.OpenstrSQL,CurrentProject.Connection,2,2

DoWhileNotrs.EOF'本行需要补充代码

List1.AddItemrs（"姓名"）

rs.MoveNext

Loop

rs.Close

Setrs=Nothing

EndSub

六-1

PrivateSubListFontS_Click（）

'''不得删除本行注释

TxtTest.FontSize=ListFontS.Value

EndSub

六-2

PrivateSubCommand1_Click（）

'字符串转换

'***CodeBegin***

Dimstr1AsString,str2AsString,charAsString

DimnAsInteger

str1=