在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer, y As Integer Dim s As String s = "2013-

admin2015-06-30  35

问题 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
  Dim x As Integer, y As Integer
  Dim s As String
  s = "2013-2014"
  x = Int(Rnd(1)) + 100
  y = Val(Left(s, 3))
  Select Case x + y
    Case Is > 301
         Print "分支1"
    Case 300 To 301
         Print "分支2"
    Case Is < 301
         Print "分支3"
  End Select
End Sub
程序运行时,单击Command1,则在窗体上输出的结果是

选项 A、分支1
B、分支2
C、分支3
D、无任何输出

答案B

解析 Rnd英文全称Random,意随机数,Rnd*100生成一个取值在[0,100)之间的随机数(注意不包含100)。取整函数Int(x),英文全称:Integer,返回值为不大于自变量x的最大整数,Int(Rnd(1))=0,x=100。类型转换函数Val(s),返回值为字符串表达式s中所包含的数值,若遇到字母(指数符号除外)则终止转换。字符串截取函数Left$(s,n),截取字符串s左边的n个字符。Left(s,3)=201,Val(s)=Val(201)=201。x+y=100+201=301;满足300 To 301,故最后输出的结果是分支2,本题正确选项为B。
转载请注明原文地址:https://kaotiyun.com/show/WAQp777K
0

最新回复(0)