Visual Basic语言笔试试题及答案.docx
- 文档编号:22805498
- 上传时间:2023-04-28
- 格式:DOCX
- 页数:16
- 大小:59.67KB
Visual Basic语言笔试试题及答案.docx
《Visual Basic语言笔试试题及答案.docx》由会员分享,可在线阅读,更多相关《Visual Basic语言笔试试题及答案.docx(16页珍藏版)》请在冰豆网上搜索。
VisualBasic语言笔试试题及答案
VisualBasic语言笔试试题
(共100分)
注意事项:
1.一、二、三题为客观题,请将答案做在机读答题卡上
2.四、五、六题为主观题,请将答案做在答题纸上
一、单项选择题(每题1分,共20分)
01.在VB中,对于没有赋值的数值变量,系统默认的值为:
(A)0(B)“0”(C)1(D)-1
02.对于以下程序段(其中Text1是一个文本框控件):
Text1=“你好”
Text1=“欢迎”
Text1.Visible=False
其运行结果为:
(A)Text1中显示:
你好 (B)Text1中显示:
欢迎
(C)Text1不可见 (D)Text1中显示:
你好欢迎
03.表达式4+5\6*7/8Mod9的值是:
(A)4(B)5(C)6(D)7
04.在VB中,以下可以获得焦点的控件是:
(A)图像框Image(B)标签Label
(C)计时器Timer(D)命令按钮CommandButton
05.函数表达式String(2,"Ok")的返回值是:
(A)2(B)Ok(C)OO(D)OkOk
06.下列属性中,为文本框的默认属性的是:
(A)Caption(B)Enabled(C)Name(D)Text
07.对窗体Form1编程,有Form1.BackColor=RGB(0,255,0)语句,则:
(A)窗体Form1的背景色被设置为红色
(B)窗体Form1的背景色被设置为黑色
(C)窗体Form1的背景色被设置成绿色
(D)窗体Form1的背景色被设置成蓝色
08.在VB中,未作任何申明,直接使用的变量的数据类型为:
(A)Integer (B)Long (C)String(D)Variant
09.下列事件中,由系统触发的窗体事件是:
(A)Click事件(B)DblClick事件
(C)Activate事件 (D)Timer事件
10.循环语句Fori=-3.5To20Step4决定循环体的执行次数为:
(A)4次(B)5次(C)6次(D)7次
11.在VB中,计时器Timer支持的事件为:
(A)Change(B)Scroll(C)Load(D)Timer
12.VisualBasic工程文件的扩展名是:
(A).Frm (B).Bas(C).Vbp (D).Vbw
13.下列语句中,可以完成打开二进制文件ABC.dat的操作语句是:
(A)Open“ABC.dat”ForInputAs#1
(B)Open“ABC.dat”ForOutputAs#1
(C)Open“ABC.dat”ForBinaryAs#1
(D)Open“ABC.dat”ForAppendAs#1
14.用VB绘制图形,能改变图形线条样式的属性是:
(A)ScaleWidth(B)DrawStyle
(C)BorderWidth(D)FillStyle
15.计时器Timer控件触发Timer事件的时间间隔为:
(A)每秒触发一次
(B)每隔InterVal属性中设定的时间触发一次
(C)每毫秒触发一次
(D)每隔Windows系统设定的时间间隔触发一次
16.在控件数组中,所有控件必须相同的属性是:
(A)Caption (B)Enabled(C)Index (D)Name
17.在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。
用于标识各个控件数组元素的参数是:
(A)Tag(B)Index(C)ListIndex(D)Name
18.按下键盘的Shift键的同时,按下鼠标左键不放,并移动鼠标,在事件过程MouseMove中返回的Button、Shift参数的值为:
(A)Button=1,Shift=1
(B)Button=0,Shift=1
(C)Button=1,Shift=0
(D)Button=0,Shift=0
19.执行如下语句:
a=InputBox("Today","Tomorrow","Yesterday")
将显示的输入对话框是:
(A)
(B)
(C)
(D)
20.已在窗体上建立了一个文本框Text1,两个命令按钮Command1和Command2。
两个命令按钮的Caption属性分别为“12”和“34”。
执行下列代码后,文本框中显示的内容是:
Text1.Text=Command1.Caption
Command1.Caption=Command2.Caption
Command2.Caption=Text1.Text
Text1.Text=Command1.Caption&Command2.Caption
(A)1234(B)3412(C)12(D)34
二、多项选择题(每题1分,共10分)
(下面各小题有两个或两个以上正确答案,请选出全部正确答案,错选或漏选不得分)
01.下列符号中,是VB的算术运算符的有:
(A)%(B)&(C)Mod(D)And(E)\
02.在文本框Text1中输入字符,将输入的字符转换成大写并显示在标签Label1中,下列语句正确的有:
(A)Label1=UCase(Text1)
(B)Text1=Ucase(Label1)
(C)S=Text1.Text
Label1.Caption=UCase(S)
(D)Text1.Text=S
Label1.Caption=UCase(S)
(E)Label1.Caption=UCase(S)
S=Text1.Text
03.以下数据类型的变量所占存贮空间大于2个字节的有:
(A)Integer(B)Single
(C)Boolean(D)Currency
(E)Date
04.设要定义具有10个元素的数组b,下列语句正确的有:
(A)Dimb(1TO10)
(B)Dimb(-5TO5)
(C)Dimb()
n=10
Redimb(n)
(D)OptionBase1
Staticb(10)
(E)Dimb(10)
05.VisualBasic绘图时可以使用的度量单位有:
(A)Twip(B)Point(C)Pixel(D)Inch(E)Centimeter
06.产生一个[1~6]的随机整数的表达式为:
(A)Int(5*Rnd)+1(B)Int(6*Rnd+1)
(C)Int(6*Rnd)+1(D)Int(5*Rnd+1)
(E)Int(6*Rnd)
07.形状控件Shape的控件图形可选为:
(A)矩形Rectangle(B)正方形Square
(C)椭圆Oval(D)圆Circle
(E)三角形Triangle
08.确定一个窗体或控件位置的属性是:
(A)Width(B)Height(C)Top(D)Left(E)Enabled
09.下列显示结果为0的语句有:
(A)PrintRnd-Rnd(B)PrintRnd(0)-Rnd(0)
(C)PrintSgn(10)-Sgn(200)(D)PrintInt(Rnd)
(E)PrintRnd
(1)-Rnd
(1)
10.如果X 能够实现上述功能的程序段有: (A)IfX A=-15 PrintA (B)IfX ElseA=-15 PrintA (C)IfX PrintA (D)IfX A=15 Else A=-15 PrintA EndIf (E)IfX A=15 Else A=-15 EndIf PrintA 三、判断分析题(每题1分,共10分) (下列各小题的叙述是否正确,如正确,请选择“Ö”;如错误,请选择“´”) 01.要表示“a和b中至少有一个大于c”的逻辑表达式为: a>cAndb>c。 02.在VisualBasic中有算术表达式、关系表达式和逻辑表达式,其中优先级别最高的是逻辑表达式。 03.在DoWhile…Loop语句实现的循环中,无论表达式的值如何,循环体至少被执行1次。 04.语句Line(500,500)–Step(100,-100),BF是错误的。 05.在运行程序时,滚动条的Value属性值一定界于Min属性值与Max属性值之间。 06.执行语句Dima,b,cAsInteger后,可将变量a、b、c的数据类型都设置成整型。 07.执行语句X=Y=5后,变量X与Y的值均为5。 08.在数据文件的操作中,所有文件的打开都用Open语句,而关闭都用Close语句。 09.设有数组说明语句: Dima()AsInteger,则a被定义为动态数组。 10.函数Len(“100/5”)返回的值是20。 四、填空题(每题2分,共20分) 1.语句PrintNotFalseAndNot3+2>6的显示结果是______ ______。 2.单精度数据类型对应的VB关键字为________ _______。 3.执行语句Line(100,100)-Step(50,100)后,CurrentX的值为_______ ______ 4.下面是一个验证素数的程序。 只能被1和本身整除的数称为素数。 PrivateSubForm_Click() Dimn%,p%,x% DimfAsBoolean n=Val(InputBox("输入一个正整数(>1)")) f=True Forx=_________ ________ If_______ _________ f=________ _______ ExitFor EndIf Nextx If_______ ______ Printn;"是素数" Else Printn;"不是素数" EndIf EndSub 5. 单击窗体,在窗体上显示下列图形: PrivateSubForm_Click() ForA=3To-3Step-1 N=_______ _______ PrintTab(15-N); ForB=1ToN Print___ ____ Next___ ____ Print NextA EndSub 五、读程序(每题4分,共20分) 1.运行下列程序,窗体上输出的结果是: PrivateSubCommand1_Click() Dimf(7)AsInteger,nAsInteger f(0)=1: f (1)=1 Forn=2To7 f(n)=f(n-2)+f(n-1) Nextn Forn=0To7 IfnMod4=0ThenPrintf(n); Nextn EndSub (A)14(B)15(C)04(D)05 2.下面程序执行结果为: PrivateSubForm_Click() DimiAsInteger,iSumAsInteger Fori=1To4 iSum=sum(i) PrintiSum; Nexti EndSub PrivateFunctionsum(nAsInteger) DimjAsInteger j=j+n sum=j EndFunction (A)1234 (B)13610 (C)1357(D)24810 3.PrivateSubForm_Click() T=0 ForX=1To10 IfX=10Then ExitFor Else T=T+X EndIf NextX PrintT EndSub 运行上述程序的输出结果为: (A)10(B)36(C)45(D)55 4.执行以下程序段后,I的值为: ForI=0To10Step-2 I=I+2 Next (A)10 (B)-2 (C)0 (D)显示出错信息 5.按字符串变换命令按钮Command1,在标签框Label1中显示的结果是: PrivateSubCommand1_Click() X="等级考试" L=Len(X) SS="" Fork=1ToL-1 S=Mid(X,k,1) SS="*"+S+SS Nextk S=Mid(X,L,1) SS=S+SS Label1.Caption=SS EndSub (A)*等*级*考*试(B)等*级*考*试 (C)*试*考*级*等(D)试*考*级*等 六、编程题: (每题10分,共20分) 01.编写程序计算由下列公式确定s的值。 要求: 按计算命令按钮Command1,计算S的值,结果显示在标签框Label1中。 按结束命令按钮Command2结束程序的运行。 02.有5支球队进行单循环赛,胜负场次如下: 球队编号 胜 平 负 积分 1001 1 2 1 1002 1 1 2 1003 2 1 1 1004 3 1 0 1005 0 1 3 胜一场得3分,平一场得1分,负一场得0分。 要求: 单击“计算”命令按钮Command1,算出每个队的积分。 求按上述格式显示在图片框Picture1中。 Picture1.PrintTab(10);"球队编号胜平负积分"'1分 Fori=1To5'3分 Forj=1To5 Picture1.PrintTab(j*10);s(i,j); Nextj Picture1.Print Nexti EndSub VisualBasic语言笔试试题(答案) (共100分) 一、单项选择题(每题1分,共20分) 01.A02.C03.B04.D05.C06.D07.C08.D09.C10.C 11.D12.C13.C14.B15.B16.D17.B18.A19.B20.B 二、多项选择题(每题1分,共10分) 01.CE02.AC03.BDE04.AD05.ABCDE 06.BC07.ABCD08.CD09.BCD10.CE 三、判断分析题(每题1分,共10分) 01.02.03.04.05.06.07.08.09.10. 四、填空题(每题2分,共20分) 1. True 2. Single 3. 150 4. 2Ton–1 nModx=0Then False fThen 5. 4–Sgn(A)*A "M"; B 五、读程序(每题4分,共20分) 1.B2.A3.C4.C5.D 六、编程题: (每题10分,共20分) 01.编写程序计算由下列公式确定s的值。 要求: 按计算命令按钮Command1,计算S的值,结果显示在标签框Label1中。 按结束命令按钮Command2结束程序的运行。 答案: PrivateSubCommand1_Click()'1分 s1=0'1分 x=-1'1分 Fork=1To39Step2'4分 x=-x s1=s1+x*(1/k) Nextk s=4*s1'1分 Label1.Caption=s'1分 EndSub PrivateSubCommand2_Click()'1分 End EndSub 02.有5支球队进行单循环赛,胜负场次如下: 球队编号 胜 平 负 积分 1001 1 2 1 1002 1 1 2 1003 2 1 1 1004 3 1 0 1005 0 1 3 胜一场得3分,平一场得1分,负一场得0分。 要求: 单击“计算”命令按钮Command1,算出每个队的积分。 求按上述格式显示在图片框Picture1中。 答案: PrivateSubCommand1_Click() Dims(5,5)AsInteger'1分 Fori=1To5'2分 Forj=1To4 s(i,j)=InputBox(Str(i)&","&Str(j)) Nextj Nexti Fori=1To5'3分 s(i,5)=s(i,2)*3+s(i,3)*1+s(i,4)*0 Nexti Picture1.PrintTab(10);"球队编号胜平负积分"'1分 Fori=1To5'3分 Forj=1To5 Picture1.PrintTab(j*10);s(i,j); Nextj Picture1.Print Nexti EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic语言笔试试题及答案 Basic 语言 笔试 试题 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)