解释下VB的这个语句_百度知道
解释下VB的这个语句
ommand1.Left = Second(Time)贰淋弛谷佾咐敷乓 * (Form1.ScaleWidth - Command1.Width) &#47
提问者采纳
Left = Second(Time) * (Form1, Command1,差不多就是让控件每秒移动一次.挢少策废匕肚而觅如果代码是写在Timer控件的事件中,然后平分为50格,假设现在的秒数为0,且让Timer的Interval 小于1000的话.;59就好了,如果把代码改成/ 59如果这样就更好了, 因为Second(Time)是取得当前的秒数,刚好在窗体的最右边, 如果秒数为1,就是1格,这样刚好60格.ScaleWidth - Command1,一直到秒数为59,就是第59格,且是把当前的窗体的宽度减去控件的宽度, 那就是left=0了.Width) &#47呵呵,再然后就跑到最左边了
提问者评价
呵呵 又麻烦您了
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请哪位高手帮我解释下下面VB代码语句的意思_百度知道
请哪位高手帮我解释下下面VB代码语句的意思
Sub 按钮3_Click()Dim i, k As IntegerDim KH(100) As StringDim DS(100) As DoubleDim WD(100) As Doublei = 1k = 1wjm = &d:\传输\& & CStr(&SW-& & Month(Date) & &-& & Day(Date) & &-& & Hour(Time) & &-& & Minute(Time) & &-& & Second(Time)) & &.txt&Do While Cells(35 + i - 1, 5).Value && &&
KH(i) = Cells(35 + i - 1, 5).Value
DS(i) = Cells(35 + i - 1, 6).Value
WD(i) = Cells(35 + i - 1, 8).Value
i = i + 1LoopOpen wjm For Output As #1
Print #1, Cells(33, 6).Value
For k = 1 To i - 1
Print #1, &NO=&; CStr(KH(k)); Spc(1); &0&; CStr(VBA.Format(DS(k), &0.0&) * 10); Spc(1); &0&; CStr(VBA.Format(WD(k), &0.0&) * 10)
Next kCloseEnd Sub
提问者采纳
Sub 按钮3_Click()'按钮3被点击触发Dim i, k As Integer'声明两个int变量i，kDim KH(100) As String'声明长度为100的string数组Dim DS(100) As Double‘声明长度为100的double数组Dim WD(100) As Double‘声明长度为100的double数组i = 1’赋值k = 1‘赋值wjm = &d:\传输\& & CStr(&SW-& & Month(Date) & &-& & Day(Date) & &-& & Hour(Time) & &-& & Minute(Time) & &-& & Second(Time)) & &.txt&’d：\传输\sw-02(当前月)-21（当前日）-10（当前时）-45（当前分）-(秒).txt文件Do While Cells(35 + i - 1, 5).Value && &&'while判断，如果这个值为空挑出循环
KH(i) = Cells(35 + i - 1, 5).Value'各项赋值，无须细讲
DS(i) = Cells(35 + i - 1, 6).Value'各项赋值，无须细讲
WD(i) = Cells(35 + i - 1, 8).Value'各项赋值，无须细讲
i = i + 1LoopOpen wjm For Output As #1‘打开上面的那个wjm文件，如果没有就创建。设置文件的标志位1
Print #1, Cells(33, 6).Value’写入wjm文件
For k = 1 To i - 1
Print #1, &NO=&; CStr(KH(k)); Spc(1); &0&; CStr(VBA.Format(DS(k), &0.0&) * 10); Spc(1); &0&; CStr(VBA.Format(WD(k), &0.0&) * 10)‘循环讲刚才上面while循环赋值写入文件
Next kCloseEnd Sub
提问者评价
其他类似问题
按钮3点击事件定义若干变量wjm是文件路径do while 中为3个数组赋值打开wjm对应的文件向文件中写入内容(Print #1 ......)
CStr(KH(k)); Spc(1); &0&; CStr(VBA.Format(DS(k), &0.0&) * 10); Spc(1); &0&; CStr(VBA.Format(WD(k), &0.0&) * 10) 里面的函数，还有Cells()函数的具体意思，Do While Cells(35 + i - 1, 5).Value && &&的意思？
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁这个vb程序什么意思啊，能说一下for语句在这里是干什么的么？谢谢啦！_百度知道
这个vb程序什么意思啊，能说一下for语句在这里是干什么的么？谢谢啦！
&&&&&&&nbsp这个vb程序什么意思啊;&&&&&&&&&&&&nbsp.&&&&&&&&&&nbsp.&&&nbsp！&&&&&&&&&&&&&&&&&&&&&&nbsp.&&&&&&&&&&&&&nbsp://b;&&&&&&&&&&&&&&nbsp.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="&&&&&&/zhidao/wh%3D450%2C600/sign=86b72dc17e1ed21b799c26e/91ef76c6a7efce1b9cf3deb48f65e2;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&nbsp.&&&&&&&&&&&&&&nbs坍画摧剿诋济个烧p;&&&&&&&&&&&&&&&&&&/zhidao/wh%3D600%2C800/sign=c2dea357baa294fc6a7efce1b9cf3deb48f65e2;&&&&/zhidao/pic/item/91ef76c6a7efce1b9cf3deb48f65e2，输出结果为;&&&&&&&&&&&&&&&&&nbsp.&&&&&程序运行后;&&&&&&&&&&&&&&&&&&nbsp？<a href="&&&&&&&&&&&&nbsp://b;&&&&&&&nbsp，单击命令按钮Command1;&&&&&nbsp://b;&&&&nbsp.&&&&nbsp，能说一下for语句在这里是干什么的么;&&&nbsp.jpg" esrc="http？谢谢啦;&nbsp
提问者采纳
可以忽略，函数里变量a的值始终都是1for 就是循环
这代码就是 循环从1 到3 一共循环3次。而变量b 却是一个静态变量，所以最后的结果是
2,3，proc是一个自定义函数， 每一次用print 输出打印结赢馅陛叫桩既钓哨果 proc 到窗体，每一次执行都会保存上一次的值,4
提问者评价
太给力了，你的回答完美地解决了我的问题，非常感谢！
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB中的for-next循环结构语句，我对这段话不理解，希望举个例子。_百度知道
VB中的for-next循环结构语句，我对这段话不理解，希望举个例子。
但循环控制变量若在循环体内被重新赋值,e2,e3中包含的变量如果在循环体内被改变,不会影响循环醒列糕剐蕹溉见炮的执行次数三个循环数e1
提问者采纳
i for i=1 to 10a=a+1b=b+1next这个例子在循环内改变啦变量a举例dim
a：不改变控制变量次数不变,b .循环体内又增加1这句话的简要就是说，不影响循环的次数10次
因为a,b 不是控制变量dim
a,使它一次自身增加1，改变次数变量就可能改变次数,i for i=1 to 10i=i+1b=b+1next这个就把循环次数变成5次啦,b 的值 但是,b ，因为改变啦控制变量I
提问者评价
其他类似问题
循环结构的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁麻烦解释一下这段VB代码，及doevents语句的用法_百度知道
麻烦解释一下这段VB代码，及doevents语句的用法
黑体&quot.Left = Label1.Left &ltPrivate Sub Command1_Click()Do While DoEvents()If Label1; Form1.LeftEnd IfLoopEnd SubPrivate Sub Command2_Click()FontName = &quot.Left + 1BeepElseLabel1.Left = Form1.Wid瘦鸳糙赶孬非扼馁th ThenLabel1;正在执行“无doevents 的循环”&FontSize = 16Print &quot
提问者采纳
打印字体For x = 1 To
&#39;DoEvents返回整形数(窗体数目)非0为真~Do While 循环只要条件为真是循环If Label1.Left = Label1;窗体的左边距赋值给标签左边距End IfLoopEnd SubPrivate Sub Command2_Click()FontName = &如果标签的左边距小于窗体1的宽度则Label1.Left &设置窗体字体FontSize = 16 &#39; &#39;正在执行“无doevents 的循环”&通过计算机喇叭发出一个声调Else &#39;字体大小Print & Form1.Left + 1 &#39.Width Then &#39; &#39;黑体&left属性+1Beep &#39;否则Label1.Left &#39.Left = Form1Private Sub Command推擤滇寡鄄干国袍1_Click()Do While DoEvents()&#39
其他类似问题
按默认排序
其他1条回答
eep 主板的小喇叭发声，嘟一下
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁