vb题库2套Word文档格式.docx
《vb题库2套Word文档格式.docx》由会员分享,可在线阅读,更多相关《vb题库2套Word文档格式.docx(12页珍藏版)》请在冰豆网上搜索。
![vb题库2套Word文档格式.docx](https://file1.bdocx.com/fileroot1/2022-11/30/86ba750a-257c-4260-90f9-2d5779e24669/86ba750a-257c-4260-90f9-2d5779e246691.gif)
B:
P1234
C:
89TasFF
D:
xy
C
InputBox函数的返回值的类型为______.
数值
字符串
逻辑值
日期值
B
指令"
Circle(1000,1000),500,8,-6,-3"
将绘制
画圆
椭圆
圆弧
扇形
D
将调试通过的工程经"
文件"
菜单的"
生成.exe文件"
编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是().
运行的机器上无VB系统所需的动态连接库
缺少.frm窗体文件
该可执行文件有病毒
以上原因都不对
A
数学关系3≤x<
10表示成正确的VB表达式为
3<
=x<
10
=xANDx<
x>
=3ORx<
=xAND<
第6题(2.0分)
下列不能打开菜单编辑器的操作是______.
按Ctrl+E
单击工具栏中的"
菜单编辑器"
按钮
执行"
工具"
菜单中的"
命令
按Shift+Alt+M
第7题(2.0分)
在下面关于窗体的叙述中,错误的是().
在窗体的整个生命周期中,Initialize事件只触发一次
在用Show显示窗体时,不一定发生Load事件
每当窗体需要重画时,肯定会触发Paint事件
Resize事件是在窗体的大小有所改变时被触发
第8题(2.0分)
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
StaticxAsInteger
Cls
y=y+2
x=x+2
Printx,y
EndSub
程序运行后,连续四次单击Command1按钮后,窗体上显示的是
88
82
28
22
第9题(2.0分)
将CommandDialog1通用对话框以打开对话框打开,可选以下()方法.
showopen
showcolor
showsave
showfont
第10题(2.0分)
Cls方法可以清除窗体或图片框中的()内容.
在设计阶段使用Picture设置的背景位图
在设计阶段放置的控件
在运行阶段产生的图形和文字
以上全部内容
第11题(2.0分)
以下语句正确的是
CommonDialogl.Filter=AllFiles
|*.*|Pictures(*.Bmp)|*.Bmp
CommonDialogl.Filter="
AllFiles"
|"
*.*"
|"
Pictures(*.Bmp)"
*.Bmp"
AllFiles|
*.*|Pictures(*.Bmp)|*.Bmp"
CommonDialogl.Filter={AllFiles|
*.*|Pictures(*.Bmp)|*.Bmp|
第12题(2.0分)
在VisualBasic中,最简单的数据类型包括______.
整型、实型、布尔型、字符型
整型、实型、字符型
整型、实型、逻辑型
实型、逻辑型、字符型
第13题(2.0分)
以下属于合法的数组元素是().
x8
x[A]
x(3)
x{6}
第14题(2.0分)
为了使列表框中的项目按字母顺序排列,应设置哪个属性?
List
Sorted
Style
Text
第15题(2.0分)
以下叙述中错误的是
在KeyPress事件过程中能识别键盘的按下与释放
在KeyPress事件过程中可以通过KeyAscii值来识别回车键
在KeyDown和KeyUp事件过程中,将键盘输入的"
A"
和"
a"
视作相同的字母
在KeyPress事件过程中,将键盘输入的"
视作不同的字母
第16题(2.0分)
下面关于随机文件的描述不正确的是
每条记录的长度必须相同
一个文件中记录号不必惟一
可通过编程对文件中的某条记
录方便地修改
文件的组织结构比顺序文件
复杂
第17题(2.0分)
窗体的Caption属性的作用是().
确定窗体的名称
确定窗体的标题
确定窗体的边界类型
确定窗体的字体
第18题(2.0分)
下面程序段:
ForI=3To1Step-1
PrintSpc(5-i);
Forj=1To2*I-1
Print"
*"
;
Nextj
Print
Nexti
的运行结果为
图1
图2
图3
图4
第19题(2.0分)
为了给x,y,z这3个变量赋初值3,下面正确的赋值语句是
x=3:
y=3:
z=3
x=3,y=3,z=3
x=y=z=3
xyz=3
第20题(2.0分)
以下()方式打开的文件只能读不能写.
Input
Output
Random
Append
三、程序填空共1题(共计10分)
第1题(10.0分)
'
-------------------------------------------------------
【程序填空】
功能:
窗体中有若干控件,单击其中的一个按扭cmdput时,
执行如下的事件过程,该过程的功能是把数据输出到指定的文件中.
**********SPACE**********
PrivateType【?
】
NumberAsString
NameAsString
EndType
PrivateSubcmdput_click()
DimTitleAsString
DimStr1AsString
Dimstr2AsString
DimstuAsStudent
DimiAsInteger
OpenApp.Path&
"
\student.dat"
ForRandomAs#1Len=Len(stu)
Title="
写记录到随机文件"
Str1$="
请输入学生号"
str2$="
请输入学生名"
Fori=1To5
'
【?
】.Number=InputBox(Str1$,Title$)
stu.Name=InputBox$(str2$,Title$)
Put#1,i,stu
Nexti
Close【?
】
=======(答案1)=======
Student
=======(答案2)=======
stu
=======(答案3)=======
#1
四、程序改错共1题(共计10分)
------------------------------------------------
【程序改错】
题目:
编程求一个m*n矩阵中最大元素及其所在的行列号。
OptionExplicit
PrivateSubForm_Click()
DimA()AsInteger,maxAsInteger
DimMAsInteger,NAsInteger
DimiAsInteger,jAsInteger
DimcolAsInteger,rowAsInteger
M=InputBox("
输入矩阵的行数:
"
)
N=InputBox("
输入矩阵的列数:
ReDimA(1ToM,1ToN)AsInteger
Fori=1ToM
Forj=1ToN
A(M,N)=InputBox("
输入数组元素:
Nextj
**********FOUND**********
max=A(0,0)
Ifmax<
A(i,j)Then
max=A(i,j)
row=j
EndIf
col=i
Print
Print"
该矩阵元素的最大值:
;
max
最大值所在的行:
row;
所在的列:
col
max=A(1,1)
col=j
row=i
五、程序设计共1题(共计20分)
第1题(20.0分)
-------------------------------------------------
【程序设计】
题目:
(事件)单击窗体。
(响应)编写程序求10×
11×
12+11×
12×
13+…+15×
16×
17的结果,
并将结果输出到窗体上。
将结果存入变量M中
----------------------
Dimi,jAsInteger
DimsAsLong
Fori=10To15
s=1
Forj=iToi+2
s=s*j
Next
m=m+s
Next
Print(CStr(m))
六、VB窗体设计共1题(共计10分)
【窗体设计】
如图所示,启动VB后,新建工程,界面上放三个命
令按钮,大小位置体调整好。
程序运行后,单击“窗
体变大”按钮,窗体随之变大,单击“窗体变小”按钮,
窗体即随之变小,单击“关闭窗体”按钮,窗体被关闭,
请编写程序。
(窗口变大变小幅度用户自定)
各控件属性设置如下表:
对象名称Name属性Caption属性
窗体默认默认
命令按钮Command1窗体变大
Command2窗体变小
Command3关闭窗体