重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
dim s() as string
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名与空间、虚拟主机、营销软件、网站建设、江阴网站维护、网站推广。
For Each fm1 In Panel1.Controls
dim i=0
if fm1.GetType.ToString = "System.Windows.Forms.TextBox" Then
s(i)=fm1.text
i+=1
End If
Next
假设你用来显示内容的是一个Label1
For i = 1 To 8
Label1.Text = Label1.Text Chr(13) Chr(10) Space(i - 1) StrDup(18 - 2 * i,Chr(64 + i))
Next
Chr(13) Chr(10)是回车符加换行符
Dim s As String = "★", i As Integer
Label1.Text = Space(19) s vbCrLf
For i = 3 To 19 Step 2
Label1.Text = Label1.Text Space(20 - i) StrDup(i, s) vbCrLf
Next