VB代码表达式

Question

根据给定条件，写出表达式。
(1)随机产生一个[18,88]之间正整数。
(2)X，Y之一为0但不得同时为0。
(3)将一个两位整数X的个位与十位互换。
(4)设整型变量X，它是3、5、7中任意两个数的倍数。
(5)任意一个三位数中的十位数。
(6)设双精度变量X，它的取值范围是[0，60]或[90,100]。
(7)满足好学生的条件是：数学、语文、英语三门课的总分不低于270分，或任意两门课的分数超过190分，或一门课达到100分。

Answer 1

1.int(rnd*71+18) VB内部函数
2.(x=0) or (y=0) VB逻辑运算和关系运算
3.y=m mod 10 VB算术运算
x=m\10
n=y*10+x
4.(x=3*5) or (x=5*7) or (x=3*7) VB逻辑运算和关系运算
5.x假设为这个三位数，
y=x mod 100
z=y/10
z就为这个三位数的十位数了
6.(0<=x<=60) or (90<= x <= 100) VB逻辑运算和关系运算
7.x=数学 y=语文 z=英语
(x+y+z>=270) or (x+y>=190) or (y+z>=190) or (x+z>=190) or (x>=100) or (y>=100) or (z>=100) VB逻辑运算和关系运算
上面如果有一个为True则为True

写的有点乱，因为这是VB很基础的东西，所以没有写的太详细，希望你能看的懂，看不懂我可以再做解释！

Answer 2

更正楼上一些地方
(2) If X * Y = 0 And X + Y <> 0 Then
(3) X = (X Mod 10) * 10 + (X -(X Mod 10))/10
(5) ((X Mod 100) - (X Mod 10)) / 10 '如X为123 则结果为2
(6) If (X >= 0 And X <= 60) Or (X >= 90 And X <= 100) Then