产生一个100—400范围内的正整数写vb表达式

您好，这样的：
表达式如下:
Int((400
-
100
+
1)
*
Rnd
+
100)
【1】A$
=
Chr$(
Int(Rnd
*
10)
+
67)
【2】X=
Int(Rnd
*
101
+
100)
【3】If
x
*
y
>
0
Then
…
（x,y）位于I、III象限
【4】(x
mod
5)=
0
or
(x
mod
7)
=
0
【5】Y=(x
mod
10)*10
+
int(x/10)
(事先应保证x为2位数）
【6】X=(int(x*100))/100
【7】C
like
"[A-Z]"
or
C
Like
"[a-z]"
【8】C$
=
Mid(S,
5,
6)
【9】10
<=
x
and
x
<
20本回答被提问者采纳

vb.net
代码：运行test
sub
test()
dim
intout
as
intege
r‘定义整形变量存储随机数
dim
rnd
as
new
random
’定义随机生成器
intout
=
int(rnd.next(100,
200))
‘产生包含100的100至200的随机正整数
end
sub'==========================vb
6
代码：还是运行testsub
test()
dim
intout
as
integer
’定义整型变量存储随机数
intout
=
int(math.rnd
*
100)
+
100
‘生成包含100的100至200的随机数
end
sub