程序考题的解题技巧应用题集.docx
- 文档编号:14471015
- 上传时间:2023-06-23
- 格式:DOCX
- 页数:16
- 大小:69.39KB
程序考题的解题技巧应用题集.docx
《程序考题的解题技巧应用题集.docx》由会员分享,可在线阅读,更多相关《程序考题的解题技巧应用题集.docx(16页珍藏版)》请在冰点文库上搜索。
程序考题的解题技巧应用题集
笔试题中程序考题的解题技巧题集
有关程序考题的类型:
1.基本概念类:
考查几个结构的基本用法(基本概念贯穿于整个考试中)
1、假定有以下循环结构
DoUntil条件
循环体
Loop
则正确的描述是
(A)如果“条件”是一个为0的常数,则一次循环体也不执行
(B)如果“条件”是一个为0的常数,则至少执行一次循环体
(C)如果“条件”是一个不为0的常数,则至少执行一次循环体
(D)不论“条件”是否为“真”,至少要执行一次循环体
3、以下程序段执行后,输入10则输出结果为()
x=InputBox("enteraninteger")
x=Cint(x)
SelectCasex
CaseIs<=0
y=0
CaseIs<=10
y=5+2*x
CaseIs<=15
y=x-5
CaseIs>15
y=0
EndSelect
MsgBoxy
15、以下程序运行后,
a=5
fork=lto0
a=a+k
nextk
msgboxk&a
输出结果为()
19、以下程序运行后,输出结果为()
Fori=0To50
i=i+3
n=n+1
Ifi>10ThenExitFor
Nexti
Me!
text1=Str(n)
2.求值类:
给定一段程序,求程序运行后某些变量的值
3、以下程序段的输出结果为
x=1
y=4
DoUntily>4
x=x*y
y=y+1
Loop
MsgBoxx
(A)1(B)4(C)8(D)20
5、执行下面的程序段后,x的值为
x=5
Fori=1To20Step2
x=x+i\5
Nexti
(A)21(B)22(C)23(D)24
6、在窗体上画一个命令按钮,然后编写如下事件过程:
privatesubcommand1_click()
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Nexti
MsgBoxx
endsub
程序运行后,单击命令按钮,输出的结果是
(A)7(B)15(C)157(D)538
7、在窗体上画一个命令按钮,然后编写如下事件过程:
privatesubcommand1_click()
x=0
DoUntilx=-1
a=InputBox("请输入a的值")
a=Val(a)'val字符转数值函数,见书218页
b=InputBox("请输入b的值")
b=Val(b)
x=InputBox("请输入x的值")
x=Val(x)
a=a+b+x
Loop
MsgBoxa
endsub
程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出的结果是
(A)2(B)3(C)14(D)15
8、阅读下面的程序段:
Fori=1To3
Forj=1Toi
Fork=jTo3
a=a+1
Nextk
Nextj
Nexti
执行上面的3重循环后,a的值为
(A)3(B)9(C)14(D)21
9、在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:
privatesubform_load()
Me.text1=""
Me.text1.SetFocus'设置文本框text1为焦点,即光标所选控件
ForI=1To10
sum=sum+I
NextI
Me.text1=sum
endsub
上述程序的运行结果是
(A)在文本框Text1中输出55(B)在文本框Text1中输出0
(C)出错(D)在文本框Text1中输出不定值
10、在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为command1),然后编写如下事件过程:
privatesubcommand1_click()
x=0
DoWhilex<50
x=(x+2)*(x+3)
n=n+1
Loop
Me.text1=Str(n)'str为数值转字符函数,见书218页
Me.text2=Str(x)
endsub
程序运行后,单击命令按钮,在两个文本框中显示的值分别为
(A)1和0(B)2和72(C)3和50(D)4和168
3.求循环次数类:
给定一段程序,求程序运行后某些语句的执行次数
2、假定有以下程序段
Fori=1To3
Forj=5To1Step-1
MsgBoxi*j
Nextj,i//等价于nextinextj两条语句
则语句msgboxi*j的执行次数是
(A)15(B)16(C)17(D)18
7、以下循环的执行次数是()
k=0
DoWhilek<=10
k=k+1
Loop
4.补充语句类:
给定一段留有空白的程序,根据已知条件补充空白处,使程序完整正确。
4、设有以下的循环:
x=1
Do
x=x+2
MsgBoxx
LoopUntil_________
程序运行后,要执行3次循环体,请填空。
5、以下程序的功能是:
从键盘上输入若干个学生的考试分数,统计并输出最高分数和最低分数,当输入负数时结束输入,输出结果。
请填空
Privatesubform_click()
Dimx,amax,aminAsSingle
x=InputBox("enterascore")
amax=x
amin=x
DoWhile________
Ifx>amaxThen
amax=x
EndIf
If_______Then
amin=x
EndIf
x=InputBox("enterascore")
Loop
MsgBox"max="&amax&"min="&amin
Endsub
21、下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。
Dima(10)
Forj=1to10
a(j)=int(____________)
if_____________thenk=k+1
msgboxa(j)
nextj
msgboxk/10
22、窗体上画一个名称为text1的文本框,和一个名称为option1的选项按钮组。
程序运行后单击某个选项按钮,文本框中的内容就会变成其字体。
PrivateSuboption1_Click()
SelectCase_________
case1
a=”宋体”
case2
a=”黑体”
case3
a=”楷体_GB2312”
endselect
text1.__________=a
endsub
23、下面的程序用来随机产生0或1的整数,使用标签label1和label2分别显示1和0各自出现的次数。
使用一个名为“显示”的命令按钮,单击这个按钮,显示结果如图,请填空。
PrivateSubCommand1_Click()
randomize
Fori=1to10
_____=int(Rnd*2)
Ifx=______then
n1=n1+1
Else
n2=n2+1
Endif
Next
Label1.__________=n1
Label2.__________=n2
Endsub
24、在窗体上画一个名称为command1的命令按钮和一个名称为text1的文本框。
程序运行后,command1为禁用(灰色)。
当向文本框中输入任何字符时,命令按钮command1变为可用。
Privatesubform_load()
Command1.enabled=false
Endsub
Privatesubtext1________()
Command1.enabled=true
Endsub
5.给子过程或函数过程传递参数类
2、假定有如下的Sub过程:
SubS(xAsSingle,YAsSingle)
t=x
x=t/Y
Y=tModY
EndSub
在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimaAsSingle
DimbAsSingle
a=5
b=4
CallS(a,b)
MsgBoxa&b
EndSub
程序运行后,单击命令按钮,输出结果为()
3、阅读程序:
Functionf(aAsInteger)
b=0
Staticc
b=b+1
c=c+1
f=a+b+c
EndFunction
PrivateSubcommand1_click()
DimaAsInteger
a=2
Fori=1To3
MsgBoxf(a)
Nexti
EndSub运行上面的程序,单击命令按钮,输出结果为()
6、在窗体上画一个命令按钮,然后编写如下程序:
Functionfun(ByValnumAsLong)AsLong
DimkAsLong
k=1
num=Abs(num)
DoWhilenum
k=k*(numMod10)
num=num\10
Loop
fun=k
EndFunction
PrivateSubCommand1_Click()
DimnAsLong
DimrAsLong
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
MsgBoxr
EndSub程序运行后,单击命令按钮,在输入对话框中输入”234”,输出结果为()
6.在程序中查找数据类
(13)现有用户登录界面如下:
窗体中名为username的文本框用于输入用户名,名为pass的文本框用于输入用户的密码。
用户输入用户名和密码后,单击“登录”名为login的按钮,系统查找名为“密码表”的数据表,如果密码表中有指定的用户名且密码正确,则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”;如果用户名或密码输入错误,则给出相应的提示信息。
密码表中的字段均为文本类型,数据如下图。
密码表
用户名
密码
权限
Chen
1234
Zhang
5678
管理员
Wang
1234
单击“登录”按钮后相关的事件代码如下,请补充完整。
PrivateSublogin_Click()
DimstrAsString
DimrsAsNewADODB.Recordset
DimfdAsADODB.Field
Setcn=CurrentProject.Connection
Logname=Trim(Me!
username)
Pass=Trim(Me!
pass)
IfLen(Nz(logname))=0Then
MsgBox“请输入用户名”
ElseIfLen(Nz(pass))=0Then
MsgBox“请输入密码”
Else
str=“select*from密码表where用户名=‘”&logname&
“’and密码=‘“&pass&”‘“
rs.Openstr,cn,adOpenDynamic,adLockOptimistic,adCmdText
If【14】_____________Then
MsgBox“没有这个用户名或密码输入错误,请重新输入”
Me.username=””
Me.pass=””
Else
Set【15】___________=rs.Fields(“权限”)
Iffd=“管理员“Then
DoCmd.Close
DoCmd.OpenForm“管理员窗体”
MsgBox“欢迎您,管理员“
Else
DoCmd.Close
DoCmd.OpenForm“用户窗体”
MsgBox“欢迎使用会员管理系统“
EndIf
EndIf
EndIf
EndSub
7.在程序中修改数据类
(13)”学生成绩”表含有字段(学号,姓名,数学,外语,专业,总分)。
下列程序的功能是:
计算每名学生的总分(总分=数学+外语+专业)。
请在程序空白处填入适当语句,使程序实现所需要的功能。
PrivateSubCommand1_Click()
DimcnAsNewadodb.Connection
DimrsAsNewadodb.Recordset
DimzongfenAsadodb.Field
DimshuxueAsadodb.Field
DimwaiyuAsadodb.Field
DimzhuanyeAsadodb.Field
DimstrsqlAsString
Setcn=CurrentProject.Connection
strsql="select*from成绩表"
rs.Openstrsql,cn,adOpenDynamic,adLockOptimistic,adCmdText
Setzongfen=rs.Fields("总分")
Setshuxue=rs.Fields("数学")
Setwaiyu=rs.Fields("外语")
Setzhuanye=rs.Fields("专业")
DoWhile【14】_______
zongfen=shuxue+waiyu+zhuanye
【15】__________
rs.MoveNext
Loop
rs.Close
cn.Close
Setrs=Nothing
Setcn=Nothing
EndSub
(13)数据库中有工资表,包括“姓名”、“工资”和“职称”等字段,现要对不同职称的职工增加工资,规定教授职称增加15%,副教授职称增加10%,其他人员增加5%。
下列程序的功能是按照上述规定调整每位职工的工资,并显示所涨工资之总和。
请在空白处填入适当的语句,使程序可以完成指定的功能。
PrivateSubCommand5_Click()
DimwsAsDAO.Workspace
DimdbAsDAO.Database
DimrsAsDAO.Recordset
DimgzAsDAO.Field
DimzcAsDAO.Field
DimsumAsCurrency
DimrateAsSingle
Setdb=CurrentDb()
Setrs=db.OpenRecordset("工资表")
Setgz=rs.Fields("工资")
Setzc=rs.Fields("职称")
sum=0
DoWhileNot【14】___________
rs.Edit
SelectCasezc
CaseIs="教授"
rate=0.15
CaseIs="副教授"
rate=0.1
CaseElse
rate=0.05
EndSelect
sum=sum+gz*rate
gz=gz+gz*rate
【15】______________
rs.MoveNext
Loop
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing
MsgBox"涨工资总计:
"&sum
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序 考题 解题 技巧 应用题