用VB解下面的题,简单的逻辑运算答案正确了,接着补上分数.

来源:学生作业帮助网 编辑:作业帮 时间:2024/06/18 03:15:37
用VB解下面的题,简单的逻辑运算答案正确了,接着补上分数.
xSkPWA5,е>0}>InrD&02(l(1eǡC/x6m*Bso7_o//.?A~t}>'{~otr;OߜvGywrk5j8~rh*qnw]/pЧ<6={l^krMEhMj kK6mt,ۄ`bK%9 ºP%QeQ6k㨊!^ב$k#&E)&ZLeG+ZH5 4U&"SSPQt,kE-l\o !(cg=u׼P0)În[#`.;@6iAN*pU{6icÏrB|kRtN60nTd¤EaT(m$3l("(a# OҲm&k<Bʱi._4g5WVJ(; \J`&Q.Z[0Ýh2yIX!TMJ NtnKV>٭;[i3AXbH@]N~?X

用VB解下面的题,简单的逻辑运算答案正确了,接着补上分数.
用VB解下面的题,简单的逻辑运算

答案正确了,接着补上分数.

用VB解下面的题,简单的逻辑运算答案正确了,接着补上分数.
(1)
Dim s as String
s="abcde"
If s.Substring(2, 1) = "C" Then
MsgBox("Yes")
Else
MsgBox("No")
End If

(2)
Dim x As Double
Dim y As Double
If x > 20 Then
y = x * x + 3 * x + 2
Else
If x > 0 And x < 10 Then
y = 1 / x + Math.Abs(x)
Else
If (x > 10 And x < 20) Or (x = 10 Or x = 20) Then
y = Math.Sqrt(3 * x) - 2
End If
End If
End If
Select Case x
Case x > 20
y = x * x + 3 * x + 2
Case (x > 10 And x < 20) Or (x = 10 Or x = 20)
y = 1 / x + Math.Abs(x)
Case x > 0 And x < 10
y = Math.Sqrt(3 * x) - 2
End Select