Visual Basic练习2Word文档格式.docx
- 文档编号:20367679
- 上传时间:2023-01-22
- 格式:DOCX
- 页数:23
- 大小:54.68KB
Visual Basic练习2Word文档格式.docx
《Visual Basic练习2Word文档格式.docx》由会员分享,可在线阅读,更多相关《Visual Basic练习2Word文档格式.docx(23页珍藏版)》请在冰豆网上搜索。
Fori=2to4
Forj=0toi-2
S=S+2
Nextj
PrintS
A)6B)12
C)3D)24
7.下列程序在执行时,分别输入12,6,25,则运行结果是。
PrivateSubCommand1_Click()
DimaAsSingle
DimbAsSingle
DimcAsSingle
DimpAsString
a=Val(InputBox("
请输入第一个数:
"
"
输入框"
0))
b=Val(InputBox("
请输入第二个数:
c=Val(InputBox("
请输入第三个数:
p="
&
a&
"
"
b&
c
p=p&
三个数中最大的数是:
Ifa>
bAnda>
cThenp=p&
a
Ifb>
aAndb>
b
Ifc>
aAndc>
bThenp=p&
Label1.Caption=p
EndSub
8.下列程序在执行时,在输入框中输入15,则运行结果是。
DimNumberAsSingle
Number=val(InputBox(”请输入一个数字”))'
设置变量初值。
SelectCaseNumber
Case1To5
Forml.Print”你使用了to关键字”
Case6,7,8,9,10
Forml.Print“你使用了列表的方式”
Caseis>
10
Form1.Print“你使用了is关键字”
CaseElse
Forml.Print”其他数值显示”
EndSelect
A)你使用了to关键宇
B)你使用了列表的方式
C)你使用了Is关键字
D)其他数值显示
9.以下程序的作用是计算累加和1+2+3+…+100,但程序不完整,请从以下四个选项中,选择一项补充完该程序,则最适合的是。
DimsAsInteger,nAsInteger
s=0:
n=l
DoWhile
s=s+n
n=n+1
Prints
A)n<
=100B)n<
100
C)n>
100D)n>
=100
10.以下程序用于求s=1+(1+2)+(1+2+3)+……+(1+2+3+……+100)的和,补充完该程序。
DimnAsInteger
DimjAsLong
DimsAsLong
n=100
j=0
s=0
Fori=1Ton
j=
s=s+j
Nexti
Prints
11.以下程序段执行的结果是。
DimaAsInteger
DimnAsInteger
DimsAsInteger
DoUntils=10
n=n+1
a=a+n
s=s+a
Printn
A)100B)3
C)4D)50
12.有如下程序:
PrivateSubCommand1_Click()
DimnAsLong
DimtAsLong
n=1
s=1
DoUntils>
10000
n=n+1
t=1
Next
s=s*t
Printn,s
Loop
该程序的作用是设s=11*22*……*nn,求s不大于10000时的最大的n。
该程序不完整补充完该程序。
13.下面的程序段执行后,共循环次。
j=10
Fori=-1To1Step0.3
j=j+1
Printj
A)5B)6
C)7D)8
14.下面的程序段执行后的结果是。
Fori=1To3
x=0
Forj=1To3
Fork=1To3
x=x+5
Nextk
Nextj
Printx
A)100B)57
C)45D)48
15.下面程序段执行后,共循环次。
Fori=1To2
Forj=1toi
Fork=jTo4
x=x+1
Printx
A)10B)15
C)14D)ll
16.在窗体上添加一个标签控件(name属性为label1)和一个命令按钮控件(name属性为
command1),然后编写事件过程如下:
PrivateSubConmmand1_Click()
DimsumAsInteger
Label1.Caption="
Fori=1To5
sum=sum*1
Label1.Caption=sum
EndSub
上述程序的执行结果是。
A)在标签控件中输出120
B)在标签控件中输出0
C)标签控件中输出不定值
D)出错。
17.以下程序执行的结果是。
Forj=0Toi+1
Nextj
A)9B)12
C)18D)24
18.下列程序执行后的结果是。
x=10
Fori=6.3To4.9Step-0.3
x=x-1
19.下列程序的执行结果是。
i=6.3
Whilei>
4.9
i=i-0.3
Wend
20.设有如下语句:
y=IIf(x>
20,1,2)
Printy
以上程序段的执行结果是。
A)10B)20
C)1D)2
21.以下程序,用于判断一个数是否为素数。
素数是只能被1和数本身整除的自然数。
一个自然数不是素数,就是合数。
用被测试的数除以从2开始到读数本身的数,如果能除尽(余数为0),则为合数)如果都除不尽(余数均不为0),则为素数请在划线处将下面过程补充完整:
DiminputvrAsInteger
inputvar=InputBox("
请输入数字"
)
Fori=2Toinputvar-1
IfinputvarModi=[1]then
GoTo100
EndIf
Print"
素数"
GoTo[2]
100:
合数"
200:
22.有如下程序,该程序的执行结果是。
PrivateSubForm_Click()
Fori=1To5
PrintTab(2*i);
Forj=1To5
PrintSpc
(1);
#"
;
A
C)
D)
二、数组
1.设有数组声明语句如下:
optionbase1
dimA(3,-2to1)
则数组A中共有个元素。
A)3B)16
C)9D)9
2.设用复制,粘贴的的方法建立一个命令按钮数组command1,以下对该数组的说法错误的是。
A)数组中的每个控件刚建立时,它们的caption属性都相同;
B)数组中的每个控件刚建立时,它们的大小是相等的;
C)只需要使用命令按钮数组名Commandl,就可以在代码中访问任何一个命令按钮。
D)命令按钮共享同样的事件过程。
3.以下说法错误的时。
A)使用redim语句可以改变数组的维数。
B)使用redim语句可以改变数组的类型。
c)使用redim语句可以改变数组每一维的大小。
D)使用redim语句可以对数组中所有的元素进行初始化。
4.下面的数组声明语句正确的是。
A)DimA[3,4]asintegerB)DimA(3,4)asinteger
C)DimA[3:
4]ASIntegerD)DimA(3;
4)asInteger
5.下列程序段的执行结果是。
Dimm(10)
Fori=0To10
m(i)=2*i
Printm(m(3))
A)12B)6
C)3D)9
6.下列程序的执行结果是。
DimA(5)
A(i)=i*i
PrintA(i-1)
A)5B)25
C)16D)9
7.在下列程序执行过程中,分别在输入对话框中输入1,3,5,则执行后的结果是。
Dima(4)AsInteger
Dimb(4)AsInteger
Forj=0To2
a(j+1)=Val(InputBox("
请输入数据"
))
b(3-j)=a(j+1)
Printb(j)
A.1B.3C.5D.0
8.有一数组定义语句如下:
DimM(-2to1)AsInteger
该语句定义的数组M中包含的元素个数为 。
A.3B.4C.2D.1
9.下列程序执行后的结果是 。
OptionBase1
Dima(6)AsInteger
Dimp(3)AsInteger
DimkAsInteger
k=0
Fori=1To6
a(i)=i
Fori=1To3
p(i)=a(i+i)
k=k+p(i)
Printk
A.6B.12C.18D.24
10.在窗体上有如下事件过程,该过程执行的结果是 。
DimA
A=Array(1,2,3,4)
j=1
Fori=1To4
s=s+A(i)*j
j=j*10
A.4321B.3241C.1234D.2341
11.在窗体上建立一个命令按钮控件(name属性为command1),然后编写如下代码,则该程序执行后,输出的结果是 。
DimA(10,10)AsInteger
Fori=1To10
Forj=1To10
Ifi=jThen
A(i,j)=1
Else
A(i,j)=0
EndIf
PrintA(i,j);
A.
B.
C.
12.有数组定义语句如下:
DimI(99,99)AsInteger
则数组I中包括个 元素。
A.99B.10000
C.9801D.9000
13. 语句用于遍历对象集合中的元素。
A.DoWhile……LoopB.ForEach……Next
C.While……WendD.For……Next
14.下列程序执行时会产生错误。
Dima(5)AsInteger
Fori=1to6
A(i)=i
A.下标越界B.上标越界
C.死循环D.数组变量的定义错误
15.有如下程序段,该段程序的执行结果是 。
Dima(10)AsInteger
a(i)=i^2
Printa(i-1)
A.100B.81C.99D.121
16.有如下程序段,该段程序的执行结果是 。
Dima(100)AsInteger
Fori=1To10
i=i^2
a(i)=i
Printa(a(25))
A.10B.程序出错C.25D.100
三、过程
1.有如下程序段,在执行该程序时,在输入框中输入数值5,则该程序的执行结果是 。
下面给出通用过程及事件过程代码:
Fact通用于过程:
SubFact(mAsInteger, totalAsLong)'
计算阶乘子过程
total=1
Fori=1Tom
total=total*i
命令按钮的Click事件代码:
PrivateSubCmmand1_Click()
DimtotAsLong
a=Val(InputBox("
CallFact(a,tot)
Printtot
2.Sub过程与Function过程最根本的区别是。
A)Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不能。
B)Function过程可以有参数,而Sub过程不能。
C)两种过程、参数的传递方式不同。
D)Sub过程不能返回值,而Function过程可以通过过程名返回值。
3.在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Textl,然后再加上
如下程序:
Functionfun(xAsIntegeryAsInteger)AsInteger
fun=IIf(x<
y,x,y)
EndFunction
PrivatesubCommand1_Click()
DimaAsInteger,bAsInteger
a=5
b=l0
Textl.Text=Str(fun(a,b))
程序运行后按回车键,文本框中显示的内容为A。
A.5B.10C.20D.15
4.有如下过程:
Functionfunc(byValaasInteger,basInteger)AsInteger
StaticmAsInteger
StaticiAsInteger
m=2
i=i+m+1
m=i+a+b
func=m
EndFunction
在窗体上添加一个命令按钮,编写事件过程如下:
PrivateSubCommand1_Click
DimkAsInteger
DimmAsInteger
k=4
m=1
Fori=1to3
p=func(k,m);
Printp
该程序的运行结果是。
A.81114B.8910
C.101112D.81012
5.有如下函数过程:
PrivateFunctionpd(ByValiAsLong)AsBoolean
IfiMod2=0Then
pd=True
Else
pd=False
调用该函数的过程如下:
DimxAsLong
x=Val(InputBox("
请输入一个数据"
Ifpd(x)Then
x=x-1
x=x+1
程序执行时输入数据10,则程序运行结果是。
A.10B.11C.9D.8
6.有自定义过程如下:
Subf(k,s)
s=1
Form=1Tok
s=s*m
Nextm
调用该过程的程序如下:
i=0
Fork=1To3
Callf(k,s)
i=i+s
Printi
则该程序的执行结果是。
A.10B.9C.8D.7
7.有函数过程如下:
Functiona(i)
s=0
Fork=1Toi
s=s+(k+1)*k
a=s
调用该函数过程的事件过程如下:
b=5
x=a(b)
A.10B.30C.50D.70
8.有函数过程如下:
Functionfull(xAsInteger)AsBoolean
IfxMod5=0AndxMod7=0Then
full=True
full=False
Forn=1To50
Iffull(n)Then
Nextn
则该程序的执行结果是C。
A.5B.7C.35100
四、菜单和对话框
1.假定有一个菜单项,名为Menuitem,为了在运行时使该菜单失效,以下正确的语句是。
A)Menuitem.Enabled=FalseB)Menuitem.Enabled=True
C)Menuitem.Visible=TrueD)Menuitem.visibl=False
2.窗体上建立了一个名为commondialog1的通用对话框,用下面的语句建立一个对话框:
commondialog1.Action=2
则以下语句与之等价的是。
A)Commondialog1.showOpenB)Commondialog1.showsave
C)Commondialog1.showcolorD)Commondialog1.showFont
3.假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项不可见,应使用的正确语句是。
A)MenuItem.Enabled=False
D)MenuItem.Enabled=True
C)MenuItem.Visible=True
D)MenuItem.Visible=False
4.在窗体上画一个命令按钮和一个通用对话框,其名称分别为Commandl和Commondialog1,然后编写如下事件过程:
CommonDialog1.DialogTitle="
打开文件"
CommonDialogl.filter="
AllFile(*.*)|*.*"
CommonDialogl.InitDir="
C:
\"
CommonDialogl.
5.要设置s键为某个菜单项的快捷访问键,应该。
A)在字母s的前面插入“*”键。
B)在字母s的后面插入“*”键。
C)在字母s的前面插入“&”健。
D)在字母s的后面插入“&”键.
五、多重窗体与环境运用
1.下列操作中不能向工程中添加窗体的是。
A)执行“工程”菜单中的“添加窗体”命令
B)单击工具栏上的“添加窗体”按钮
C)右击窗体,在弹出的菜单中选择“添加窗体”命令
D)右击工程资源管理器,在弹出的菜单中选择“添加”命令,然后在下一级菜单中选择“添加窗体”命令。
2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic练习2 Basic 练习