📄 19583.html
字号:
<html> <head> <title>Re: 再问一个问题!!</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 再问一个问题!!</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:jhl4209@ms1.hinet.net">daniel</a> on October 03, 1999 at 12:34:45:<p>In Reply to: <a href="19578.html">再问一个问题!!</a> posted by 康宝 on October 03, 1999 at 02:32:59:<p>: 程式中有一段叙述<br>: dim new1 as long<br>: dim new2 as long<p>: If Check1.Value = 1 Then<br>: New1 = "3"<br>: Else<br>: New1 = "0"<br>: End If<br>: If Check2.Value = 1 Then<br>: New2 = "3"<br>: Else<br>: New2 = "0"<br>: End If<br>: 请问<br>: 如果有三,四十个同样的判断,那要如何简化比较好呢?<br>: 能否举例说明一下!!<br>: 谢谢!!<br>把check1设为阵列,如check1(0),check1(1)..check1(n)<br>dim new(n) as integer n为阵列数<p>for i= 0 to n<br> new(i)=0<br> if check1(i).value=1 then<br> new(i)=3<br> end if <br>next<p><br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 19583--></ul><!--end: 19583--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -