- 1、本文档共52页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
2013内蒙古对口学考试计算机类VB综合题库
VB语言程序设计综合练习一
选择题部分
1 已知A$=,则表达式Val(Left(A$,4)+Mid(A$,4,2))的值为________。
A) 123456 B) 123445 C) 8 D) 6
2 在直角坐标系中,x、y是坐标系中任意点的位置,用x与y表示在第一或第三象限的表达式,以下不正确的是______。
A)(x=0 and y=0) and (x=0 and y=0)
B)(x=0 and y=0) and (x=0 and y=0)
C)x*y=0 D)x*y=Abs(x*y)
3 语句:Print “Sqr(9)=” ; Sqr(9)的输出结果是_______。
A)Sqr(9)= Sqr(9) B)Sqr (9)=3C)”3”=3 D)3= Sqr(9)
4 下面程序段的输出结果为________。
X = 10 :Y = 20
Print X ;”+” ;Y ;”= ”;
Print X + Y
A)10 + 20 = 30 B)10 + 20 = 30 C)X+ Y = 30 D)10 + 20 = 30
5 若要处理一个值为50000的整数,应采用哪种VB基本数据类型描述更合适?_______
A)Integer B)Long C)Single D)String
6 以下函数表达式中,其值等于-3的是________。
A)Int(-3.5)B)Fix(-3.5)C)Round(-3.5)D)Abs(-3.5)
7 以下函数表达式中,其值不等于3的是________。
A)Int(3.5)B)Fix(3.5)C)Round(3.5)D)Abs(-3)
8 以下函数表达式中,其值不等于-4的是________。
A)Int(-3.5)B)Fix(-4.5)C)Round(-3.5)D)Abs(-3.5)
9 以下函数表达式中,其值等于4的是________。
A)Int(3.5)B)Fix(3.5)C)Round(3.5)D)Abs(3.5)
10 以下函数表达式中,其值等于3.5的是________。
A)Int(3.5)B)Fix(3.5)C)Round(3.5)D)Abs(3.5)
11.窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim M(10), N(10)
I = 3
For T = 1 To 5
M(T) = T
N(I) = 2 * I + T
Next T
Print N(I); M(I)
End Sub
窗体运行后,单击命令按钮,输出结果为______。
A)3 11 B)3 15 C)11 3 D)15 3
12. 下列程序段的执行结果为______。
Dim M(10)
For I=0 To 9
M(I)=2*I
Next I
Print M(M(3))
A)12 B)6 C)0 D)4
13 设有如下程序:
Option Base O
Prvate Sub Form_Click()
Dim a
Dim i As Integer
a= Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5 -i);
Next
End Sub
程序运行后,单击窗体,则在窗体上显示的是______。
A)4 3 2 1 B)5 4 3 2 C)6 5 4 3 D)7 6 5 4
14 在窗体上面画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a1(4,4),a2(4,4)
For I=1 to 4
For j=1 To 4
a1(I,j)=I+j
a2(I,j)=a1(I,j)+I+j
Next j
Next I
Print a1(3,3);a2(3,3)
End Sub
程序运行后,单击命令按钮,在窗体上输出的是______。
A)6 6 B)10 5 C)7 21 D)6 12
15 有以下程序:
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i=1 To 3
For j=1 To 2
arr(i,j)=i*2+j
Next j
Next i
ReDim Preserve arr(3,4)
For j=3 To
文档评论(0)