苏州大学vb课程试题5套 含答案Word下载.docx
- 文档编号:19640405
- 上传时间:2023-01-08
- 格式:DOCX
- 页数:58
- 大小:89.43KB
苏州大学vb课程试题5套 含答案Word下载.docx
《苏州大学vb课程试题5套 含答案Word下载.docx》由会员分享,可在线阅读,更多相关《苏州大学vb课程试题5套 含答案Word下载.docx(58页珍藏版)》请在冰豆网上搜索。
A.函数B.事件过程
C.子程序D.通用过程
14.放置控件到窗体中的最迅速的方法是14。
A.双击工具箱中的控件B.单击工具箱中的控件
C.拖动鼠标D.单击工具箱中的控件并拖动鼠标
15.不能在窗体上选择多个控件的方法有:
15。
A.按住Alt键同时单击每个控件
B.单击每个控件
C.通过鼠标拖动一方框将它们选定
D.按住Ctrl键同时单击每个控件
16.当移动控件,重新设定其尺寸时16会自动改变。
A.Click、changeB.Name、Caption
C.top、leftD.Cancel、Default
17.当用户单击命令按钮时,17属性可以使得命令按钮对激发事件无效。
A.NameB.Enable
C.DefaultD.Cancel
18.将命令按钮的18属性设置为True,可以使用户按Esc键时可以激发对应命令按钮的Click事件。
19.19控件的行为具有Boolean类型。
A.选项按钮、标签B.复选框、标签
C.选项按钮、复选框D.列表框、组合框
20.一个应用程序可在20窗口使用菜单。
A.1个B.2个
C.3个D.多个
1.2填充题
1.执行下面程序,第一行打印结果
(1),第二行打印结果
(2)。
PrivateSubForm_Click()
DimxAsInteger,yAsInteger
x=1:
y=0
DoWhiley<
=25
y=y+x*x
x=x+1
Loop
Printx
Printy
EndSub
2.执行下面程序,打印的第一行结果是(3);
第二行结果是(4)。
若将Sub语句改为:
PrivateSubproc1(ByvalaAsInteger,ByvalbAsInteger)
那么,执行后第一行结果是 (5) ;
第二行结果是:
(6)。
PrivateSubForm_Click()
x=3
y=2
Callproc1(x,y)
Printx,y
PrivateSubproc1(aAsInteger,bAsInteger)
a=x+y
b=x–y
Printa,b
3.执行下面程序,第一行打印结果(7),第三行打印结果(8)。
(Ubound函数返回指定数组维的最大下标值。
)
DimiAsInteger,jAsInteger
DimmAsInteger,nAsInteger
Dima()AsInteger
CallArry(a)
n=UBound(a,1):
m=UBound(a,2)
Fori=1Tom
Forj=1Ton
Printa(j,i);
Nextj
Nexti
PrivateSubArry(b()AsInteger)
DimiAsInteger,jAsInteger,kAsInteger
ReDimb(2,3)
Fori=1To2
Forj=1To3
b(i,j)=i*10+j
4.执行下面程序,第二行打印结果(9),第三行打印结果(10)。
DimchAsString,iAsInteger
ch="
DEF"
Fori=1To3
ch=Mid(ch,2*i-1,1)+Left(ch,Len(ch))
Printch
5.执行下面程序,结果是(11);
若将A语句替换为x=32,B语句替换为r=4,结果是(12)。
Dima(10)AsInteger
PrivateSubconv(dAsInteger,rAsInteger,iAsInteger)
i=0
DoWhiled<
>
0
i=i+1
a(i)=dModr:
d=d\r
DimxAsInteger,rAsInteger,nAsInteger
x=12'
A语句
r=2'
B语句
Printx;
r;
"
=="
;
Ifx=0Then
Print0
Else
Callconv(x,r,n)
Fork=nTo1Step-1:
Printa(k);
:
Nextk
EndIf
6根据下面图形界面(图6-1)和程序填写对象的相关属性(用“Ñ
”表示对象无该属性)
和程序中的相关语句。
图6-1
对 象
名 称 (Name)
标 题 (Caption)
窗体
Frm1
(13)
标签
Labl1
(14)
文本框
Text1
Ñ
命令按钮
(15)
(16)
PrivateSubCmdend_Click()
(17)
DimxAsInteger,yAsInteger,sumAsInteger
Calladdition( (18) )
Text1.Text=sum
PrivateSubaddition(nAsInteger,mAsInteger,sumAsInteger)
sum=n+m
7找出所有满足下列两个条件的正整数a,b(a<
b);
(1)a+b=99,
(2)a,b的最大公约数是3的倍数。
并统计满足条件的数对。
DimaasInteger,basInteger,casInteger,nasInteger
PrivateFunctiongcd(ByValaAsInteger,ByValbAsInteger)AsInteger
DimcAsInteger
Do
c=aModb:
a=b:
b=c
Loop (19)
gcd=a
EndFunction
n=0
Fora=1To49
(20)
c=gcd(a,b)
IfcMod3=0Then
(21)
Printa,b,c
Nexta
Printn
8.本程序的功能是统计输入字符串中字母、数字和其他字符的个数。
其中vbCrLf为VisualBasic回车符与换行符。
图8-1
正 文 (Text)
文本框1
txtInput
空
文本框2
txtOutput
命令按钮1
cmdSta
统计
命令按钮2
cmdExit
结束
PrivateSubcmdExit_Click()
UnloadMe
PrivateSubcmdSta_Click()
DimiAsInteger,n1AsInteger,n2AsInteger,n3AsInteger
DimsasString
Fori=1ToLen(txtInput.Text)
SelectCase(22)
Case"
A"
To"
z"
n1=n1+1
Case(23)
n2=n2+1
(24)
n3=n3+1
EndSelect
s="
字母个数:
"
+Str(n1)+vbCrLf
s=s+"
数字个数:
+Str(n2)+vbCrLf
其他字符个数:
+Str(n3)
(25)
图8-1的窗体上,文本框对象txtInput的MultiLine属性取值是(26)。
8.本程序的功能是在二维数组中查找鞍点元素,即该元素在所在行中为最大,且在所在列中为最小。
例如有一数组如下:
212223
111213
313233
则第2行第3列的元素13就是鞍点元素。
在一个数组中可能存在,也可能不存在这样的元素。
数组各元素的值从文件DATA.TXT中读取。
Dima(3,3)AsInteger,iAsInteger,jAsInteger
DimmaxvrAsInteger,colAsInteger,flgAsInteger
Open"
Data.txt"
ForInputAs#1
Input#1,a(i,j)
Printa(i,j);
maxvr= (27)
col=1
Forj=2To3
Ifmaxvr<
a(i,j)Then
maxvr= (28)
col=j
Ifmaxvr>
a(j,col)Then (29)
Ifj>
3Then
Print"
a("
i;
"
col;
)="
a(i,col)
flg=1
Nexti
If (30) ThenPrint"
无鞍点元素不存在"
1.3选择题答案
1.A2.C3.C4.B5.D6.B7.B8.A9.D10.D
11.B12.B13.B14.A15.B16.C17.B18.D19.C20.D
1.4填空题答案
(1)5
(2)30
(3)00
(4)00
(5)00
(6)32
(7)1121
(8)1331
(9)EDDEF
(10)FEDDEF
(11)122==1100
(12)324==200
(13)加法运算
(14)答案:
(15)Cndend
(16)结束
(17)End
(18)x,y,sum
(19)Untilc=0
(20)b=99-a
(21)n=n+1
(22)Mid(txtInput.text,i,1)
(23)"
0"
9"
(24)Caseelse
(25)txtOutput=s
(26)True
(27)a(i,1)
(28)a(i,j)
(29)ExitFor
(30)flg=0
综合练习2
2.1选择题
1.一个对象可以执行的动作与可被对象识别的动作分别称为
(1)。
A.事件、方法B.方法、事件C.属性、方法D.过程、事件
2.在窗体Form1的Click事件过程中有以下语句:
Label1.Caption="
VisualBasic"
若本语句执行前,标签控件的Caption属性取缺省值,则该标签控件的名称属性和Caption属性在执行本语句前的取值分别为
(2)。
A.Label,LabelB.Label,CaptionC.Label1,Label1D.Caption,Label
3.同上题,该语句执行后,标签控件的名称属性和Caption属性取值分别为(3)。
A.Label,VisualBasicB.Label1,VisualBasic
C.Label1,CaptionD.Label,Label1
4.在调用过程时,下述说明中正确的是(4)。
A.只能使用Call语句调用Sub过程
B.调用Sub过程时,实在参数必须用括号括起来
C.在表达式中调用Function过程时,可以不用括号把实参括起来
D.Function过程也可使用Call语句调用
5.在使用VisualBasic进行图形操作时,有关坐标系的说明中错误的是(5)。
A.VisualBasic只有一个统一的、以屏幕左上角为坐标原点的坐标系
B.在调整窗体上的控件的大小和位置时,使用以窗体左上角为原点的坐标系
C.所有图形及Print方法使用的坐标系均与容器有关
D.VisualBasic坐标系的Y轴,上端为0,越往下越大
6.下列赋值语句中错误的是(6)。
A.Myv1&
=5*x%\3+x%Mody%
B.Myv2%=5*x%\3+x%Mody%
C.Myv3&
="
5*X%\3+X%ModY%"
D.Myv4$=5*x%\3+x%Mody%
7.设Mys1,Mys2均为字符串型变量,Mys1="
、Mys2="
b"
,则下面关系表达式中结果为True的是(7)。
A.Mid(Mys1,8,1)>
Mys2
B.Len(Mys1)<
2*Instr(Mys1,"
l"
C.Chr(66)&
Right(Mys1,4)="
Basic"
D.Instr(Left(Mys1,6),"
a"
)+60>
Asc(Ucase(Mys2))
8.在窗体单击事件中执行下面语句的正确结果是(8)。
PrintFormat(1732.46,"
+##,##0.0"
A.+1,732.5B.1,732.5C.+1,732.5D.+1,732.4
9.下面对语句
Text.Dat"
ForOutputAs#FreeFile
的功能说明中错误的是(9)。
A.以顺序输出模式打开文件"
B.如果文件"
不存在,则建立一个新文件
C.如果文件"
已存在,则打开该文件,新写入的数据将增添到该文件中
D.如果文件"
已存在,则打开该文件,新写入的数据将覆盖原有的数据
10.以下有关把数组作为形参的说明中错误的是(10)。
A.形参数组只能按地址传递
B.调用过程时,只需把要传递的数组名填入实参表
C.使用动态数组时,可用ReDim语句改变形参数组的维界
D.在过程中也可用Dim语句对形参数组进行说明
11.当你启动VisualBasic时在工具箱中所得到的全部工具都是(11)控件。
A.可变B.Click
C.添加D.固定
12.(12)在用户的应用程序执行期间发生,比如鼠标单击或是敲击键盘。
A方法B属性
C事件D工程
13.工程文件名的后缀是(13)。
A.vbpB.frm
C.basD.vbw
14.控件的(14)确定了当一个事件发生时执行代码。
A函数B子程序
C事件过程D通用过程
15.控件的(15)使用户能够移动控件并调节其大小。
A拖曳柄B标题栏
C工具箱D工程资源管理器
16.不能在窗体上选择多个控件的方法有:
(16)。
A按住Alt键同时单击每个控件
B单击每个控件
C通过鼠标拖动一方框将它们选定
D按住Ctrl键同时单击每个控件
17.将命令按钮的(17)属性设置为True,可以使用户按Esc键时可以激发对应命令按钮的Click事件。
ANameBEnable
CDefaultDCancel
18.在窗体有一个命令按钮,该命令按钮的的Click事件过程中有以下语句:
Command1.Caption="
OK"
若本语句执行前,命令按钮的Caption属性取缺省值,则该命令按钮的名称属性和Caption属性在执行本语句前的取值分别为(18)。
ACommand1,OKBCommand1,Caption
CCommand1,Command1DCaption,Command1
19.同上题,该语句执行后,标签控件的名称属性和Caption属性取值分别为(19)。
ACommand,VisualBasicBCommand1,OK
CCommand1,CaptionDCommand,Command1
20.一只白色的足球被踢进球门,则白色,足球,踢,进球门是(20)。
A属性,对象,方法,事件B属性,对象,事件,方法
C对象,属性,方法,事件D对象,属性,事件,方法
2.2填空题
1.运行下面的程序,单击窗体后在窗体上显示的内容是
(1);
若将程序中的A语句与B语句的位置互换,再次执行程序,单击窗体后在窗体上显示的内容是
(2)。
Dimx,yAsInteger
DoWhilex<
3
y=y+x'
A语句
x=x+1'
B语句
Printx,y
2.执行下面的程序,单击窗体后在窗体上显示的第一行结果是(3);
第三行结果是(4)。
DimMystr,Mystr1,Mystr2AsString
Mystr1="
B"
Mystr2=LCase(Mystr1)
Mystr1=Mystr1&
Mystr2
Mystr=Mystr&
Mystr1
PrintMystr
Mystr1=Chr(Asc(Mystr1)+i)
3.运行下面的程序,当单击窗体时,窗体上显示的内容的第一行是(5);
第二行是(6)。
PrivateSubTest(xAsInteger)
x=x*2+1
Ifx<
6Then
CallTest(x)
Form1.Printx
Test2
4.Sub过程Main()是本程序的起始过程,其他为窗体模块中的事件过程。
当说明语句被注释,说明语句B有效时,执行本程序,分别单击命令按钮Command1和Command2,在窗体上
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 苏州大学vb课程试题5套 含答案 苏州大学 vb 课程 试题 答案