在Visual Basic（VB）中，可以使用多种方法来判断当前时间、奇偶数、字符串格式等。以下是一些常见的方法和示例代码：
判断当前时间
要获取当前时间，可以使用`Now`对象。例如，要显示当前日期和时间，可以使用以下代码：
```vb
Private Sub Form_Load（）
Dim currentDate As Date
currentDate = Now
MsgBox "当前日期和时间： " & currentDate.ToString（"yyyy-MM-dd HH:mm:ss"）
End Sub
```
判断奇偶数
判断一个数是否为奇数或偶数，可以使用取余运算符（`Mod`）。例如：
```vb
Private Sub Command1_Click（）
Dim inputNumber As String
inputNumber = InputBox（"请输入一个整数："）
Dim number As Integer
number = Val（inputNumber）
If number Mod 2 = 0 Then
MsgBox "偶数"
Else
MsgBox "奇数"
End If
End Sub
```
判断字符串格式
要判断一个字符串是否符合特定格式（例如，"www"+"."+"xxxx"+"bbb"或者 "xxxx"+"."+"bbb"），可以使用`Instr`函数和`LCase`函数。例如：
```vb
Private Sub Command1_Click（）
Dim inputString As String
inputString = InputBox（"请输入一个字符串："）
If LCase（Left（inputString, 3）） = "www" And instr（inputString, "."） > 0 And LCase（Mid（inputString, instr（inputString, "."） + 1, 4）） = "xxxx" And instr（inputString, "."） > 0 And LCase（Right（inputString, 3）） = "bbb" Then
MsgBox "格式正确"
Else
MsgBox "格式不正确"
End If
End Sub
```
判断进程是否存在
要判断一个进程是否存在，可以使用`Process`类。例如：
```vb
Private Sub Command1_Click（）
Dim procs As Process（） = Process.GetProcesses（）
Dim processName As String = "notepad.exe"
Dim found As Boolean = False
For Each TmpProc In procs
If TmpProc.ProcessName.ToUpper = processName.ToUpper Then
found = True
Exit For
End If
Next
If found Then
MsgBox "进程 " & processName & " 正在运行"
Else
MsgBox "进程 " & processName & " 没有运行"
End If
End Sub
```
判断是否发生崩溃
要判断VB程序是否发生崩溃，可以尝试捕获异常并记录错误信息。例如：
```vb
Private Sub Form_Load（）
On Error GoTo CrashHandler
' 程序代码
Exit Sub
CrashHandler:
MsgBox "程序发生崩溃!"
' 记录错误信息
End Sub
```
这些示例展示了如何在VB中实现不同的判断逻辑。根据具体需求，可以选择合适的方法来实现所需的功能。