VB表达式的运算
发布网友
发布时间：2022-04-24 07:52
共2个回答
热心网友
时间：2022-06-17 19:13
Int（12/5）+3*(7-8)/2-9 mod 4=-0.5
先算int(12/5)=2,因为int就是取他的整数部分。
再算3*(7-8)/2=-3/2 这个你应该知道。
最后算9 mod 4 这是取模运算，就是取余数，也就是1。
2+(-3/2)-1=-0.5
Not(7>4) and "classroom"<"classroom" =false
先看7>4为true ,加上not取反，就是false.
后面是and也就是与运算(与运算，只要有一个为假结果就是假），所以不用看后面的也知道结果是false.
第二个题，在窗体上放一个命令按钮，程序运行时单击命令按钮，出输入框要求输入数字，以“#”号结束。如果输入的数字个数小于等于3要求重新输入。输入正确则输出最大值最小值和平均值。代码如下：
Private Sub Command1_Click()
On Error GoTo errbad
Dim i, j, k As Integer
Dim n(), t, aver As Single
er: i = 0
Do
ReDim Preserve n(i)
n(i) = InputBox("请输入要比较的数，已'#'号结束！")
If i <= 3 And n(i) = "#" Then
MsgBox "数的个数必须大于3,请重新输入！", vbOKOnly + vbInformation, "提示"
GoTo er
End If
If n(i) <> "#" Then aver = aver + n(i)
i = i + 1
Loop While n(i - 1) <> "#"
aver = aver / (i - 1)
For j = 0 To i - 3
For k = j + 1 To i - 2
If n(j) < n(k) Then
t = n(j)
n(j) = n(k)
n(k) = t
End If
Next k
Next j
MsgBox "最大值是： " & n(0) & "最小值是： " & n(i - 2) & "平均值是：" & aver
Exit Sub
errbad:
Exit Sub
End Sub
热心网友
时间：2022-06-17 19:13
Int（12/5）+3*(7-8)/2-9
mod
4=-0.5
先算int(12/5)=2,因为int就是取他的整数部分。
再算3*(7-8)/2=-3/2
这个你应该知道。
最后算9
mod
4
这是取模运算，就是取余数，也就是1。
2+(-3/2)-1=-0.5
Not(7>4)
and
"classroom"<"classroom"
=false
先看7>4为true
,加上not取反，就是false.
后面是and也就是与运算(与运算，只要有一个为假结果就是假），所以不用看后面的也知道结果是false.
第二个题，在窗体上放一个命令按钮，程序运行时单击命令按钮，出输入框要求输入数字，以“#”号结束。如果输入的数字个数小于等于3要求重新输入。输入正确则输出最大值最小值和平均值。代码如下：
Private
Sub
Command1_Click()
On
Error
GoTo
errbad
Dim
i,
j,
k
As
Integer
Dim
n(),
t,
aver
As
Single
er:
i
=
0
Do
ReDim
Preserve
n(i)
n(i)
=
InputBox("请输入要比较的数，已'#'号结束！")
If
i
<=
3
And
n(i)
=
"#"
Then
MsgBox
"数的个数必须大于3,请重新输入！",
vbOKOnly
+
vbInformation,
"提示"
GoTo
er
End
If
If
n(i)
<>
"#"
Then
aver
=
aver
+
n(i)
i
=
i
+
1
Loop
While
n(i
-
1)
<>
"#"
aver
=
aver
/
(i
-
1)
For
j
=
0
To
i
-
3
For
k
=
j
+
1
To
i
-
2
If
n(j)
<
n(k)
Then
t
=
n(j)
n(j)
=
n(k)
n(k)
=
t
End
If
Next
k
Next
j
MsgBox
"最大值是：
"
&
n(0)
&
"最小值是：
"
&
n(i
-
2)
&
"平均值是："
&
aver
Exit
Sub
errbad:
Exit
Sub
End
Sub
