vb表达式

产生"c~l"范围内的任一个大写字母。
表示a1和a2中有且只有一个与a3得值相等。
表示大于x的最小整数。
从字符串变量s的第三个位置取出一个字符，表示该字符是字母字符（不区分大小写字母）。谢谢了，急! --------------------编程问答-------------------- 不知所云，只能帮顶 --------------------编程问答-------------------- 第一个用rand随机函数和ascii码可实现
第二个  if((a1=a3) and (a2<>a3)) or((a2=a3) and (a1<>a3)) 也可多个if嵌套
第三个 cint(x+1)
第四个 a=mid(s,3) --------------------编程问答--------------------
大胡子，这是 4 道题！估计又是作业。

1

Randomize
Debug.Print Chr(Rnd * (Asc("L") - Asc("C")) + Asc("C"))

2

If (a1 <> a2) And ((a1 = a3) Or (a2 = a3)) Then
    MsgBox "a1和a2中有且只有一个与a3的值相等"
End

3

MsgBox Int(x + 1)

4 

If Not Mid(s, 3, 1) Like "*[!A-Za-z]*" Then
    MsgBox Mid(s, 3, 1) & " is a character."
End If

or

If UCase(Mid(s, 3, 1)) <> LCase (Mid(s, 3, 1)) Then
    MsgBox Mid(s, 3, 1) & " is a character."
End If --------------------编程问答-------------------- 不知所云，只能帮顶 
 
--------------------编程问答-------------------- 所以然：
Rnd函数产生的数分布 在[0,1)范围内，Rnd * (Asc("L") - Asc("C")) 的范围是[0,9)，
(Rnd * (Asc("L") - Asc("C")) + Asc("C"))的范围是[67,76),
那么Chr(Rnd * (Asc("L") - Asc("C")) + Asc("C")) 的范围就是["C","L"),这个范围不包括“L”.
应改为：  Debug.Print Chr(Int(Rnd * (Asc("L") - Asc("C")+1)) + Asc("C")) . --------------------编程问答-------------------- 看了3楼的回复犹如醍醐灌顶恍然大悟，原来楼主的4句话代表了4个问题阿。 --------------------编程问答-------------------- 同感啊.....看LZ的问题一头雾水

补充：VB ,  资源