VBA表达式的问题 请大牛指教

来源：百度知道 编辑：UC知道 时间：2024/05/29 15:57:17
依据条件 写出VBA表达式：
1.产生一个50至80范围内的整数（包括50和80）
2.表示50<x<80的表达式
3.x,y中有一个变量大于z
4.表示偶数

'vb 6.0 代码，放在窗体的form_load 事件里
Dim x As Integer, y As Integer, z As Integer
Me.AutoRedraw = True
Randomize
x = Int((80 - 50 + 1) * Rnd + 50)
Print x
If 50 < x And x < 80 Then
Print "50 < " & x & "< 80"
ElseIf x < 50 Then
Print x & " < 50"
Else
Print x & " > 80"
End If

y = Int((80 - 50 + 1) * Rnd + 50)
z = Int((80 - 50 + 1) * Rnd + 50)
If z < y And z < x Then
Print "x = " & x & " y = " & y & " z = " & z & " x 和 y 都大于 z"
ElseIf z > x And z > y Then
Print "x = " & x & " y = " & y & " z = " & z & " x 和 y 都小于 z"
ElseIf z < x And z > y Then
Print "x = " & x & " y = " & y & " z = " & z & " x 大于z, y 小于 z"
ElseIf z > x And z < y Then
Print "