Question

VB计算题

22.窗体上添加一个命令按钮(名为command1),然后编写如下程序：
a=sqr(3)
b=sqr(2)
c=a>b
msgbox c+2
打开窗体运行后，单击命令按钮，消息框的输出结果为

23.写出下列程序运行时单击Command0后，输入123时，输出结果为_____。
Private Sub Command0_Click()
Dim x as Long,y as String
x=Inputbox(“请输入数字”,””)
Do While x<>0
y=y&x Mod 10
x=x＼100
Print y
Loop
End Sub
要求有解题思路，mod的意思是什么？在打个比方！

Answer 1

22.因为a等于3的平方根，b等于2的平方根，所以c为True，True转换成整数是-1，所以消息框的输出结果为1

23.Mod运算符用来对两个数作除法并且只返回余数，比如3 Mod 2返回1，4 Mod 2返回1。&运算符用来强制两个表达式作字符串连接。Mod运算符的计算顺序优先于&运算符。\运算符用来对两个数作除法并返回一个整数（商的整数部分，不进行四舍五入）
输入x=250时，Do循环执行过程如下：
y=y & x Mod 10 'y="" & 250 Mod 10="" & "0"="0"
x=x\100 'x=250\100=2
Print y '显示结果：0
满足循环条件，继续循环
y=y & x Mod 10 'y="0" & 2 Mod 10="0" & "2"="02"
x=x\100 'x=2\100=0
Print y '显示结果：02
不满足循环条件，结束循环

追问

4 Mod 2返回1？这个不是刚好整除吗？余数应该是0才对~
还有上面的例题输入的是123，按照你的思想做~
y=y&x Mod 10

123 mod 10 =3
y=3
x=x＼100

x=123 \ 100=1
继续循环
y=3&x Mod 10
1 mod 10=1
所以y=31
x=x＼100
x=0
所以退出循环
所以y的显示结果为31？

追答

汗个4 Mod 2应该返回0，我疏忽了