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

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

admin2015-06-30  56
问题 在窗体上画一个名称为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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)