0405学年第1学期vb考试题及标准答案.docx
- 文档编号:29417823
- 上传时间:2023-07-23
- 格式:DOCX
- 页数:15
- 大小:21.40KB
0405学年第1学期vb考试题及标准答案.docx
《0405学年第1学期vb考试题及标准答案.docx》由会员分享,可在线阅读,更多相关《0405学年第1学期vb考试题及标准答案.docx(15页珍藏版)》请在冰豆网上搜索。
0405学年第1学期vb考试题及标准答案
2004-2005学年第一学期《计算机应用基础》课程试题
命题教师:
审题教师:
题目
一
二
三
四
五
总分
得分
一、填空题(每空1分,共10分)
1.VB中一个整型数据占用的存储空间为字节。
2.表达式Len("程序设计基础ABC")的值为。
3.表达式Val("12.34E-1")的值为。
4.为了在程序运行时把d:
\pic文件夹下的图形文件a.jpg装入图片框Picture1,应使用的语句为。
5.PrivateSubForm_Click()
Dimmsg1AsString,msg2AsString,rAsInteger
msg1="继续吗?
"
msg2="操作对话框"
r=MsgBox(msg1,vbYesNo+vbDefaultButton1,msg2)
EndSub
程序运行后,单击窗体,屏幕会显示一个消息框。
如果直接按回车键,则相当于用鼠标单击消息框中的按钮。
6.语句DimA(-1to2,3to5)用来声明一个二维数组,则这个数组中包含有个数组元素。
7.控件数组中各元素拥有相同的名字,区分控件数组各元素的属性是。
8.“&”可以作为长整型数据的类型符,可以作为八进制或十六进制常量的前导符,还可以做为运算符。
9.VisualBasic提供的对数据文件的三种访问方式为随机访问方式、和二进制访问方式。
10.随机文件记录数据的读取是通过语句实现的。
二、选择题(1-12题每小题1分,13-15题每题2分,共18分)
1.VB中标准模块文件的扩展名是()
A)vbaB)vbsC)basD)mds
2.如果要改变Label的标题,则需要设置属性()
A)CaptionB)NameC)BackColorD)BorderStyle
3.要判断在文本框内是否按下了回车键,可以用文本框的()事件过程。
A)ChangeB)LostFocusC)KeyDownD)GotFocus
4.下列不可以作为VisualBasic变量名的是()
A)张三B)姓名C)thenD)dim1
5.表达式100&"100"+100的值是()
A)300B)C)D)
6.当一个VisualBasic工程有多个窗体时,其中启动窗体是:
()
A)启动VisualBasic时建立的窗体
B)第一个添加的窗体
C)最后一个添加的窗体
D)在“工程属性”对话框中指定的窗体
7.在窗体上画一个命令按,然后编写如下代码:
PrivateSubCommand1_Click()
dimaaslong,baslong
a=Inputbox("请输入第一个数")
b=Inputbox("请输入第二个数")
printa&b
EndSub
程序运行后,单击命令按钮,在两个对话框中先后输入12345和54321,程序的输出结果是()
A)66666B)C)D)出错
8.在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:
OptionBase1
PrivateSubCommand1_Click()
Dimcity()AsVariant
city=Array("北京","上海","天津","重庆")
Printcity
(1)
EndSub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是()
A)空白B)错误提示C)北京D)上海
9.以下能判断文件长度的函数是()
A)BOFB)LOCC)LOFD)EOF
10.如果要在菜单项中显示一个分隔线,则应将其Caption属性设置为()
A)=B)*C)&D)-
11.执行语句Open"Tel.dat"ForInputAs#1后,对数据文件Tel.dat中的数据能够执行的操作是()
A)只能写,不能读B)只能读,不能写
C)既可以读,也可以写D)不能读,不能写
12.设通用对话框控件名称为CD1,希望在打开文件对话框中的“文件类型”列表中包含:
所有文件、WORD文档和文本文件这3类文件,在程序中设置Filter属性时正确的是:
A)CD1.Filter="所有文件|*.*|Word文件|*.doc|文本文件|*.txt"
B)CD1.Filter="所有文件|Word文件|文本文件"
C)CD1.Filter=所有文件|*.*|Word文件|*.doc|文本文件|*.txt
D)CD1.Filter="*.*|所有文件|*.doc|Word文件|*.txt|文本文件"
13.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimaAsInteger,sAsInteger
a=5
s=1
DoWhilea<=0
s=s+a
a=a-1
Loop
Prints;a
EndSub
程序运行后,单击命令按钮,则窗体上显示的内容是()
A)15B)160C)97D)死循环
14.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimnAsInteger,mAsInteger
m=0
Forn=1To20
IfnMod5=0Then
m=m+n\5
EndIf
Nextn
Printm
EndSub
程序运行后,如果单击命令按钮,则窗体上显示的内容是()
A)15B)18C)10D)21
15.在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码:
PrivatexAsInteger
PrivateSubCommand1_Click()
StaticyAsInteger
DimzAsInteger
n=10
z=n+z
y=y+z
x=x+z
Label1.Caption=x
Label2.Caption=y
Label3.Caption=z
EndSub
运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是()
A)101010B)303030C)303010D)103030
三、写出程序运行结果(每小题4分,共20分,结果直接写在题右侧空白处)
1.PrivateSubCommand1_Click()
DimmAsInteger,nAsString
m=Val(InputBox("请输入一个整数"))
Printxx(m)
EndSub
Functionxx(ByValxAsInteger)AsString
DimsAsString,yAsString,nAsInteger
s="abcdef"
y=""
DoWhilex<>0
n=xMod16
y=Mid(s,n+1,1)&y
x=x\16
Loop
xx=y
EndFunction
程序运行后,在输入框中输入30。
运行结果是:
2.PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger,iAsInteger,sumAsInteger
a=1
b=1
sum=a+b
Fori=1To4
c=a+b
sum=sum+c
a=b
b=c
Nexti
Printsum
EndSub
3.PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimsAsString
s=Chr(KeyAscii)
IfInStr("-.",s)=0AndKeyAscii<>8Then
KeyAscii=0
EndIf
EndSub
该段程序的主要功能是:
4.PrivateSubForm_Click()
DimaAsInteger,bAsInteger
a=2:
b=5
Callp1(a,b)
Callp2(a,b)
Print"a=";a,"b=";b
EndSub
Subp1(xAsInteger,yAsInteger)
x=x+1
y=y+2
EndSub
Subp2(ByValxAsInteger,yAsInteger)
x=x+1
y=y+2
EndSub
5.OptionBase1
PrivateSubCommand1_Click()
DimiAsInteger,a(10)AsInteger
Fori=1To10
a(i)=i
Nexti
Fori=1To10
Callswap(a(i),a(10-i+1))
Nexti
Fori=1To10
Printa(i);
Nexti
EndSub
Subswap(xAsInteger,yAsInteger)
DimtAsInteger
t=x
x=y
y=t
EndSub
四、完善程序(每空2分,共20分,请将答案直接填在空格处)
1.以下程序用于求整数范围内最大的一个素数,判断素数由函数ss完成。
Functionss(ByValxAsInteger)AsBoolean
DimkAsInteger,iAsInteger
k=Int(Sqr(x))
Fori=2Tok
IfThenExitFor
Nexti
ss=IIf(,True,False)
EndFunction
PrivateSubCommand1_Click()
DimmAsInteger
Form=To2Step-2
Ifss(m)=TrueThen
MsgBox"整数范围内最大的素数是:
"&m
EndIf
Nextm
EndSub
2.以下程序用于输出1000~5000以内符合条件“千位数字与十位数字之和是百位数字与个位数字之和的10倍”的数并统计个数,如1091和4160就是这样的数,请补充程序。
PrivateSubCommand1_Click()
DimmAsInteger,nAsInteger,xAsInteger
Dima(0To3)AsInteger,iAsInteger
Form=1000To5000
x=m
Fori=0To3
a(i)=
x=x\10
Nexti
IfThen
Printm
EndIf
Nextm
MsgBox"满足条件的数共有:
"&n&"个"
EndSub
3.以下程序中函数gys用于求两个数的最大公约数,主程序调用该函数求从键盘上输入的三个数的最大公约数。
补充程序。
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger
a=Val(InputBox("请输入第一个数"))
b=Val(InputBox("请输入第二个数"))
c=Val(InputBox("请输入第三个数"))
MsgBox"这三个数的最大公约数为:
"&
EndSub
Functiongys(ByValmAsInteger,nAsInteger)AsInteger
DimrAsInteger
Do
r=
Ifr=0ThenExitDo
m=n
n=r
Loop
gys=
EndFunction
五、编程题(共32分,每题8分)
1.计算表达式4!
+8!
+10!
的值,其中阶乘要求用函数完成。
2.有一个数组A(m,n),m,n从键盘输入,数组元素是随机函数产生的[10,99]之间的整数,求该数组四周元素之和。
3.随机产生10个两位整数,按由大到小的顺序排序后输出。
4.有一个名为“F.TXT”的顺序文件,存放着若干学生的学生姓名和计算机成绩,请读出计算机成绩并分类统计人数:
(1)59分以下
(2)60~69(3)70~79(4)80~89(5)90分以上
西北农林科技大学本科课程考试
参考答案与评分标准
考试课程:
计算机应用基础学年学期:
2004~2005学年第1学期
试卷类型:
A卷考试时间:
2004年元月17日
专业年级:
2003级部分专业统考
一、填空题(每空1分,共10分)
1.22.93.1.2344.LoadPicture("d:
\pic\a.jpg")
5.“是”、“yes”、“第一个”均可6.127.Index
8.字符串连接9.顺序访问方式10.Get
二、选择题(1-12题每小题1分,13-15题每题2分,共18分)
CACCDDCCCDBAACC
三、写出程序运行结果(每小题4分,共20分)
1.1e2.203.“限制文本框中数据录入范围”。
只要能答对意思即可
4.a=3b=95.12345678910
四、完善程序(每空2分,共20分)
1.x/i=x\ii=k+132767ExitFor
2.xMod10a(3)+a
(1)=(a
(2)+a(0))*10n=n+1
3.gys(a,gys(b,c))或gys(gys(a,b),c)r=mModngys=n
五、编程题(每题8分,共32分)
1.评分标准
(1)会定义函数,有完整的结构及功能6分
(2)正确调用2分
Functionfact#(ByValn%)
Dimf#,i%
f=1
Fori=1Ton
f=f*i
Nexti
fact=f
EndFunction
PrivateSubCommand1_Click()
Printfact(4)+fact(8)+fact(10)
EndSub
2.评分标准
(1)定义动态数组2分
(2)为数组赋值并输出2分
(3)计算四周元素之和4分,有重复计算酌情扣分。
OptionBase1
PrivateSubCommand1_Click()
Dimm%,n%,i%,j%,s%
m=Val(InputBox("请输入数组行数"))
n=Val(InputBox("请输入数组列数"))
ReDima%(m,n)
Fori=1Tom
Forj=1Ton
a(i,j)=Int(Rnd*90)+10
Printa(i,j);
Nextj
Nexti
Fori=1Tom
s=s+a(i,1)+a(i,n)
Nexti
Fori=2Ton-1
s=s+a(1,i)+a(m,i)
Nexti
Print"数组四周元素之和为:
"&s
EndSub
3.评分标准
(1)会定义数组1分
(2)为数组赋值并输出2分
(3)可以选用任何方式排序4分
(4)输出排序结果1分
OptionBase1
PrivateSubCommand1_Click()
Dimi%,j%,a%(10),t%
Fori=1To10
a(i)=Int(Rnd*90)+10
Printa(i);
Nexti
Fori=1To9
Forj=i+1To10
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 0405 学年 学期 vb 考试题 标准答案