VB中select case 语句的用法
我在VB中编写了如下代码
Private Sub Command1_Click()
Randomize
Dim Time As Date
Time = Time + Rnd
Picture1.Print "今天 " & Time
Select Case Time
Case Is > Now
Picture1.Print "距现在还有" & Format(Now - Time, "HH时MM分SS秒")
Case Else
Picture1.Print "到现在已经过了" & Format(Time - Now, "HH时MM分SS秒")
End Select
End Sub
Private Sub Form_Load()
Label2 = Time
End Sub
我是要产生今天的一个随机时间然后与现在的时间比较，可是我随机出来都是“到现在已经过了多少多少，不会显示距现在还有多少多少，明明应该显示后者的还是显示的前者，我不知道问题出在哪里，求高手解答，
不能用“Time”关键字做变量名称。还有“Now”包括了时间和日期，而前面随机生成的时间不包括日期，会导致判断错误。代码可改为：
Private Sub Command1_Click()Randomize
Dim rTime As Date
rTime = rTime + Rnd
Picture1.Print "今天 " & rTime
Select Case rTime
Case Is > Time
Picture1.Print "距现在还有" & Format(Time - rTime, "HH时MM分SS秒")
Case Else
Picture1.Print "到现在已经过了" & Format(rTime - Time, "HH时MM分SS秒")
End Select
End Sub
Private Sub Form_Load()
Label2 = Time
End Sub
以上代码主要是把之前的“Time”的变量名改成了别的名称，还有后面的“Now”改成了“Time”。。
另，你的 Rnd 只是0.几而已。而刚定义的Time是2000年之前的日期吧？
也就是Time+ Rnd是以前的时间。
如果在Time = Time + Rnd前加一条语句：Time=now()可能会是以后的。
或者把Time = Time + Rnd改为Time = Time + Rnd*100
这道题还没看完先写2个明显的问题
Time你虽然定义为Command1过程的变量，但是对系统时间还是有危险性。Time语句是直接设置系统时间的函数。
Format的格式，切记，【分是nn 不是mm】【yyyy是年 mm是月 dd是日】
vb中“select case”是什么意思?
根据表达式的值执行几组语句之一\\x0d\\x0aselect case a 意思就是判断a是什么内容。然后根据不同内容执行不同的代码。 \\x0d\\x0a VB里的Select语句的格式是这样的： \\x0d\\x0aSelect Case '语句开始 \\x0d\\x0aCase ’判断条件\\x0d\\x0a?? ‘执行命令\\x0d\\x0aCase \\x0d\\...
vbselectcase是什么意思
Select Case value Case 1 ' 如果value等于1，执行这里的代码 Case 2, 3 ' 可以同时匹配多个值 ' 如果value等于2或3，执行这里的代码 Case Else ' 当没有匹配的情况时执行的代码块是可选的 ' 如果value不是1、2或3，执行这里的代码 End Select 四、实际应用场景 在实际编程过程中，Select Case...
VB中如何使用select case语句
嵌套各语句组中也可以写入完整的Select Case语句，像For循环中嵌套一个二级循环一样。别误会，Select Case不是循环语句，是条件选择语句，与IF...ELSEIF...ELSEIF...END IF类似。基本用法Private Sub main()Select Case InputBox("请输入你希望的天气，从晴天、多云、阴天、阵雨、小雨、小雪、冰雹中...
VB里的selsct case是做什么用的
要使用Select Case语句，首先需要定义一个变量并给定一个表达式，这个表达式会被用来与一系列的Case子句进行比较。每个Case子句后面跟着要执行的代码块。代码块的顺序很重要，因为程序只会执行第一个符合条件的Case子句。例如，假设我们要根据用户输入的数字选择执行不同的操作，可以使用如下Select Case结构：vb...
VB的select case语句怎么用?
Select Case 语句 根据表达式的值，来决定执行几组语句中的其中之一。语法 Select Case testexpression [Case expressionlist-n [statements-n]] ...[Case Else [elsestatements]]End Select Select Case 语句的语法具有以下几个部分：部分 描述 testexpression 必要参数。任何数值表达式或字符串表达式。e...
vb里,select case 的用法?
is就是“是”因为前面已经说select case n了 所以这里就是对n的 本来是n>0，现在可以写"Is>0"了，这样会方便点 select的用法：select case <变量> case <条件1> <执行语句1> case <条件2> <执行语句2> ...end select
vb中“select case”是怎样使用的?
Case Else 用于指示若在 testexpression 和任何其他 Case 选项的 expressionlist 之间未找到匹配，则执行 elsestatements。虽然不是必要的，但最好是将 Case Else 语句置于 Select Case 块中以处理不可预见的 testexpression 值。如果没有 Case expressionlist 与 testexpression 匹配且无 Case Else 语句，...
vb select case怎么表示and关系
select case就是对表达式结果进行分类，不能表示AND关系，可以表示Or，因为一个表达式的计算结果，不能即等于一个数，又等于另一个数，例如：select case 考试成绩 case is < 60 s="不及格"case 60 to 70 s="及格"case 100 s="优秀"end select ...
VB中 case语句
在Visual Basic中，case语句是一种条件选择工具，它用于根据特定条件执行不同的代码块。其基本结构如下：Select Case <指示变量或表达式> <针对不同情况的语句组，如果指示变量或表达式的值与这些情况匹配，相应的语句就会执行> ... (多个case语句，用逗号分隔) ...Case Else <如果所有case都不匹配，...
VB中select case 语句的用法
不能用“Time”关键字做变量名称。还有“Now”包括了时间和日期，而前面随机生成的时间不包括日期，会导致判断错误。代码可改为：Private Sub Command1_Click()RandomizeDim rTime As DaterTime = rTime + RndPicture1.Print "今天 " & rTimeSelect Case rTimeCase Is > TimePicture1.Print "距...
