有哪些信誉好的足球投注网站- 1、本文档共26页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
VB程序设计练习题答案
参考答案
第一章 Visual Basic程序设计概述
一、填空题C 2、C 3、C 4、D 5、D
第二章 简单的VB程序设计
一、填空题Tabstop
2、Left、top、height、width
3、enabled
4、backcolor
5、name
6、name和caption属性标准模块文件运行模式填空题Const
2、Variant
3、隐式声明、显示声明
4、option base、ubound、lbound
5、强制变量声明
6、表示a2是一个可选参数
7、End
8、Msgbox、Inputbox
9、*.*、showprint
10、Mid()
11、6
12、redim preserve arraya(ubound(arraya())+1)
13、static
14、0
15、f
16、rem、’
17、变量、数组
18、1 to 4,1 to 5
19、Index
20、按地址Option Explicit
22、13
23、ityo
24、符号
25、LCase
26、ESC
27、部件
28、断点
29、False
30、Option Explicit
31、UCase
32、Mid
33、#
34、过程
35、private
36、求x的绝对值
37、2.5
二、选择题
1、D
2、B
3、D
4、C
5、B
6、C
7、D
8、C
9、D
10、A
11、A
12、D
13、B
14、B
15、D
16、B
17、A
18、D
19、D
20、C
21、D
22、B
23、B
24、B
25、B
26、A
27、B
28、C
28、B
30、C
四、读程序题
1、结果如下：
B
2、结果如下：
BB
CCC
DDDD
EEEEE
3、功能如下：
在20个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。
4、输出结果输出结果输出结果输出结果
0 2 0
8、输出结果3
3 3 2
五、编程题
1、参考代码如下：
Private Sub Command1_Click()
Dim year, x As Integer
year = Val(Text1.Text)
If year Mod 400 = 0 Then
Label2.Caption = 是闰年
Else
下面是嵌套块If语句
If year Mod 4 = 0 And year Mod 100 0 Then
Label2.Caption = 是闰年
Else
Label2.Caption = 不是闰年
End If
End If
End Sub
2、程序参考代码如下：
Private Sub Command1_Click()
Dim m, n, r As Integer
m = Val ( Text1.Text )
n = Val ( Text2.Text )
If m 0 Or n 0 Then ‘ 若判断为非法数据，Then子句输出相应信息
Label2.Caption = 输入数据有错！
Else ‘ 若判断为合法数据，Else子句用辗转相除法求余数
r = m Mod n
Do While r 0
m = n
n = r
r = m Mod n
Loop
‘ 循环结束后n中存放的就是最大公约数，输出n值
Label2.Caption = 最大公约数为： n
End If
End Sub
3、参考代码如下：
Private Sub Command1_Click()
Dim x As Single
x = Val(Text1.Text)
If x 100 Or
文档评论（0）