中国石油大学华东VB练习题VB格林课堂选择题.docx
- 文档编号:5865691
- 上传时间:2023-01-01
- 格式:DOCX
- 页数:23
- 大小:21.99KB
中国石油大学华东VB练习题VB格林课堂选择题.docx
《中国石油大学华东VB练习题VB格林课堂选择题.docx》由会员分享,可在线阅读,更多相关《中国石油大学华东VB练习题VB格林课堂选择题.docx(23页珍藏版)》请在冰豆网上搜索。
中国石油大学华东VB练习题VB格林课堂选择题
姓名:
()
经济1401班
1.在窗体上画一个名称为Command1的命令按钮,编写如下事件过程:
PrivateSubCommand1_Click()
n=0
Fori=0To10
X=2*i-1
IfXMod3=0Thenn=n+1
Nexti
Printn
EndSub
运行程序,单击命令按钮,则窗体上显示的是( )。
A.3
B.7
C.1
D.5
正确答案:
A,你的答案:
A,√
2.阅读程序:
PrivateSubForm_Click()
a=0
Forj=1To15
a=a+jMod3
Nextj
Printa
EndSub
程序运行后,单击窗体,输出结果是( )。
A.1
B.15
C.105
D.120
正确答案:
B,你的答案:
B,√
3.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
c=1234
c1=Trim(Str(c))
Fori=1To4
Print______
Next
EndSub
程序运行后,单击命令按钮,要求在窗体上显示如下内容:
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,然后编写如下事件过程:
PrivateSubCommand1_Click()
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
正确答案:
A,你的答案:
C,×
13.在窗体上画一个名称为Text1的文本框,并编写如下程序:
OptionBase1
PrivateSubForm_Click()
Dimarr
DimStartAsInteger
DimFinishAsInteger
DimSumAsInteger
arr=Array(12,4,8,16)
Start=LBound(arr)
Finish=UBound(arr)
Sum=0
Fori=StartToFinish
Sum=Sum+arr(i)
Nexti
c=Sum/Finish
Text1.Text=c
EndSub
运行程序,单击窗体,则在文本框中显示的是( )。
A.40
B.12
C.10
D.16
正确答案:
C,你的答案:
B,×
15.窗体上有名称为Command1的命令按钮,其事件过程如下:
OptionBase1
PrivateSubCommand1_Click()
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
EndSub
运行程序,单击命令按钮时,窗体上显示的是
A.52
B.44
C.50
D.46
正确答案:
A,你的答案:
A,√
17.命令按钮Command1的事件过程如下:
PrivateSubCommand1_Click()
Dimarr(5,5)AsInteger
DimiAsInteger,jAsInteger
Fori=1To4
Forj=2To4
arr(i,j)=i+j
Nextj
Nexti
Printarr(1,3)+arr(3,4)
EndSub
执行上述过程,输出结果是( )。
A.6
B.11
C.7
D.12
正确答案:
B,你的答案:
B,√
12.以下过程定义中正确的过程首行是( )。
A.PrivateSubProc(OptionalaasInteger,basInteger)
B.PrivateSubProc(aasInteger)AsInteger
C.PrivateSubProc(a()AsInteger)
D.PrivateSubProc(ByVala()AsInteger)
正确答案:
C,你的答案:
C,√
17.假定有以下函数过程:
FunctionFun(SAsString)AsString
Dims1AsString
Fori=1ToLen(S)
s1=LCase(Mid(S,i,1))+s1
Nexti
Fun=s1
EndFunction
在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimStr1AsString,Str2AsString
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
PrintStr2
EndSub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串"abcdefg",则单击"确定"按钮后在窗体上的输出结果为( )。
A.abcdefg
B.gfedcba
C.ABCDEFG
D.GFEDCBA
正确答案:
B,你的答案:
B,√
14.窗体上有一个名称为Command1的命令按钮,并有如下程序代码:
OptionBase1
PrivateSubCommand1_Click()
Dima(4,4)AsInteger
DimbAsInteger
DimiAsInteger,jAsInteger
Fori=1To4
Forj=1To4
a(i,j)=i+j
Nextj
Nexti
Callf(a,b)
Printb
EndSub
PrivateSubf(x()AsInteger,ByRefyAsInteger)
y=0
Fori=1To4
y=y+x(i,i)
Next
EndSub
运行程序,单击命令按钮后,窗体上显示的是
A.2
B.20
C.0
D.8
正确答案:
B,你的答案:
B,√
20.窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下:
PrivateSubCommand1_Click()
DimiAsInteger
Fori=1To500
Ifp(i)Thens=s+1
Next
Prints
EndSub
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整除的整数个数
正确答案:
B,你的答案:
C,×
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
EndFunction
在窗体上画一个名称为Command1的命令按钮。
然后编写如下的事件过程:
PrivateSubCommand1_Click()
DimS1AsString
S1="abcdef"
PrintUCase(Fun(S1))
EndSub
程序运行后,单击命令按钮,输出结果是( )。
A.abcdef
B.DEFABC
C.ABCDEF
D.AFBECD
正确答案:
D,你的答案:
D,√
5.以下关于函数过程的叙述中,正确的是( )。
A.函数过程形参的类型与函数返回值的类型没有关系
B.当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递
C.在函数过程中,过程的返回值可以有多个
D.如果不指明函数过程参数的类型,则该参数没有数据类型
正确答案:
A,你的答案:
A,√
13.窗体上有一个名称为Command1的命令按钮,并有如下程序代码:
PrivateSubCommand1_Click()
Statica
a=1:
b=2:
c=3
Callf(a,b,c)
Printa;b;c
EndSub
Subf(ByValx,ByRefy,z)
x=x+1
y=y+1
z=z+1
EndSub
运行程序,单击命令按钮,窗体上显示的是
A.134
B.234
C.133
D.233
正确答案:
A,你的答案:
A,√
15.设子程序过程定义的首部为:
PublicSubS(XAsInteger,YAsSingle)
则以下正确的调用形式为
A.S5,4.8
B.CallS5,4.8
C.Sub5,4.8
D.CallSub(5,4.8)
正确答案:
A,你的答案:
D,×
16.设有如下程序:
PrivateSubsV(ByValmAsInteger,nAsInteger)
m=m*2
n=n-5
Printm;n
EndSub
PrivateSubForm_Click()
DimxAsInteger,yAsInteger
x=10
y=15
sVx,y
Printx;y
EndSub
运行程序,单击窗体,输出结果为
A.10152010B.20101010
C.20102010D.20151015
正确答案:
B,你的答案:
B,√
1.在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
OptionBase0
PrivateSubCommand1_Click()
DimA1(4)AsInteger,A2(4)AsInteger
Fork=0To2
A1(k+1)=InputBox("请输入一个整数")
A2(3-k)=A1(k+1)
Nextk
PrintA2(k)
EndSub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
A.2B.0
C.3D.1
正确答案:
A,你的答案:
A,√
3.下列数组定义中错误的是( )。
A.Dima(-3To-5)B.Dima(3To5)
C.Dima(-5To-3)D.Dima(-3To3)
正确答案:
A,你的答案:
A,√
4.在窗体上画一个名称为Command1的命令按钮,并编写如下程序:
OptionBase1
PrivateSubCommand1_Click()
Dima(4,4)
Fori=1To4
Forj=1To4
a(i,j)=(i-1)*3+j
Nextj
Nexti
Fori=3To4
Forj=3To4
Printa(j,i);
Nextj
Nexti
EndSub
运行程序,单击命令按钮,则输出结果为( )。
A.8 119 12B.9 1210 13
C.6 97 10D.7 108 11
正确答案:
B,你的答案:
B,√
8.窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。
要求编写一个程序,统计文本框中0-9各数字字符的个数。
某人编写如下程序:
PrivateSubCommand1_Click()
Dimcount(10)AsInteger
'第1个For循环
Fori=0To9
count(i)=0
Next
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
EndIf
Next
'第3个For循环
Fori=0To9
PrintStr(i),count(i)
Next
EndSub
运行程序后,发现不能实现题目的要求,程序应该进行的修改是
A.将count(i)=count(i)+1改为count(x)=count(x)+1
B.将第2个For循环的初值改为0
C.将第2个For语句改为Fori=0To9
D.去掉x=Val(c)语句
正确答案:
A,你的答案:
A,√
9.编写如下程序:
PrivateSubCommand1_Click()
Dima(3,3)AsInteger
DimsAsInteger
Fori=1To3
Forj=1To3
a(i,j)=i*j+i
Nextj
Nexti
s=0
Fori=1To3
s=s+a(i,4-i)
Nexti
Prints
EndSub
程序运行后,单击命令按钮Command1,输出结果为( )。
A.16B.13
C.20D.7
正确答案:
A,你的答案:
A,√
10.在窗体上画一个命令按钮,然后编写如下程序:
OptionBase1
PrivateSubCommand1_Click()
DimArr(10)AsInteger
Fori=1To10
Arr(i)=11-i
Nexti
x=InputBox("输入一个整数(3~10)")
PrintArr(2+Arr(x))
EndSub
程序运行后,单击命令按钮,在输入对话框中输入7,则输出结果为
A.4B.6
C.3D.5
正确答案:
D,你的答案:
D,√
15.在窗体上画一个命令按钮,然后编写如下程序:
Subinc(aAsInteger)
StaticxAsInteger
x=x+a
Printx;
EndSub
PrivateSubCommand1_Click()
inc2
inc3
inc4
EndSub
程序运行后,第一次单击命令按钮时的输出结果为
A.234B.111418C.4916D.259
正确答案:
D,你的答案:
D,√
17.设有如下程序:
PrivateSubsV(ByValmAsInteger,nAsInteger)
m=m*2
n=n-5
Printm;n
EndSub
PrivateSubForm_Click()
DimxAsInteger,yAsInteger
x=10
y=15
sVx,y
Printx;y
EndSub
运行程序,单击窗体,输出结果为
A.20101010B.20151015
C.10152010D.20102010
正确答案:
A,你的答案:
A,√
19.设有如下Command1的单击事件过程及fun过程:
PrivateSubCommand1_Click()
DimxAsInteger
x=Val(InputBox("请输入一个整数"))
fun(x)
EndSub
PrivateSubfun(xAsInteger)
IfxMod2=0Thenfun(x/2)
Printx;
EndSub
执行上述程序,输入6,结果是( )。
A.6 3
B.6
C.程序死循环
D.3 6
正确答案:
D,你的答案:
D,√
7.以下程序的功能是随机产生10个两位的整数:
OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
DimiAsInteger
Randomize
Fori=1To10
a(i)=Int(Rnd*100)+1
Printa(i)
Nexti
EndSub
运行以上程序,发现有错误,需要对产生随机数的语句进行修改。
以下正确的修改是( )。
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
正确答案:
D,你的答案:
O,×
8.在窗体上画一个名称为Text1的文本框,并编写如下程序:
OptionBase1
PrivateSubForm_Click()
Dimarr
DimStartAsInteger
DimFinishAsInteger
DimSumAsInteger
arr=Array(12,4,8,16)
Start=LBound(arr)
Finish=UBound(arr)
Sum=0
Fori=StartToFinish
Sum=Sum+arr(i)
Nexti
c=Sum/Finish
Text1.Text=c
EndSub
运行程序,单击窗体,则在文本框中显示的是( )。
A.12B.10C.16D.40
正确答案:
B,你的答案:
O,×
9.在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
PrivateSubCommand1_Click()
Dimn()AsInteger
Dima,bAsInteger
a=InputBox("第1个数")
b=InputBox("第2个数")
ReDimn(aTob)
Fork=LBound(n)ToUBound(n)
n(k)=k
Printn(k);
Nextk
EndSub
程序运行后,单击命令按钮,在输入对话框中分别输入2和3,输出结果为
A.23B.12C.34D.45
正确答案:
A,你的答案:
O,×
13.窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的代码如下:
PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
x=Val(InputBox("输入整数"))
y=Val(InputBox("输入整数"))
PrintStr(fun(x,y)+x+y)
EndSub
PrivateFunctionfun(ByRefmAsInteger,ByValnAsInteger)
m=m*m
n=n+n
fun=m+n
EndFunction
运行程序,单击命令按钮时,出现输入对话框,分别输入3、5,则窗体上显示的是
A.33B.27C.28D.38
正确答案:
A,你的答案:
O,×
15.设窗体上有一个Command1命令按钮,还有以下程序代码:
PrivateSubCommand1_Click()
StaticxAsInteger
x=x+1
Callproc(x)
Printx,
EndSub
PrivateSubproc(aAsInteger)
StaticxAsInteger
x=x+a
a=x
EndSub
程序运行后,3次单击命令按钮,则产生的输出是
A.135B.246
C.123D.137
正确答案:
D,你的答案:
O,×
11.窗体上有一个名称为Command1的命令按钮。
要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。
命令按钮的单击事件过程如下:
PrivateSubCommand1_Click()
Open"c:
\f1.txt"ForInputAs#1
Open"c:
\f2.txt"ForOutputAs#2
DoWhileNotEOF
(2)
LineInput#1,str1
Print#2,str1
Loop
Close
Kill
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 中国 石油大学 华东 VB 练习题 格林 课堂 选择题