中国石油大学华东VB练习题VB格林课堂选择题Word格式.docx
《中国石油大学华东VB练习题VB格林课堂选择题Word格式.docx》由会员分享，可在线阅读，更多相关《中国石油大学华东VB练习题VB格林课堂选择题Word格式.docx（23页珍藏版）》请在冰豆网上搜索。
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在横线处应填入的内容为（ ）。
A.Right（c1，i）
B.Mid（c1，i，1）
C.Mid（c1，i，i）
D.Left（c1，i）
D，你的答案：
D，√
6.在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：
Counter＝0
Fori＝1To4
Forj＝6To1Step－2
Counter＝Counter＋1
Nextj
Nexti
Label1.Caption＝Str（Counter）
EndSub
程序运行后，单击命令按钮，标签中显示的内容是（ ）。
A.12
B.11
C.20
D.16
C，×
13.在窗体上画一个名称为Text1的文本框，并编写如下程序：
OptionBase1
Dimarr
DimStartAsInteger
DimFinishAsInteger
DimSumAsInteger
arr＝Array（12，4，8，16）
Start＝LBound（arr）
Finish＝UBound（arr）
Sum＝0
Fori＝StartToFinish
Sum＝Sum＋arr（i）
c＝Sum/Finish
Text1.Text＝c
运行程序，单击窗体，则在文本框中显示的是（ ）。
A.40
B.12
C.10
C，你的答案：
B，×
15.窗体上有名称为Command1的命令按钮，其事件过程如下：
Dima
Dimb（10）AsInteger
a=Array（2,4,7,3,9,6）
Fori=LBound（a）ToUBound（a）
b（i）=a（i）+i
Sum=Sum+b（i）
Nexti
PrintSum
运行程序，单击命令按钮时，窗体上显示的是
A.52
B.44
C.50
D.46
17.命令按钮Command1的事件过程如下：
Dimarr（5，5）AsInteger
DimiAsInteger，jAsInteger
Fori＝1To4
Forj＝2To4
arr（i，j）＝i＋j
Nextj
Printarr（1，3）＋arr（3，4）
执行上述过程，输出结果是（ ）。
A.6
C.7
D.12
12.以下过程定义中正确的过程首行是（ ）。
A.PrivateSubProc（OptionalaasInteger，basInteger）
B.PrivateSubProc（aasInteger）AsInteger
C.PrivateSubProc（a（）AsInteger）
D.PrivateSubProc（ByVala（）AsInteger）
C，√
17.假定有以下函数过程：
FunctionFun（SAsString）AsString
Dims1AsString
Fori＝1ToLen（S）
s1＝LCase（Mid（S，i，1））＋s1
Fun＝s1
EndFunction
在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimStr1AsString，Str2AsString
Str1＝InputBox（"
请输入一个字符串"
）
Str2＝Fun（Str1）
PrintStr2
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"
abcdefg"
，则单击"
确定"
按钮后在窗体上的输出结果为（ ）。
A.abcdefg
B.gfedcba
C.ABCDEFG
D.GFEDCBA
14.窗体上有一个名称为Command1的命令按钮，并有如下程序代码：
Dima（4,4）AsInteger
DimbAsInteger
DimiAsInteger,jAsInteger
Fori=1To4
Forj=1To4
a（i,j）=i+j
Nextj
Callf（a,b）
Printb
PrivateSubf（x（）AsInteger,ByRefyAsInteger）
y=0
y=y+x（i,i）
Next
运行程序，单击命令按钮后，窗体上显示的是
A.2
B.20
C.0
D.8
20.窗体上有一个名称为Command1的命令按钮，其单击事件过程及相关的函数过程如下：
DimiAsInteger
Fori=1To500
Ifp（i）Thens=s+1
Prints
PrivateFunctionp（xAsInteger）AsBoolean
IfxMod7<
>
0Then
p=True
Else
p=False
EndIf
EndFunction
关于上述程序，以下叙述中正确的是
A.Function过程定义有误，函数过程p的名称与该过程中的变量名p相同
B.函数过程p的返回值为Boolean类型
C.Command1_Click事件过程中If语句的条件表达式不完整
D.程序功能是统计1-500范围内能被7整除的整数个数
4.设有如下通用过程：
PublicFunctionFun（xStrAsString）AsString
DimtStrAsString，strLAsInteger
tStr＝"
"
strL＝Len（xStr）
i＝1
DoWhilei<
＝strL/2
tStr＝tStr&
Mid（xStr,i,1）&
Mid（xStr,strL－i＋1,1）
i＝i＋1
Loop
Fun＝tStr
在窗体上画一个名称为Command1的命令按钮。
然后编写如下的事件过程：
DimS1AsString
S1＝"
abcdef"
PrintUCase（Fun（S1））
程序运行后，单击命令按钮，输出结果是（ ）。
A.abcdef
B.DEFABC
C.ABCDEF
D.AFBECD
5.以下关于函数过程的叙述中，正确的是（ ）。
A.函数过程形参的类型与函数返回值的类型没有关系
B.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
C.在函数过程中，过程的返回值可以有多个
D.如果不指明函数过程参数的类型，则该参数没有数据类型
13.窗体上有一个名称为Command1的命令按钮，并有如下程序代码：
Statica
a=1:
b=2:
c=3
Callf（a,b,c）
Printa;
b;
c
Subf（ByValx,ByRefy,z）
x=x+1
y=y+1
z=z+1
运行程序，单击命令按钮，窗体上显示的是
A.134
B.234
C.133
D.233
15.设子程序过程定义的首部为：
PublicSubS（XAsInteger,YAsSingle）
则以下正确的调用形式为
A.S5,4.8
B.CallS5,4.8
C.Sub5,4.8
D.CallSub（5,4.8）
D，×
16.设有如下程序：
PrivateSubsV（ByValmAsInteger,nAsInteger）
m=m*2
n=n-5
Printm;
n
DimxAsInteger,yAsInteger
x=10
y=15
sVx,y
Printx;
y
运行程序，单击窗体，输出结果为
A.10152010B.20101010
C.20102010D.20151015
1.在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：
OptionBase0
DimA1（4）AsInteger，A2（4）AsInteger
Fork＝0To2
A1（k＋1）＝InputBox（"
请输入一个整数"
A2（3－k）＝A1（k＋1）
Nextk
PrintA2（k）
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ ）。
A.2B.0
C.3D.1
3.下列数组定义中错误的是（ ）。
A.Dima（－3To－5）B.Dima（3To5）
C.Dima（－5To－3）D.Dima（－3To3）
4.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
Dima（4，4）
Forj＝1To4
a（i，j）＝（i－1）*3＋j
Fori＝3To4
Forj＝3To4
Printa（j，i）；
Print
运行程序，单击命令按钮，则输出结果为（ ）。
A.8 119 12B.9 1210 13
C.6 97 10D.7 108 11
8.窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。
要求编写一个程序，统计文本框中0-9各数字字符的个数。
某人编写如下程序：
Dimcount（10）AsInteger
'
第1个For循环
Fori=0To9
count（i）=0
s=Trim（Text1.Text）
strLen=Len（s）
第2个For循环
Fori=1TostrLen
c=Mid（s,i,1）
Ifc>
="
0"
Andc<
9"
Then
x=Val（c）
count（i）=count（i）+1
第3个For循环
PrintStr（i）,count（i）
运行程序后，发现不能实现题目的要求，程序应该进行的修改是
A.将count（i）=count（i）+1改为count（x）=count（x）+1
B.将第2个For循环的初值改为0
C.将第2个For语句改为Fori=0To9
D.去掉x=Val（c）语句
9.编写如下程序：
Dima（3，3）AsInteger
DimsAsInteger
Fori＝1To3
Forj＝1To3
a（i，j）＝i*j＋i
s＝0
s＝s＋a（i，4－i）
Prints
程序运行后，单击命令按钮Command1，输出结果为（ ）。
A.16B.13
C.20D.7
10.在窗体上画一个命令按钮，然后编写如下程序：
DimArr（10）AsInteger
Fori=1To10
Arr（i）=11-i
x=InputBox（"
输入一个整数（3～10）"
PrintArr（2+Arr（x））
程序运行后，单击命令按钮，在输入对话框中输入7，则输出结果为
A.4B.6
C.3D.5
15.在窗体上画一个命令按钮，然后编写如下程序：
Subinc（aAsInteger）
StaticxAsInteger
x=x+a
inc2
inc3
inc4
程序运行后，第一次单击命令按钮时的输出结果为
A.234B.111418C.4916D.259
17.设有如下程序：
A.20101010B.20151015
C.10152010D.20102010
19.设有如下Command1的单击事件过程及fun过程：
DimxAsInteger
x＝Val（InputBox（"
））
fun（x）
PrivateSubfun（xAsInteger）
IfxMod2＝0Thenfun（x/2）
Printx；
执行上述程序，输入6，结果是（ ）。
A.6 3
B.6
C.程序死循环
D.3 6
7.以下程序的功能是随机产生10个两位的整数：
Dima（10）AsInteger
DimiAsInteger
Randomize
Fori＝1To10
a（i）＝Int（Rnd*100）＋1
Printa（i）
运行以上程序，发现有错误，需要对产生随机数的语句进行修改。
以下正确的修改是（ ）。
A.a（i）＝Int（Rnd*100）B.a（i）＝Int（Rnd*101）
C.a（i）＝Int（Rnd*100）＋10D.a（i）＝Int（Rnd*90）＋10
O，×
8.在窗体上画一个名称为Text1的文本框，并编写如下程序：
A.12B.10C.16D.40
9.在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
Dimn（）AsInteger
Dima,bAsInteger
a=InputBox（"
第1个数"
b=InputBox（"
第2个数"
ReDimn（aTob）
Fork=LBound（n）ToUBound（n）
n（k）=k
Printn（k）;
Nextk
程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为
A.23B.12C.34D.45
13.窗体上有一个名称为Command1的命令按钮，其单击事件过程及相关的代码如下：
x=Val（InputBox（"
输入整数"
y=Val（InputBox（"
PrintStr（fun（x,y）+x+y）
PrivateFunctionfun（ByRefmAsInteger,ByValnAsInteger）
m=m*m
n=n+n
fun=m+n
运行程序，单击命令按钮时，出现输入对话框，分别输入3、5，则窗体上显示的是
A.33B.27C.28D.38
15.设窗体上有一个Command1命令按钮，还有以下程序代码：
Callproc（x）
Printx,
PrivateSubproc（aAsInteger）
a=x
程序运行后，3次单击命令按钮，则产生的输出是
A.135B.246
C.123D.137
11.窗体上有一个名称为Command1的命令按钮。
要求编写程序，把文件f1.txt的内容写到文件f2.txt中，然后将f1.txt删除。
命令按钮的单击事件过程如下：
Open"
c:
\f1.txt"
ForInputAs#1
\f2.txt"
ForOutputAs#2
DoWhileNotEOF
（2）
LineInput#1,str1
Print#2,str1
Loop
Close
Kill
升级会员 