十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
字符拼凑法:
延川网站建设公司创新互联公司,延川网站设计制作,有大型网站制作公司丰富经验。已为延川近千家提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱,请找那个售后服务好的延川做网站的公司定做!
dim Title as string="播放歌曲播放歌曲"
dim S as string=""
for I as integer=0 to Title.length-1
S=Title.Substring(i,iif(Title.length-i0,title.length-i,1)
next
Private Sub Command1_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
Max = IIf(x y, x, y)
Print "Max="; Max
End Sub
'自定义一个函数:功能是给小数直接进一位
'num 要操作的小数
'n 保留几位小数,
Function getNumber(num As Double, n As Integer) As Double
Dim a As Double
a = Int(num * (10 ^ n)) / (10 ^ n)
If a = num Then
getNumber = a
Else
getNumber = a + 1 / (10 ^ n)
End If
End Function
-------------------------
调用一下:
Private Sub Command1_Click()
MsgBox (getNumber(3.1415926, 2))
End Sub
得到3.15
封闭块中的变量名与块外变量重名了。
举例说明
...
dim i as byte,a as byte
for i=0 to 10
...
dim a as byte
...
next
...
在FOR循环中定义了一个变量A,但是A已经在同一过程里面定义过了,这时FOR循环里面的A会提示“变量“A”在封闭块块中隐藏变量”
你可以在提示出错的地方往前找,看同一过程里面定义重复的变量然后改名
请参考:
编程中国-北京2008年奥运会倒计时
或者:
新建 工程,1个按钮,1个timer,和1个文本框
在文本框内输入时间(秒数),点按钮就开始倒计时了:
Dim i%
Private Sub Command1_Click()
Command1.Caption = IIf(Command1.Caption = "开始计时", "停止计时", "开始计时")
Timer1.Enabled = Not Timer1.Enabled
i = 0
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Command1.Caption = "开始计时"
Text1 = ""
End Sub
Private Sub Timer1_Timer()
If Text1 = "" Then Exit Sub
Cls
If Val(Text1) - i = 0 Then
Print "时间到!!!"
Timer1.Enabled = False
Exit Sub
End If
Print "现在还剩下" Val(Text1) - i "秒了!!"
i = i + 1
End Sub
iif(Condition=true,1,0)iif(Condition=true,1,0)iif(Condition=true,1,0)iif(Condition=true,1,0)iif(Condition=true,1,0)