瑞星卡卡安全论坛技术交流区系统软件 【求助】哪位高手帮一下忙啊

1   1  /  1  页   跳转页

【求助】哪位高手帮一下忙啊

收藏
想你一亿年
头像
初生襁褓狮
  • 帖子:182
  • 注册: 2005-08-16
  • 来自:
发表于： 2006-08-05 17:38 | 只看楼主 短消息 资料
字号： 小 中 大 1楼

【求助】哪位高手帮一下忙啊

小弟刚学VB 自学的 遇到一个问题 想向大家请教一下

Private Sub Form_Click()
Dim x%,y%,z%
x="1":y="3"
z=x<y
print x;y;z
end sub

请问各位这段VB代码 运行后为什么结果为什么是"1 3 -1" 请问这-1怎么来的啊？
最后编辑2006-08-25 09:27:53
分享到：
gototop
 
闪电风暴
头像
特邀体验者
  • 帖子:5462
  • 注册: 2005-01-12
  • 来自:0GiNr
发表于： 2006-08-05 19:26 | 短消息 资料
字号： 小 中 大 2楼

整型数据无法用字符串赋值
gototop
 
闪电风暴
头像
特邀体验者
  • 帖子:5462
  • 注册: 2005-01-12
  • 来自:0GiNr
发表于： 2006-08-05 19:30 | 短消息 资料
字号： 小 中 大 3楼

这样比较好:
private sub form_load()
dim x as integer,y as integer,z as integer '我比较习惯这样......
x=1
y=3
z=(x>y)
print x;y;z
end sub
gototop
 
想你一亿年
头像
初生襁褓狮
  • 帖子:182
  • 注册: 2005-08-16
  • 来自:
发表于： 2006-08-06 09:54 | 只看楼主 短消息 资料
字号： 小 中 大 4楼

谢谢，楼上的高手，还有个问题，请帮忙一下，谢谢！

X=5
For I=1 to 20 Step 2
x=x+I\5
Next I

请问一下这段程序执行后的 X值为什么等于21？
可以讲的详细点吗？谢谢了！
gototop
 
简单就是美
头像
叱咤花甲狮
  • 帖子:3597
  • 注册: 2005-02-07
  • 来自:帝魔铁路290km
发表于： 2006-08-08 12:19 | 短消息 资料
字号： 小 中 大 5楼

逻辑表达式x<y的结果为boolean型，bool中的True=-1,False=0。
而x确实小于y,所以把True(-1)赋给z,print时自然就会显示出-1。
gototop
 
简单就是美
头像
叱咤花甲狮
  • 帖子:3597
  • 注册: 2005-02-07
  • 来自:帝魔铁路290km
发表于： 2006-08-08 12:23 | 短消息 资料
字号： 小 中 大 6楼

引用:
【想你一亿年的贴子】谢谢，楼上的高手，还有个问题，请帮忙一下，谢谢！

X=5
For I=1 to 20 Step 2
x=x+I\5
Next I

请问一下这段程序执行后的 X值为什么等于21？
可以讲的详细点吗？谢谢了！
………………

你的for语句中步长为2，即每循环一次I增加1
所以一次次循环下来，I依次等于1,3,5,7...17,19,21
当I=21>20时，循环就结束了。
由于步长的原因，I不可能经过20而直接达到21。就这么简单。
楼主如果把step 2改为step 1或干脆去掉，运行结束后I就会等于20了。
gototop
 
一条小小虫
头像
初生襁褓狮
  • 帖子:35
  • 注册: 2006-08-21
  • 来自:
发表于： 2006-08-22 19:42 | 短消息 资料
字号： 小 中 大 7楼

引用:
【闪电风暴的贴子】这样比较好:
private sub form_load()
dim x as integer,y as integer,z as integer ''
x=1
y=3
z=(x>y)
print x;y;z
end sub


把这个改成：
private sub form_load()
dim x as integer,y as integer,z as integer ''
x=1
y=3
(z=x)>y
print x;y;z
end sub
可以吗？
gototop
 
<<上一主题|下一主题>>
1   1  /  1  页   跳转页
页面顶部
Powered by Discuz!NT