⼀、单选题
  1．在⼀⾏内写多条语句时，每个语句之间⽤________来分隔。  A），
  B）：
  C）、
  D）；
  2．下⾯________是合法的变量名。
  A） X_yx
  B） 123abc
  C） integer
  D） X-Y
  3．下⾯________是不合法的整常数。
  A） 100
  B） &O100
  C） &H100
  D） 0
  4．下⾯________是合法的字符常数。
datediff是字符型函数  A） ABC$
  B） "ABC"
  C） ’ABC’
  D） ABC
  5．下⾯________是合法的单精度型变量。
  A） num!
  B） sum%
  C） xint$
  D） mm#
  6．下⾯________是不合法的单精度常数。
  A） 100!
  B） 100.0
  C） 1E+2
  D） 100.0D+2
  7．表达式16/4-2^5*8/4 MOD 5\2的值为________。
  A） 14
  B） 4
  C） 20
  8．数学表达式3≤x＜10在VB中的逻辑表达式为________。
  A） 3<=x<10
  B） 3<=x AND x<10
  C） x>=3 OR x<10
  D） 3<=x AND <10
  9．与数学表达式ab/3cd对应，不正确的VB表达式为________。
  A） a*b/(3*c*
  D）
  B） a/3*b/c/d
  C） a*b/3/c/d
  D） a*b/3*c*d
  10. RND函数不可能是下列________值。
  A） 1
  B） 0
  C） 0.123
  D）0.00005
  11. Int(198.55*100+0.5)/100的值为________。
  A） 198
  B） 199.6
  C） 198.55
  D）200
  12. Int(198.555*100+0.5)/100的值为_______。
  A）198
  B）199.6
  C）198.56
  D）200
  13. Print DateAdd("m"，1，#1/30/2000#)语句显⽰的结果为________。
  A） 00-2-29
  B） 00-2-28
  C） 00-2-30
  D）00-1-31
  14. 表达式DateDiff("y"，1，#12/30/1999#，#1/13/2000#)的结果为________。  A） 1
  B） 11
  D） 99
  15. 表达式Len（"123程序设计ABC"）的值是________。
  A） 10
  B） 14
  C） 20
  D） 17
　16 .表达式LenB（"123程序设计ABC"）的值是________。
  A） 10
  B） 14
  C） 20
  D） 17
  17. 下⾯正确的赋值语句是________。
  A） x + y = 30
  B） y = p*r*r
  C） y = x + 30
  D） 3y = x
  18. 为了给x，y，z三个变量赋初值1，下⾯正确的赋值语句是________。
  A） x = 1 : y = 1 : z = 1
  B） x = 1, y = 1, z = 1
  C） x = y = z = 1
  D） xyz = 1
  19. 赋值语句：a = 123 + MID("123456",3,2)执⾏后，a变量的值是是________。  A） “1234”
  B） 123
  C） 12334
  D） 157
  20. 赋值语句：a = 123 & MID("123456",3,2)执⾏后，a变量的值是是________。  A） “12334”
  B） 123
  C） 12334
  D） 157
  21. 表达式 12000 + "123" & 100 的结果为 ________。
  A） 12000123100
  B）出错
  C） 12123100
  D） 12223
  22. 表达式String(3, "ABCDED")的值为 ________。
  A） C
  B） "ABC"
  C） ABC
  D） "AAA"
  23. 表达式InStr(3, "EFABCDEFG","EF")的值为 ________。
  A） 1
  B） 7
  C） 2
  D） “EF”
  24. 以下合法的Visual Basic 标识符是______。
  A）ForLoop
  B）Const
  C）6abc
  D）b#x
  25.Visual Basic中的数值可以⽤⼗六进制或⼋进制表⽰，⼗六进制数以&H开头，⼋进制数以______开头。  A）$O
  B）&O
  C）$E
  D）&E
  26. 设有如下声明：
  Dim X As Integer
  如果Sgn（X）的值为-1，则X的值是______。
  A）整数
  B）⼤于0的整数
  C）等于0的整数
  D）⼩于0的数
  27. 产⽣[5，46]之间随机整数VB表达式是______。
  A）Int(Rnd(1)*42)+6
  B）Int(Rnd(1)*42)+5
  C）Int(Rnd(1))+41
  D）Int(Rnd(1)*41)+5
  28. 设a="Visual Basic"，下⾯使b=" Basic"的语句是_______。
  A） b=Left$(a,8,5)
  B） b=Right$(a,5,5)
  C） b=Mid$(a,8,5)
  D） b=InStr(a,8)
  29. 表达式Int(-17.8)+Sgn(17.8)的值是______。
  A）18
  B）-17
  C）-18
  D）-16
  30. 表达式Val(".123E2CD")的值是______。
  A）123
  B）0
  C）12.3
  D）123E2CD
31．设a=5，b=10，则执⾏c=int((b-A）*Rnd+A）+1后，c值的范围为______。  A）5～10
  B）6～9
  C）6～10
  D）5～9
  32. 设有如下变量声明
  Dim TestDate AS Date
  能为变量TestDate正确赋值的是______。
  A）TestDate=#1/1/2007#
  B）TestDate=#"1/1/2007"#
  C）TestDate=date("1/1/2007")
  D）Testdate=Format("m/d/yy","1/1/2007")
  33. 在窗体中添加⼀个命令按钮，并编写如下程序：
  Private Sub Command1_Click()
  a%=2/3
  b%=32/9
  Print a%,b%
  End Sub
  运⾏下列程序，输出结果为______。
  A）0 4
  B）0 3
  C）1 3
  D）1 4

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。