dim a,b if b<>0 then if a\b = a/b then msgbox "能整除!" else msgbox "不能整除!" end if end if
1个回答
Private Sub Command1_Click() Dim Rnd_Int as Integer Randomize Rnd_Int=Int(Rnd * 101) + 100 Print Rnd_Int End Sub
1个回答
在VB中,e用exp函数表示,ln就是log函数。 e^x=exp(x),lnx=log(x) x为任何表达式。记住括号是不能省略的。切记 所以正确的表达式为: 8*exp(1)*log(2)
1个回答
答案:B A显然不对,不可能是任何形式的表达式。而且Select Case就是一种多重选择的另一种形式的IF语句,按条件表达式的计算值与CASE的条件值进行比较,如果有多个CASE重复,只执行第一个匹配的条件语句,所以C和D均不对。
这有关表达式的优先级的问题,首先数学表达式优先级比逻辑表达式要高则先做数学计算,a>b是不成立的则值等于False,c>a,成立值等于 True,依次类推,得出 False and Not True Or True And True 在计算机内True用1表示,False用0表示,我用来替代你看得明...
2个回答
选(B) 因为对于"+"这个运算符来说如果前后丙个部分能转换成数字的话就转换成数字再相加,否则当作字符串连接起来,"&"则是不论什么情况一律当作字符串连接起来 12000和129被当作数字相加,得12129再与后面的200相连接就是(B)了
1、 Dim n As Integer, s As Integer n = InputBox("请输入一个偶数n") s = 0 Do While n >= 2 s = s + ((n - 1) * 10 + 2) - (n * 10 + 2) n = n - 2 Loop MsgBox "S=" ...
1个回答
1、Len 函数返回字符串中的字符数目,所以len(x)=4,len(x)/2=2 2、Left函数可以取得左边的字符串:left(x,2) 就是在x中取左边数前2个字符 = "12" 3、"&H12" 代表十六进制的 12 = 十进制的18 ,所以Val("&H12")=18
1个回答
在VB中,e用exp函数表示,ln就是log函数。 e^x=exp(x),lnx=log(x) x为任何表达式。记住括号是不能省略的。切记 所以正确的表达式为: 8*exp(1)*log(2)
1个回答
Private Sub Command1_Click() Dim Rnd_Int as Integer Randomize Rnd_Int=Int(Rnd * 101) + 100 Print Rnd_Int End Sub
1个回答
dim a,b if b<>0 then if a\b = a/b then msgbox "能整除!" else msgbox "不能整除!" end if end if
1个回答
private sub command1_click()a=Val(text1.text)if a mod 4=0 and a mod 100<>0 or a mod 400=0then label1.caption =a & “年是闰年”else lable1.caption =a &“年不是闰年...
1个回答