VB考试一.docx
- 文档编号:10209342
- 上传时间:2023-02-09
- 格式:DOCX
- 页数:46
- 大小:28.55KB
VB考试一.docx
《VB考试一.docx》由会员分享,可在线阅读,更多相关《VB考试一.docx(46页珍藏版)》请在冰豆网上搜索。
VB考试一
VB考试一
1、能够获得一个文本框中被选取文本的内容的属性是______。
A:
SelStartB:
SelLengthC:
SelTextD:
Text
参考答案:
C
2、在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应当使用的语句为:
______。
A:
Text1.Enabled=FalseB:
Text1.Hide
C:
Text1.ClearD:
Text1.Visible=False
参考答案:
D
3、对于语句Ifx=1Theny=1,下列说法正确的是____。
A:
x=1和y=1均为赋值语句
B:
x=1和y=1均为关系表达式
C:
x=1为赋值语句,y=1为关系表达式
D:
x=1为关系表达式,y=1为赋值语句
参考答案:
D
4、以下变量名中,______是不符合VisualBasic的命名规范的。
A:
_mnu_Open_234B:
Abc901C:
price_D:
K
参考答案:
A
5、MsgBox函数返回值的类型是__________。
A:
数值或字符串 B:
字符串 C:
变体 D:
整型数值
参考答案:
D
6、VB一共有设计、运行和中断三种模式,要使用调试工具应该______。
A:
进入中断模式 B:
进入运行模式
C:
进入设计模式 D:
不用进入任何模式
参考答案:
A
7、设a=6,则执行
x=IIF(a>5,-1,0)后,x的值为______。
A:
-1B:
6 C:
0 D:
5
参考答案:
A
8、可以同时删除字符前导和尾部空白的函数是______。
A:
Mid B:
Rtrim C:
Trim D:
Ltrim
参考答案:
C
9、以下语句的输出结果是______。
PrintFormat$("32548.5","000,000.00")
A:
32,548.5 B:
32548.5 C:
032,548.50 D:
32,548.50
参考答案:
C
10、设有如下声明:
DimXAsInteger
如果Sgn(X)的值为-1,则X的值是______。
A:
等于0的整数 B:
大于0的整数 C:
整数 D:
小于0的整数
参考答案:
D
11、在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Nexti
Printx
EndSub
程序运行后,单击命令按钮,输出结果是______。
参考答案:
15#15#15#15
12、执行下面的程序段后,S的值为______。
s=5
Fori=2.6To4.9Step0.6
s=s+1
Nexti
参考答案:
9
13、下列表达式有错误,正确的写法应该是______。
[(a+b)+c]/80-5÷(d+e)
参考答案:
(a+b+c)/80-5/(d+e)#(a+b+c)/80-5/(d+e)
14、表示x是5的倍数或是9的倍数的逻辑表达式为__________
参考答案:
xMod5=0OrxMod9=0#xMod9=0OrxMod5=0
15、以下程序的功能是:
从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。
请填空。
PrivateSubForm_click()
Dimx,yAsSingle
DimzAsInteger
x=InputBox("Enterascore")
Dowhilex>=0
y=y+x
z=z+1
x=InputBox("Enterascore")
Loop
Ifz=0Then
z=1
EndIf
y=______
Printy
EndSub
参考答案:
y/z
VB考试二
1、列表框中的列表项的数目可以通过以下哪个属性的值获得______。
A:
ListIndex B:
ListCount C:
Count D:
Index
参考答案:
B
2、在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。
列表框中显示若干城市的名称。
当单击列表框中的某个城市名时,在标签中显示选中城市的名称。
下列能正确实现上述功能的程序是______。
A:
PrivateSubList1_Click()
Label1.Caption=List1.Text
EndSub
B:
PrivateSubList1_Click()
Label1.Name=List1.ListIndex
EndSub
C:
PrivateSubList1_Click()
Label1.Name=List1.Text
EndSub
D:
PrivateSubList1_Click()
Label1.Caption=List1.ListIndex
EndSub
参考答案:
A
3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
A:
Listindex B:
Index C:
List D:
Tabindex
参考答案:
A
4、为了清除列表框中的所有内容,应使用的方法是:
______。
A:
Clear B:
Remove C:
RemoveItem D:
Cls
参考答案:
A
5、在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为______。
A:
Fori=1ToList1.ListCount
……
NEXT
B:
Fori=0ToList1.Count-1
……
NEXT
C:
Fori=0ToList1.ListCount-1
……
NEXT
D:
Fori=1ToList1.Count
……
NEXT
参考答案:
C
6、设有如下程序:
OptionBase0
PrivateSubForm_Click()
Dima
DimiAsInteger
a=Array(1,2,3,4,5,6,7,8,9)
Fori=0To3
Printa(5-i);
Next
EndSub
程序运行后,单击窗体,则在窗体上显示的是______。
A:
6 5 4 3 B:
5 4 3 2 C:
4 3 2 1 D:
7 6 5 4
参考答案:
A
7、设执行以下程序段时依次输入1、3、5,执行结果为______。
Dima(4)AsInteger,b(4)AsInteger
ForK=0To2
a(K+1)=Val(InputBox("请输入数据"))
b(3-K)=a(K+1)
NextK
Printb(K)
A:
0 B:
3 C:
5 D:
1
参考答案:
D
8、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
Dima(10,10)AsInteger
Fori=1To3
Forj=1To3
a(i,j)=(i-1)*3+j
Printa(i,j);
Nextj
Nexti
EndSub
程序运行后,单击命令按钮,窗体上显示的是______。
A:
123
456
789
B:
234
345
456
C:
147
258
369
D:
123
246
369
参考答案:
A
9、用下面的语句所定义的数组的元素个数是:
______。
Dimarr(3To5,-2to2)
A:
24 B:
12 C:
15 D:
20
参考答案:
C
10、下列______语句可以为动态数组分配实际元素个数。
A:
static语句 B:
Dim语句 C:
public语句 D:
ReDim语句
参考答案:
D
11、假定程序中有以下语句:
answer=MsgBox("String1",,"String2","String3",2)
执行该语句后,将显示一个信息框,此时如果单击"确定"按钮,则answer的值为:
______。
A:
String3 B:
String2 C:
String1 D:
1
参考答案:
D
12、设有语句
x=InputBox("输入数值","0","示例")
程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是______。
A:
0是默认值
B:
变量X的值是字符串"10"
C:
在InputBox对话框标题栏中显示的是"示例"
D:
变量X的值是数值10
参考答案:
B
13、以下程序段运行的结果是:
______。
Dima(-1To5)AsBoolean
DimflagAsBoolean
flag=False
DimiAsInteger
DimjAsInteger
DoUntilflag=True
Fori=-1To5
j=j+1
Ifa(i)=FalseThen
a(i)=True
ExitFor
EndIf
Ifi=5Then
flag=True
EndIf
Next
Loop
Printj
A:
20B:
7 C:
8 D:
35
参考答案:
D
14、设a=5,b=6,c=7,d=8,则执行下列语句后,x的值为:
______。
x=IIF((a>b)And(c A: 300 B: 20 C: 30 D: 10 参考答案: B 15、要将一个组合框设置为简单组合框(SimpleCombo),则应将其Style属性设置为______。 A: 0 B: 1 C: 3 D: 2 参考答案: B VB考试三 1、设组合框Combo1中有3个项目,则以下能删除最后一项的语句是______。 A: Combo1.RemoveItemCombo1.Listcount B: Combo1.RemoveItem2 C: Combo1.RemoveItem3 D: Combo1.RemoveItemText 参考答案: B 题分: 6 2、在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: FunctionFunc(ByValxAsInteger,yAsInteger) y=x*y Ify>0Then Func=x Else Func=y EndIf EndFunction PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=3 b=4 c=Func(a,b) Print"a=";a Print"b=";b Print"c=";c EndSub 程序运行后,单击命令按钮,其输出结果为: ______。 A: a=3 b=4 c=12 B: a=13 b=12 c=12 C: a=3 b=4 c=3 D: a=3 b=12 c=3 参考答案: D 题分: 6 3、单击命令按钮时,下列程序代码的执行结果为______。 PublicSubProcl(nAsInteger,ByValmAsInteger) n=nMod10 m=m/10 EndSub PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=12: y=34 CallProcl(x,y) Printx;y EndSub A: 12 3 B: 2 3 C: 12 34 D: 2 34 参考答案: D 题分: 6 4、以下关于函数过程的叙述中,正确的是______。 A: 在函数过程中,过程的返回值可以有多个 B: 函数过程形参的类型与函数返回值的类型没有关系 C: 当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递 D: 如果不指明函数过程参数的类型,则该参数没有数据类型 参考答案: B 题分: 6 5、以下说法错误的是______。 A: 函数过程可以带参数 B: 子过程没有返回值 C: 函数过程没有返回值 D: 子过程可以带参数 参考答案: C 题分: 6 6、在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程: PrivateSubCommand1_Click() DimbAsInteger b=b+1 EndSub 运行程序,三次单击命令按钮后,变量b的值是: ______。 A: 2 B: 1 C: 0 D: 3 参考答案: B 题分: 6 7、假定有以下函数过程: FunctionFun(SAsString)AsString Dims1AsString Fori=1ToLen(S) s1=UCase(Mid(S,i,1))+s1 Nexti Fun=s1 EndFunction 在窗体上画一个命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() DimStr1AsString,Str2AsString Str1=InputBox("请输入一个字符串") Str2=Fun(Str1) PrintStr2 EndSub 程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcdefg"则单击"确定"按钮后在窗体上的输出结果为______。 A: GFEDCBA B: ABCEDFG C: gfedcba D: abcdefg 参考答案: A 题分: 6 8、Sub过程与Function过程最根本的区别是______。 A: 两种过程参数的传递方式不同 B: Function过程可以有参数,Sub过程不可以 C: Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以 D: Sub过程的过程名不能返回值,而Function过程能通过过程名返回值 参考答案: D 题分: 6 9、在代码中定义了一个子过程: SubP(a,b) ... EndSub 下面______调用该过程的格式是正确的。 A: CallP B: CallP10,20 C: P(10,20) D: CallP(10,20) 参考答案: D 题分: 6 10、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: PrivateSubCommand1_Click() StaticXAsInteger StaticYAsInteger Cls Y=1 Y=Y+5 X=5+X PrintX,Y EndSub 程序运行时,三次单击命令按钮Command1后,窗体上显示的结果为______。 A: 15 15 B: 15 6 C: 15 16 D: 5 6 参考答案: B 题分: 6 11、设有以下循环结构 Do 循环体 LoopWhile<条件> 则以下叙述中错误的是______。 A: 循环体中可以使用ExitDo语句 B: "条件"可以是关系表达式、逻辑表达式或常数 C: 若"条件"是一个为0的常数,则一次也不执行循环体 D: 如果"条件"总是为True,则不停地执行循环体 参考答案: C 题分: 6 12、在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: PrivateFunctionfun(ByValmAsInteger) IfmMod2=0Then fun=2 Else fun=1 EndIf EndFunction PrivateSubCommand1_Click() DimiAsInteger,sAsInteger s=0 Fori=1To5 s=s+fun(i) Next Prints EndSub 程序运行后,单击命令按钮,在窗体上显示是______。 A: 7 B: 6 C: 8 D: 9 参考答案: A 题分: 6 VB考试四 1、某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: PrivateSubCommand1_Click() Dima(10)AsInteger,maxAsInteger Fork=1To10 a(k)=InputBox("输入一个整数") Nextk max=0 Fork=1To10 Ifa(k)>maxThen max=a(k) EndIf Nextk Printmax EndSub 运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是错误的,程序需要修改。 下面的修改中可以得到正确运行结果的是______。 A: 把max=a(k)改为a(k)=max B: 把Ifa(k)>maxThen改为Ifa(k) C: 把第2个循环语句Fork=1To10改为Fork=2To10 D: 把max=0改为max=a(10) 参考答案: D 2、设有语句: Open"d: \Test.txt"ForOutputAs#1,以下叙述中错误的是______。 A: 执行该语句后,就可以通过Print#语句向文件Test.txt中写入信息 B: 用该语句建立的文件的文件号为1 C: 该语句打开d盘根目录下一个已存在的文件Test.txt,之后就可以从文件中读取信息 D: 若d盘根目录下无Test.txt文件,则该语句创建此文件 参考答案: C 3、工程中有2个窗体,名称分别为Form1、Form2,Form1为启动窗体,该窗体上有命令按钮Command1。 要求程序运行后单击该命令按钮时显示Form2,则按钮Click事件过程应该是______。 A: PrivateSubCommand1_Click() Form2.Load EndSub B: PrivateSubCommand1_Click() Form2.Visible EndSub C: PrivateSubCommand1_Click() Load Form2 EndSub D: PrivateSubCommand1_Click() Form2.Show EndSub 参考答案: D 4、在窗体上画一个名为Command1的命令按钮,然后编写如下代码: 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: 12 B: 1234 C: 34 D: 4321 参考答案: B 5、设在窗体中有一个名称为L
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 考试