VB程序设计期末考试题修改后范文.docx
- 文档编号:26178476
- 上传时间:2023-06-17
- 格式:DOCX
- 页数:19
- 大小:21.16KB
VB程序设计期末考试题修改后范文.docx
《VB程序设计期末考试题修改后范文.docx》由会员分享,可在线阅读,更多相关《VB程序设计期末考试题修改后范文.docx(19页珍藏版)》请在冰豆网上搜索。
VB程序设计期末考试题修改后范文
VB程序设计期末考试题
学号班别姓名评分
一、单项选择题:
(每小题1分,共35分)
1.下列不能打开属性窗口的操作是()
A.执行“视图”菜单中的“属性窗口”命令。
B.按F4键
C.按Ctrl+T
D.单击工具栏上的属性窗口按钮。
2.下列可以打开立即窗口的操作是()
A.Ctrl+D
B.Ctrl+E
C.Ctrl+F
D.Ctrl+G
3.InputBox返回值的类型为
A.数值
B.字符串
C.变体
D.数值或字符串(视输入的数据而定)
4.可以同时删除字符串前导和尾部空格的函数是()
A.Ltrim
B.Rtrim
C.Trim
D.Mid
5.表达式Int(68.555*100+0.5)/100的值是()
A.68.54
B.68.56
C.68.55
D.68.5
6.如果在立即窗口中执行以下操作:
a=8
b=9
printa>b
则输出结果是()
A.-1
B.0
C.False
D.True
7.以下语句的输出结果是()
PrintFormat(32548.5,”000,000.00”)
A.32548.5
B.32,548.5
C.032,548.50
D.32,548.50
8.执行以下程序段后,变量C$的值为()
a$=”VisualBasicPrograming”
b$=”Quick”
c$=b$&UCase(Mid$(a$,7,6))&Right(a$,11)
A.VisualBASICPrograming
B.QuickBasicPrograming
C.QUICKBasicPrograming
D.QuickBASICPrograming
9.为了在按下鼠标左键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是()
A.Value
B.Enabled
C.Cancel
D.Default
10.为了把焦点移到某个指定的控件,所使用的方法是()
A.SetFocus
B.Visible
C.Refresh
D.GetFocus
11.设a=6,同执行x=IIF(a>5,-1,0)后,x的值为()
A.5
B.6
C.0
D.-1
12.执行下面的程序段后,x的值为()
X=5
Fori=1to20Step2
X=x+i\5
Nexti
A.21
B.22
C.23
D.24
13.在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Fori=1to4
X=4
Forj=1to3
X=3
Fork=1to2
X=x+6
Nextk
Nextj
Nexti
Printx
EndSub
程序运行后,单击命令按钮,输出结果是()
A.7.
B.15
C.157
D.538
14.在窗体上画一个命令命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
X=0
DoUntilx=-1
A=InputBox(“请输入A的值”)
A=Val(a)
B=InputBox(“请输入B的值”)
B=Val(b)
X=InputBox(“请输入X的值”)
X=Val(x)
A=a+b+x
Loop
Printa
EndSub
程序运行后,单击命令按钮,依次在输入对话框中输入5,4,3,2,1,-1;则输入出结果为()
A.2
B.3
C.14
D.15
15.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程:
PrivateSubCommand1_Click()
A=Text1.Text+Text2.Text
Printa
EndSub
PrivateSubForm_Load()
Text1.Text=””
Text2.Text=””
EndSub
程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为()
A.444
B.
C.
D.
16.阅读下面的程序段:
Fori=1to3
Forj=1toi
Fork=jto3
A=a+1
Nextk
Nextj
Nexti
执行上面的三重循环后,a的值为()
A.3
B.9
C.14
D.21
17.在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程:
PrivateSubForm_Load()
Text1.Text=””
Text1.SetFocus
Fori=1to10
Sum=sum+1
Nexti
Text1.Text=sum
EndSub
上述程序运行的结果是()
A.在文本框Text1中输出55
B.在文本框Text1中输出0
C.出错
D.在文本框Text1中输出不定值
18.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程:
PrivateSubCommand1_Click()
X=0
DoWhilex<50
X=(x+2)*(x+3)
N=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
EndSub
程序运行后,单击命令按钮,在两个文本框中显示的值分别为()
A.1和0
B.2和72
C.3和50
D.4和168
19.用下面语句定义的数组的元素个数是()
DimA(-3to5)AsInteger
A.6
B.7
C.8
D.9
20.以下程序的输出结果是()
OptionBasei
PrivateSubCommand1_Click()
DimA(10),P(3)AsInteger
K=5
Fori=1to10
A(i)=i
Nexti
Fori=1to3
K=k+p(i)*2
Nexti
Printk
EndSub
A.33
B.28
C.35
D.37
21.在窗体上面画一个命令按钮,然后编写如下事件过程:
OptionBase1
PrivateSubCommand1_Click()
Dima
A=Array(1,2,3,4)
J=1
Fori=4to1Step-1
S=s+a(i)*j
J=j*10
Nexti
Prints
EndSub
运行上面的程序,单击命令按钮,其输出结果是()
A.4321
B.12
C.34
D.1234
22.在窗体上面画一个命令按钮(其Name属性为Command1),然后编写如下代码:
OptionBasei
PrivateSubCommand1_Click()
Dima(4,4)
Fori=1to4
Forj=1to4
A(I,j)=(i-1)*3+j
Nextj
Nexti
Fori=3to4
Forj=3to4
Printa(j,i)
Nextj
Nexti
EndSub
程序运行后,单击命令按钮,其输出结果为()
A.69B.710C.811D.912
710819121013
23.假定有如下的Sub过程:
SubS(xAsSingle,yAsSingle)
T=x
X=t/y
Y=tMody
EndSub
在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimaAsSingle
DimbAsSingle
A=5
B=4
Sa,b
Printa,b
EndSub
程序运行后,单击命令按钮,输出结果为()
A.54
B.11
C.1.254
D.1.251
24.阅读程序:
FunctionF(aAsInteger)
B=0
Staticc
B=b+1
C=c+1
F=a+b+c
EndFunction
PrivateSubCommand1_Click()
DimaASInteger
A=2
Fori=1to3
PrintF(a)
Nexti
EndSub
运行上面的程序,单击命令按钮,输出结果为()
A.4B.4C.4D.4
4567
4689
25.阅读程序:
SubsubP(b()AsInteger)
Fori=1to4
B(i)=2*i
Nexti
EndSub
PrivateSubCommand1_Click()
DimA(1to4)AsInteger
A
(1)=5
A
(2)=6
A(3)=7
A(4)=8
SubPa()
Fori=1to4
Printa(i)
Nexti
EndSub
运行上面的程序,单击命令按钮,输出结果为()
A.2B.5C.8D.出错
4610
4612
6714
8816
26.下列不能打开菜单编辑器的操作是()
A.按Ctrl+E
B.单击工具栏中“菜单编辑器”按钮
C.执行“工程”菜单中的“菜单编辑器”命令
D.按Shift+Alt+M
27.假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为()
A.MenuItem.Enabled=False
B.MenuItem.Enabled=True
C.MenuItem.Visible=True
D.MenuItem.Visible=False
28.在程序运行期间,如果拖动滚动条上的滚动块,则触发的滚动条事件是()
A.Move
B.Change
C.Scroll
D.GetFocus
29.假定窗体上有一个标签,名为Label1,为了使该标签透明并且没有边框,则正确的属性设置为()
A.Label1.BackStyle=0
Lbael1.BorderStyle=0
B.Label1.BackStyle=1
Lbael1.BorderStyle=1
C.Label1.BackStyle=True
Lbael1.BorderStyle=True
D.Label1.BackStyle=False
Lbael1.BorderStyle=False
30.在窗体上画一个列表框和一个文本框,然后编写如下两个事件过程:
PrivateSubForm_Load()
List1.AddItem”357”
List1.AddItem”246”
List1.AddItem”123”
List1.AddItem”456”
Text1.Text=””
EndSub
PrivateSubList1_DblClick()
A=List1.Text
Printa+Text1.Text
EndSub
程序运行后,在文本框中输入“789”,然后双击列表框中的“456”,则输出结果为()
A.1245
B.
C.
D.0
31.为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是()
A.Visible
B.Timer
C.Enabled
D.Interval
32.为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为()
A.Get文件号,记录号,变量名
B.Get文件号,变量名,记录号
C.Put文件号,变量名,记录号
D.Put文件号,变量名,记录号
33.对窗体编写如下事件过程:
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2then
Print“AAAAA”
EndIf
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Print“BBBBB”
EndSub
程序运行后,如果单击鼠标右键,则输出结果为()
A.AAAAA B.BBBBB C.AAAAA D.BBBBB
BBBBB AAAAA
34.为了在运行时能显示窗体左上角的控制框(系统菜单),必须()
A.把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1
B.把窗体的ControlBox属性设置为False,其他属性任意
C.把窗体的ControlBox属性设置为False,同时把BoderStyle属性设置为非0值
D.把窗体的ControlBox属性设置为True,把窗体的ControlBox属性设置为0值
35.对窗体编写如下代码:
OptionBase1
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
A=Array(237,126,87,48,498)
M1=a
(1)
M2=i
IfKeyAscii=13then
Fori=2to5
Ifa(i)>m1then
M1=a(i)
M2=i
Endif
Nexti
Endif
Printm1
Printm2
EndSub
程序运行后的输出结果为()
A.48
B.237
C.498
D.87
二、填空题(每小题3分,共30分)
1.设有如下的VisualBasic表达式
5*x^2-3*x-2*Sin(a)/3,则它的数学表达式为
2.执行下面的程序段后,S的值为9
S=5
Fori=2.6to4.9step0.6
S=s+1
Nexti
3.表达式Fix(-32.86)+Int(-23.02)的值为-56
4.为了在运行时把图形文件Picfile.jpg装入图片Picture1,所使用的语句法为Picture1.picture=LoadPicture(“Picfile.jpg”)
5.在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
A=InputBox(“请输入一个整数”)
B=InputBox(“请输入一个整数”)
Printa+b
程序运行后,单击命令按钮,在输入对话框中分别输入321和456,则输出结果为
6.执行下面的程序段后,B的值为300
A=300
B=20
A=a+b
B=a-b
A=a-b
7.以下程序段的输出结果是1
Num=0
Whilenum<=2
Num=num+1
Printnum
Wend
8.在窗体画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Dima(1to10)
Dimp(1to3)
K=5
Fori=1to10
A(i)=i
Nexti
Printk
EndSub
程序运行后,单击命令按钮,输出结果是33
9.在窗体上画一个命令按钮,然后编写如下过程:
Functionfun(ByValnumAsLong)AsLong
DimkAsLong
K=1
Num=Abs(num)
DoWhilenum
K=k*(numMod10)
Num\num\10
Loop
Fun=k
EndFunction
DimnAsLong
DimAsLong
N=InputBox(“请输入一个数”)
N=Clng(n)
Printr
EndSub
程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为24
10.如果要将某个菜单项设计为分隔线,则该菜单项的标题应设置为-(减号)
三、编程题(第1题10分,第2题15分)
1、求1到100之间所有偶数的和。
2、设计一个程序,程序名为“PRG2,功能是根据分数>=90,>=80,>=60,<60,返回优秀,良好,及格,不及格。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 期末 考试题 修改 范文