int 取整
int(rnd)+3的值肯定及小于10了
2. 字符串的比较,
首先左对齐,然后依次比较,第一位与第一位比较...........
比较的是ascii码, B的是65, b的是98
3.定义了一个函数,这个函数的功能是:
如果是偶数,值就不变,如果是奇数,值就变成1
然后依次输入1 2 3 4 5
输出的就是 1 2 1 4 1追问
为什么最后一题是把所有结果相加起来得出9呢？而有些题目不是相加起来得出结果的？
追答1.如果都是数字,而且中间是用 "+" 连接的,那么就是数值相加,
如果用的是字符 "&" 的话才是字符的堆加
2.这是这个自定义函数本身的功能,
你可以这样
设置断点(在s=s+F(i)左边点一下),
然后程序走到这里就会停顿,
然后按F8执行下一步,
你可以仔细看看程序是怎么运行的
(mod是取余数的意思,这个知道不?)
if m mod 2= 0 then
这句话的意思就是如果 m 能够被2整除,也就是说 m 是偶数的时候 then
不好意思我看错题了，知道了，谢谢！另外你可以帮我解释下这里的17题吗？http://zhidao.baidu.com/question/469127990.html?quesup2 感激不尽了！
追答17. 这个sub F() 主要是为了实现某种功能,比如说交换
但是这个函数本身没有返回值,所以说 n 还是原来的 n
18. 先说a和b
i<n和i<=n的区别在于,后者比前者多执行一次
你看,i=5,n=5的时候,
i<n不成立,退出循环
i<=n却依然成立,循环继续,直到n=6
再说d
正常写法应该是for i=1 to m step 1
因为系统默认的是STEP 1,所以可以不写
如果非要这么写也应该是 for i=n to 1 step -1
这是那个网站的,好像现在不能答了.................
你回答得这么详细，要是在那边答我就给你最佳答案了啊，谢谢你了！另外我还是不怎么明白Sub F函数的功能感觉它在这里是多余的好像是后面联系不起来，同是arr在这里有时什么意思呢，可以解释下吗？代码看不懂！麻烦你了！
追答我在那边给你回答了,可能新手刚接触这些东西理解起来很是费劲,看的多了就明白了
VB题,高手来帮帮忙,感激不尽!求解释下代码和答案!谢谢!好人好报!
1. rnd 随机生成一个0到1的数,int 取整 int(rnd)+3的值肯定及小于10了 2. 字符串的比较,首先左对齐,然后依次比较,第一位与第一位比较...比较的是ascii码, B的是65, b的是98 3.定义了一个函数,这个函数的功能是:如果是偶数,值就不变,如果是奇数,值就变成1 然后依次...
求大神帮我解释一段vb代码,感激不尽,是彩票选号小助手的
Private Sub command1_Click()N = -1For i = 0 To 4N = N + 1If option1(i).Value = True Then Exit ForEnd IfNext iDim a(1 To 7) As IntegerFor i = 0 To NFor j = 1 To 7Randomizea(j) = Int(Rnd * 35 + 1)'随机生成号码Next jFor k = 1 To 7For m = k +...
...高手解答代码意思,尤其是20题!红色是答案,各种感谢!!好人好报...
第20题:for i=0 to 5\\2,这里5\\2是取整数商的除法结果是2,这句就是for i=0 to 2 tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmp 实现元素交换,i=0时,元素b(0)与b(4)交换,i=1时,元素b(1)与b(3)交换,i=2j时,b(2)与b(2)交换.到此交换操作完毕.实现了元素的倒序.第21题....
会VB的快进来帮我写下代码,十分感谢!
1.Private Sub Form_Click()if text1.text=123 then msgbox “密码不正确”else msgbox “密码错误”End Sub 2.Private Sub Command1_Click()Text1.FontName = "楷体"text1.fontsize=26 Text2.FontName = "隶书"text2.fontsize=26 text2.FontItalic=true text1.passwordchar=""End Sub 3.Pr...
vb中的程序难题,拜求高手帮忙解决!
用VB写程序时,能不能从excal文件中读出数据,并能像EXCAL那样绘出一条曲线来,曲线希望Y轴是excal文件里得C列的数据,X轴希望是B列的数据乘上某个数,就相当与EXCAL文件的每行数据代表一个坐标点。。。希望能提供源代码,感激不尽。。。大家帮帮忙,我实在搞不定了。。。 展开 我来答 5个回答 #热议...
vb程序设计题求解!!!谢谢各位了!!
min = n_left(1) '求剩下最小的距离 j = 1 '保存剩下最小距离的那组组合的序号 For i = 2 To k '我这里只求了一组解，也许有不同的组合而剩下距离相同的情况 我就没有再列出来的··If min > n_left(i) Then j = i min = n_left(i)End If Next Print "最小剩余组合：...
...但我从来没听过课,求解答!感激不尽,尽快啊,谢谢
答案：A Int(-3.14)的值是 A. -3 B. -3.14 C. -4 D. 3.14 答案：C 10. Function过程的定义，不必须有的是（ ）。A. 过程的名称 B. 虚参 C. End Function D. 给过程赋值 答案：B。函数过程的定义有两种方法：（1） 在代码窗口中，利用“工具”菜单下的“添加过程”命令，插入...
...input a,b y=a*b print y 是错的。 求高手指教。感激不尽...
而Input语句是这样的：Input #fn, a, b 其中的fn是文件通道号。完整代码如下：Private Sub Form_Load()Dim fn As Integer Dim a, b, y fn = FreeFile Open "C:\\file1.txt" For Input As #fn Input #fn, a, b If IsNumeric(a) And IsNumeric(b) Then '判断a、b是数字才计算...
...的代码是什么意思?VB高手帮忙注释下,本人感激不尽。
bh = Data1.Recordset.Fields(编号) \/\/将数据库 表中编号这一列的值赋给bh Data2.Recordset.FindFirst (bh) \/\/寻找bh记录集中的第一条 Call zf \/\/调用zf Label13.Caption = zf \/\/在标签13上显示zf的记录
vb高级编程:防止破解,请高手帮忙。
伪装入口点和启动自验证和自校验 这3种方法能够对付很多的破解者了 有条件加个加密狗给他
