2013内蒙古对口学考试计算机类VB综合题库.doc

2013内蒙古对口学考试计算机类VB综合题库.doc

  1. 1、本文档共52页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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)

zhuangbi6646 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档