有哪些信誉好的足球投注网站- 1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB章节练习答案
第一章答案
1.1小节
D 本题考查2点，1是在模块中申明必须用private，2不能使用动态数组。所以答案AB都有问题
3 A
4 C D ，A B错误
1.2
1 A
2 B
3 B
4 D
1.3
1 D
2 C
3 168
4 25 考查str(有符号位)与format区别
5 B
6 A
1
海洋培训
海洋培训
It S
网络科技
School
32
17
it school of sea海洋电脑培训学校下属海浪网络科技
1.4
1 C
2 A
3 A 计算结果为4，但答案中没用，所以将4转化为True
4 B
5 -3/8+8*int(24.8) (8+6)^(4/-2)+sin(2*3.1415926)
((x+y)+z)*80-5*(C+D) cos(c+2)^2
2*a*(7+b) 8*e^3*log(2)
6 B 题干错误：[10,27]改为[10,37]
7 B
1.5
1 Int(76*rnd)+11 I mod 4=0
2 D(将题干中“不能显示”改 “能显示”)
3 12,345.68
4 A inputbox如果声明了x是数值且输入的是数，则得到数值型，相对正确，BCD选项中X如果是数值类型，而右边的值是数其实也可以
5 B 千分位不可以放在格式的两头
6 17:23:0
7 D
8 B
9 D
10 是否 第1个 题干要求的是第4个但仅只有2个，不符合要求，所以用默认的第1个
11 C
12 65 A海洋培训 25 3 -1
13 字符串类型
14 C
15 A
1.6
1 FontBold=True
2 默认字体，即宋体
3 printform
第二章
2.1
1 B(题干由错误改正确) 2 B(题干6改16) 3 B 4 B 5 B 6 A
2.2
1 B(考虑a b的数据类型和case的值必须是常数值) 2 A 3 B 4 B
2.3
1 C 2 i=4.8 s=4 3 B 4 C 5 B 6 B(While语句无Exit子句) 7 B 8 C 9 C 10 B 11 A
22
44
66
13 B 14 D 15 B 16 C 17 B 18 C(超纲) S=9 3 8 4 9 2 11 13 17 19
24
16
8
nMax nMin s=s-Max-Min
Is5 5 Is5
x=Iif(ab,a,b)
Rnd X Mod 5 X (被整除 改 被5整除)
X=0 Xamin
B If s100 then exit for If Countn then exit do
( X=5 To Step -1 改 X=5 To 1 Step -1)
*
**
***
****
*****
Mid(a$,i,1)
j = i Exit For
海
海海海海
35 Int(Rnd*101) maxan(i%)
2.4
1)
Private Sub Form_Click()
Dim s As Long, i As Integer
For i = 1 To 9
s = s + i ^ (9 - i + 1)
Next
Print s
End Sub
2)
Private Sub Form_Click()
Dim s As Single, i As Integer
s = 500
Do Until s 1000
s = s * 1.05
i = i + 1
Loop
Print i
End Sub
3)
Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 1 To 9
Print Tab((9 - i + 1) * 3); print打印数值时前后有空格，所以乘以3
For j = 1 To i - 1
Print j;
Next
Print i;
For j = i - 1 To 1 Step -1
Print j;
Next
Print
Next
End Sub
4)
Private Sub Form_Cli
文档评论（0）