请写出其相应的VB表达式？

来源：百度知道 编辑：UC知道 时间：2024/06/17 12:52:38
（1）产生"C"~"L"之间的任一个大写字母；
（2）表示X是5或7的倍数；
（3）表示A1和A2之中有且只有一个与A3的值相等；
（4）表示大于X的最小整数；
（5）从字符串变量要的第3个位置取出一个字符，表示该字符是字母字符（不区分大小写字母）

(1)
chr1 = Chr(Rnd() * 9 + 67)
(2)
x mod 5=0 or x mod 7 =0
(3)
A1 <> A2
(4)
int(x) + 1
(5)
Dim str1$, x$
str1$ = "abcd"
x = Asc(Mid(str1, 3, 1))
Print x

悬赏分

(1)
chr1 = Chr(Rnd() * 9 + 67)
(2)
x mod 5=0 or x mod 7 =0
(3)
A1=A3 and A2<>A3 or A2=A3 and A1<>A3
(4)
int(x) + 1
(5)
x = Asc(Mid(字符串, 3, 1))

这个我觉得写过的呀？
1、
dim a as integer
do while 1
a=int(rnd*100)
if a>66 and a<77 then
msgbox(a)
exit do
end if
loop

2、
dim n as integer
n=0
if x mod 5=0 then n=n+1
if x mod 7=0 then n=n+2
if n=1 then
msgbox("x是5的倍数")
elseif n=2 then
msgbox("x是7的倍数")
elseif n=3 then
msgbox("x是5的倍数，同时也是7的倍数！")
end if

3、
IF A1=A3 THEN
A2<>A3
ELSEIF A2=A3 THEN<