189 8069 5689
这种表达方法是VB认可的，但意思不一定是您想比达的。
莎车ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联建站的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：18980820575（备注：SSL证书合作）期待与您的合作！
按照从左到右，以及隐含类型转换的规则。其含义如下：
先计算48=A，若A大于等于48，则计算结果为True,否则为False
然后计算True(或False)=57，这时由于是不同类型的数据进行比较，程序进行隐含的类型转换，转换的规则是将boolen量转为int。False为0，True为-1(0xffff)。
所以True(或False)=57相当于-1(0)=57，这个比达式恒为True的。
要真实表达楼主的意头，就当为A=48 and A=57
dim num as int
if num=5 and num=10 then
执行代码
End if
返回大于等于0小于1之间的随机数。
Visual Basic中随机函数
格式：Rnd(数值表达式)
功能：求[0,1)之间的一个随机数
语法：
Rnd[(number)]
如果 number 的值是 Randomize 生成
小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。
大于 0 ，以上一个随机数为种子产生下一个随机数。
等于 0 ，产生与最近生成的随机数相同的随机数。
省略， 以上一个随机数为种子产生下一个随机数。
说明
Rnd 函数返回小于 1 但大于或等于 0 的值。
number 的值决定了 Rnd 生成随机数的方式。
对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。
在调用 Rnd 之前，先使用无参数的 Randomize语句初始化随机数生成器（若带参数，则产生由参数对应的一个特定序列的随机数），该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
如果不能直接算，那就只有逼近的方法了。
例：
a从0到1000循环，每次+1
每次比较a*X的结果是否大于等于y，等于的话就出结果。
大于y时，a从a-1到a循环，每次+0.001
每次比较a*X的结果是否大于等于y，等于的话就出结果。
。。。
根据循环次数和布进，可以得到一个小数位数的精度，以上循环可以得到一个精确度达到0.001的结果了。
Module Program
Sub Main()
Dim l,n1,n2 As Long
Console.Write("请输入一个大于等于6的偶数：")
l=CLng(Console.ReadLine())
For n1=3 To CLng(l/2)+1
n2=l-n1
If IsPrime(n1) AndAlso IsPrime(n2) Then
Exit For
End If
Next
Console.WriteLine("{0}={1}+{2}",l,n1,n2)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
Function IsPrime(l As Long) As Boolean
Dim r As Boolean=False
Dim i As Long,sq As Long=CLng(Math.Sqrt(l))
For i=2 To sq
If 0=l Mod i Then
Exit For
End If
Next
If isq Then
r=True
End If
Return r
End Function
End Module