有哪些信誉好的足球投注网站- 1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
(2011年必威体育精装版vb期末复习题有答案
Visual Basic 复习题库
一、单项选择题
1) 下列程序运行后，输出的结果为______。
B=1
Do while (b40)
b=b*(b+1)
Loop
Print b
a) 42 b) 39 c) 6 d) 1
答案 Dim a(4) As Integer
Dim b(4) As Integer
For K =0 To 2
a(K+1) =Val(InputBox(“请输入数据：))
b(3-K) =a(K+1)
Next K
Print b(K)
a) 1 b) 3 c) 5 d) 0
答案 Dim s As long ,x As Integer
s=0:x=1
Do While (x10)
s=s+x
x=x+2
Loop
Print s
a) 10 b) 25 c) 50 d) 100
答案Do until y5
x=x*y
y=y+1
loop
print x
a) 2 b) 5 c) 10 d) 20
答案 Private Sub cmdlt_click()
Dim I,R
R=0
For I=1 To 5 Step 1
R=R+I
Next I
lblResult.Caption=Str（R）
End Sub
a) 字符串15 b) 整数15 c) 字符串5 d) 整数5
答案：A
7) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。
X=1
do
x=x+3
print x
loop until(___)
a) x=8 b) x=8 c) x=7 d) x=7
答案 If a5 then
if b4 then
c=a-b
else
c=b-a
End if
elseif b3 then c=a*b
else
c=a mod b
End if
a) 2 b) -1 c) 1 d) 6
答案 S=0
For x=99 to 1 Step-2
s=s+x
Next x
Print s
a) 100 b) 500 c) 2500 d) 5000
答案 K=0
For I=1 To 3
a=I^I^K
print a;
Next I
a) 1 1 1 b) 1 2 3 c) 0 0 0 d) 1 4 9
答案Dim a(5) As String
Dim b As Integer
Dim I As Integer
For I =0 To 5
a(I)=I+1
Print a(I)
Next I
a) 123456 b) 6 c) 654321 d) 0
答案 Dim intsum As Integer
Dim I As Integer
intsum=0
For I=20.2 To 5 Step -4.7
intsum=intsum +I
Next I
Print intsum
a) 150 b) 200 c) 50 d) 0
答案Dim S As Integer,n As Integer
S=0:n=1
Do While n=100
S=S+n
n=n+1
Loop
Print S
a) 5050 b) 2500 c) 3000 d) 4000
答案 A=100:b=50
If ab Then
a=a-b
Else
b=b+a
End if
Print a
a) 50 b) 100 c) 200 d) 10
答案 Dim intsum As Integer
Dim I As
文档评论（0）