Vb等级考试模拟试题1.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Vb等级考试模拟试题(一) 单选题 1、下面合法的常量是______。 A) 1/2 B) abcd C) 1.2*5 D) False 2、下面_____是不合法的整常数。 A.100 B.O100 C.H100 D.%100 3、设a=6,则执行IF IIF(a5,-1,0) THEN X=0 ELSE X=1后,x的值为______。 A) 5 B) 6 C) 0 4、表达式A%+B+C!-D#的结果为______。 A)整型 B)长整型 C)单精度型 D)双精度型 5、设 x=5,表达式 10=x=20 的值是______。 A) True B) False C) 0 D) 表达式非法 6、执行 PRINT 9.4\3.7,9.4 MOD 3.7 命令后,结果为______。 A) 2 1 B) 3 0 C) 2 20 D) 1 2 7、下面的__________语句可以实现:先在窗体上输出大写字母A,然后在同一行的第10列输出小写字母b。 A. Print A;Tab(9);b B. Print A;Spc(8);b C. Print A;Space(10);b D. Print A;Tab(8);b 8、设a=4,b=3,c=2,d=1,则表达式IIf(ab,a,IIf(cd,c,d))的结果为______。 A) 4 B) 3 C) 2 9、表达式Int(5*Rnd+1)* Int(5*Rnd-1) 值的范围是______。 A)[0,15] B)[-1,15] C)[-4,15] D)[-5,15] 10、用Select Case语句选择|x|10情况的语句为:Case______。 A) Not (-10 To 10) B) -10 To 10 C) Is -10, Is 10 D) Abs(x)10 11、若x=0,执行语句If x Then x = 0 Else x = 1的结果是______。 A) 实时错误 B) 编译错误 C) x=1 D) x=0 12、下列程序中 s = s + j 语句共执行了______次。 Dim s As Integer Dim i As Integer, j As Integer For i = 1 To 10 Step 2 For j = 1 To 5 Step 2 s = s + j Next j Next i Print s A. 10 B. 20 C. 25 D. 15 13、在Visual Basic应用程序中,以下描述正确的是______。 A) 过程的定义可以嵌套,但过程的调用不能嵌套 B) 过程的定义不可以嵌套,但过程的调用可以嵌套 C) 过程的定义和过程的调用均可以嵌套 D) 过程的定义和过程的调用均不可以嵌套 14、假定有如下的Sub过程: Sub S(x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 S a, b Print a, b End Sub 程序运行时,单击命令按钮得到的结果是________。 A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 15、下列程序输出结果为______。 Private Sub Command1_Click() For i = 1 To 3 GetValue (i) Next i Print GetValue(i) End Sub Private Function GetValue(ByVal a As Integer) dim S As Integer S = S + a GetValue = S End Function A)

文档评论(0)

小小新 + 关注
实名认证
文档贡献者

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

1亿VIP精品文档

相关文档